Dallas Temperatursensor - DS1820

1-Wire-Interface
64-Bit Serial-Code im ROM
9-Bit, 0.5 Grad Auflösung
(von -10 bis +85 Grad)
-55 bis +125 Grad
Gehäuseform: 3-Pin PR35
und 8-Pin SOIC
Spannung: 3.0 bis 5.5 Volt
Stromverbrauch: 1 mA
(Standby: 750 nA!)
T-Konvertierung: 750 Millisekunden
Drift ⁺/_- 0.2 Grad
Preis: 4,95 € (Conrad-05/06)
6,33 € (Sander-05)

GND = Masse
DQ = Daten In/Out und Thermostat-Ausgang
Vdd = Spannungsversorgung
NC = nicht beschaltet

Beschaltung:

Datentabelle Register AAh u. 00h:

Temperatur	Binärdaten
+85.0 Grad C	0000 0000 1010 1010
+25.0 Grad C	0000 0000 0011 0010
+0.5 Grad C	0000 0000 0000 0001
0.0 Grad C	0000 0000 0000 0000
-0.5 Grad C	1111 1111 1111 1111
-25.0 Grad C	1111 1111 1100 1110
-55.0 Grad C	1111 1111 1001 0010

Software:

'**********************************************************
'Compiler : BASCOM-AVR
'Hardware : DS1820 an PD.6 (+125 bis -55 Grad)
' LC-Display
'Chip type : AT90S2313
'**********************************************************

$regfile = "2313def.dat"
$crystal = 3579545

Config 1wire = Portd.6

Dim Ds1820 As Integer
Dim Halb As Byte

Lcd "DS1820 an PD.6"
Wait 3
Cls
Lcd "Temp:"
Do
  1wreset
  1wwrite &HCC
  1wwrite &H44
  Waitms 300
  1wreset
  1wwrite &HCC
  1wwrite &HBE
  Ds1820 = 1wread(9)
  1wreset
  Halb = Ds1820 And 1
  Locate 2 , 1
  Shift Ds1820, Right
  If Ds1820 > 127 Then
    Lcd "-"
    Ds1820 = 256 - Ds1820
    If Halb = 1 Then Ds1820 = Ds1820 - 1
  Else
    Lcd " "
  End If
  Lcd Ds1820 ; ".";
  If Halb = 1 Then
    Lcd "5"
  Else
    Lcd "0"
  End If
  Lcd "C "
  Wait 1
Loop

End

'AT90S2313
'Quarz 3.579MHz

'DS1820 DQ an PD6

'Ausgabe des Textes auf LCD
'warte 3 Sekunden
'lösche LCD
'Ausgabe des Textes auf LCD

'Reset DS1820
'überspringe ROM
'starte Temperaturkonvertierung
'warte 100 Millisekunden
'Reset DS1820
'überspringe ROM
'sende Inhalt der Register AAh und 00h
'lese die empfangenen Daten
'Reset DS1821
'prüfen auf letztes Bit (x.5 Grad)
'LCD-Cursor auf Zeile2, Spalte1
'entferne letztes Bit (Rechtsschieben)
'wenn Temperatur negativ ist
'dann "Minus" auf LCD ausgeben
'und negative Temperatur berechnen
'wenn Wert x.5 dann um 1 korrigieren

'Ausgabe Temperatur und Komma
'wenn x.5
'dann "5" nach Komma ausgeben

'sonst "0" nach Komma ausgeben

'warte 1 Sekunde
'zum Beginn der Schleife

zum Download: ds1820.bas

zum Datenblatt: DS1820 PDF

Bezugsquellen:

Conrad	Bestell-Nr.: 17 61 68-xx	TO92	6,11 Euro
Reichelt	Bestell-Nr.: DS 1820	TO92	5,45 Euro