Datenlogger auf ARDUINO- Basis

Franz · Nov 26th 2024, 7:11pm

Hallo Ulrich,
in dem Moment, wo du das Label Version_mode anspringst, ist der UART Interrupt schon aktiviert.
Da auch die globalen Ints schon aktiv sind, wird beim Empfang eines Zeichens die ISR Open_log_Uart angesprungen.
Dort wird der UDR ausgelesen. Damit ist das Zeichen nicht mehr im UDR, wenn du es in der Sub Version_mode lesen willst.
Ändere doch dort mal die Zeile
Buf(uart_cnt) = Udr
in
Buf(uart_cnt) = B_udr
ab. Denn in der Variable B_udr ist das Zeichen ja schon drin.

Ulrich · Nov 26th 2024, 8:51pm

Hallo Franz,

vielen Dank für diesen Hinweis, habe die Anpassungen der Variablen durchgeführt. Es hat sich jedoch nichts geändert, alle möglichen Byte-Werte um die 118 herum, wie 116 und 117 und noch viele andere, sind vorhanden, aber weder 118 noch irgendwelche Zahlen, die für die Versionsangabe stehen sollten.

Ich fürchte fast, dass die Art so wie in Github beschrieben (war vor 6-8 Jahren) nicht mehr passt.

github.com/sparkfun/OpenLog/bl…/OpenLog_Benchmarking.ino

Dort das Beispiel GetVersionNumber

Habe es bei drei verschiedenen OpenLog-Modulen ausprobiert, alle zeigen das gleiche Bild.

Das Abspeichern auf SD-Card funktioniert ja perfekt, die Versionsnummer wäre schon noch ein i-Tüpfelchen.

Mitch64 · Nov 27th 2024, 6:33am

Ich denke das liegt an deiner Versions_Mode Routine.

BASCOM Source Code

Version_mode: '200 Zeichen einlesen, nach Github-Arduino- Beispiel
Print #1,
Print #1 , "-----Versionsabfrage ---"
Print "? " 'Help Aufruf laut Github Arduino Programm
Waitms 100
Do
Print "read " 'Daten von SD-Card einlesen
Do
nop
Loop Until Zeichen_ist_da = 1 'Merker: Uart hat Zeichen empfangen
Zeichen_ist_da = 0 ' 'Merker zurücksetzen
Incr Uart_cnt 'zählen der Zeichen
Buf(uart_cnt) = Udr 'speichern in Buffer, Auslesen im Hauptprogramm
Loop Until Uart_cnt > 200
B_udr = ""
Return

Display All

Bei Zeile 9 - 11 wartest du auf ein Zeichen.
Wenn eins da ist, wird es in Zeile 15 im Buffer abgelegt. Hier solltest du B_Udr verwenden und nicht UDR. Das Zeichen wurde ja schon ausgelesen.
Und wenn jetzt noch nicht genug Zeichen empfangen wurden, beginnt das wieder bei Zeile 7.

Und jetzt wird "read " ausgegeben mit 9600 Baud über Soft-Uart. Das sind 7 Zeichen (incl. CRLF).
Und alles was in der Zeit empfangen wird (auch mit 9600 Baud), bis auf das letzte Byte, wird im UDR-Register überschrieben.

Ich denke das gesuchte "v" ist nicht im Buffer, oder vielleicht nur ab und zu, dann passen aber die Daten nicht dazu.

Remme mal Zeile 8 und ändere die Zeile 15, so wie es auch Franz schon angemerkt hat.

Besser wäre SerialIn Buffer zu verwenden. Kannst auch Bytemach verwendet auf "v".

Ulrich · Nov 27th 2024, 1:32pm

@Franz
@Mitch64

Der Hinweis, die Zeile 8 mal zu remmen, hat sehr geholfen, im Programm unten ist es Zeile 13. Dadurch konnten die Zeichen des zuvor mit Print "? " in der Sub Version_mode aufgerufenen Help-files in Verbindung mit der Anweisung von Franz bzgl. UDR/B_udr dargestellt werden.

Dabei viel mir bei den einzelnen Zeichen des Help-files auf, dass diese ja nicht von Anfang an dargestellt wurden. Entsprechend des Github-Examples "GetVersionNumber" hatte ich nach dem Aufruf von Print "? " 100ms wait eingebaut.

Nachdem ich dieses Wait auf 1ms verkürzt hatte, waren "urplötzlich" a_28_2c02f089

die Zeichen des Help-Files von Anfang an zu lesen, (Bild) und siehe da a_14_3ef964b0

, es fand sich auch das "v" darunter mit der Nummer 4.0.

Habe einige Variablen zur besseren Übersicht angepasst.

Also nochmal ganz herzlichen Dank für eure Hilfe. Frage am Rande: bedeutet Delay(100) im Arduino Code 100ms?

BASCOM Source Code: V2 Ausschnitt

Open_log_uart:
Uart_byte = Udr
Zeichen_ist_da = 1
Return
Version_mode: '200 Zeichen einlesen, nach Github-Arduino- Beispiel
Print #1,
Print #1 , "-----Versionsabfrage ---"
Print "? " 'Help Aufruf laut Github Arduino Programm
Waitms 1 'von 100ms auf 1ms reduziert
Do
'Print "read " 'Daten von SD-Card einlesen
Do
nop
Loop Until Zeichen_ist_da = 1 'Merker: Uart hat Zeichen empfangen
Zeichen_ist_da = 0 ' 'Merker zurücksetzen
Incr Uart_cnt 'zählen der Zeichen
Buf(uart_cnt) = Uart_byte 'speichern in Buffer, Auslesen im Hauptprogramm
Loop Until Uart_cnt > 330
Uart_byte = 0
Return

Display All

Ulrich · Nov 27th 2024, 1:42pm

Und hier noch das fehlende Bild mit den Zeichen des Helpfiles vom Helpfile-Anfang.

Ulrich · Nov 27th 2024, 8:30pm

Hallo OpenLog User,

nach den hilfreichen Hinweisen von Franz und Mitch64 hier das aktuelle Test-Programm um Daten auf SD-Card zu loggen. Die Abfrage der OpenLog-Modul Firmware-Version kann bei Bedarf in Zeile 42 ein- oder ausgeschaltet werden. Als Testdaten für die SD-Card werden Zeit und Datum verwendet.

BASCOM Source Code: OpenLog Testprogramm

'Datum: 27.11.2024 /17:10
'Test fürs Daten-Logging auf SD-Card mit Open-Log Modul
'Verwendung von Gosubs für die einzelnen Vorbereitungs-Schritte
'Hardware-Basis: Arduino UNO
$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 64
$swstack = 54
$framesize = 64
$baud = 9600
Dim Time_over As Byte
Dim Naked_date As String * 6
Dim Weekday As Byte
Dim Got_time As String * 8
Dim Got_date As String * 8
Dim Newfilename As String * 12
Dim Filenumber As Byte
Dim A As Byte
Dim F_name As String * 50
Dim F_date As String * 25
Dim F_datum As String * 10
Dim F_time As String * 8
Dim S As String * 1
Dim Sekunde As Byte
Dim I As Word
Dim B_udr As String * 1
Dim Uart_cnt As Byte
Dim Zeichen_ist_da As Byte
Dim Buf(100) As Byte
Dim Uart_byte As Byte 'von UDR an Uart_byte übergeben
Dim Uart_zeichen As String * 3 'Uart Zeichen als string
Dim Log_ver As String * 3 'Versionsdaten
Dim Dist As Byte 'Beginn der Versionszeichen im Helpfile
Dim Zeichen_cnt As Byte 'Anzahl Zeichen aus Helpfile
'******************************************************************
'Open a Soft-Uart channel for output to Hterm
Open "comd.6:9600,8,n,1" For Output As #1 'zusätzlicher UART-Ausgang
Const Openlog_version = 1 'wenn Versionsüberprüfung dann: 1
Config Portc.0 = Output 'an GRN=kapazitver Input von OpenLog => Reset,
Extra_reset Alias Portc.0
Set Extra_reset
Config Timer1 = Timer , Prescale = 1024
On Timer1 Tim1_isr
Enable Timer1
Stop Timer1
On Urxc Open_log_uart ' UART Interrupt
Enable Urxc ' Enable UART-Interrupt
Enable Interrupts
$lib "i2c_twi.lbx"
'-------------I2C Parameter /Uhrbaustein = DS3231---------------------------
Config Scl = Portd.0 '
Config Sda = Portd.1 '
Config Twi = 100000 ' Taktrate 100KHz
Const Ds3231w = &HD0 ' RTCadresse fuers schreiben
Const Ds3231r = &HD1 ' RTCadresse fuers lesen
Config Clock = User
''setze 32,768kHz (1Hz) Takt-Ausgang
I2cstart
I2cwbyte Ds3231w
I2cwbyte 7
''I2cwbyte &B10010000 ' Control-Byte für 1Hz Testausgang/32kHz
I2cwbyte &B00010011 ' Control-Byte für 32,768kHz
I2cstop
Config Date = Dmy , Separator = Minus 'Datumsformat TT-MM-JJ
'----------------------------------------------------------------------
''Zum Stellen der Uhr / Date und Time einmal aktualisieren und aktivieren
'Date$ = "23-11-24" '
'Time$ = "11:56:00" '
'-----------------------------------------------------------------------
F_name = Version(3)
F_date = Version(1)
F_datum = Left(f_date , 10)
F_time = Right(f_date , 8)
Print #1 , F_name
Print #1 , F_datum
Print #1 , F_time
Time_over = 0 '
'Power-Up Delay für OpenLog Modul
Wait 3
Uart_cnt = 0 'Uart Empfangs-Zeichen-Zähler, bei Versionscheck
Zeichen_cnt = 100 'Anzahl zu lesender Zeichen, bei Versionscheck
Gosub Openlog_reset 'Reset OpenLog Modul an GRN
Wait 1
Gosub Check_if_ready 'Ist Modul Alive?; ==> "<"
Print #1,
Print #1 , "OpenLog is alive "
Print #1,
Wait 1
Gosub Command_mode 'Prepare for Receiving Commands; ==> ">"
Print #1 , "OpenLog in Command-Mode"
'***************************************************************
#if Openlog_version = 1
'Versonsdaten lesen, hier max. zeichen_cnt aus Buf für Help-file-zeichen
'Kann übersprungen werden
Gosub Version_mode 'hole OpenLog Version
For Uart_cnt = 1 To Zeichen_cnt
Uart_zeichen = Chr(buf(uart_cnt))
If Buf(uart_cnt) = 118 Then ' ==> "v"
Dist = Uart_cnt + 4 'ab hier (Dist) 4 Zeichen holen
Print #1 , "OpenLog-Modul Version = ";
Do
Log_ver = Chr(buf(uart_cnt))
Print #1 , Log_ver;
Incr Uart_cnt
Loop Until Uart_cnt > Dist
Print #1 ,
Print #1 ,
Exit For
End If
Next
#endif
Print #1,
'*****************************************************************
'Leerzeile
Filenumber = 1 'Vorgabe einer Nummer, (0 - 9 max.?
Gosub Make_filename 'Bilde Filename
Print #1 , "Neuer Dateiname: " ; Newfilename
Print #1,
Gosub Prep_for_writing 'from Command-Mode to Record-Mode; ==> "<"
Print #1 , "OpenLog is ready for writing"
Print #1,
Print #1 , "Sende nun einige Testdaten"
Gosub Write_data 'Daten auf SD-Card
Print #1 , "Fertig!"
End
''****************************************************************************
Open_log_uart:
Uart_byte = Udr
Zeichen_ist_da = 1
Return
Version_mode: '200 Zeichen einlesen, nach Github-Arduino- Beispiel
Print #1,
Print "? " 'Help-file Aufruf, laut Github Arduino Programm
Waitms 1 'von 100ms auf 1ms?? reduziert (9600Bd)
'wait kann eventuell entfallen
Do
Do
nop
Loop Until Zeichen_ist_da = 1 'Merker: Uart hat Zeichen empfangen
Zeichen_ist_da = 0 ' 'Merker zurücksetzen
Incr Uart_cnt 'zählen der Zeichen
Buf(uart_cnt) = Uart_byte 'store in Buffer, lesen im Hauptprogramm
Loop Until Uart_cnt > Zeichen_cnt
Uart_byte = 0
Return
Openlog_reset:
Reset Extra_reset
Waitms 10
Set Extra_reset
Return
Check_if_ready:
Time_over = 0
Timer1 = 30000
Start Timer1
Do
If Time_over = 0 Then
If Uart_byte = "<" Then 'wenn der eingelesene Befehl
Exit Do 'dann verlasse die DO-LOOP Schleife
End If
Else
Print #1 , "--SD-CARD vorhanden ???--"
Print #1 , " Program gestoppt"
Print #1 ,
Stop
End If
Loop
Stop Timer1
Uart_byte = 0 ' Empfangszeichen löschen
Return
Command_mode:
Print "{026}{026}{026}"; ' in Command-Modus wechseln
Do ' warte auf Zeichen von OpenLog
If Uart_byte = ">" Then '
Exit Do '
End If
Loop
Uart_byte = 0 '
Return
Make_filename:
Got_date = Date$
Naked_date = Got_date
Delchars Naked_date , "-" 'nur 6 Stellen erlaubt
S = Str(filenumber)
Newfilename = Naked_date + "-" + S + ".csv" ' Erweiterung wichtig 8.3
' ich will eigene Dateinamen und keine *.LOG Dateien auf der Karte, deshalb
Return
Prep_for_writing:
Print #1 , "Lösche alle LOG Dateien"
Print #1,
Print "rm LOG*.TXT"
Wait 2
Print "append " ; Newfilename '...und erstelle neues File
Do ' warten auf Zeichen von OpenLog
If Uart_byte = "<" Then '
Exit Do '
End If
Loop
Return
Tim1_isr:
Time_over = 1
Timer1 = 0 '
Return
Write_data: 'Beispiel: Schreiben auf SD-Card in OpenLog Modul
Print #1 , "Prepare ready/OK" 'Vorbereitung war ok
Got_time = Time$ 'Beispiel Time$ als Daten
Got_date = Date$ 'Beispiel Date$ als Daten
For A = 1 To 10 'beliebige Anzahl Daten, hier Beispiel:10 Satz
Print A ; " Zeit: " ; Got_date ; " " ; Got_time '
Waitms 50
Next
Return
'------------------------------------------------------
Getdatetime:
I2cstart
I2cwbyte Ds3231w
I2cwbyte 0
I2cstart
I2cwbyte Ds3231r
I2crbyte _sec , Ack
I2crbyte _min , Ack
I2crbyte _hour , Ack
I2crbyte Weekday , Ack
I2crbyte _day , Ack
I2crbyte _month , Ack
I2crbyte _year , Nack
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return
'*******************************************************************************
Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart
I2cwbyte Ds3231w
I2cwbyte 4
I2cwbyte _day
I2cwbyte _month
I2cwbyte _year
I2cstop
Return
'*******************************************************************************
Settime:
_sec = Sekunde 'Hier wird die Sekundenvariable mit dem gestellten Wert ersetzt.
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart
I2cwbyte Ds3231w
I2cwbyte 0
I2cwbyte _sec
I2cwbyte _min
I2cwbyte _hour
I2cstop
Return
'**************************

Display All