Datenlogger auf ARDUINO- Basis

    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!

    • Ulrich wrote:

      an den 328-Pins feine Drähte anlöten.
      Ich zitiere mal aus der ins deutsche übersetzten Beschreibung:

      SPARKFUN wrote:

      SPI


      Am gegenüberliegenden Ende der Platine sind außerdem vier
      SPI-Testpunkte herausgebrochen. Mit diesen können Sie den Bootloader auf
      dem ATmega328 neu programmieren.

      Das neueste OpenLog (DEV-13712) bricht diese Punkte in kleineren durchkontaktierten Löchern heraus. Wenn Sie einen ISP zum Neuprogrammieren oder Hochladen eines neuen Bootloaders auf OpenLog verwenden müssen, können Sie Pogo-Pins verwenden, um eine Verbindung zu diesen Testpunkten herzustellen.
      Die Pins müssten eigentlich von links nach rechts Reset, SCK, Mosi und Miso sein, entweder der ganz linke oder ganz rechte verlötete Punkt wird die 3.3V des Chips führen (lt. Schaltplan gibt es einen TP1 also Testpunkt), das müsste man heraus messen. Gnd wiederum ist sowieso unten herausgeführt.

      Einfache Flasher brauchen auch keine Verbindung zur Stromversorgung, der MKII meckert aber, wenn der nicht erkennt, dass die Zielschaltung nicht stromversorgt ist.
      Daher sollte die Stromversorgung des Moduls aufrecht sein und auch nicht fremdversorgt werden (viele einfache Flasher tun das) da da ein eigener Spannungsregler alles tut was das Modul braucht während der MKII wiederum die Zielschaltung gar nicht versorgt sondern nur prüft ob die Stromversorgung aufrecht ist.

      Und während dem Flashen sollte auch keine SD-Karte gesteckt sein, weil die wohl auch an den ISP-Punkten hängt.
      Und natürlich kann man über den SPI dann nicht nur einen Bootloader flashen.

    • @Mitch64

      hallo Mitch, vielen Dank für deine weiteren Hinweise und Unterstützung, leider komme ich erst heute Nachmittag dazu, weiter zu testen. Da werde ich alles noch mal von Grund auf kontrollieren und einstellen.

      Die Frage die ich mir auch stelle, wo liegt die Resonatorfrequenz des Moduls und wie kommt der 328 bei 3,3V+/- ? mit den 16MHz zurecht?

      Gruß
      Ulrich

    • Ulrich wrote:

      Die Frage die ich mir auch stelle, wo liegt die Resonatorfrequenz des Moduls und wie kommt der 328 bei 3,3V+/- ? mit den 16MHz zurecht?
      Das Quarz hat keine Aufschrift oder einen Code?
      Was immer funktioniert ist Messen, am besten Mit Oszi.

      Ob der 328p mit 16MHz bei 3,3V klar kommt?
      Er benötigt 2,7V für 10MHz; und 4,5V für 20MHz.
      In einem Diagramm im Datenblatt kann man auslesen, dass bei 3,3V nur ca. 12,25 MHz erreicht werden.
      Ich vermute daher, dass der nicht mit 16MHz läuft.

      Auch da hilft messen, welche VCC der Controller tatsächlich bekommt.

    • Laut Schaltplan ist ein ATMEGA328P_TQFP verbaut der mit 3.3V (Spannungsregler 3.3V MIC5205) versorgt wird.

      Die 3.3V sind wohl wiederum der SD-Karte geschuldet.

      Möglicherweise ist das ganze ja mit der heißen Nadel gestrickt :D .


      Laut Sparkfun sind die Daten aber wohl korrekt.


      SPARKFUN wrote:

      Der SparkFun OpenLog ist ein Open-Source-Datenlogger, der über eine einfache serielle Verbindung funktioniert und microSD-Karten bis zu 32GB unterstützt. Der OpenLog kann große Mengen serieller Daten speichernoder „protokollieren“ und als eine Art Blackbox fungieren, um alle seriellen Daten, die Ihr Projekt generiert, für wissenschaftliche oder Debugging-Zwecke zu speichern.

      Der SparkFun OpenLog verwendet dank des integrierten Resonators einen ATmega328, der mit 16 MHz läuft.
      Der OpenLog verbraucht im Leerlaufmodus (nichts aufzuzeichnen) etwa 2-3mA. Während einer vollständigen Aufzeichnung kann OpenLog je nach verwendeter microSD-Karte 10 bis 20 mA verbrauchen.

      Alle vom OpenLog protokollierten Daten werden auf der microSD-Karte gespeichert.
      Jede microSD-Karte mit 512 MB bis 32 GB sollte funktionieren. OpenLog unterstützt sowohl die SD-Formate FAT16 als auch FAT32.

      Für eine noch bessere Leistung ist OpenLog Artemis das Tool, das Sie benötigen, mit Protokollierungsgeschwindigkeiten von bis zu 500.000 Bit/s.

    • Ulrich wrote:

      an den 328-Pins feine Drähte anlöten
      Die benötigten Pins liegen auf den Bohrungen der unbelegten Seite. (Rst,Sck,Mo(si) und Mi(so). Fehlt nur noch Gnd , der kann von der anderen Seite genommen werden ;)
      Direkt an den Pins ist greußlich, das würde ich auch vermeiden wenn möglich.

      Der Bootloader wird sich vermutlich nicht überreden lassen den Flash Inhalt aus zu geben?

    • Aufgrund des Schaltbild sehe ich eine Beschaltung des SCK-Pins.
      Daran hängt eine LED (keine Low-Current) mit 330 Ohm Vorwiderstand.

      Diesen Pin muss ja der Programmer Takten, denn während der Programmierung über ISP ist der Controller Slave.
      Möglicherweise ist genau das das Problem.

      Ich glaube nicht, dass der SCK-Ausgang des Programmers mit 1MHz Takt die LED auch noch mit ca. 5mA treiben kann,
      ohne dass der SCK-Pegel zusammen bricht.

      LED oder Vorwiderstand auslöten und dann nochmal flashen mit anschließendem Verify durchführen.
      Gehts dann, was das das Problem.

      Wenn nicht, geht die Suche weiter.

    • Guter Hinweis

      Mitch64 wrote:

      ohne dass der SCK-Pegel zusammen bricht.
      Dann hat der einfach keinen "Dampf" X( Mein MKII ist da auch schlapp. Mit 125kHz schafft er es (so gerade) mit dem Mosi über 220R ein LCD Backlight zum Flackern zu bringen.
      Weniger Speed könnte da helfen.
      Oder sind da Reihenwiderstände verbaut? Die 5 mA sollte er eigentlich spielend hin bekommen?
      Schwach, daß so ein "Profigerät" gegen einen 2€ Usbasp "abstinkt"

    • Hallo alle zusammen!

      Um auch meinen Senf dazuzugeben:
      Meinem "no name" OpenLog Modul habe ich vor einigen Tagen ebenfalls die V4.3 Firmware des Sparkfun-Moduls gegönnt. Die Beschaltung ist zwar nicht 100% gleich, aber beide haben den ATMEGA328P_TQFP verbaut.
      Mit meinem alten myAVR MKII Prommer und meiner altbewährten Software (myAVR ProgTool V1.56) zum Brennen hat dies auch Anhieb ohne Probleme funktioniert.
      Beim Brennvorgang hatte ich nicht mal die Verbindung zum Mega2560-Board getrennt und die Stromversorgung während des Brennvorganges erfolgte ausschließlich über den Prommer! (Das Mega2560 Board wurde dadurch natürlich die ganze Zeit vom Prommer spannungsmäßig mitversorgt).

      Hier noch ein Bild vom Anschluss des Adapterkabels (SPI/ISP) für den Prommer:
      ISP_Openlog.JPG
      Ganz links, mit der weißen Markierung, dass ist GND und die 5V vom Prommer habe ich an VCC auf der gegenüberliegenden Anschlussreihe eingespeist.

    • Hallo liebe Untertsützer und Hinweisgeber,

      Habe heute alle Pegel an dem No-Name Modul (mit Update Problem) nachgemessen, siehe Bilder MISO, MOSI, SCK.

      Mitch64 wrote:

      Ich glaube nicht, dass der SCK-Ausgang des Programmers mit 1MHz Takt die LED auch noch mit ca. 5mA treiben kann,
      ohne dass der SCK-Pegel zusammen bricht.


      Zu diesem Modul, habe ich via Fusebit-Einstellung den Clock-Out gemessen: 15,993MHz sowie die Spannung am AVR-328 Pin4 von 3,255V

      Wenn ich den Chip-Inhalt nach dem Schreiben (Chip/write buffer into chip) in den Buffer zurücklese, deckt er sich nur in Teilen mit dem OpenLog_V43.hex. (siehe Bilder: Buffer zurückgelesen/OpenLog_V43) Vielleicht hängt das mit der niedrigen Spannung zusammen.

      Beim Sparkfun Modul lässt sich offenbar die Fusebit Einstellung nicht auslesen????

      @avralfred

      Erstellt dein No-Name Modul auch automatisch eine Config.txt, wenn auf der SD-Card beim Power-Up keine vorhanden ist?

      Viele Grüsse Ulrich
      Files

      • Prommer Bild2.jpg

        (70.59 kB, downloaded 9 times, last: )

      • Buffer zurückgelesen.JPG

        (273.81 kB, downloaded 8 times, last: )

      • OpenLog_V43 im Buffer.JPG

        (310.98 kB, downloaded 7 times, last: )

      • MISO.BMP

        (998.45 kB, downloaded 10 times, last: )

      • MOSI.BMP

        (998.45 kB, downloaded 5 times, last: )

      • SCK.BMP

        (998.45 kB, downloaded 9 times, last: )

    • Mal davon abgesehen, dass der Controller mit 16MHz und 3,3V außerhalb der Spezifikation betrieben wird,
      fallen doch noch die Pegel an der ISP-Schnittstelle auf.

      • Miso passt mit 3,3V. Das ist in Ordnung.
      • Mosi liegt höher, bei 3,8V. Wieso? Treibt dein Programmer 5V am MOSI?
      • Und der SCK (am Controller-Pin gemessen?) hat nur 2,5V. Das sind 75% von VCC. Das halte ich für zu wenig.
      Wie sieht das Reset-Signal aus von den Pegeln?

      Löte mal den Widerstand raus von der LED am SCK-Pin, oder probiere mal einen anderen Programmer, so wie es auch schon Pluto geschrieben hat.

    • Ulrich wrote:

      wenn auf der SD-Card beim Power-Up keine vorhanden ist?
      Wobei es auch noch eventuell auf den Softwarestand ankommt.
      In der aktuellen Version wird jedenfalls eine Config.TXT angelegt.
      Deren Inhalt ist davon abhängig was vorher mit dem Modul passiert ist.
      Ist das Modul "nagelneu" (z.B. neu geflasht und das EEPROM wurde dabei auch gelöscht) werden die Standard-Vorgabewerte für das Config geschrieben, während bei einem bereits verwendeten Modul jene Werte in die Config.TXT geschrieben werden, welche auch die vorhergehende SD-Karte kannte (die auch abweichend vom Standard sein können.

    • An alle meine Unterstützer und andere Interessierte

      No-Name OpenLog-Modul läuft nun mit Update OpenLog_V43.hex

      Die Aufgabe bestand darin, ein Programm welches nur als *.hex File vorliegt, in einen AVR328 mit einem Diamex-Prommer zu übertragen.

      Die entscheidende Maßnahme war letztlich anstatt:

      Chip/write Buffer into chip das andere

      Chip/Autoprogram auszuwählen.



      Für alle, die sich ebenfalls für diese preiswerten Logger-Module (OpenLog-Module) interessieren und bei Bedarf ein erforderliches update einspielen wollen, hier meine Vorgehensweise. (Diese gilt prinzipiell für alle Dateien, die nur im *.hex Format vorliegen und in einen AVR-Prozessor einprogrammiert werden sollen)

      Hier speziell: Update-Adapter für das No-Name Modul präparieren, d.h. eine ISP-Verbindung mit Prommer herstellen (Ist etwas Lötarbeit, MISO-,MOSI-,SCK-,Reset- sowie Power-Pins des Moduls mit ISP vom Prommer verbinden. Prommer auf 3,3V Spannung einstellen. (Diamex-Bedienungsanleitung/ Bild vom Adapter in Post#68 von avralfred, Modulbilder in Post#39/#41)

      Zunächst im Menue Options/Programmer das Autoflash deaktivieren.

      Um beim Aufruf von Bascom Zugriff auf die ausgegrauten Menue-Icons zu erhalten, ist ein kurzes (beliebiges) Bascom-Programm mit dem entsprechenden AVR-Typ aufzurufen.

      Danach ist der Zugriff auf die Menue-Icons freigegeben und es kann wie folgt weitergehen:
      • Program Chip (F4) aufrufen
      • Im erscheinenden Menue: Buffer/clear anklicken (im Buffer-Bereich zeigen alle Werte nun „FF“/ dies nur zur Sicherheit, kann auch entfallen)
      • Buffer/Load from file anklicken (*.hex file mit Explorer suchen und mit öffnen auswählen, danach wechseln die im Buffer-Bereich angezeigten FF-Werte in die geladenen Hex-Werte )
      • Im Menue nun Chip/Autoprogram! auswählen und

      • warten bis der grüne Fortschrittsbalken abgelaufen ist und das Fenster geschlossen wird. Falls das Fenster nicht schließt, ist wohl ein Fehler aufgetreten.
      • Modul aus dem Update-Adapter entnehmen, und an den Logger-Prozessor anschließen, der die Daten für die SD-Card des Moduls liefern soll.



      Diese Vorgehensweise hat bei mir zum Erfolg geführt (zwei Module upgedated). Die No-Name Module funktionieren damit entsprechend der im Forum-Lexikon zu findenden OpenLog Beschreibung . Auf Basis der detaillierten Programm-Schnipsel von Zitronenfalter (Post#21/#23) kann ich noch mein Programmbeispiel zum Testen und Betrieb solcher Module beisteuern. (Anlegen weiterer Files zur Runtime)

      Ich hoffe, ich habe nichts vergessen…

      Gruß

      Ulrich

    • OpenLog Ergänzung/Hinweise

      Micro SD-Card: wenn möglich schnelle Variante, z.B. Class 10
      Formatierung SD-Card: Fat32
      Max. Grösse SD-Card : 32GB
      Verdrahtung: siehe Bild
      Beispiel/Test-Programm für Arduino Mega2560

      Mit Editor: 38400,26,3,0,0,0,0 als Config.txt vor Betrieb auf die SD-Card schreiben. (es sind alle Baudraten definierbar, 9600Bd ist Standardrate)

      Zur Vorgeschichte:

      Es gab in meinem Umfeld die Anforderung alle 5ms einen ADC-Wert über 12 Stunden mit 115200Bd auf einer SD-Card zu speichern.

      Zudem sollte das SD-Card Modul so klein wie technisch möglich sein, und eine einfache Ansteuerung aufweisen. Die Wahl fiel auf ein OpenLog Modul, welches mit der entsprechenden Config.txt (115200Bd,26,3,0,0,0,0) sowie via Tx-Port zu beschreiben ist.

      Da sonst keine weiteren Einstellungen (auch kein update) vorzunehmen waren, funktionierte das Loggen auf Anhieb und es wurde eine einzige große *.txt Datei erstellt. (8,64MB)

      Um diese riesige Datenmenge auch grafisch darstellen zu können, bot sich der Flow-CSV-Viewer an, welcher vermittels Zoomeinstellung jeden Abschnitt der dargestellten Grafik einsehbar macht, lediglich die Endung *.txt musste vorher in *.csv umbenannt werden.

      Um jedoch auch während der Laufzeit schon mehrere Files anlegen zu können (nicht nur nach Powerup) und zugleich den Namen der Files sowie die File-Endung *.csv selbst definieren zu können, wurde das Testprogramm erstellt.

      Testprogramm folgt....
      Files

    • Und hier noch mein Testprogramm für die Kommunikation mit OpenLog-Modul

      BASCOM Source Code

      1. '( Datum: 03.10.2023, Bascom Version 2.0.8.6
      3. Programm-Name: Forum V5 Test mit Gosub.bas
      5. Test-Programm für Kommunikation zum Openlog Modul
      6. In diesem Testprogramm wird auch ein Uhr Modul verwendet, z.B.
      7. ' https://www.reichelt.de/raspberry-pi-real-time-clock-modul-rtc-ds3231sn-rpi-rtc-clock-p224214.html?search=RTC-Modul
      9. Hier wurde der Einfachheit halber eine Sub Newfile zur Erkennung der
      10. OpenLog-Quittungszeichen gewählt.
      12. Auf SD-Card config.txt erstellen, Inhalt mittels Editor: 38400,26,3,0,0,0,0
      13. (das OpenLog-Modul wird hier mit 38400Bd beschrieben)
      15. Das Programm wurde auf einem upgedateten No-Nome Modul getestet.
      16. Sicherlich kann man Verbesserungen vornehmen, jedoch ist es ja auch nur
      17. ein Testprogramm
      20. **************************************************************************
      21. Mein besonderer Dank gilt Forums-Mitglied "Zitronenfalter", da ohne seine
      22. Vorarbeit dieses Programm so nicht möglich gewesen wäre
      23. **************************************************************************
      25. ')
      27. $regfile = "m2560def.dat"
      28. $crystal = 15875949 '!!!anstatt 16MHz hat mein Mega2560 nur 15,875MHz
      29. 'bei zu großer Abweichung von 16Mhz anpassen
      30. $hwstack = 200
      31. $swstack = 400
      32. $framesize = 400
      34. Disable Jtag
      37. Dim Naked_date As String * 8
      38. Dim Weekday As Byte
      39. Dim Sekunde As Byte
      40. Dim Got_time As String * 8
      41. Dim Got_date As String * 8
      43. Dim Newfilename As String * 12
      44. Dim Filenumber As Byte
      45. Dim F_nr As String * 3
      46. Dim S As String * 2
      47. Dim Fa As Byte
      48. Dim Fs As String * 3
      49. Dim Op_sent As String * 50
      50. Dim Substring1 As String * 2
      51. Dim Substring2 As String * 1
      52. Dim Cnt As Word
      53. Dim Text As String * 30
      54. Dim A As Byte
      57. Config Portf.0 = Output 'Ersatz-Reset Port für OpenLog Modul
      58. Testport Alias Portf.0
      59. Reset Testport 'separater Start-Reset für OpenLog-Modul
      61. Config Com4 = 38400 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
      62. Open "Com4:" For Binary As #3 'Output zum OpenLog für Daten
      64. Config Com3 = 38400 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
      65. Open "Com3:" For Binary As #2 'Input vom Openlog für Quittungen und anderes
      67. Config Serialin2 = Buffered , Size = 200
      70. Config Com1 = 115200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
      71. Open "Com1:" For Binary As #1 'Output zu Hterm, Mitlesen der Kommunikation
      73. Enable Interrupts
      76. $lib "i2c_twi.lbx"
      77. '-------------I2C Parameter---------------------------
      79. Config Scl = Portd.0 ' serial clock SCL am mega2560
      80. Config Sda = Portd.1 ' serial data SDA am mega2560
      81. I2cinit
      82. Config Twi = 400000 ' Taktrate 400KHz
      83. Const Ds3231w = &HD0 ' RTCadresse fuers schreiben
      84. Const Ds3231r = &HD1 ' RTCadresse fuers lesen
      85. Config Clock = User
      87. ''setze 32,768kHz (1Hz) Takt-Ausgang
      88. I2cstart
      89. I2cwbyte Ds3231w
      90. I2cwbyte 7
      91. 'I2cwbyte &B10010000 ' Control-Byte für 1Hz am SOW-Out
      92. I2cwbyte &B00010011 ' Control-Byte für 32,768kHz am SOW-Out
      93. I2cstop
      95. Config Date = Dmy , Separator = Minus 'Datumsformat TT-MM-JJ
      97. ''Zum Stellen der Uhr (DS3231) Date und Time aktualisieren und aktivieren
      98. 'Date$ = "03-10-23" 'z.B.: für Tests, Startzit definieren
      99. 'Time$ = "16:15:00" '
      101. ''---------------------Versions-Daten
      102. 'F_name = Version(3)
      103. 'F_date = Version(1)
      105. 'F_datum = Left(f_date , 10)
      106. 'F_time = Right(f_date , 8)
      107. 'Text = F_datum + " " + F_time
      108. 'Print #1, Text
      109. '-----------------------------------------------------------
      111. Clear Serialin2 'Eingangsbuffer für OpenLog Quittungen Löschen
      113. Wait 3 'Wartezeit damit OpenLog nach Powerup bereit wird
      115. ' '*******************************************************************************
      116. Filenumber = 0
      118. ''#############################
      119. Do
      121. Print #1 , "Do-Loop " 'Ausgabe für Hterm zur Kontrolle
      123. Gosub Newfile
      124. If A <> 0 Then 'Schreibfreigabe bei ungleich 0, aus Sub Newfile
      126. 'ab hier beliebige Daten auf Openlog Modul speichern
      127. ' Zur Kontrolle und auch für den Flow CSV Viewer doppelte Ausgabe
      128. 'z.B. Header-Zeilen
      130. Got_time = Time$
      131. Text = "#" + Got_time + "," + "new-Testfile " + "," + "2-Headerline" 'Beispiel Texte
      132. Print #3 , Text
      133. Text = "#" + Got_time + "," + "new-Testfile " + "," + "2-Headerline" 'Beispiel Texte
      134. Print #3 , Text
      135. Wait 1 'dieses Wait hier, nur damit der Time-Wert ein neuer ist
      137. Got_time = Time$
      138. 'ab hier Beispiel Daten, nur um zu sehen ob alles auch auf SD-Card landet
      139. Cnt = 0
      140. Do
      141. Incr Cnt
      142. Text = Str(cnt) + " , " + Got_time
      143. Print #3 , Text 'Daten zur SD-Card
      144. Loop Until Cnt > 100
      145. Print #1 , "---Daten sind geschrieben---" 'Für Hterm ausgabe
      146. End If
      148. Wait 3 'Pause bevor ein neues File angelegt wird
      149. Loop Until Filenumber > 1 'neues File anlegen,
      151. End
      153. '****************************************************************************
      155. Newfile: ''neues File im Command Modus anlegen
      157. Print #1, 'Kontrollausgaben für Hterm
      158. Print #1 , "***sub Newfile*******"
      159. Incr Filenumber
      160. Text = "Filenumber= " + Str(filenumber)
      161. Print #1 , Text 'Kontrollausgaben für Hterm
      162. Print #3 , "{026}{026}{026}"; ' bisherige Datenübertragung beenden
      163. 'und in Command-Modus wechseln
      165. 'Dieses Wait mit 200ms ist wichtig, da sonst nichts auf der SD-Card landet
      166. Waitms 200 'Offenbar benötigt das Modul einige Zeit
      167. ' 'um den Config.txt Inhalt zu interpretieren
      169. Op_sent = ""
      170. Substring1 = "~>" 'Quittungs-Zeichen für Modul im Command-Modus
      172. While Ischarwaiting(#2) = 1 '#2=Com3 für Empfang von OpenLog
      173. Fa = Waitkey(#2) 'Fa als Byte
      174. Fs = Chr(fa) 'von Byte nach Charakterzeichen
      175. Op_sent = Op_sent + Fs 'alle Zeichen sammeln
      176. Waitms 1 '???? Wartezeit, da Programm zu schnell ????
      177. Wend
      179. A = Instr(op_sent , Substring1) 'ist Command_modus?
      180. Print #1 , "A1=" ; A
      181. If A <> 0 Then 'substring gefunden wenn ungleich 0
      182. Print #3 , "sync" ' Restbuffer in file schreiben
      183. '
      184. Got_date = Date$
      185. Naked_date = Got_date
      186. Delchars Naked_date , "-" 'Binde-Striche zwischen den Uhr-Ziffern..
      187. '..entfernen, da max. 8 Zeichen erlaubt sind
      189. F_nr = Str(filenumber) 'wurde in Hauptschleife inkrementiert
      190. S = Format(f_nr , "0") 'einstellig, da sonst nicht in Filenamen passt
      191. Newfilename = Naked_date + "-" + S + ".csv" 'Erweiterung wichtig 8.3
      193. Clear Serialin2 'frei für neue Quitungs-Zeichen
      195. Print #3 , "append " ; Newfilename 'hier neues File erstellen
      196. Print #1 ,
      198. ''*******auf Freigabe zum Daten-Schreiben prüfen
      199. Op_sent = ""
      200. Substring2 = "<" 'Quittungs-Signal vom Modul, bin im Schreib-Modus
      201. Print #1 , "-------" 'Hterm Ausgabe
      202. Print #1 , "Check Freigabe" 'Hterm Ausgabe
      204. While Ischarwaiting(#2) = 1 '#2=Com3 für Empfang von OpenLog
      205. Fa = Waitkey(#2) 'Fa als Byte
      206. Fs = Chr(fa) 'von Byte nach Zeichen
      207. Op_sent = Op_sent + Fs 'alle Zeichen sammeln
      208. Waitms 1 '???? Wartezeit, da Programm zu schnell ????
      209. Wend
      210. A = Instr(op_sent , Substring2) ' Write-Modus
      211. Print #1 , "A2=" ; A 'Hterm Kontroll ausgabe
      212. End If
      213. Return
      215. ''*******************************************************************************
      217. Getdatetime:
      219. I2cstart
      220. I2cwbyte Ds3231w
      221. I2cwbyte 0
      222. I2cstart
      223. I2cwbyte Ds3231r
      224. I2crbyte _sec , Ack
      225. I2crbyte _min , Ack
      226. I2crbyte _hour , Ack
      227. I2crbyte Weekday , Ack
      228. I2crbyte _day , Ack
      229. I2crbyte _month , Ack
      230. I2crbyte _year , Nack
      231. I2cstop
      232. _sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
      233. _day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
      235. Return
      236. '*******************************************************************************
      238. Setdate:
      240. _day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
      241. I2cstart
      242. I2cwbyte Ds3231w
      243. I2cwbyte 4
      244. I2cwbyte _day
      245. I2cwbyte _month
      246. I2cwbyte _year
      247. I2cstop
      249. Return
      250. '*******************************************************************************
      252. Settime:
      254. _sec = Sekunde 'Hier wird die Sekundenvariable mit dem gestellten Wert ersetzt.
      255. _sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
      256. I2cstart
      257. I2cwbyte Ds3231w
      258. I2cwbyte 0
      259. I2cwbyte _sec
      260. I2cwbyte _min
      261. I2cwbyte _hour
      262. I2cstop
      264. Return
      265. '*******************************************************************************
      Display All