Probleme mit DS1820 Temp Sensor

[rauf81]

Hallo Freunde.

Ich habe probleme den Temperatursensor DS1820 auszulesen. Gekauft bei Pollin
Meine Beschaltung:

GND auf GND
DQ an µC Pin
Vdd an GND
Zwischen DQ und +5V Pullup 4,7k

Ich lese immer den Wert 85 aus...

Bei der Beschaltung wie vorgeschlagen auf RN Wissen.

GND auf GND
DQ an µC Pin
Vdd an +5V
Zwischen DQ und +5V Pullup 4,7k

Tut sich nichts.

Mein Bascom Code

$regfile = "m16def.dat"
$crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config 1wire = Portb.1



Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.2 , E = Portb.6 , Rs = Portb.7
Config Lcd = 16 * 2
Cursor Off
Cls

Dim Sc(9) As Byte
Dim T As Integer


Do
Cls

Locate 1 , 1
Lcd "Tempmessung"

1wreset                                                    
1wwrite &HCC                                                
1wwrite &H44                                               

Waitms 50                                                  

1wreset                                                    
1wwrite &HCC                                                
1wwrite &HBE                                               
Sc(1) = 1wread(9)                                          


 T = Makeint(sc(1) , Sc(2))

 T = T / 2



 Locate 2 , 1
 Lcd T
 Waitms 250



Loop

Weiß leider nicht mehr weiter wo mein Fehler liegt und hoffe Ihr könnt mir dabei helfen.

[for_ro]

Wahrscheinlich musst du dem Sensor nur mehr Zeit lassen.
Also mal ein Waitms 1000 nach dem Convert_Temp.
Das CLS würde ich wenn überhaupt dann direkt vor den Locate Befehl setzen.
Wenn du 3 Leitungen zum Sensor legen kannst, dann nimm die Beschaltung von RN Wissen.

[rauf81]

Dankeschööööön

Die Zeit war zu knapp.

Sensor Läuft

iele Grüße Flo

[Frank]

Dein Code dürfte aber bei Minustemperaturen falsche Werte liefern.
Alternativen Code in der Codesammlung: https://www.roboternetz.de/community...-AVR-Universal