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é