دماسنج NTC و ADC

[AYASOOGEEN]

سلام
من این برنامه رو نوشتم واسه اندازه گیری دما ولی کار نمیکنه.وقتی هم ADC رو میخونم همیشه 1023 هست
برنامه اینه:

سلام
من این برنامه رو نوشتم واسه اندازه گیری دما ولی کار نمیکنه.وقتی هم ADC رو میخونم همیشه 1023 هست
برنامه اینه:
$regfile = "m8def.dat"
$crystal = 8000000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portd.0 , E = Portd.1 , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.2

Cls

Config Adc = Single , Prescaler = Auto
Start Adc

Dim W As Word
Dim Temp As Single
Dim T As Integer

Do
Cls

W = Getadc(5)
Temp = W - 700
Temp = Temp / 5.6
Temp = Temp + 25
T = Temp
Locate 2 , 1 : Lcd "dama=" ; T ; Chr(0) ; "c "

Wait 1
Cls

Loop
End 'end program

ممنون میشم راهنمایی کنی

ممنون میشم راهنمایی کنید