Code:
$regfile = "m8def.dat"
$crystal = 16000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config 1wire = Portc.0
Dim Ar(2) As Byte , I As Byte , Temperatur As Integer
Dim Halb As Byte
Dim Minimal As Integer
Minimal = Temperatur
Cls
Lcd "Temp:"
Locate 2 , 1
Lcd "Min:"
Do
Waitms 300
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 200
1wreset
1wwrite &HCC
1wwrite &HBE F
For I = 1 To 2
Ar(i) = 1wread()
Next
Locate 1 , 7
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 " " ; Chr(223) ; "C" ; " "
If Temperatur < Minimal Then
Temperatur = Minimal
Locate 2 , 6
Lcd Minimal
End If
Loop
End
Die minimalste Temperatur wird nicht angezeigt.
Mfg
André
Lesezeichen