Probleme mit DS1820 Temp Sensor
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.
