Witam
Prosił bym o zweryfikowanie kodu. Wydaje mi się ok ale nie chcę od razu uśmiercać DS'a.
DS daje mi odczyt 4095.94 (nawet po odłączeniu nóżki od masy, po odłączeniu zasilania lub nogi danych pokazuje 0).
Prosił bym o zweryfikowanie kodu. Wydaje mi się ok ale nie chcę od razu uśmiercać DS'a.
DS daje mi odczyt 4095.94 (nawet po odłączeniu nóżki od masy, po odłączeniu zasilania lub nogi danych pokazuje 0).
$regfile = "m8def.dat"
$crystal = 16000000
Config Portb = 255
Portb = 255
Config Portc = 255
Portc = 255
Config Portd = 255
Portd = 255
Config 1wire = Pinc.0
Config Lcdpin = Pin , Rs = Portd.7 , E = Portd.6 , Db4 = Portd.5 , Db5 = Portd.4 , Db6 = Portd.3 , Db7 = Portd.2
Config Lcdbus = 4
Config Lcd = 16 * 2
Cls
Cursor Off Noblink
Enable Interrupts
'///////////////////////////////////////////////
'***********************************************
'Zmienne
'***********************************************
Dim Lsb As Byte
Dim Msb As Byte
Dim Tempa As Single
Dim Tekst1 As String * 10
'///////////////////////////////////////////////
Lcd "test DS18B20"
Print "tester DS18b20"
Wait 1
Do
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 750
Waitms 750
1wreset
1wwrite &H55
1wwrite &HBE
Lsb = 1wread():
Msb = 1wread():
Tempa = Msb * 256
Tempa = Tempa + Lsb
Tempa = Tempa / 16
Tekst1 = Fusing(tempa , "#.##")
Cls
Lcd "DS18B20= " ; Tekst1
Print "Temperatura: " ; Tekst1
Loop
End
