سلام
من این برنامه رو نوشتم واسه اندازه گیری دما ولی کار نمیکنه.وقتی هم 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
ممنون میشم راهنمایی کنی
ممنون میشم راهنمایی کنید
من این برنامه رو نوشتم واسه اندازه گیری دما ولی کار نمیکنه.وقتی هم 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
ممنون میشم راهنمایی کنی
ممنون میشم راهنمایی کنید