ΜΙΑ ΒΟΗΘΕΙΑ ΜΕ ΚΩΔΙΚΑ

[staurosv]

Μηπως καπιος μπορει να μου κανει η θερμοκρασια να πηγενει μεχρι 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

[stratos111]

Λογικό το βρίσκω.
NTC = 255 - Pot NTC_Poort, 255
.......Dec NTC/10.
255/10 μας κάνει 25,5
Που είναι και πως το παίρνεις το fwd και το ref;
Χωρίς τον υπόλοιπο κώδικα δεν νομίζω ότι κάποιος μπορεί να σε βοηθήσει.

[kiros]

Χωρίς ολόκληρο τον κώδικα δεν γίνεται τίποτα.
Τι σταθερές - μεταβλητές έχει; byte, word;
Πως διαβάζει την θερμοκρασία;
Γιατί χρησιμοποιείς Pot και όχι την ADIn