apohero
26.03.2008, 12:30
Hallo,
heute bekam ich meine DS18S20+ Bauteile von CSD. Ich habe mich auch gleich schlau gemacht wie ich eins richtig anschliesse und ansteuere. Leider bekomme ich als Ausgabe immer nur 255. Hier ist meine Schaltung:
DS18S20+
-----------------
| |
|________________|
| | |
| | |
/--|4,7k|----| |
5v DQ GND
DQ geht an Portd.3
Ich habe schon viele Codes ausprobiert. Dies ist der Aktuelle:
Config 1wire = Portd.3
........
Do
Wait 1
1wreset
1wwrite &HCC
Waitms 200
1wreset
1wwrite &H33
Tar(1) = 1wread()
1wreset
Locate 2 , 10
Temperatur = Tar(1)
If Temperatur > 127 Then
Lcd "-"
Temperatur = 256 - Temperatur
Else
Lcd ""
End If
Lcd Temperatur;
Lcd " C"
Wait 1
Loop Until Taster = 0
Vielleicht weis einer Rat. Ist wahrscheinlich nur ein Anfängerfehler.
Danke schonmal
heute bekam ich meine DS18S20+ Bauteile von CSD. Ich habe mich auch gleich schlau gemacht wie ich eins richtig anschliesse und ansteuere. Leider bekomme ich als Ausgabe immer nur 255. Hier ist meine Schaltung:
DS18S20+
-----------------
| |
|________________|
| | |
| | |
/--|4,7k|----| |
5v DQ GND
DQ geht an Portd.3
Ich habe schon viele Codes ausprobiert. Dies ist der Aktuelle:
Config 1wire = Portd.3
........
Do
Wait 1
1wreset
1wwrite &HCC
Waitms 200
1wreset
1wwrite &H33
Tar(1) = 1wread()
1wreset
Locate 2 , 10
Temperatur = Tar(1)
If Temperatur > 127 Then
Lcd "-"
Temperatur = 256 - Temperatur
Else
Lcd ""
End If
Lcd Temperatur;
Lcd " C"
Wait 1
Loop Until Taster = 0
Vielleicht weis einer Rat. Ist wahrscheinlich nur ein Anfängerfehler.
Danke schonmal