Das müsste fast passen:
Code:
'**********************************************************
'Compiler : Bascom
' : DS1820
'Chip type : AT90S8535
'Clock frequency : 8,000000 MHz
'**********************************************************
$include "ac_lcd.inc"
Config 1wire = Portd.4 'use this pin
Dim Ar(2) As Byte, A As Byte, I As Byte, Temperatur As Integer
Dim Halb As Byte
Lcd "Temp:"
Do
Wait 1
1 wreset 'reset the device
1 wwrite &HCC 'read ROM command
1 wwrite &H44
Waitms 100 'read ROM command
1 wreset 'reset the device
1 wwrite &HCC 'read ROM command
1 wwrite &HBE 'read ROM command
For I = 1 To 2
Ar(i) = 1wread() 'place into array
Next
Locate 2, 1
Temperatur = Ar(1)
If Ar(2) > 0 Then Temperatur = 0 Else Shift Temperatur, Right
Lcd Temperatur ; ".";
Halb = Ar(1) And 1
If Halb = 1 Then Lcd "5" Else Lcd "0"
Lcd " C"
Loop
End
Lesezeichen