$crystal = 8000000 $regfile = "4433def.dat" Cursor Off Config Lcd = 16 * 2 Initlcd 'Display initialisieren Cursor Off ' Cursor ausschalten Cls ' Display löschen Config 1wire = Portc.5 'Pin für 1wire ' Port für 1wire Temperatursensor Dim Ar(2) As Byte Dim A As Byte Dim I As Byte Dim Temperatur As Integer Dim Halb As Byte Dim Fehler As Integer Key: Do Temper: Fehler = 138 ' Fehler ist wegen def. Sensor Waitms 300 1wreset ' Gerät zurücksetzen 1wwrite &HCC ' ROM commando lesen 1wwrite &H44 Waitms 200 'ROM commando lesen 1wreset ' Gerät zurücksetzen 1wwrite &HCC 'ROM commando lesen 1wwrite &HBE 'ROM commando lesen For I = 1 To 2 Ar(i) = 1wread() 'In Feld plazieren Next Temperatur = Ar(1) - Fehler If Ar(2) > 0 Then Temperatur = 0 Else Shift Temperatur , Right Halb = Ar(1) And 1 Anztemp: Cls Locate 1 , 1 Lcd "Temperatur " Locate 2 , 1 Lcd Temperatur ; "."; If Halb = 1 Then Lcd "5" Else Lcd "0" Lcd " Grad C" Loop End