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