Hallöchen,
nachdem ich mein LCD endlich fertiggestellt habe und die ersten Tests erfolgreich liefen, wollte ich endlich weiter machen und die Temperatur auf mein LCD zauber
Aber wie das ja so immer ist wird man immer schnell ausgebremst
habe erstmal im Netz geschaut nach einen Code, weil ich erstmal nur schauen wollte ob der DS1820 auch funktioniert, nur leider komme ich hier einfach nicht weiter
ich bekomme ständig nur "000000000000000" auf dem Display angezeigt. Also iwie wird das Teil nicht gefunden und ich finde einfach den Fehler nicht.
Habe auch schon einen anderen genommen und neu verlötet, aber auch hier kein Erfolg
hier mal der Code den ich genommen habe:
nachdem ich mein LCD endlich fertiggestellt habe und die ersten Tests erfolgreich liefen, wollte ich endlich weiter machen und die Temperatur auf mein LCD zauber
Aber wie das ja so immer ist wird man immer schnell ausgebremst
habe erstmal im Netz geschaut nach einen Code, weil ich erstmal nur schauen wollte ob der DS1820 auch funktioniert, nur leider komme ich hier einfach nicht weiter
ich bekomme ständig nur "000000000000000" auf dem Display angezeigt. Also iwie wird das Teil nicht gefunden und ich finde einfach den Fehler nicht.
Habe auch schon einen anderen genommen und neu verlötet, aber auch hier kein Erfolg
hier mal der Code den ich genommen habe:
Code:
$regfile = "m32def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.0 , Rs = Portb.1
Config Lcd = 16 * 2
Config 1wire = Porta.1
Dim Dsid(8) As Byte
Dim I As Byte
Dim Nr As Byte
Nr = 1
Cls
' Ersten angeschlossenen DS1820 finden und Adresse auslesen
Dsid(1) = 1wsearchfirst()
Locate 1 , 1 : Lcd "DS1820 Nr " ; Nr : Nr = Nr + 1
Locate 2 , 1
For I = 1 To 8
Lcd Hex(dsid(i))
Next
' 10 Sekunden warten
Wait 15
Do
' Nächsten DS1820 suchen
Dsid(1) = 1wsearchnext()
' Wenn kein Fehler, dann ausgeben
If Err = 0 Then
Locate 1 , 1 : Lcd "DS1820 Nr " ; Nr : Nr = Nr + 1
Locate 2 , 1
For I = 1 To 8
Lcd Hex(dsid(i))
Next
Wait 15
End If
Loop Until Err = 1
Do
Waitms 100
Loop
End
