Temperaturmessung mit DS18S20 und HDSP-2502 Display

Wie heute nacht bereits im ICQ besprochen, hab ich mit dem Sensor auch schonmal gespielt. Lässt sich super easy auslesen und ist wie du schon festgestellt hast genau genug und spricht schnell an. Die Idee mit dem Visualisieren über die CustomChars des Display finde ich eine tolle Spielerei!

PS: Ich wollte mir bei gelegenheit mal kleine, autarke Temp-Fühler auf Basis von nem kleinen AVR, nem RFM12 und nem DS18S20 machen. Bin bisher allerdings an einer vernünftigen Spannungsversorgung gescheitert. Das ganze sollte mit StepUp aus einer AAA-Zelle zu betreiben sein. AVR und RFM brauchen ja nur wenig Strom...

Damit hab ich bisher noch nix gemacht, aber hielt das für nicht allzu kompliziert. Im µC-Forum verwenden es ja auch viele... muss mir noch mal zwei drei RFM12 bei Pollin mitbestellen das nächste mal.

Die Dinger sind toll! Ich verwende die für meine Heizungs/Raumtemperatur-steuerung. Sie reagieren sehr schnell auf Temperaturveränderung und sind auch sehr genau. Das einzigste was ich befürchte ist das es die Teile vielleicht in 10 Jahren wenn bei meiner Steuerung einer kaputt wird nicht mehr gibt, PT100 wirds wohl immer geben ....

Der einzigste große Nachteil ist das mit den Adressen, wenn man mehrere Sensoren an einem Bus hat und man einen austauschen muss, dann muss man den Code umschreiben, das ist nicht so toll!
Und man muss zuerst einzeln Adressen auslesen und die Sensoren definieren um danach zu wissen welche Temperatur welcher Sensor ist ....

Die Sensoren kann man auch im Parasitären Modus betreiben, das heißt das man nur 2 Leitungen zum Sensor braucht (Ideal wenn man in einem Haus einen vorhandenen PT100 etc ersetzen will!)

Diese Teile gibts ganz günstig bei http://www.csd-electronics.de/ (1,9€ Stück), dort gibts auch viele andere *atmega sachen* recht günstig!

Ich kann die Dinger nur empfehlen sind genial!

Als Basis für die Ansteuerung hab ich Teile von hier verwendet:
Driver

genial gemacht, ich stell mir das mit nem Farb-Display vor, wenn es heiß wird geht nicht nur die Balken hoch sondern werden rot
wie funktioniert das mit dem Auslesen?

Man sendet dem sensor mit der ID XYZ den Command zum messen, dieser startet dann den Messvorgang, welcher max. 750mS dauert, danach sendet man dem gleichen Sensor den Befehl die Daten zurück zu schicken, danach erhält man den Wert als 9-bit Binärzahl welche man dann eben umbasteln muss das man das ganze mit Komma usw. bekommt.

Ich hab das mit den ID's so gelöst das ich einfach immer nur einen Sensor auf einen Pin hänge, dadurch kann ich den Bus im Ein-Sensor-Betrieb fahren und die Adresse is mir egal ....

Zitat von an0r0c

Der einzigste große Nachteil ist das mit den Adressen, wenn man mehrere Sensoren an einem Bus hat und man einen Austaushen muss, dann muss man den Code umschreiben, das ist nicht so toll!

Wenn mich ned alles täuscht, kannst du alle der Reihe nach abfragen, ohne dass du die Adressen kennen musst.

Ja aber welcher der 8 Sensoren is dann welcher .... es ist nicht definiert welcher Sensor sich wann meldet ......

wenn z.b 8 Sensoren für 8 verschiedene Räume sind um die Temp zu messen dann muss ich wissen welche ID = welcher Raum .....
sonst ist der Messwert ja vollkommen sinnlos?? Oder verstehe ich einfach nicht was du meinst? wenn das anders gehen würde, wäre es natürlich voll cool!

Die Reihenfolge ist soweit ich weiß die, wie sie am Bus hängen. Also als erstes der, der dem µC am nächsten ist, usw... aber ich schau morgen nochmal nach oder mach nen kurzen Versuchsaufbau.

So ich habs nun mal getestet. Die Reihenfolge der Sensoren ist ganz einfach aufsteigend der numerische Wert der ID. Wenn man nun also eine Zuweisung "Raum - ID" im EEPROM ablegt, kann man bei neuem oder getauschtem Sensor einfach neu Scannen und die neue/getauschte ID einem Raum zuordnen. Man braucht also eine art Setup-Menü.

Hier mal mein Code womit ich getestet habe:

$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
$hwstack = 32
$swstack = 10
$framesize = 40


Declare Sub 1wire_scan()
Declare Sub 1wire_info()


Print
Print "Startup..."
Print


Config 1wire = Portb.3


Dim I As Byte
Dim Temp_id(8) As Byte , Count As Word , Device As Byte , Id(16) As String * 16




Call 1wire_info()
Call 1wire_scan()
Call 1wire_info()


Main:
Do
   nop
Loop
End




Sub 1wire_scan()
   'scans the bus for devices
   'out: count
   ' 	id()
   1wreset
   Count = 1wirecount()
   Temp_id(1) = 1wsearchfirst()
   For I = 1 To 8
  	Id(1) = Id(1) + Hex(temp_id(i))
   Next I


   For Device = 2 To Count
  	Temp_id(1) = 1wsearchnext()
  	For I = 1 To 8
     	Id(device) = Id(device) + Hex(temp_id(i))
  	Next
   Next Device
End Sub


Sub 1wire_info()
   'prints the number of devices and their IDs
   If Count = 0 Then
  	Print "No devices found or not scanned yet!"
  	Exit Sub
   End If


   Print "Devices: " ; Count
   For I = 1 To Count
  	Print "ID " ; I ; ": " ; Id(i)
   Next I
End Sub

Output:
No devices found or not scanned yet!
Devices: 3
ID 1: 280239D0010000AD
ID 2: 284975D0010000E8
ID 3: 288B5ED001000091

Mir ist allerdings noch nicht ganz klar, wie ich gezielt eins der drei Devices anspreche. Vorher 1wireverify mit dessen ID ausführen?

Schau mal hier www.ibutton.com/ibuttons/standard.pdf, Seite 51 Abschnitt C3. Dort ist beschrieben, in welcher Reihenfolge sich die Sensoren melden. Ist nicht immer einfach aufsteigend.

Gezielt auslesen geht entweder so:
1wreset
1wwrite &H55 ' match rom command
1wwrite sensor(1) , 8 ' 8Byte ID von sensor 1
1wwrite &HBE ' Read Scratchpad command
Daten(1) = 1wread(9) ' bis zu 9 Byte auslesen

oder so:
1wreset
1wverify sensor(1)
1wwrite &HBE
Daten(1) = 1wread(9)

Mir geht grad mal das Handling der Adressen in dem Array aus 8 bytes total auf den Zeiger. Im obigen Beispiel leg ich das ja in einem String ab, aber das hilft auch nicht wirklich, weil man zB 1wverify nicht mit dem String aufrufen kann. Jemand 'ne Idee, wie man die Adressen sinnvoll handhaben kann, so dass man zB auch mehrere in einem Array ablegen kann? Mehrdimensionales Array? Kann Bascom das überhaupt?

Hallo,
deinen seltsamen String

Dim Id(16) As String * 16

hatte ich ganz übersehen. Ich dachte, den wolltest du nur für die Ausgabe verwenden.
Außerdem brauchst du den auch gar nicht für das 1wverify, da die ID ja in

Dim Temp_ID(8) as Byte
Temp_id(1) = 1wsearchfirst()

abgelegt ist.
Mehere IDs kannst du hintereinander in ein Array legen oder dir z.B. im Eeprom abspeichern und bei Bedarf wieder auslesen.
Mehrdimensionale Array gehen in Bascom so nicht, kannst du aber durch ein eindimensionales abbilden.
Dein ID(16) mit jeweils 16 Charactern ist übrigens so etwas wie ein 2-dimensionales Array.

BEye

In temp_id() liegt die ID aber nur bevor sie im String abgelegt wird, danach wird sie durch die nächste gefundene überschrieben. Daher ja auch "temp" - in dem Fall für temporär.
Aber klar, ich kann mehrere IDs in einem Array aus Bytes ablegen... halt die erste ID in 1-8, die zweite in 9-16, ...

Trotzdem irgendwie ein lästiges Handling irgendwie. Eine einfache Liste der Adressen lässt sich in Bascom nicht wirklich abbilden, zumindest nicht ohne eine eigene Abstraktion.

Ich hatte an sowas gedacht:
Sub 1wire_scan()
'scans the bus for devices
'out: count
' id()
1wreset
Count = 1wirecount()
Temp_id(1) = 1wsearchfirst()
Gosub Read_DS1820

For Device = 2 To Count
Temp_id(1) = 1wsearchnext()
Gosub Read_DS1820
Next Device
End Sub

Schon klar, dass du mit temp_id(i) auf den temporären Charakter hinweisen willst. Daher könntest du nach der Zuweisung sofort die Daten auslesen.

Ich will aber nicht jedesmal vor dem Auslesen scannen müssen, sondern zur Laufzeit eine Liste der IDs vorhalten, die dann abgefragt werden können. Natürlich Fehlertolerant, weshalb vorher mit 1wverify überprüft werden muss, ob das Device noch da ist.

Dann leg die Adressen doch wie oben schon vorgeschlagen in einem Byte-Array oder im EEPROM hintereinander ab.
Mit jeder Schleife erhöhst du dann den Pointer ins Array um 8 und kommst so an die Adresse des nächsten Sensors.

Dim IDs(8*anzahl) as byte 'musst du die richtige Zahl eintragen
Sub 1wire_scan()
'scans the bus for devices
'out: count
' id()
1wreset
Count = 1wirecount()
IDs(1) = 1wsearchfirst()
last_address=1
For Device = 2 To Count
last_address=last_address+8
IDs(last_address) = 1wsearchnext()
Next Device
End Sub


for offset=1 to last_address step 8
iwverify IDs(offset)
...
next offset

So dramatisch finde ich das jetzt nicht.

BEye

Zitat von BehindBlueEyes

Dann leg die Adressen doch wie oben schon vorgeschlagen in einem Byte-Array oder im EEPROM hintereinander ab.

Genau das hab ich grad gemacht, allerdings mit Schleife:

Function 1w_scan()
   1wreset
   If 1wirecount() > 0 Then
  	Id(1) = 1wsearchfirst()
  	For Sensor = 2 To 1wirecount()
     	Index = Sensor * 8 : Index = Index -7
     	Id(index) = 1wsearchnext()
  	Next Sensor
   End If
   1w_scan = 1wirecount()
End Function

Nu hab ich das Problem, dass vorletzte und letzte ID gleich sind, was ich mir nicht erklären kann. Der Index wird korrekt hochgezählt (habe ich bereits debugged) und vom Ablauf her ist es nix anderes als weiter oben: 1wsearchfirst(), 1wsearchnext(), ...

Mal was nettes um den Kopf frei zu bekommen: http://firstpersontetris.com/