Hallo Leute,
habe da mal eine bescheidene Frage, ich habe da einige DS18B20 bekommen und kann dort keine ID zuweisung herstellen.
Die Sensoren 1820 bzw. 18S20 habe ich bisher immer verwendet und zugewiesen ging ohne Probleme, aber bei diesen scheint es nicht so einfach zu sein.
Hat jemand Erfahrung mit der ID Zuweisung bei einen 18B20 ?
Gruß Micha
habe da mal eine bescheidene Frage, ich habe da einige DS18B20 bekommen und kann dort keine ID zuweisung herstellen.
Die Sensoren 1820 bzw. 18S20 habe ich bisher immer verwendet und zugewiesen ging ohne Probleme, aber bei diesen scheint es nicht so einfach zu sein.
Hat jemand Erfahrung mit der ID Zuweisung bei einen 18B20 ?
Gruß Micha
Code:
$regfile = "M8def.dat"
$crystal = 8000000
$framesize = 128
$hwstack = 128
$swstack = 128
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 20 * 4
Initlcd
Waitms 50
Cursor Off Noblink
Cls
Config Portd = Output
Config 1wire = Portc.5
Dim Temp(9) As Byte
Dim X As Byte
Dim Y As Byte
Dim Celsius As Integer
Dim Highbyte As Integer
Dim Lowbyte As Integer
Dim Tmp As Byte , T As Single , T1 As Integer
Cls
Dim Dsid(8) As Byte
Dsid(1) = &H28 : Dsid(2) = &HE4 : Dsid(3) = &HA7 : Dsid(4) = &H51 : Dsid(5) = &H03 : Dsid(6) = &H00 : Dsid(7) = &H00 : Dsid(8) = &H3A
Do
1wreset
1wwrite &HCC
1wwrite Dsid(1) , 8
1wwrite &H44
Waitms 800
1wreset
1wwrite &HCC
1wwrite Dsid(1) , 8
1wwrite &HBE
For X = 1 To 9
Temp(x) = 1wread()
Next
Celsius = Makeint(temp(1) , Temp(2))
T = Celsius / 16
Locate 1 , 10
Lcd Fusing(t , "##.#")
Loop