1-Wire-Slave-Baukasten V.2

    This site uses cookies. By continuing to browse this site, you are agreeing to our Cookie Policy.

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • 1-Wire-Slave-Baukasten V.2

      1. Grundsätzliches

      Nachdem meine Homepage abgeschaltet worden ist,
      habe ich meine Erkenntnisse dem "bascom-forum" (mit Bindestrich) anbefohlen,
      wo sie nun anscheinend auch wieder im Nichts verschwunden sind.
      Deswegen versuche ich es hier nochmal - hoffentlich mit mehr Erfolg.

      Worum geht es dabei?

      1-Wire ist eine pfiffige Technik bzw. ein Bussystem von Dallas/Maxim,
      die Daten über größere Entfernungen über 2 (Data und GND) bzw. 3 Leitungen (Data, GND, VCC) transportieren kann.
      -> 1wire

      Da gibt es so wunderbare Bausteine wie
      - den DS18B20 Temperatursensor
      - den DS2438 Batteriemonitor
      - den DS2423 2x32-Bit-Counter
      - den DS2450 4x16-Bit-AD-Wandler
      - den DS2408 und DS2413 8xPIO bzw. 2xPIO
      (Es gab (oder gibt?) sogar eine ganze Wetterstation, die nur mit 1-Wire-Bausteinen betrieben wird/wurde)

      Leider, ja leider, gibt es nicht für alle Bereiche fertige Sensoren
      und manche Bausteine wurden abgekündigt (DS2423, DS2450).

      Deswegen finden sich im Internet einige Ansätze,
      vorhandene Bausteine durch den Einsatz von Mikrocontrollern nachzubauen oder neue zu entwickeln.
      Hier einige gute Beispiele:
      -> mikrocontroller.net/topic/241934#new
      -> mikrocontroller.net/topic/44100
      (vor allem DS2423)
      -> mikrocontroller.net/topic/271772
      (DCF77)
      -> tm3d.de/index.php/1-wire-device-mit-avr
      (DS18B20, DS2423, Barometer)
      -> mcselec.com/index.php?option=c…ask=view&id=256&Itemid=57
      (DS2450 mit BASCOM)
      -> brain4home.eu/index.php

      Nachdem ich diese Vorlagen einige Zeit studiert und langsam auch etwas begriffen habe,
      kam mir der Gedanke, daraus einen einfachen 1-Wire-Slave-Baukasten zu entwickeln,
      mit dem man unter BASCOM leicht eigene Slaves erstellen kann.
      Auf diese Weise kann man einerseits evtl. abgekündigte Bausteine begrenzt nachbilden,
      aber vor allem andere Sensoren (z.B. analoge oder I²C) in das 1-Wire-System einbinden.
      Dies ist z.B. bei dem weit verbreiteten SHT11 durchaus sinnvoll.

      Schwierig ist das jedoch, WIE diese neuen Slaves vom Master angesprochen werden sollen,
      wenn der Master bzw. dessen Steuersoftware diesen Slavetyp überhaupt nicht kennt!
      Es gibt zwei Lösungswege:
      - Wenn man die Steuersoftware selbst schreiben kann (z.B. eben in BASCOM),
      ist ein eigener Family-Code am einfachsten.
      Dann kann man darüber den Slave eindeutig identifizieren und ihn seiner Funktion entsprechend auslesen.
      - Wenn man auf eine fertige Steuersoftware zurückgreifen will/muss,
      bleibt einem nichts anderes übrig, als den Slave so zu programmieren,
      dass er sich analog zu einem vorhandenen Baustein verhält.
      Die Gefahr, dass es dabei zu Doppelungen in der 64-Bit-ID kommt,
      ist dabei sicher gering, aber trotzdem möglich.

      Jetzt muss man noch ein paar Infos dazwischenschieben:
      Jeder Baustein ist vom Hersteller mit einer eindeutigen ID versehen worden
      und kann darüber vom Master angesprochen werden.
      Diese umfasst 8 Bytes bzw. 64 Bits.
      Das 1. Byte steht dabei für den "Familiy-Code" und gibt Auskunft über die Funktion des Bausteins (z.B. &H28 -> DS18B20).
      Das letzte Byte ist eine CRC8-Prüfsumme der vorangehenden 7 Bytes

      Meine 1-Wire-Slave-Lösung:
      - In der Slave-Software ist ein DS18B20 als Standard eingestellt
      (Data &H28 , &H53 , &H48 , &H54 , &H00 , &H00 , &H00 , &H68).
      - Um eine andere ID mit evtl. einem anderen Familiy-Code einzustellen,
      muss man diese in die ersten 8 Bytes des EEPROMs des ATmega/ATtinys schreiben.
      Dann wird diese automatisch beim Starten als (neue) ID genutzt.
      - Der Slave verhält sich ähnlich wie ein DS18B20,
      d.h. der Befehl "&H44" (Convert Temperature) berechnet alle Werte,
      schreibt sie in die ersten 8 Bytes eines Arrays
      und erstellt daraus eine CRC8-Prüsumme,
      die in das 9.Byte des Arrays geschrieben wird.
      Der Befehl "&HBE" (Read Scatchpad) gibt 8 Werte und die CRC-Prüfsumme (=9. Wert) aus.
      - Diese 8 Werte selbst sind aber nicht mit denen eines DS18B20 kompatibel,
      sondern daraus muss man nun, je nach Funktionen des Slaves, seine Werte gewinnen.
      Das funktioniert also nur mit Steuerssoftware,
      die auch das Scatchpad ausgibt und nicht nur fertige Werte anzeigt.
      Möglich ist das z.B. mit DigiTemp oder den 1-Wire-Kernel-Modulen des RaspberryPi,
      leider geht es wohl nicht mit owfs oder IPSymcon.
      Wenn man auf eigene Software zurückgreifen kann,
      dann kann man für den Slave entweder einen eigenen Family-Code wählen (z.B. &HFE)
      oder über den Befehl "&H10" und "1wread()" einen Wert auslesen.
      Ist er <> 255/&HFF, dann ist es kein echter DS18B20.
      (Eine eigene 64-Bit-ID(s.o.) kann man sich z.B. bei
      -> tm3d.de/index.php/tools
      berechnen lassen.)

      Nochmal zur Sicherheit:
      Im Gensatz zur ID (s.o.) besteht das Scatchpad aus 9 Bytes:
      8 Datenbytes und ein 9. CRC8-Byte (aus den 8 Datenbytes).
      Über dieses Scatchpad tauschen mehrere Bausteine Daten mit dem Master aus.
      (Bitte nicht verwechseln)

      Soweit mal die Grundinfos.
      Der Rest (Code) kommt bald.

      Liebe Grüße,
      RoBue

      The post was edited 7 times, last by RoBue ().

    • Dann hoffen wir mal das Beste ...

      2. Der Code des 1-Wire-Slave-Baukastens

      "Baukasten" das meint,
      der User kann auf einen lauffähigen Code als Gerüst zurückgreifen,
      in den er einfach an bestimmten Stellen seine Anwendungen einfügt,
      ohne dass er unbedingt begreifen muss,
      was da eigentlich abgeht (das Meiste ist in Assembler geschrieben!)

      Das Prinzip der 1-Wire-Slaves mit Bascom ist recht simpel und trotzdem genial:
      Der 1-Wire-Eingang wird einfach (mit Assemblerroutinen) abgepollt.
      Dies geschieht so lange, bis der Bus auf 0/low gezogen wird.
      Dann wird mit Hilfe von Timer0 oder Timer1 (= RoBue V.2) die Dauer dieses Vorgangs abgefragt,
      um festzustellen, was der Master nun eingentlich will bzw. ob der Master überhaupt verantwortlich ist.
      Wenn der Master tatsächlich etwas geschickt hat,
      wird in die einzelnen Funktionen verzweigt.
      Das Trickreiche an dem Ganzen ist,
      dass der Timer-Interrupt keine Register rettet ("nosave"),
      weil dazu keine Zeit zur Verfügung steht.
      Deswegen wird die Isr-Routine nicht wirklich mit einem "Return" verlassen,
      sondern mit "Goto".
      Darum muss man zwingend den Stackpointer zurücksetzen,
      sonst stürtzt das Progamm nach einiger Zeit ab.

      BASCOM Source Code

      1. ' RoBue:
      2. ' Der Stackpointer liegt an der Obergrenze des SRAM
      3. '
      4. ' - SRAM bei ATtiny25: &H5F + &H80 = &HDF
      5. ' Const Stackpointer_low = &HDF
      6. ' (nur 1 Wert fuer Stackpointer !!!)
      8. ' - SRAM bei ATtiny45: &H5F + &H100 = &H15F
      9. Const Stackpointer_high = &H01
      10. Const Stackpointer_low = &H5F
      12. ' - SRAM bei ATtiny85: &H5F + &H200 = &H25F
      13. ' Const Stackpointer_high = &H02
      14. ' Const Stackpointer_low = &H5F
      16. ' ...
      18. ' *********************** isr
      19. Isr:
      20. ' Das ist Strange mit den Goto aus der Isr rauszugehen.
      21. ' aber es läuft ...
      23. ' RoBue: ... doch nicht wirklich!
      24. ' Der Stackpointer muss zurueckgesetzt werden !!!
      25. Spl = Stackpointer_low
      26. Sph = Stackpointer_high
      28. If Dq = 0 Then
      29. Timer_t1 = T1reset
      30. Goto Rwaitrise
      31. Else
      32. Goto Waitreset
      33. End If
      35. Return
      Display All



      Im Grunde muss man nun nur an 2 Stellen in den Baukasten-Code etwas einfügen:

      1. Im Bereich "Variable und Init-Routinen"
      Da muss alles rein,
      was zur Initialisierung der eigenen Hardware nötig ist
      und was man als zusätzliche Variablen braucht.

      BASCOM Source Code

      1. ' *********************** TIMER1 and ISR
      3. ' TIMER1 fuer 1-Wire-Kommunikation
      4. Config Timer1 = Timer , Prescale = 64
      5. ' Stop Timer1
      6. Tccr1 = Tccr1 And &B11110000
      7. Enable Timer1
      8. On Timer1 Isr Nosave
      9. Timer_t1 Alias Tcnt1
      11. '***************************************
      13. ' Variable und Init-Routinen
      15. ' ***************************************
      17. ' Start -> 4x Blinken der LED
      18. For I = 1 To 4
      19. Match_led = 1
      20. Waitms 250
      21. Match_led = 0
      22. Waitms 250
      23. Next I
      25. ' Hauptschleife
      Display All

      2. Im Bereich "Calculatedata"
      Dort werden z.B. die Messwerte berechnet
      und dann in das "Daten_array" (= Scratchpad) geschrieben.
      Natürlich kann man dies auch mit Gosubs und Includes etwas übersichtlicher machen.

      BASCOM Source Code

      1. ' RoBue: Erzeuge Daten
      2. ' -------------------------------
      3. '
      4. ' Berechnen der Werte, die dann ins "Daten-array" geschrieben werden.
      6. Calculatedata:
      8. If Match_slave = 1 Then
      10. ' Status auf 0 -> alles o.k.
      11. Daten_array(8) = 0
      13. ' **********************
      14. ' * Gosub Berechnungen *
      15. ' **********************
      17. Daten_array(9) = Crc8(daten_array(1) , 8)
      19. End If
      21. 'Goto Readb
      22. Goto Waitreset
      Display All
      Das klingt nun immer noch etwas theoretisch,
      aber praktische Beispiele folgen demnächst.

      Hier mal die Vorlage für ATtinys 25-45-85.
      Der Code ist ziemlich ausführlich kommentiert.
      Wichtig ist, dass man die Stackpointer für den jeweiligen ATtiny richtig einstellt!!!

      1-Wire-Slave_ATtiny25-45-85_Timer1_Vorlage.zip

      LG RoBue

      The post was edited 3 times, last by RoBue ().

    • Jetzetle wollen wir mal ein erstes praktisches Beispiel in Angriff nehmen:

      3. Ein 1-Wire-32-Bit-Counter

      Da der DS2423 kaum mehr zu bekommen ist,
      wäre ein Ersatz dafür sicher sinnvoll.
      Es gibt auch schon Emulationen dafür.
      Leider ist sein Protokoll nicht ohne.
      Darum habe ich mich zu einer ganz einfache Lösung entschlossen:
      Vergiss die Kompatibilität, mach einfach einen eigenen.

      Gut - aber wie?

      Nun hat ein ATtiny einen Timer, der auch als Counter eingesetzt werden kann:
      Timer0/Counter0 am PortB.2.
      Solche Hardware-Counter haben den Vorteil,
      dass sie automatisch und unabhängig vom eigentlichen Programm ablaufen (können).
      Man muss sie nur rechtzeitig auslesen,
      bevor sie "überlaufen".

      Aber jetzt kommt leider das erste Problem:
      Beim ATtiny25-45-85 nur einen Timer als Counter nutzen: Timer0
      und der wird ja in der Regel für die 1-Wire-Kommunikation gebraucht.
      Also habe ich den Code so umgeschrieben,
      dass die 1-Wire-Kommunikation über Timer1 läuft.
      Darum trägt der Baukasten übrigens den Zusatz: V.2 (d.h. Version 2)
      Zumindest in älteren Bascom-Versionen gibt es da einen Bug.
      Deshalb muss man diesen Timer manuell einstellen!
      (Vielleicht ist der Bug inzwischen behoben)

      BASCOM Source Code

      1. ' *********************** TIMER1 and ISR
      3. ' TIMER1 fuer 1-Wire-Kommunikation
      4. Config Timer1 = Timer , Prescale = 64
      5. ' Stop Timer1
      6. Tccr1 = Tccr1 And &B11110000
      7. Enable Timer1
      8. On Timer1 Isr Nosave
      9. Timer_t1 Alias Tcnt1
      11. '***************************************
      Display All

      Damit wird Timer0 frei und kann als Counter genutzt werden.

      Soweit so gut.

      Jetzt kommt das 2. Problem:
      Leider kann man aber nur 256 Impulse zählen (8 Bit), bis ein Überlauf eintritt.
      Wenn man den mit einbezieht, dann sind sogar 511 Impulse möglich,
      bevor das Ganze nicht mehr eindeutig ist.

      Wie kommt man nun aber auf 32 Bit?

      Immer wenn der Slave vom Master aufgerufen wird
      (bei mir ist das z.B. 1 mal in der Minute),
      wird der Counter und dessen Überlaufregister ausgelesen
      und zu einer 32-Bit-Variablen (DWORD) hinzugezählt.
      Dann wird Counter und Überlaufregister gelöscht
      und es ist wieder Platz für bis zu 511 Impulse.
      Nicht optimal, aber für viele Fälle völlig ausreichend.
      Man muss eben oft genug den Slave aufrufen.

      Also fügt man in den Baukasten-Code im Init-Teil (s.o.) folgenden Code ein:

      BASCOM Source Code

      1. ' ***************************************************************************
      2. ' * TIMER0 als Counter *
      3. ' ***************************************************************************
      5. ' Variablen fuer Counter
      6. Dim Counterwert As Dword
      7. Dim Counter_1 As Byte At Counterwert Overlay
      8. Dim Counter_2 As Byte At Counterwert + 1 Overlay
      9. Dim Counter_3 As Byte At Counterwert + 2 Overlay
      10. Dim Counter_4 As Byte At Counterwert + 3 Overlay
      12. ' TIMER0 als Counter an PORTB.2
      13. Config Timer0 = Counter , Edge = Falling
      14. Config Pinb.2 = Input
      15. ' Pullup ein
      16. Portb.2 = 1
      17. ' Und los gehts ...
      18. Start Timer0
      Display All
      "Calculatedata" sieht nun so aus:

      BASCOM Source Code

      1. ' RoBue: Erzeuge Daten
      2. ' -------------------------------
      3. '
      4. ' Berechnen der Werte, die dann ins "Daten-array" geschrieben werden.
      6. Calculatedata:
      8. If Match_slave = 1 Then
      10. ' Status auf 0 -> alles o.k.
      11. Daten_array(8) = 0
      13. ' Ueberlauf auslesen
      14. Daten_array(6) = Tifr.1
      15. ' und zuruecksetzen
      16. Set Tifr.1
      17. Set Tifr.4
      18. ' 8-Bit-Counter auslesen,
      19. Daten_array(5) = Tcnt0
      20. ' und Counter zuruecksetzen
      21. Tcnt0 = 0
      22. ' Werte zur 32-Bit-Variable addieren
      23. Counterwert = Counterwert + Daten_array(5)
      24. If Daten_array(6) = 1 Then
      25. Counterwert = Counterwert + 256
      26. End If
      27. ' 32-Bit-Counterwert in Scratchpad schreiben,
      28. Daten_array(1) = Counter_1
      29. Daten_array(2) = Counter_2
      30. Daten_array(3) = Counter_3
      31. Daten_array(4) = Counter_4
      33. Daten_array(9) = Crc8(daten_array(1) , 8)
      35. End If
      37. 'Goto Readb
      38. Goto Waitreset
      Display All
      Beim Auslesen des Scratchpads (s.o.) erhält man nun folgende Werte:
      Wert 1-4 -> 32-Bit Counter (Wert1 + 256*Wert2 + 65535*Wert3 + 16777216*Wert4)
      Wert 5,6 -> 9-Bit Differenz-Counter (Counter und Überlauf)
      Wert 7 -> leer (evtl. Messung Versorgungsspannung)
      Wert 8 -> Fehlerausgabe
      Wert 9 -> CRC8

      Zum Auslesen des Scratchpads siehe Beitrag von Michael:
      DS1820 DS18S20 DS18B20 Temperatursensor 1Wire

      Im Code sind zwei Möglichkeiten als ID vorgesehen:
      Einmal als DS18B20 mit Familiy-Code "&H28",
      zum andern als neuer Bausteintyp mit dem Family-Code "&HFD" (bisher ungenutzt).

      BASCOM Source Code

      1. ' RoBue:
      2. ' ID fuer 1-Wire-Baustein (&H43 steht fuer "C" wie Counter)
      3. Id:
      4. '
      5. ' DS18B20-Familiy (&H28)
      6. ' Data &H28 , &H43 , &00 , &H00 , &H00 , &H00 , &H01 , &H6C
      7. '
      8. ' oder eigene Family: (&HFD)
      9. Data &HFD , &H43 , &H00 , &H00 , &H00 , &H00 , &H01 , &H0E

      Anschlussbelegung des ATtiny:
      Pin 1 und 8: VCC
      Pin 2 und 3: unbelegt
      Pin 4: GND
      Pin 5: Kontroll-LED (gegen GND)
      Pin 6: 1-Wire-Port
      Pin 7: Counter-Eingang mit Kondensator (z.B. 10nF) gegen GND


      1-Wire-Slave-0xFD_ATtiny25_Counter_Timer1.bas

      LG RoBue

      The post was edited 8 times, last by RoBue ().

    • Schieben wir gleich den nächsten Baustein nach:

      4. Ein 1-Wire-Slave mit SHT11 für Temperatur und Feuchte

      Das Prinzip ist das Gleiche wie beim Counter,
      nur dass der Code nicht mehr in einen ATtiny25 passt,
      sondern man mindestens einen ATtiny45 braucht.
      Ich benutze die Routinen aus dem Bascom-Sample von Stuart Leslie,
      die ich in einen Initialisierungs- und einen Berechnungsteil aufgesplittet habe.

      Leider braucht der SHT11 mindestens 300ms zur Berechnung,
      d.h. nachdem der Master den Befehl "&H44" gesendet hat,
      ist der der Slave für diese Zeit nicht mehr ansprechbar.

      Beim Auslesen des Scratchpads (s.o.) erhält man nun folgende Werte:
      Wert 1,2 -> Temperatur = (Wert1 + Wert2*256)/10
      Wert 3,4 -> Luftfeuchte = (Wert3 + Wert4*256)/10
      Wert 5,6 -> 9-Bit Differenz-Counter (Counter und Überlauf)
      Wert 7 -> leer (evtl. Messung Versorgungsspannung)
      Wert 8 -> Fehlerausgabe
      Wert 9 -> CRC8

      Im Code sind zwei Möglichkeiten als ID vorgesehen:
      Einmal als DS18B20 mit Familiy-Code "&H28",
      zum andern als neuer Bausteintyp mit dem Family-Code "&HFE" (bisher ungenutzt).

      Anschlussbelegung des ATtiny:
      Pin 1 und 8: VCC
      Pin 2: SHT11 - Sck (Pullup 10k gegen VCC)
      Pin 3: SHT11 - Dta (Pullup 10K gegen VCC)
      Pin 4: GND
      Pin 5: Kontroll-LED (gegen GND)
      Pin 6: 1-Wire-Port
      Pin 7: Counter-Eingang mit Kondensator (z.B. 10nF) gegen GND

      1-Wire-Slave-0xFE_ATtiny45_SHT11_Counter_Timer1.bas

      Fortsetzung folgt demnächst,
      RoBue

      The post was edited 2 times, last by RoBue ().

    • Und weiter gehts:

      5. 1-Wire-Slaves mit BMP085/180 und BME280

      Für Wetterüberwachung ist das Messen des Luftdrucks obligatorisch.

      Dazu gibt es von Bosch 2 Sensoren mit i2c-Anschluss:
      - BMP085 und sein Nachfolger BMP180 (inzwischen sogar 280),
      der Temperatur und Luftdruck misst.
      - BME280,
      der neben Temperatur und Luftdruck auch die Luftfeuchte misst.

      Beide Sensoren gibt es inzwischen auf Breakoutboards.

      Für beide wurden Routinen in Bascom geschrieben,
      - für den BMP z.B. von MAK3 (altes Forum),
      - für den BME von nightflyer88 (-> mikrocontroller.net/topic/384287).
      Herzlichen Dank dafür.

      Auch diesmal habe ich mich als "Programmierschmarotzer" betätigt
      und im Großen und Ganzen nur deren Code für den Einsatz als 1-Wire-Slave umgeschrieben.

      Im Unterscheid zu den vorigen Beispielen werden die Routinen als Include-Files eingebunden.

      Außerdem erfolgt beim Programmstart eine Prüfung, ob der Sensor überhaupt vorhanden ist.
      Wenn er nicht erkannt wird, blinkt die Kontroll-LED dauernd.

      Der Code ist jeweils so lang, dass man nun auf jeden Fall einen ATtiny85 braucht.

      Beim Auslesen des Scratchpads (s.o.) erhält man nun folgende Werte:
      Wert 1,2 BME/BMP: Temperatur = (Wert1 + Wert2*256)/10 in °C
      Wert 3,4 BME: Luftfeuchte = (Wert3 + Wert4*256)/10 in % / BMP: unbenutzt
      Wert 5,6 BME/BMP: Luftdruck = (Wert5 + Wert6*256)/10 in hPa
      Wert 7 leer (evtl. Messung Versorgungsspannung)
      Wert 8 Fehlerausgabe
      Wert 9 CRC8

      Anmerkung:
      Der ausgegebene Luftdruck ist der temperaturbereinigte absolute Luftdruck am Messort.
      Zum Vergleich muss er noch in den relativen umgerechnet werden ("Barometrische Höhenformel").

      Anschlussbelegung des ATtiny85:
      Pin 1 und 8: VCC --- Längsregler 3,3V ------- Sensor VCC
      Pin 2: ---------------- Pegelwandler 3,3V ----- Sensor SCL
      Pin 3: ---------------- Pegelwandler 3,3V ----- Sensor SDA
      Pin 4: GND -------------------------------------- Sensor GND
      Pin 5: Kontroll-LED (gegen GND)
      Pin 6: 1-Wire-Port
      Pin 7: unbelegt

      Da beide Sensoren nur für max. 3,3V ausgelegt sind,
      braucht man theoretisch zwischen dem ATtiny und dem Sensor einen Pegelwandler.
      Diese kannm an günstig als fertige Platinchen kaufen
      und sie enthalten auch die nötigen Pullups (auf beiden Seiten).


      - Code für den BMP085/180: 1-Wire-Slave_BMP.zip

      - Code für den BME280: 1-Wire_BME.zip

      Hier noch ein Bild von meinem 1-Wire-Wetter-Modul (BME) mit Pegelwandler auf Lochraster.

      1-Wire-Slave_Wettermodul_Text.jpg

      Noch eine Anmerkung zu der Messgenauigkeit:
      Trotz einer Unmenge an Kalibrierungsdaten und einer theoretischen Genauigkeit < 1Pa,
      weichen die Dinger untereinander doch mehrere hPa voneinander ab.
      Man muss also neben der Umrechnung von absolutem Luftdruck in den relativen immer auch noch einen grundsätzlichen Offset mit vorsehen, den man durch den Vergleich mit umliegenden Wetterstationen gewinnen muss.

      LG RoBue

      The post was edited 14 times, last by RoBue ().

    • 6. Zwischenbemerkung:

      1-Wire-Slaves mit 3,3V-Sensoren

      Viele Sensoren sind inzwischen nur auf 3,3V ausgelegt
      und sind nicht 5V-tolerant, d.h. sie werden beim Betrieb mit 5V zerstört.
      Dazu gehören z.B. die BMP- und BME-Sensoren (s.o.)

      Da aber der 1-Wire Bus mit ca. 5V vetrieben werden sollte,
      muss man sich überlegen, wie man 3,3V und %V zusammenbringt.

      Ich habe drei Varianten getestet:

      a) Der Klassiker: Pegelwandler zwischen AVR und Sensor

      Diese gibt es als kleine, fertige Platinchen zu kaufen.
      Ein Längsregler wandelt die 5V in 3,3V um.
      2 FETS machen passen die Leitungen (SCL und SDA) an.
      Die Pullups sind auf beiden Seiten schon integriert.

      Wettermodul_BMP085_HIH6131.jpgPegelwandler.jpg

      b) Der Sparsame: Pegelwandler zwischen AVR und 1-Wire-Bus

      Man betreibt den AVR mit 3,3V
      und verbindet den Sensor direkt mit ihm.
      Dazu muss man mit einen Spannungsregler (z.B. 78L33) die Betriebsspannung auf 3,3V verringern.
      Jetzt wird nur der 1-Wire-Port des AVR über einen FET auf 5V hochge-"shiftet".

      1-Wire-Slave_Pegelwandler.jpg

      c) Die Notlösung (?): 3,3V Betrieb direkt an 1-Wire

      Da der AVR mit 5V und 3,3V arbeitet, kam mir die Idee:
      Wie wäre es, wenn man den AVR mit 3,3V betreibet (Spannungsregler, s.o.)
      und den 1-Wire-Port DIREKT mit dem 1-Wire-Bus verbindet:
      Und siehe da: Es scheint auch zu funktionieren.

      LG RoBue

    • 7. Zwischenbemerkung 2:
      Berechnung von absoluter Luftfeuchte und Taupunkt

      Manchmal braucht man nicht nur die relative,
      sondern die absulute Luftfeuchte oder auch den Taupunkt.
      Nach einigem Suchen bin ich auf einige Beispiele gestoßen,
      die ich in folgenden Code zusammengefasst habe:

      BASCOM Source Code

      1. '**********************************************************
      2. 'Compiler : BasCom
      3. 'Hardware : AVR-Ctrl / RoBue AVR-PC-Control
      4. ' : LCD, DS1307, ...
      5. 'Chip type : ATmega644P
      6. 'Clock frequency : 8,000000 MHz
      7. '**********************************************************
      9. ' Routinen zur Berechnung von Werten aus Temperatur und Luftfeuchte
      11. $regfile = "m644pdef.dat"
      12. $crystal = 8000000
      13. ' framesize
      14. ' - fuer Prozeduren
      15. ' - Umwandlung von Variablen in andere Datentypen
      16. $framesize = 128
      17. ' hwstack:
      18. ' - 32 Bytes fuer Interrupts
      19. ' - 2 pro Gosub
      20. $hwstack = 64
      21. ' swstack:
      22. ' - fuer Prozeduren
      23. $swstack = 32
      25. $baud = 9600
      27. ' Gemeinsame Variable fuer Ausgabe
      28. Dim Ausgabehilfswert As Single
      29. Dim A_feuchte As Single
      30. Dim A_temperatur As Single
      31. Dim Tp As Single
      32. Dim Sdd As Single
      33. Dim Dd As Single
      34. Dim Fa As Single
      36. Do
      38. ' Eingabewerte (Beispiel):
      39. A_temperatur = 28.5
      40. A_feuchte = 63.7
      42. Gosub Meteowerte
      44. If Tp = 9999 Then
      45. Print "Error"
      46. Else
      47. Print "Temperatur: " ; A_temperatur ; " °C"
      48. Print "Luftfeuchte " ; A_feuchte ; " %H"
      49. Print "Saettigungsdd: " ; Sdd ; " hPa"
      50. Print "Dampfdruck: " ; Dd ; " hPa"
      51. Print "Feuchtegehalt: " ; Fa ; " g/m³"
      52. Print "Taupunkt: " ; Tp ; " °C"
      53. End If
      55. Print
      57. Wait 15
      59. Loop
      60. End
      62. Meteowerte:
      63. ' Infos: -> http://www.wetterochs.de/wetter/feuchte.html
      64. ' Berechnung nur fuer Werte ueber 0°C
      65. If A_temperatur >= 0 Then
      66. ' - Saettigungsdampfdruck (o.k.):
      67. ' Sdd = 6.1078 * 10^ ((7.45 * Temperatur) / (237.3 + Temperatur))
      68. Ausgabehilfswert = A_temperatur
      69. Ausgabehilfswert = 237.3 + Ausgabehilfswert
      70. Ausgabehilfswert = 7.5 / Ausgabehilfswert
      71. Ausgabehilfswert = Ausgabehilfswert * A_temperatur
      72. Ausgabehilfswert = 10 ^ Ausgabehilfswert
      73. Sdd = Ausgabehilfswert * 6.1078
      75. ' Dampfdruck
      76. ' Dd = Feuchte / 100 * Sdd
      77. Ausgabehilfswert = A_feuchte * Sdd
      78. ' Ausgabehilfswert = Ausgabehilfswert / 100
      79. ' (Wert auch noch durch 10 teilen s.o => 1000
      80. Dd = Ausgabehilfswert / 100
      82. ' Feuchtegehalt / absolute Luftfeuchte(o.k.):
      83. ' Fa = 216.7 * Dd / (237.3 + Temperatur)
      84. Ausgabehilfswert = 273.15 + A_temperatur
      85. Fa = 216.7 * Dd
      86. Fa = Fa / Ausgabehilfswert
      88. ' Taupunkt (o.k.):
      89. Ausgabehilfswert = Dd / 6.1078
      90. Ausgabehilfswert = Log10(ausgabehilfswert)
      91. Tp = 7.5 - Ausgabehilfswert
      92. Tp = 237.3 / Tp
      93. Tp = Tp * Ausgabehilfswert
      95. Else
      96. ' Errorausgabe
      97. Tp = 9999
      98. End If
      99. Return
      Display All

      LG RoBue

      The post was edited 2 times, last by RoBue ().

    • So, jetzt kommt der vorerst letzte Streich:

      8. 1-Wire-Slave mit ATmega8 und LCD

      Dieses Projekt stellt ein Vorstadium des Slavebaukastens dar.
      Hier ging es mir darum, eine Art Terminal mit LCD zu erstellen.
      Weil man dafür mehr Ports braucht, ist ein ATmega8 eine gute Wahl.
      Wenn der Slave zum Berechnen der Werte aufgefordert wird,
      werden diese auch ins LCD geschrieben.
      Die 2x8-Zeichen LCDs von Pollin eigneten sich dazu optimal.
      Leider gibts die nicht mehr :(

      Ich hab so ein Ding als Kontrolle in unserem Gewölbekeller.

      Beim Auslesen des Scratchpads (s.o.) erhält man nun folgende Werte:
      Wert 1,2 -> Temperatur = (Wert1 + Wert2*256)/10
      Wert 3,4 -> Luftfeuchte = (Wert3 + Wert4*256)/10
      Wert 5,6 -> 16-Bit-Counter / AD-Messwert (z.B. Fotodiode) / leer
      Wert 7 -> leer (evtl. Messung Versorgungsspannung)
      Wert 8 -> Fehlerausgabe
      Wert 9 -> CRC8

      Schaltplan ist im ZIP-File

      1-Wire-Slave_ATmega8_SHT11_LCD.jpg

      1-Wire-Slave_ATmega8_SHT-LCD.zip

      Soweit mal meine Entwicklungen zum Thema 1-Wire-Slave.

      Über Rückmeldungen würde ich mich natürlich freuen.

      Vielleicht können wir noch weitere Sensoren auf diese Weise in den 1-Wire-Bus integrieren.
      Macht mal Vorschläge - und ich schlage dann zurück ;)

      Ich werde demnächst mal einige Routinen zum Thema 1-Wire-Master im Forum zum Besten geben,
      damit man die Slaves auch nutzen kann.

      Viel Spaß,
      RoBue

      The post was edited 5 times, last by RoBue ().

    • 9. 1-Wire-Slave mit MAX6675 (0 - 1024°C)

      Nachdem sk8erboi den Code zum Auslesen des MAX6675 hier eingestellt hat
      -> MAX6675 Typ-K Temperatur
      und mir freundlicherweise einen mit Temperaturfühler zugeschickt hat
      (Herzlichen Dank für beides!)
      habe ich das gleich für den 1-Wire-Slave-Baukasten umgestrickt.

      Da ein DS18B20 max. bis 125°C messen kann,
      eignet er sich für bestimmte Funktionen, z.B. Brennerüberwachung nicht.
      Da ist der MAX6675 in Kombination mit einem Temperaturfühler Typ-K mit bis zu 1024°C eine echte Altternative.

      Man braucht mindestens einen ATtiny45.
      Ich vermute mal, dass das "Shiftin" ziemliche Code-Intensiv ist.

      In den "Init"-Bereich kommt:

      BASCOM Source Code

      1. '***************************************
      2. '***************************************
      4. ' MAX6675:
      5. ' CS -----> PORTB.2
      6. ' SCK -----> PORTB.4
      7. ' SOut -----> PORTB.3 (bzw. PINB.3)
      8. Cs Alias Portb.2
      9. Config Cs = Output
      10. Sck Alias Portb.4
      11. Config Sck = Output
      12. So Alias Pinb.3
      13. Config So = Input
      14. ' Variable
      15. Dim Temp As Word
      16. Dim Tempx As Single
      17. Dim Erstmessung As Byte
      18. ' Messung schon mal starten
      19. Cs = 1
      21. ' ****************************************
      Display All


      In "Calculatedata" schreibt man:

      BASCOM Source Code

      1. Calculatedata:
      3. If Match_slave = 1 Then
      5. ' Status auf 0 -> alles o.k.
      6. Daten_array(8) = 0
      8. ' MAX6675 auslesen:
      9. Temp = 0
      10. ' - Konversion stoppen
      11. Cs = 0
      12. Waitms 1
      13. ' - Daten auslesen
      14. Shiftin So , Sck , Temp , 0 , 16 , 10
      15. ' - Konversion (Messung) wieder starten
      16. Cs = 1
      18. ' Rechnen
      19. Shift Temp , Right , 3
      20. Tempx = Temp * 0.25
      21. Tempx = Tempx - 1
      22. ' 1 Nachkommastelle
      23. Tempx = Tempx * 10
      24. Temp = Round(tempx)
      26. ' Werte in Ausagbe-Array eintragen
      27. If Erstmessung = 0 Then
      28. ' keine Ausgabe bzw. Ausgabewert = 0
      29. Erstmessung = 1
      30. Else
      31. Daten_array(1) = Low(temp)
      32. Daten_array(2) = High(temp)
      33. End If
      35. ' CRC-Pruefsumme
      36. Daten_array(9) = Crc8(daten_array(1) , 8)
      38. End If
      40. 'Goto Readb
      41. Goto Waitreset
      Display All

      Beim Auslesen des Scratchpads (s.o.) erhält man nun folgende Werte:
      Wert 1,2 -> Temperatur = (Wert1 + Wert2*256)/10
      Wert 3,4 -> 0
      Wert 5,6 -> 0
      Wert 7 -> leer (evtl. Messung Versorgungsspannung)
      Wert 8 -> Fehlerausgabe
      Wert 9 -> CRC8

      Im Code sind zwei Möglichkeiten als ID vorgesehen:
      Einmal als DS18B20 mit Familiy-Code "&H28",
      zum andern als neuer Bausteintyp mit dem Family-Code "&HFE" (bisher ungenutzt).

      Anschlussbelegung des ATtiny:
      Pin 1 und 8: VCC
      Pin 2: SO (MAX6675)
      Pin 3: SCK (MAX6675)
      Pin 4: GND
      Pin 5: Kontroll-LED (gegen GND)
      Pin 6: 1-Wire-Port
      Pin 7: CS (MAX6675)

      Das wars eigentlich schon.

      1-Wire-Slave_ATtiny45_MAX6675.bas

      02.04.2017 Achtung Änderung des Codes!

      The post was edited 5 times, last by RoBue ().

    • Dann machen wir mal weiter:
      10. 1-Wire-Slave mit HC-SR04 (Distanzmessung, Füllstandsanzeige)

      Schon seit einiger Zeit wollte ich mal messen können,
      wie viel Öl noch im Tank ist
      oder ob die Regentonne noch voll ist etc.
      und wenn man schon mit 1-Wire arbeitet,
      wäre doch auch so etwas als 1-Wire-Slave gar nicht übel.

      Also frisch ans Werk ...

      Mein Blick fiel auf den Ultraschallsensor HC-SR04.
      Er kann bis zu 3m Distanz berechnen.
      HC-SR04_Breakout.jpg

      Dazu sind folgende Infos interessant:
      -> micropik.com/PDF/HCSR04.pdf
      -> raw.githubusercontent.com/sens…SR04_ultraschallmodul.pdf

      Ich habe daraus mal einen ganz einfachen (primitiven?) Slave gebastelt,
      der in dieser Form sogar noch in einen ATtiny25 passt.

      Anschlussbelegung des ATtiny:
      Pin 1 und 8: VCC ---------- VCC HC-SR04
      Pin 2: -------------------- Trig HC-SR04
      Pin 3: -------------------- Echo HC-SR04
      Pin 4: GND ---------------- GND HC-SR04
      Pin 5: Kontroll-LED (gegen GND)
      Pin 6: 1-Wire-Port
      Pin 7: unbelegt

      Den Baukastencode muss man nur an einer Stelle ändern:

      BASCOM Source Code

      1. Calculatedata:
      3. If Match_slave = 1 Then
      5. ' Zaehler fuer Abfrage zuruecksetzen -> Fehlererkennung
      6. Daten_array(8) = 0
      8. ' Sende Signal
      9. Portb.3 = 1
      10. Waitus 10
      11. Portb.3 = 0
      13. ' Warte auf Empfang
      14. Ausgabeinteger = 0
      15. Do
      16. Loop Until Pinb.4 = 1
      18. ' Entfernung messen
      19. While Pinb.4 = 1
      20. ' ungef. 585 us fuer 10 cm
      21. ' Waitus 585
      22. ' ungef. 292 us fuer 5 cm
      23. Waitus 292
      24. Incr Ausgabeinteger
      25. ' Mehr als 3m -> kein Echo
      26. If Ausgabeinteger > 100 Then Exit While
      27. Wend
      28. ' Ausgabe in cm
      29. Ausgabeinteger = Ausgabeinteger * 5
      31. ' Datenarray beschreiben
      32. Daten_array(5) = Low(ausgabeinteger)
      33. Daten_array(6) = High(ausgabeinteger)
      35. ' CRC bestimmen
      36. Daten_array(9) = Crc8(daten_array(1) , 8)
      38. End If
      40. 'Goto Readb
      41. Goto Waitreset
      Display All
      Das Scatchpad sieht so aus:
      Byte 1,2 -> unbenutzt oder Temperatur in C x 10 (für später)
      Byte 2,3 -> unbenutzt
      Byte 5,6 -> Distanz in cm
      Byte 7 -> leer (evtl. Versorgungsspannung)
      Byte 8 -> Fehlerausgabe
      'Byte 9 -> CRC

      Meine Messwerte sind ziemlich realistisch und in 5cm-Schritten.
      Aber:
      Wind stört (gibts im Öltank vermutlich weniger ;) , aber evtl. bei der Regentonne).
      Auch die Temperatur beeinflusst das Ganze.
      Deswegen habe ich auch noch die zukünftige Möglichkeit einen zusätzlichen Temperatursensors vorgesehen.

      Leider ist das Breakoutboard so groß,
      dass es sogar fast nicht in den Einfüllstutzen des Öltanks passt.
      Man müsste sich einen neuen Verschluss kaufen und da den Sensor einbauen.
      Ob das zulässig ist, weiß ich leider nicht.

      Ok. Soweit mal.

      Im Anschluss noch der ganze Code.

      Liebe Grüße,
      RoBue

      1-Wire-Slave_HC-SR04.bas

      The post was edited 1 time, last by RoBue ().

    • RoBue wrote:

      5. 1-Wire-Slaves mit BMP085/180 und BME280
      Hi Robue
      I have some trouble with bme280.
      I prepare schematic (see attach), use yours program (I do not know about programming),
      but doesn't work, and not see on my RPI3.
      LED blinks continuously, and I think my module not recognize properly .
      Module work, because I connect to rpi3 and in terminal i see value.
      Pls check the schema, or maybe lockbit is wrong or something .
      All device 1-wire are connected to the converter 1-w->rs232 and conncted to the rpi3.
      Pls help.
      best regards
      Files

      • bme280.png

        (20.79 kB, downloaded 83 times, last: )

    • Hi cineks,
      it is very interesting to test the slaves with a RPi,
      but you can't detect a 1-Wire-Slave with the ID 0xFE.
      Test the following file. It uses the ID 0x28 (= DS18B20).
      (Data &H28 , &H53 , &H48 , &H54 , &H00 , &H00 , &H01 , &H36)

      1-Wire-Slave_ATtiny85_BME280_ID28.zip

      For the old Linux on the RPi (Raspian),
      I have written a testfile in bash.
      In the meantime there are some changes in the Linux system on the RPi,
      but perhaps it can help you.
      There is one port of the RPi you can connect to 1-Wire directly.
      Please look in the manuals.

      Source Code

      1. #!/bin/bash
      3. # Ausgabe eines Temperaturwertes
      5. # ID des 1. Sensors auslesen
      6. sensor=`cat /sys/devices/w1_bus_master1/w1_master_slaves | head -1`
      8. while true
      9. do
      10. clear
      12. echo -n "Sensor auslesen ..."
      14. # Scratchpad auslesen
      15. scratchpad=`cat /sys/bus/w1/devices/$sensor/w1_slave | grep "t=" | tr a-f A-F`
      17. echo " fertig!"
      18. echo
      20. # einzelne Werte isolieren
      21. temp_low=`echo $scratchpad | cut -d" " -f1`
      22. temp_high=`echo $scratchpad | cut -d" " -f2 `
      23. hum_low=`echo $scratchpad | cut -d" " -f3`
      24. hum_high=`echo $scratchpad | cut -d" " -f4`
      25. wert_low=`echo $scratchpad | cut -d" " -f5`
      26. wert_high=`echo $scratchpad | cut -d" " -f6`
      27. error=`echo $scratchpad | cut -d" " -f8`
      29. # Temperatur berechnen (mit bc)
      30. temperatur=`echo "ibase=16; ($temp_high * FF) + $temp_low" | bc`
      31. temperatur=`echo "scale=1; $temperatur / 10" | bc`
      33. # Luftfeuchte berechnen
      34. luftfeuchte=`echo "ibase=16; ($hum_high * FF) + $hum_low" | bc`
      35. luftfeuchte=`echo "scale=1; $luftfeuchte / 10" | bc`
      37. # 3. Wert (Counter, ADC, ...)
      38. wert=`echo "ibase=16; ($wert_high * FF) + $wert_low" | bc`
      40. # Ausgabe
      41. datum=`date +"%H:%M %d.%m.%Y"`
      42. echo "Datum : $datum"
      43. echo "Sensor-ID : $sensor"
      44. echo "Scratchpad : $scratchpad"
      45. echo "Temperatur : $temperatur °C"
      46. echo "Luftfeuchte: $luftfeuchte %H"
      47. echo "3. Wert : $wert"
      48. echo "Errorstatus: $error"
      50. sleep 15
      52. done
      Display All

      The frequenzy of the Attiny must be 8Mhz.

      If you connect the module (ATtiny and BME) only with GND and VCC (5V) the LED must blink 4 times and then no more.

      If it works please send a replay.

      (Sorry - my English is not very good. More than 30 years behind ...)

      RoBue

      The post was edited 1 time, last by RoBue ().

    • Hi RoBue,
      thank for you reply,
      Unfortunately it does not work :(
      When connected the module to the ATTINY ,LED blink continuously, and RPI not recognized.
      4x led blink on your old program. I downloaded from this site ,
      but this version also not work.
      Question:
      pin1 must be connected to the pin8?
      (it does not matter, connected or not does not work)

      So, could you check the voltage level on the pin 6 , i'm is always low (module not connected to the converter, computer ).

      i think it works for you,
      how are you connected? to the computer,router, converter?
      maybe attiny is broken, but led blinking.
      I do not know what's going on
      best regards

    • Hi cineks!

      Step by step:

      Pin1 must connect to pin8 (VCC = 5V).
      Normally you use a resistor (10k), but for my layout it was easier to connect directly.
      If you are using the resistor, you can't connect the converter and the BME directly to Pin1.
      You must connect it to Pin8

      First the code seeks a BME-Sensor.
      (The older code does not test!)
      If it does't find the sensor, it ends in a loop with blinking LED continuously.
      Therefore it will not be detect by a 1-Wire master.

      This seems the problem of your system!

      Are you sure you have a BME (and not a BMP)?
      Look also wether your system is running with 8Mhz
      (look at lock- and fusebits of your ATtiny -> engbedded.com/fusecalc )

      If the Sensor is found, the Code lets blink the LED four times.
      Then the System ist ready for use.
      After this the LED only blinks, if the master wants something from this device.

      Pin6 is normally in tristate, 0V , better: No voltage

      If you want, you can send your module to me.
      Where are you living?

      RoBue

      The post was edited 1 time, last by RoBue ().

    • hi,

      RoBue wrote:

      Are you sure you have a BME (and not a BMP)?
      yes, Im sure this is GY-BME280 V3.3
      The sensor measures the pressure, temp, hum.


      RoBue wrote:

      Look also wether your system is running with 8Mhz
      (look at lock- and fusebits of your ATtiny -> engbedded.com/fusecalc )
      yes, 8Mhz and fusebity 0x62 0xDF 0xFF
      i not changes becouse I dont know


      RoBue wrote:

      If it does't find the sensor, it ends in a loop with blinking LED continuously.
      And here is the problem because I do not know why.
      scheme is ok.
      Level converter work, checked manually.
      attiny pin2->scl
      attiny pin3->sda

      I byu a second attiny85 and checked.

      I'm from poland

      best regards

    • 12. 1-Wire-Slaves von RoBue am Raspberry Pi

      Nachdem Cineks mit den 1-Wire-Slaves einige - bisher misslungene - Versuche am Raspberry Pi durchgeführt hat, möchte ich hier ein paar Links zu diesem Thema einfügen.

      Das Betriebssystem kann über den Port GPIO4 direkt auf den 1-Wire-Bus zugreifen,
      wenn man die entsprechenden Treiber geladen und die Hardware entsprechend eingerichtet hat.
      Infos dazu:
      kompf.de/weather/pionewiremini.html
      netzmafia.de/skripten/hardware/RasPi/Projekt-Onewire/

      Ein Beispielscript habe ich hier im Thread schon eingefügt:
      1-Wire-Slave-Baukasten V.2
      Man muss nur den Pfad anpassen, da der sich bei neueren Betriebssystemversionen geändert hat.

      Liebe Grüße,
      RoBue

    • Hi
      I see the light in the tunnel.
      When I back to home check this.

      Yes, I prepare the PCB.
      To build the PCB I used what I had.
      Is not perfect.
      I use LM1117, you can replace lm1117 -> lm1117 3.3v, then you need to remove the resistors R2 i R6

      I can't connect directy this, becouse attiny have 5v rpi 3,3v.
      I use level converter and connetc
      bme280 -> attiny85 ->1-wire -> rs232 -> rpi uart.

      best regards
      Files

      • bme280.zip

        (97.69 kB, downloaded 44 times, last: )