Papsi
22.01.2006, 23:18
Hallo,
ich habe mir im Inet folgendes rausgesucht.
$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:
http://home.arcor.de/daniel_papst/Forumbilder/Temperatur-LCD-BASCOM.jpg
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
ich habe mir im Inet folgendes rausgesucht.
$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:
http://home.arcor.de/daniel_papst/Forumbilder/Temperatur-LCD-BASCOM.jpg
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