ds18b20+بسکام
سلام
من برای راه اندازی این سنسور از این برنامه استفاده کردم کسی میتونه بگه مشکل چیه؟
[$regfile = "M8DEF.DAT"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = _
Portb.4 , E = Portb.5 , Rs = Portb.0
Config Lcd = 16 * 2
Config 1wire = Portc.0 'use this pin
Dim Temp(9) As Byte
Dim Ar(8) As Byte , A As Byte , I As Byte , J As Byte , X As Integer
Do
Home
''
Wait 1
Cls
1wreset 'reset the device
1wwrite &HCC : 1wwrite &H44
Waitms 300
1wreset 'reset the device
1wwrite &HCC 'reset the device
1wwrite &HBE
'X = 1wread(1)
'Lcd X
For X = 1 To 9
Temp(x) = 1wread()
Next
Locate 1 , 1
Lcd Temp(1)
Locate 2 , 1
Lcd Temp(9)
Loop
End
پاسخ با نقل قول
