GUI Sendet und empfängt über Serial daten über Arduino

milito · 7. Juli 2013, 11:58

Hallo, brauche mal wieder einen Tipp und zwar:
habe ich eine GUI in Visual Basic geschrieben, die über den USB anschluss Daten an den Arduino sendet und diese in die SD-Karte speichert. Außerdem wird über den button receive die SD-Karte ausgelesen und an die GUI gesendet. Das funkitonier auch alles soweit nur mit einem schönheitsfehler.
Diese Parameter, die gesendet werden(3 parameter werden auf einnmal gesendet) sollen zeilenweise in die csv.Datei gespeichert werden.
zb: 2;3;2
2;3;0

doch manchmal werden sie folgendermaßen in die Datei eingetragen: 2;3;3;2;3;0
er macht es aber nicht immer, jetzt weiß ich nicht woran es liegt, kann mir jemand eventuell helfen?
anbei noch meinen code dazu:

Sorry für die formatierung, aber mit den code-tags hat das nicht geklappt bzw. die formatierung ist nicht ok

VB.NET-Quellcode

Dim inputdata As String
'Dim kontrol_receive As Integer = 1 'kontrolvariable für Empfangen von Arduino
Dim kontrol_receive As String = "$"
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_i2c_receive.Click
RichTextBox1.ForeColor = Color.Black
'/------Kontrollvariale an Arduino =1 , somit weiß er das er an GUI senden soll---/
If Not SerialPort_i2c.IsOpen = True Then
SerialPort_i2c.Open()
End If
SerialPort_i2c.Write("$") 'kontrollvariable
End Sub
Private Sub DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort_i2c.DataReceived
'das was an buffer ist wird an variable drangehängt und somit nicht ueberschrieben
inputdata = inputdata & SerialPort_i2c.ReadExisting
'HIer wird die funktion aufgerufen, weil damit gibt eskeine verzögerung,
'd.h. da wird alles was im EMpfangsbuffer anliegt ausgelesen und ausgegeben. -> brauche im Event vom Button klick nicht definieren
'da arduino nur sendet wenn er Dollarzeichen erhält, also -> receive, da kommt erst eventhandler datarecieved zum arbeiten
Me.Invoke(Sub()
RichTextBox1.Text = inputdata
End Sub)
End Sub
Dim kontrol_sende As String = "&" 'kontrolvariable für Senden an Arduino
Private Sub btn_i2c_send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_i2c_send.Click
'Mit try wird versucht Übertragung an Arduino durchzuführen'
Try
'öffne Serielle Anschlussverbindung, sofern nicht bereits geöffnet'
If Not SerialPort_i2c.IsOpen Then SerialPort_i2c.Open()
'SerialPort_i2c.Write("&") 'sende kontrollvariable
'falls Verbindung zum Device besteht, doch es wird auf sendbutton gedrückt und leere Texbox, meldung + verbindung schliessen
'Falls Enable-box aktiviert, dann sende kontrollvariable, damit pin am arduino auf high gesetzt wird
If CheckBox_EN.Checked = True Then
SerialPort_i2c.Write("&")
End If
SerialPort_i2c.Write(Numeric_addr_i2c.Value & ";") '; damit in csv datei in spalten
SerialPort_i2c.Write(Numeric_reg_i2c.Value & ";")
If CheckBox_i2c.Checked = True Then
SerialPort_i2c.Write(Numeric_data_i2c.Value) 'durch vbr = Enter, d.h. wenn ein ganzer String wird ein enter gesendet und arduino weiß ok gsnzer String
End If
SerialPort_i2c.Write(vbCr)
MsgBox("Transfer successful")
If SerialPort_i2c.IsOpen = True Then
SerialPort_i2c.Close()
End If
'Falls Übertragung fehlschlägt, Catch block um fehler auszubügeln und eigene message von vb'
Catch ex As Exception
MsgBox("Transfer failed - Please check the connection" & vbCrLf & ex.Message)
End Try
'Nach Übertragung Port wieder freistellen'
'If SerialPort_i2c.IsOpen = True Then
'SerialPort_i2c.Close()
'End If
End Sub

OneWorld · 7. Juli 2013, 15:27

Hey,

Ich und auch andere würden dir bestimmt helfen, nur dein Code ist so ziemlich schwer zu lesen. Könntest du deinen Code bitte in VB Tags darstellen, dann ist uns sehr geholfen

Gruß OneWorld

milito · 7. Juli 2013, 15:58

Sorry, ok habs jetzt formatiert.
Würd mich sehr freuen, wenn mir jemand das einen tipp geben kann , woran es liegt.
Braucht ihr noch den Arduino code dazu?

Das is der arduino code:

VB.NET-Quellcode

void setup()
{
//Serialport verbindung mit 9600Baudrate
Serial.begin(9600);
/*########LED Konfig#########*/
pinMode(ledPin1, OUTPUT);
pinMode(ledPin2,OUTPUT);
/*#######ENABLE-PIN########*/
pinMode(EN,OUTPUT);
/*###########################*/
/*ChipSelect Pin , den standard als Ausgangs sonst geht SD library nicht*/
pinMode(53, OUTPUT);
/*######################################################################*/
/*############################Taster-Konfig####################################*/
pinMode(kipp_left, INPUT_PULLUP); //kippstellung links in pin30 INPUT_PULLUP->interner pullup, somit pullup aktivieren
pinMode(kipp_right, INPUT_PULLUP);//kippstellung rechts in pin31 und wird input-widerstand aktiviert (intern)
/*kippleft= low -> linksstellung
kippright= low= rechtsstellung
kippleft & kippright = HIGH -> mittelstellung */
/*##############################################################################*/
}
void loop()
{
//wird ein zeichen über Serialport empfangen?
if (Serial.available() > 0)
{
//falls ja, schreibe diesen in inByte
inByte = Serial.read();
/*##################################I2C################################*/
//falls inByte= $ -> ASCII(36), Arduino im Sendemodus
if (inByte==36)//falls $=36 ankommt arduino sendet, sonst empfangen
{
blink_send();
read_SD();
}//endif
if (inByte==63) //falls ?=63 in Byte dann führe funktion i2c-scan durch
{
i2c_scan();
}
if(inByte==38)
{
digitalWrite(EN,HIGH);
Serial.println("EN-EIN");
}
//falls Arduino &(38) empfängt , d.h. er empfänngt von GUI
else //(inByte==38)
{
blink_receive();
write_SD();
}//endif
/*###############################SPI###################################*/
//falls Arduinio ascii(33)->! empfängt, dann soll er in datei für spi dieparameter schreiben
if(inByte==33)
{
write_spi();
}//endif
if (inByte==35)
{
read_spi();
}//endif
}//endif serial available
void write_SD()
{
if (Serial.available()>0)
{
if (inByte ==13) //enter
{
Serial.print("Initializing SD Card...");
if (!SD.begin(chipSelect))
{
Serial.println("Initialization failed");
return; //tue nichts
}//endif
Serial.println("SD Card initialized");
if (SD.exists("test2.csv"))
{
Serial.print("File exists");
}
else
{
Datei=SD.open("test2.csv", O_CREAT | O_WRITE);
Datei.println("Adresse;Register;Data");
Datei.close();
}
//Schreibzugriff
Datei= SD.open("test2.csv", O_CREAT | O_WRITE); //Das gleiche wie FILE_WRITE. doch es beschleunigt das Schrieben auf SD
//Datei=SD.open("test2.txt", FILE_WRITE);
//falls Datei ok, schreibe
if (Datei)
{
//delay(150); //verzögerung, da schreiben auf SD karte langsamer ist
//Datei.write(Test); //ohne zeilenumbruch
//Datei.write(13); //schreibe nach jedem eintrag ein carriage return line feed, damit strings zeilenweise einetragen werden
Datei.println(Text);
//inhalt von Array Text in SD schreiben(commands.txt)-> println mit zeilenumbruch
Datei.close(); //Damit änderung gespeichert werden, diese Datei schliessen
Serial.println("Data stored in SD card");
/*Nachdem enter gekommen ist und daten gespeichert wurden
setze Array wieder auf 0 und lösche inhalt*/
index=0; //index auf 0 initialisieren
memset(&Text[0], 0, sizeof(Text)); //durch memset wird Array gelöscht
Serial.println("Array initialized");
}//endif datei vorhanden?
}//endif kontroll enter
else//fals kein enter,soll weiter in array speichern
{
if (index <400)//schauen , ob array overflow hat
{
Text[index]=inByte; //solange kein ´Enter vom Arduino empfangen wird, schreibe in Array
index++; //und zähle position hoch -> z.b. wenn ich hallo sende-> jeder buchstabe bekommt eine position
}//endif check array of overfolw
}//end else
}//endif serial available
}//end fu

OneWorld · 7. Juli 2013, 16:09

Hey,

Na das ist doch schon besser. Schau dich mal hier im Forum um. Hier gibt es einen Thread der Heißt VB-Tags richtig benutzen glaub ich, denn ich finde ihn grade nicht

Zu deinem Problem. Versuch mal mit Environment.NewLine einen Absatz zu schreiben, also z.b. so:

VB.NET-Quellcode

Dim StringtoWrite as String = ("Hier dein Zeugs, welches du schreiben möchtest" & Environment.NewLine)

Damit erzeugst du nach jeder Zeile, die du in die Datei schreibst einen Absatz.

Vielleicht hilft das

Gruß OneWorld

milito · 7. Juli 2013, 16:12

das newline sollte erst gesetzt werden wenn alles 2 bzw 3 parameter gesender werden, d.h. nach jeden 3 parameter.
Außerdem brauche ich das vbcr afür, damit der arduino weiß, dass keine zeichen mehr kommen.

Wo sollte ich es einsetzen?

OneWorld · 7. Juli 2013, 16:22

Du sagst ja, dass 3 Parameter in die Datei geschrieben werden sollen zb: 2;3;2. Danach werden nochmal 3 Parameter gesendet. Diese sollen untereinander eingetragen werden also so:

2;3;2
2;3;0

Dann müsstest du das Environment.NewLine zwischen den ersten und den zweiten Parameter setzen.

2;3;2
Environment.NewLine
2;3;0

Nur warum schreibt er dann manchmal in die nächste Zeile und das andere Mal nicht ?

Gruß

milito · 7. Juli 2013, 16:26

ja das frage ich mich auch, warum er das macht?

so also meinst du so:

VB.NET-Quellcode

SerialPort_i2c.Write(Numeric_addr_i2c.Value & ";") '; damit in csv datei in spalten
SerialPort_i2c.Write(Numeric_reg_i2c.Value & ";")
If CheckBox_i2c.Checked = True Then
SerialPort_i2c.Write(Numeric_data_i2c.Value) 'durch vbr = Enter, d.h. wenn ein ganzer String wird ein enter gesendet und arduino weiß ok gsnzer String
End If
SerialPort_i2c.Write(Environment.NewLine)

OneWorld · 7. Juli 2013, 16:40

Wenn das da ist, wo die ersten Parameter erfolgreich und komplett übertragen wurden ja. Ich übernehme aber keine Haftung wenns kaputt geht

Gruß

milito · 7. Juli 2013, 16:47

hehe ja das is nach dem dritten parameter :D.
is dieses Environment.Newline wie ein enter?

Ne keine Sorge, ich danke dir, dass du mir tipps gibts.

Ich melde mich um zu berichten ok?

OneWorld · 7. Juli 2013, 16:52

Mach das

Du kannst das Environment.Newline als "Enter" sehen. Es bewirkt den selben Effekt, wenn du Enter in einem Textdokument machst. Du springts in eine neue Zeile und dein Programm macht das auch

Gruß

Eierlein · 7. Juli 2013, 17:34

is dieses Environment.Newline wie ein enter?

Environment.Vbnewline ist, unter Windows, vbCRLF. chr(13)+chr(10)

Wenn du nur ein CR [CHR(13) ] brauchst, dann musst du vbCR nehmen.

milito · 7. Juli 2013, 19:22

So habs nun versucht mit dem NewLine es is besser geworden, habe das problem, dass er manchmal das Steuerzeichen, in diesem Fall das "$", dass ich über Serial an dem Arduino absende , damit dieser weiß, dass er in die SD schreiben muss mit schreibt(siehe code oben).
Was könnte das sein?

OneWorld · 7. Juli 2013, 20:05

Zu dem Dim kontrol_receive As String = "$" kann ich nicht viel sagen, da es oben im Code nur deklariert und nicht verwendet wird. Kannst du uns die Stelle zeigen ?

Gruß OneWorld

milito · 7. Juli 2013, 22:03

OneWorld schrieb:

Zu dem Dim kontrol_receive As String = "$" kann ich nicht viel sagen, da es oben im Code nur deklariert und nicht verwendet wird. Kannst du uns die Stelle zeigen ?

Gruß OneWorld

Ja also sorry das ist die Stelle in dem Send event:

VB.NET-Quellcode

SerialPort_i2c.Write("$")'kontrollvariable

hätte auch kontrol_receive schreiben können

OneWorld · 8. Juli 2013, 00:30

Das darfst du natürlich nicht erneut senden. Das sendest du als erstes und anschließend sendest du deine anderen Sachen. Ich weiß natürlich jetzt nicht, wie die gesamte stelle aussieht. Bitte ggf. mal posten

Gruß

milito · 8. Juli 2013, 20:02

Also das ist diese Stelle im VB -Code hab gerade gemerkt, dass ich mich verschrieben habe und zwar das $ wird beim betätigen des Receive-Button gesendet(GUI empfängt daten vom Arduino)

Das ist die Stelle:

VB.NET-Quellcode

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_i2c_receive.Click RichTextBox1.ForeColor = Color.Black
If Not SerialPort_i2c.IsOpen = True Then SerialPort_i2c.Open()
End If
SerialPort_i2c.Write("$") 'kontrollvariable 'SerialPort_i2c.Close()
End Sub

kann es vllt sein, dass wenn ich das $ sende ich den Port schliessen muss, beim empfangen.

Das empfangen geht über den Eventhandler Datareceive (habe es von diesem Forum)
siehe hier:

VB.NET-Quellcode

Private Sub DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort_i2c.DataReceived 'das was an buffer ist wird an variable drangehängt und somit nicht ueberschriebeninputdata = inputdata & SerialPort_i2c.ReadExisting'HIer wird die funktion aufgerufen, weil damit gibt eskeine verzögerung, 'd.h. da wird alles was im EMpfangsbuffer anliegt ausgelesen und ausgegeben. -> brauche im Event vom Button klick nicht definieren 'da arduino nur sendet wenn er Dollarzeichen erhält, also -> receive, da kommt erst eventhandler datarecieved zum arbeiten
Me.Invoke(Sub() RichTextBox1.Text = inputdata
End Sub)End Sub

OneWorld schrieb:

Das darfst du natürlich nicht erneut senden. Das sendest du als erstes und anschließend sendest du deine anderen Sachen. Ich weiß natürlich jetzt nicht, wie die gesamte stelle aussieht. Bitte ggf. mal posten

Gruß

OneWorld · 9. Juli 2013, 08:39

Ob du den schließen musst und anschließend wieder öffnen musst, kann ich nicht sagen, da ich bis jetzt auch nur ein oder zwei mal mit dem SerialPort gearbeitet habe. Zu dem $:

Verstehe ich das richtig, dass du also nun 2 Buttons hast. Einen für das Senden der Parameter und den anderen zum Empfangen von Daten ?

milito · 9. Juli 2013, 14:53

ja genau :D.

Und einen Anderen Button i2c-scan der beim Betätigen ein ? an dem Arduino sendet.

milito · 10. Juli 2013, 17:59

Hab das Problem nicht beseitigen können, hat jemand eine Lösung?
Dieses ? wird von meiner GUI abgesendet, wenn ich den Button i2c_scan betätige. Darauf soll der Arduino den I2c-bus scannen und die Resultate an die GUI per Serial senden.

Jetzt die Frage, habe bemerkt, dass ich nach dem Senden des ? den Port nicht schliesse, könnte das es sein?
Doch wenn ich Ihn schliesse, dann empfange ich nichts oder?

VB.NET-Quellcode

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_scani2c.Click
If Not SerialPort_i2c.IsOpen = True Then
SerialPort_i2c.Open()
End If
SerialPort_i2c.Write(kontrol_scan)

Über Tipps wüerde ich mich freuen.

milito · 17. Juli 2013, 19:04

Hallo nochmal und zwar hab immer noch das Problem und zwar:

ich soll anhand einer GUI beim Betätigen des Senden button Parameter an dem Arduino senden.

Damit der Arduino weiß, dass er Daten von der GUI empfängt, sende ich beim Drücken des Sendenbutton ein KOntrollzeichen mit, d.h. sende ein "-" und hintendran meine Parameter.

Jetzt habe ich das Problem, dass er das ontrollzeichen ab und an mit speichert z.b.-> -2;3;4., manchmal habe ich auch folgende ausgabe: ---2,3,4
Das problem ist es tritt nicht immer auf :(. Kann mir mittlerweile auch nicht mehr erklären was das sein kann.
Kann mir jemand vllt helfen?

Hier nochmal mein code:

VB.NET-Quellcode

Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_single_i2c.Click
Try
If Not SerialPort_i2c.IsOpen = True Then
SerialPort_i2c.Open()
End If
SerialPort_i2c.Write("-")
SerialPort_i2c.Write(list_choice_i2c.SelectedItem)
SerialPort_i2c.Close()
Catch ex As Exception
End Try

GUI Sendet und empfängt über Serial daten über Arduino

GUI Sendet und empfängt über Serial daten über Arduino

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

OneWorld schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

OneWorld schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben