0
Μηπως καπιος μπορει να μου κανει η θερμοκρασια να πηγενει μεχρι 80 βαθμους το fwd μεχρι 1000 και τα ref μεχρι 100 ο κωδικας ειναι γραμενος με Proton Compiler γιατι ετσι οπως ειναι παει σε ολα μεχρι 25.5 ευχαριστω
---------------------------temp--------------------------------
temp:
Cls
While 1 = 1
NTC = 255 - Pot NTC_Poort, 255
Print At 1, 1, " Temperature"
Print At 2, 1, "Temp: " , Dec NTC/10, ",", Dec1 NTC, %11011111, " C"
DelayMS 100
If PORTB.7=1 Then PWER
If PORTB.6=1 Then Frq_set1
If PORTB.5=1 Then peakvu
Wend
'---------------------------temp--------------------------------
temp:
Cls
While 1 = 1
NTC = 255 - Pot NTC_Poort, 255
Print At 1, 1, " Temperature"
Print At 2, 1, "Temp: " , Dec NTC/10, ",", Dec1 NTC, %11011111, " C"
DelayMS 100
If PORTB.7=1 Then PWER
If PORTB.6=1 Then Frq_set1
If PORTB.5=1 Then peakvu
Wend
'---------------------------PWER--------------------------------
PWER:
Cls
While 1 = 1
DelayMS 200
Weerstand1 = Pot PORTC.7, 255,
Print At 1, 1, "RF POWER ON AIR"
Print At 2, 1,"fwd:" , Dec Weerstand1/10 , ",", Dec1 Weerstand1,
Weerstand1 = Pot PORTC.5, 255
Print At 2,10, "re:", Dec Weerstand1/10 , ",", Dec1 Weerstand1,
DelayMS 100
If PORTB.7=1 Then lcd1
If PORTB.6=1 Then Frq_set1
If PORTB.5=1 Then temp
Wend
End