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:
Externes Bild anzeigen   


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