DS18B20 auslesen und Temperatur auf 7-Segment-Anzeige ausgeben

[Jochen (Gast)]

Hallo,

ich bin zur Zeit daran einen Thermometer zu Programmieren. Ein Bekannter 
hat mir dabei auch schon geholfen, jedoch hat er sich selbst auch noch 
nie mit diesem Sensor beschäftigt und macht selbst auch weniger mit 
Bascom.

Als µC habe ich einen Atmega8.
Der Temperatursensor ist ein DS18B20
Die 7-Segment Anzeigen haben eine gemeinsame Anode, welche über NPN 
Transistoren an +5V liegen.


Der Atmega8 ist so belegt:

Portd. 0 = a der Anzeigen
Portd. 1 = b der Anzeigen
...
Portd. 6 = g der Anzeigen


Portb. 0 = Anzeige 1
Portb. 1 = Anzeige 2
Portb. 2 = Anzeige 3

Portb. 3 = Sensor

Das Programm zur Ansteuerung der 7-Segment-Anzeige ist bereits 
geschrieben, jedoch weiß ich nicht, wie ich den Sensor auslese uns 
anschließend den Wert auf dem Displan ausgebe.

Es genügt eine Anzeige in ganzen Schritten.

Das bereits geschriebene Programm ist im Anhang als Textdokument.

Ich hoffe auf Hilfe :)

Gruß
Jochen

[Rene Z. (renezimmermann)]

Hallo,

du brauchst so was wie:

dim busy as byte
dim Scratch(9) as byte
Config 1wire = Porta.0     ' 1wire Pin, Pulup nicht vergessen
1wreset                    ' reset 1wire
1wwrite skip_rom           ' adressierung überspringen
1wwrite convert_t          ' temperatur messen
do
    busy = 1wread()
loop until busy = &HFF     ' warten bis fertig, ca 750 ms
1wreset                    ' reset 1wire
1wwrite skip_rom           ' adressierung überspringen
1wwrite read_ram           ' scratch lesen
for i=1 to 9
    Scratch(i) = 1wread()  ' 9 byte in Ram
next

jetzt hast du in Scratch(1) das Vorzeichen und in Scratch(0) die 
Temperatur in 0.5 Grad Celsius. Man sollte aber noch die CRC auswerten.

Das ist mal schnell aus dem Kopf da ich nichts mehr mit Bascom mache.

Gruß Rene

[Karl H. (kbuchegg)]

http://www.rn-wissen.de/index.php/Bascom_und_1-Wire

[mue-c (Gast)]

Hallo Jochen,
die wirklichen Probleme gehen erst los, wenn durch das Multiplexen das 
Timing des 1wire zerhauen wird.

Seit wann kann man den Prescale eines Timers eigentlich auf "5" setzen?

[Timer (Gast)]

Für das Timing kann man ja den Timer solange deaktivieren, dass ist doch 
nicht das Problem

[Jochen (Gast)]

Danke erstmal für die Antworten.

Das der Prescale auf 5 steht ist falsch ... den habe ich eben auf 8 
geändert.

[mue-c (Gast)]

Timer schrieb:
> Für das Timing kann man ja den Timer solange deaktivieren, dass ist doch > nicht 
das Problem
Das wirst du dann in der Anzeige bemerken, da die Bascom Befehle für 
1wire schon mal mehrere ms dauern. So einfach geht das nun wieder nicht.

[Timer (Gast)]

Ich hab mir ein Aquariumthermoter mit nem DS18S20 gebaut und das dort 
auch so gemacht. Alle 60 sek wird der Sensor ausgelesen solange der 
Interrupt fürs Multiplexing aus und wieder ein. Vielleicht ne Sekunde 
sind die Anzeigen aus oder weniger und das stört eig wenig. Weil wenn 
man draufschaut dann sind sie meistens eh an.

[Jochen (Gast)]

So,

der Code wäre fertig, jedoch gibt Probleme:
Die Anzeige zeigt immer nur "00"

Es ist alles so beschalten, wie oben beschrieben, jedoch mit dem 
Unterschied, dass der Sensor nun an Portd. 7 dran hängt.

Für weitere Hilfe wäre ich sehr dankbar :)

[Jochen (Gast)]

Hier noch der Code: (eben vergessen ...)

https://dl.dropbox.com/u/41257941/temp.bas

[Rene Z. (renezimmermann)]

Kann es sein das du Read_temp nicht aufrufst?

Do

   Disable Timer0                                           ' Interrupts ausschalten
   Portd = &B01111111                                       ' alle Segmente ausschalten
   Portb.0 = 0 : Portb.1 = 0 : Portb.2 = 0                  ' alle Displays ausschalten

   gosub Read_temp   

   If Vorzeichen = 1 Then
      Display_numbers(1) = 10
   Else
      Display_numbers(1) = 11
   End If

   Display_numbers(2) = Temperatur / 10
   Display_numbers(3) = Temperatur Mod 10

   Enable Timer0                                        ' Interrupts anschalten

   Wait 10                                                  ' 10 Sekunden warten

Loop

das MSB kann nur $00 oder $FF sein.

If Scratch(2) >= 248 Then

Gruß Rene

[Rene Z. (renezimmermann)]

   If Scratch(2) >= 248 Then
      B1 = &HFF - Scratch(1)
      B2 = &HFF - Scratch(2)
      Vorzeichen = 1
   Else
      Vorzeichen = 0
   End If

   T1 = B1 / 16
   T2 = B2 * 16
   Temperatur = T1 + T2

B1 ist immer 0, vieviel ist 0 / 16 ?

if Scratch(2) = &HFF then
    TempRead = &HFF - Scratch(2)
    TempRead = TempRead / 2
    Vorzeichen = 1
else
    TempRead = Scratch(2) / 2
    Vorzeichen = 0
endif

Temperatur = TempRead - 0.25
T1 = Scratch(9) + Scratch(8)
T1 = T1 / Scratch(9)
Temperatur = Temperatur + T1

[Jochen (Gast)]

So,

ich habe gestern mal den Code abgeändert und er sieht nun so aus:
https://dl.dropbox.com/u/41257941/temp.bas

Jedoch zeigt die anzeige nur "01" an und ändert sich nicht.
Die Anzeige erlischt nun alle 10 Sekunden für ca. 1sekunde, wie es ja 
soll.

Jedoch wird nicht die richtige Temperatur angezeigt ...

Ich steh echt auf dem Schlauch.

[Rene Z. (renezimmermann)]

T1 = Scratch(9) + Scratch(8)

da habe ich mich verschrieben es muß eine Subtraktion sein.
Kannst du dir die Werte des Scratch, Temperatur und T1 mal ausgeben 
lassen?

So wie ich das sehe gibst du die Temperatur ja nur in ganzen Grad 
Celsius ohne Nachkommastelle aus. Dann brauchst du die erweiterte 
Genauigkeit nicht.
Es reicht dann ja das Vorzeichen aus Scratch(2) zu lesen eventuell 
Scratch(1) anzupassen und durch 2 zu Teilen dann hast du schon die 
Temperatur auf ein Grad genau. Du sparst dir dann auch die ganze 
Gleitkommasache.

Dim Tempread As Single

Tempread muß eine Bytevariable sein.

Gruß Rene

[Rene Z. (renezimmermann)]

Anhang vergessen.

Wenn die Anzeige nicht so lang aus sein soll dann geht auch das noch:

Read_temp:
  Anzeige_aus
  1wreset                                             ' Initialisierung
  1wwrite Skip_rom                                    ' Skip ROM, da nur ein DS18B20 verwendet wird
  1wwrite Convert_t                                   ' Befehl für Messung geben
        Anzeige_an
        wait 1
        Anzeige_aus
  1wreset                                             ' Initialisierung  
  1wwrite Skip_rom                                    ' Skip ROM
     1wwrite Read_scratch                                ' Temperatur auslesen
  For I = 1 To 9
          Scratch(i) = 1wread()
  Next
  Anzeige_an
  If Scratch(2) = &HFF Then
    Tempread = &HFF - Scratch(2)
    Tempread = Tempread / 2
    Vorzeichen = 1
  Else
          Tempread = Scratch(2) / 2
    Vorzeichen = 0
  End If
Return

[Alexander (Gast)]

Hallo und einen Guten Amend miteinander

Ich habe nun auch diesen Aufbau, wie Jochen, aufgebaut und das Programm 
von Rene auf den Atmega8 gemacht. Irgendwie kommt bei dem Link von 
Jochen nun ein Error??

Jedoch habe ich auch das Problem, dass immer nur "00" angezeigt wird?

Kann es sein, dass etwas an dem Code nicht stimmt, weil richtig 
aufgebaut habe ich es zu 100% und auch Jochen hat das Problem schon 
beschrieben. Kann mir jemand weiterhelfen?

Wenn es geht Rene, da du ja anscheinend was davon verstehst ;D

Ich wünsche noch einen schönen Abend
Alexander

[Rene Z. (renezimmermann)]

>Kannst du dir die Werte des Scratch, Temperatur und T1 mal ausgeben
>lassen?

Wie ich schon sagte lasst euch die Werte mal ausgeben um den Fehler 
einzuschränken.

[mue-c (Gast)]

Jochen schrieb:
> Jedoch wird nicht die richtige Temperatur angezeigt ...Ich steh echt
> auf dem Schlauch.

Hallo Jochen,
hast du denn inzwischen mal in das Datenblatt des Sensors geschaut oder 
wartest du nur darauf, dass Rene dir ein fertiges Programm abliefert?
Dann hättest du vielleicht auch erkannt, dass Renes Auswertung 
offensichtlich für einen DS1820 geschrieben ist, du aber scheinbar einen 
DS18B20 verwendest. Und dann sind die Ergebnisse durchaus 
nachvollziehbar.