DS18S20 zeigt nur 00000000 an

[Lutze53 E. (lutze53)]

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:

$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

[Lothar M. (Firma: Titel) (lkmiller) (Moderator)]

Das ist toll:
> ' 10 Sekunden warten
> Wait 15

> Also iwie wird das Teil nicht gefunden und ich finde einfach den Fehler
> nicht.
Jetzt wäre ein Oszilloskop hübsch...
Hast du sowas?

[Lutze53 E. (lutze53)]

Ne Osci habe ich leider nicht, würde jetz helfen, habe nur mal mit dem 
Voltmeter geschaut und am Ende beim Sensor die Spannung geprüft und da 
liegen auch jeweils 5V an DQ und VDD an.

Habe aber jetzt mal entgegen des Bildes im Datasheet mein Sensor gedreht 
und man staune es geht nun, man kann man nicht mal ein Datenblatt 
vertrauen.

also er findet ihn jetzt, Temperatur sind aber 85 Grad konstant, was 
meines Wissen ein Fehlercode ist muss ich mal schaun, hängt glaube mit 
den Delay´s zusammen.

[Lutz (Gast)]

Lutze53 E. schrieb:
> also er findet ihn jetzt, Temperatur sind aber 85 Grad konstant, was
> meines Wissen ein Fehlercode ist muss ich mal schaun, hängt glaube mit
> den Delay´s zusammen.

Nö, 85 Grad sind der Resetwert.

[ich da (Gast)]

Richtig, der erste Wert ist immer 85.

Lass dir mehrmals im 5 Sekundenrhytmus den Inhalt vom Scratchpad 
ausgeben.
Du wirst sehen, dann stehen dort realistische Werte drin.

[Lutze53 E. (lutze53)]

ja habe mal die zeit erhöht fürs auslesen, jetzt kommen realistische 
Werte raus.

Vielen dank erstmal und natürlich noch schönen 2. Weihnachtsfeiertag :)