دوستان مشکل با دماسنج دارم، یعنی نشون میده خروجی ولی عددی که دمارو نشون میده واضح نیست مثل چشمک زن میمونه همش یک عدد چشمک میزنه ، عددش هم واضح نیست؟دلیلش چی میتونه باشه ؟
$regfile = "M8def.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
Db7 = Portd.7 , E = Portd.0 , Rs = Portd.1
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Dim A As Word , B As Word , C As Single
Deflcdchar 0 , 32 , 4 , 10 , 4 , 32 , 32 , 32 , 32 ' replace ? with number (0-7)
Cursor Off
Cls
Do
B = Getadc(0)
A = Getadc(1)
C = B - A
C = C / 4
Home : Lcd "Temp:" ; C ; " c" : Lcd Chr(0) ; " "
Loop
End
$regfile = "M8def.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
Db7 = Portd.7 , E = Portd.0 , Rs = Portd.1
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Dim A As Word , B As Word , C As Single
Deflcdchar 0 , 32 , 4 , 10 , 4 , 32 , 32 , 32 , 32 ' replace ? with number (0-7)
Cursor Off
Cls
Do
B = Getadc(0)
A = Getadc(1)
C = B - A
C = C / 4
Home : Lcd "Temp:" ; C ; " c" : Lcd Chr(0) ; " "
Loop
End
دیدگاه