Werte im Simulator ändern (Tempsensor und LCD Simulieren)
Hallo,
ich habe mir im Inet folgendes rausgesucht.
Code:
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config 1wire = Portd.6
Dim Ar As Byte
Dim Temperatur As Integer
Lcd "DS1821 an PD.6"
Waitms 10
Cls
Lcd "Temp:"
Do
1wreset
1wwrite &HEE
Waitms 1
1wreset
1wwrite &HAA
Ar = 1wread()
1wwrite &H22
Locate 2 , 1
Temperatur = Ar
If Temperatur > 127 Then
Lcd "-"
Temperatur = 256 - Temperatur
Else
Lcd " "
End If
Lcd Temperatur;
Lcd " C "
Waitms 1
Loop
(Zeiten usw. nicht beachten - ist nur zum testen gedacht)
Im Simulator läuft das Programm und zeigt folgendes an:
Bild hier
Kann ich jetzt im Simulator die Werte so ändern, das mir das LCD auch gleich die angepassten Werte anzeigt, damit ich weitere Sachen probieren kann.
Bis dann denn
