Textdatei (String) 1:1 per COM nach Arduino übertragen um dort wieder als String in eine Textdatei gespeichert werden zu können

dive26 · 27. Juli 2023, 13:52

Hallo Leute,

ich scheitere daran einen mehrzeiligen String über den COM-Port auf Arduino zu transferieren.
Generell funktioniert es (mit sehr kurzen Strings). Aber wenn der String länger ist, dann fehlen immer irgendwelche Zeilen daraus.

Hier mein Code (aktuell):

VB.NET-Quellcode

Dim SendeString As String = "#BEGIN#" + vbCrLf + ConfigContent + vbCrLf + "#END#" 'ConfigContent enhält einen mehrzeiligen String aus einer mehrzeiligen Textdatei
If SerialPort1.IsOpen Then SerialPort1.Close()
SerialPort1.PortName = "COM19"
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default
SerialPort1.ReadTimeout = 10000
SerialPort1.WriteBufferSize = 100000
Try
SerialPort1.Open()
Catch
MsgBox("Serialport " + SerialPort1.PortName + " not available or blocked by an other application.") 'jetzt nur mal für Debuggen
Exit Sub
End Try
Dim Zeilen() As String = SendeString.Split(Chr(10))
For i As Integer = 0 To Zeilen.Count - 1
If Trim(Zeilen(i)) <> "" Then
SerialPort1.WriteLine(Zeilen(i))
End If
Next i
SerialPort1.Close()

Hier der Arduino-Code:

VB.NET-Quellcode

int ByteReceived = 0;
String EmpfangsString = "";
EmpfangsString = ""; //String leeren
while (Serial.available() > 0) {
ByteReceived = 0;
ByteReceived = Serial.read();
EmpfangsString = EmpfangsString + (char)ByteReceived;
}
if (EmpfangsString != "") {
// hier wird der String dann weiterbearbeitet und gespeichert - aber hier fehlen meist viele übermittelte Zeilen - meist in der Mitte des Strings.
}

Habt Ihr eine Idee, woran es liegen könnte?

Wenn ich nur SerialPort1.Write(SendeString) verwende (also alles auf einmal sende), dann kommt am Arduino nicht alles an.

DTF · 27. Juli 2023, 14:29

Ja die übertragungen via SerialPort und Arduinos sind so eine Sache. Das einfachste ist zeilenweise Text zu schreiben und ReadStringUntil verwenden. Da du eh Text überträgst, muss du das nicht auf Byte-Ebene machen.
arduino.cc/reference/en/langua…n/serial/readstringuntil/

Zum Schluss einfach eine leere Zeile, damit du am Arduino feststellen kannst, wann denn alles da ist.

petaod · 27. Juli 2023, 14:29

dive26 schrieb:

SerialPort1.Handshake = Handshake.None

Hast du da mal Handshake.XOnXOff probiert?

dive26 · 27. Juli 2023, 14:37

@DFT
Habe ich gerade probiert - ändert leider nichts an meinem Problem.
Es wird der Anfang des Strings und das Ende des Strings übermittelt.

Ich vermute einmal, dass der ReceivePuffer am Arduino zu klein ist.

@petaod
Brachte leider auch keinen Erfolg

DTF · 27. Juli 2023, 14:45

Wie genau hast du das gemacht? Wirklich Zeilenweise? Dann Leerzeile um das Ende zu signalisieren?

Wie groß ist die Datei, wie lang die längste Zeile? Was passiert auf der anderen Seite mit den Daten? Auf SD-Karte schreiben?

PS @dive26
Funktioniert problemlos mit meinen ESP's, Arduinos sind mir zu schlapp, hab keine mehr da um damit zu testen.

C-Quellcode

String data;
String buffer;
void setup()
{
Serial.begin(115200);
}
void loop()
{
if(Serial.available())
{
data = "";
do
{
buffer = Serial.readStringUntil('\n');
data += buffer;
} while (buffer.length() > 0);
Serial.print(data);
}
}

VB.NET-Quellcode

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
SerialPort1.PortName = "COM1001"
SerialPort1.BaudRate = 115200
SerialPort1.Open()
End Sub
Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Debug.WriteLine(SerialPort1.ReadExisting())
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
SerialPort1.WriteLine("Zeile1")
SerialPort1.WriteLine("Zeile2")
SerialPort1.WriteLine("Zeile3")
SerialPort1.WriteLine("Zeile4")
SerialPort1.WriteLine("Zeile5")
SerialPort1.WriteLine("Zeile6")
SerialPort1.WriteLine("Zeile7")
SerialPort1.WriteLine("Zeile8")
SerialPort1.WriteLine("Zeile9")
SerialPort1.WriteLine("Zeile10")
SerialPort1.WriteLine("")
End Sub
End Class

dive26 · 27. Juli 2023, 15:23

Habe es inzwischen geschafft.
Das Problem war (wie vermutet) der zu kleine Receive-Puffer.
Daher kam nicht alles an was ich vom PC weggeschickt habe.
(Bei kurzen Strings funktionierte alles immer einwandfrei).

Nun lese ich nach wie vor Byte für Byte aus, sende aber vom PC "langsamer", damit der Puffer garantiert nicht überläuft.
Sobald die beiden Schlüsselwörter für Anfang und Ende des Strings gelesen wurden, hört das Lesen auf.

Das funktioniert so für mich.
Vielleicht werde ich später versuchen, das noch sauberer hinzubekommen.

DTF · 27. Juli 2023, 15:46

Hatte doch noch einen Arduino(UNO) inner Ramschkiste, hab meinen Code damit getestet, hab 1000 Zeichen auf einen Schlag gesendet, kein Problem, auch mit 2000 nicht.

PS

dive26 schrieb:

while (Serial.available() > 0) {

Vorm while hast du String = "". Möglicherweise waren kurz keine Daten zum lesen da, dann kam der nächste durchlauf, deshalb fehlten wohl die ersten Zeilen.

Textdatei (String) 1:1 per COM nach Arduino übertragen um dort wieder als String in eine Textdatei gespeichert werden zu können

Textdatei (String) 1:1 per COM nach Arduino übertragen um dort wieder als String in eine Textdatei gespeichert werden zu können

VB.NET-Quellcode

VB.NET-Quellcode

dive26 schrieb:

C-Quellcode

VB.NET-Quellcode

dive26 schrieb:

Benutzer online 1

Ähnliche Themen

3 Benutzer haben hier geschrieben