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
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.