RS232 Kommunikationsproblem PC<->Arduino

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von webcool.

    RS232 Kommunikationsproblem PC<->Arduino

    Hallo,
    ich bin seit längerem mal wieder dabei eine Schnittstelle zwischen einem Arduino Board und einem PC Programm herzustellen. Die Verbindung an sich funktioniert auch schon einwandfrei.
    Leider habe ich ein Problem mit dem VB Programm. Das Programm soll via RS232 USB dem Arduino bestimmte Befehle schicken. Diese Befehle arbeitet der Arduino ab und gibt einen Wert (Spannung, Strom) wieder zurück. Soweit so gut. Mit einem Terminalprogramm funktioniert das hin und her schicken ohne Probleme.
    Bei meinem Visual Basic Programm funktioniert das ganze nur einmal.
    Wenn ich auf den Button "cmd_Rohdaten" klicke bekomm ich einen Wert zurück, wie ich es möchte. Wenn ich erneut auf den Button klicke passiert gar nichts.
    Wenn ich das Programm neu starte (Arduino läuft weiter) und erneut auf den Button klicke funktionierts wieder, genau einmal. Aber warum das so ist habe ich bisher nicht herausgefunden, und hoffe Ihr könnt mir hier weiterhelfen.

    Das Ganze soll später ein Messgerät eines Motors für Spannung und Strom werden.

    VB.NET-Quellcode

    1. .....
    3. Private Sub cmd_Verbinden_Click(sender As Object, e As EventArgs) Handles cmd_Verbinden.Click
    4. If SerialPort1.IsOpen = False Then
    5. SerialPort1.BaudRate = SerialportBaudRate
    6. SerialPort1.DataBits = SerialportDataBits
    7. SerialPort1.PortName = SerialportPortName
    8. SerialPort1.ReadBufferSize = SerialportReadBufferSize
    9. SerialPort1.WriteBufferSize = SerialportWriteBufferSize
    10. Timer1.Interval = Timerintervall
    11. TimerMesswerte.Interval = Timerintervall
    12. TimerRohdaten.Interval = Timerintervall
    14. EinstellungenToolStripMenuItem.Enabled = False
    15. cmd_Verbinden.Text = "Trennen"
    16. cmd_Verbinden.BackColor = Color.Green
    18. cmd_Kalbibrierung.Enabled = True
    19. cmd_Messwertanzeige.Enabled = True
    20. cmd_Rohdaten.Enabled = True
    21. cmd_DrehmomentAuswahlen.Enabled = True
    23. lbl_COMPort.Text = SerialportPortName
    24. lbl_BAUDRATE.Text = SerialportBaudRate
    25. lbl_Wiederholungszeit.Text = Timerintervall
    27. SerialPort1.Open()
    29. Else
    30. Timer1.Enabled = False
    31. TimerRohdate.Enabled = False
    32. TimerMesswerte.Enabled = False
    33. SerialPort1.Close()
    34. EinstellungenToolStripMenuItem.Enabled = True
    35. cmd_Verbinden.Text = "Verbinden"
    36. cmd_Verbinden.BackColor = Color.Red
    37. cmd_Kalbibrierung.Enabled = False
    38. cmd_Messwertanzeige.Enabled = False
    39. cmd_Rohdaten.Enabled = False
    40. cmd_DrehmomentAuswahlen.Enabled = False
    42. End If
    44. End Sub
    45. ......
    47. Private Sub cmd_Rohdaten_Click(sender As Object, e As EventArgs) Handles cmd_Rohdaten.Click
    48. Dim DateiSenden As String
    49. DateiSenden = ""
    52. If radio_Roh1.Checked = True Then
    53. DateiSenden = "$<Read1"
    54. ElseIf radio_Roh2.Checked = True Then
    55. DateiSenden = "$<Read2"
    56. ElseIf radio_Roh3.Checked = True Then
    57. DateiSenden = "$<Read3"
    58. Else
    59. lbl_Fehler.Text = "Fehler beim Senden"
    60. End If
    62. If SerialPort1.IsOpen Then 'folgenden Code nur ausführen wenn auch eine Verbindung besteht
    63. TimerRohdate.Enabled = True
    64. SerialPort1.Write(DateiSenden + Chr(13)) '("$<Spannung" + (MotorRR).ToString + Chr(13)) 'Daten per RS232 an die Arduino Senden. CHr(13) =Enter drücken (Ende der Übertagung)
    65. cmd_Rohdaten.Enabled = False
    66. End If
    67. End Sub
    69. Private Sub TimerRohdate_Tick(sender As Object, e As EventArgs) Handles TimerRohdate.Tick
    70. If SerialPort1.BytesToRead > 0 Then 'Daten vom COM Port empfangen
    71. Do
    72. 'DatenEmpfangen = SerialPort1.ReadLine
    73. DatenEmpfangen = DatenEmpfangen & SerialPort1.ReadLine '& ";"
    75. If SerialPort1.BytesToRead = 0 Then
    76. Exit Do
    77. End If
    78. Loop
    80. AusgabeArr = DatenEmpfangen.Split(CChar(";")) 'empfangenen Text trennen und in ein String-Array speichern
    82. If AusgabeArr(0) = "EEPROM1" Then
    83. ' SerialPort1.Write("$<Read1" + Chr(13))
    84. lbl_Strom.Text = CSng(AusgabeArr(1))
    85. lbl_Spannung.Text = CSng(AusgabeArr(2))
    86. lbl_Speicher.Text = "1"
    87. TimerRohdate.Enabled = False
    88. cmd_Rohdaten.Enabled = True
    89. End If
    91. If AusgabeArr(0) = "EEPROM2" Then
    92. 'SerialPort1.Write("$<Read1" + Chr(13))
    93. lbl_Strom.Text = CSng(AusgabeArr(1))
    94. lbl_Spannung.Text = CSng(AusgabeArr(2))
    95. lbl_Speicher.Text = "2"
    96. TimerRohdate.Enabled = False
    97. cmd_Rohdaten.Enabled = True
    98. End If
    100. If AusgabeArr(0) = "EEPROM3" Then
    101. ' SerialPort1.Write("$<Read1" + Chr(13))
    102. lbl_Strom.Text = CSng(AusgabeArr(1))
    103. lbl_Spannung.Text = CSng(AusgabeArr(2))
    104. lbl_Speicher.Text = "3"
    105. TimerRohdate.Enabled = False
    106. cmd_Rohdaten.Enabled = True
    107. Else
    108. lbl_Fehler.Text = "Fehler beim Empfangen" 'MessageBox.Show("Der Startpunkt war falsch", "Warnung", MessageBoxButtons.OK)
    109. TimerRohdate.Enabled = False
    110. cmd_Rohdaten.Enabled = True
    111. End If
    113. End If
    114. End Sub


    Arduino:

    Quellcode

    1. if ((Serial.available() > 0))
    2. {
    3. while (Serial.available())
    4. {
    5. inbyte = Serial.read();
    7. if (inbyte == 13)
    8. {
    9. break;
    10. }
    11. else
    12. {
    13. if (index < MAXSTRING)
    14. {
    15. inString[index] = inbyte;
    16. inString[index+1] = '\0';
    17. index += 1;
    18. }
    19. }
    20. }
    21. inbyte=0;
    22. }
    23. ......
    24. else if ( !strcmp(inString, "$<Read1") )
    25. {
    26. Serial.write("EEPROM1;");
    27. Serial.println(Motorstrom);
    28. Serial.write(";");
    29. Serial.println(Batteriespannung);
    30. Serial.write(";");
    31. Serial.write("\n");
    33. for (int i=0; i <= index; i++)
    34. {
    35. inString[i] = 0;
    36. }
    37. index = 0;
    38. }
    39. else if ( !strcmp(inString, "$<Read2") )
    40. {
    41. Serial.write("EEPROM2;");
    42. Serial.println(Motorstrom);
    43. Serial.write(";");
    44. Serial.println(Batteriespannung);
    45. Serial.write(";");
    46. Serial.write("\n");
    48. for (int i=0; i <= index; i++)
    49. {
    50. inString[i] = 0;
    51. }
    52. index = 0;
    53. }
    54. else if ( !strcmp(inString, "$<Read3") )
    55. {
    56. Serial.write("EEPROM3;");
    57. Serial.println(Motorstrom);
    58. Serial.write(";");
    59. Serial.println(Batteriespannung);
    60. Serial.write(";");
    61. Serial.write("\n");
    63. for (int i=0; i <= index; i++)
    64. {
    65. inString[i] = 0;
    66. }
    67. index = 0;
    68. }
    69. else
    70. {
    71. for (int i=0; i <= index; i++)
    72. {
    73. inString[i] = 0;
    74. }
    75. index = 0;
    76. }

    so also es funktioniert jetzt. hab es alleine hinbekommen.
    Hab den VB Code bisl umgeschrieben und dann funktionierte es. Warum weis ich aber selbst nicht. :rolleyes:
    Immerhin funktionierts.
    Hier mal der Code:

    VB.NET-Quellcode

    1. Private Sub cmd_Rohdaten_Click(sender As Object, e As EventArgs) Handles cmd_Rohdaten.Click
    3. 'Daten über den COM Port RS232 an die Arduino senden:
    4. If SerialPort1.IsOpen = True Then 'folgenden Code nur ausführen wenn auch eine Verbindung besteht
    5. If radio_Roh1.Checked Then
    6. SerialPort1.Write("$<Read1" + Chr(13)) 'Daten per RS232 an die Arduino Senden. CHr(13) =Enter drücken (Ende der Übertagung)
    7. TimerRohdate.Enabled = True
    8. cmd_Rohdaten.Enabled = False
    9. ElseIf radio_Roh2.Checked = True Then
    10. SerialPort1.Write("$<Read2" + Chr(13)) 'Daten per RS232 an die Arduino Senden. CHr(13) =Enter drücken (Ende der Übertagung)
    11. TimerRohdate.Enabled = True
    12. cmd_Rohdaten.Enabled = False
    13. ElseIf radio_Roh3.Checked = True Then
    14. SerialPort1.Write("$<Read3" + Chr(13)) 'Daten per RS232 an die Arduino Senden. CHr(13) =Enter drücken (Ende der Übertagung)
    15. TimerRohdate.Enabled = True
    16. cmd_Rohdaten.Enabled = False
    17. End If
    18. End If
    19. End Sub
    21. Private Sub TimerRohdate_Tick(sender As Object, e As EventArgs) Handles TimerRohdate.Tick
    22. DatenEmpfangen = ""
    24. 'Daten vom COM Port empfangen
    25. If SerialPort1.BytesToRead > 0 Then
    26. Do
    27. DatenEmpfangen = DatenEmpfangen & SerialPort1.ReadLine '& ";"
    29. If SerialPort1.BytesToRead = 0 Then
    30. Exit Do
    31. End If
    32. Loop
    34. AusgabeArr = DatenEmpfangen.Split(CChar(";")) 'empfangenen Text trennen und in ein String-Array speichern
    36. If AusgabeArr(0) = "EEPROM1" Then
    37. cmd_Kalbibrierung.Enabled = True
    38. cmd_Kalbibrierung.Enabled = True
    39. lbl_Strom.Text = AusgabeArr(1)
    40. lbl_Spannung.Text = AusgabeArr(2)
    41. lbl_Speicher.Text = "1"
    42. cmd_Rohdaten.Enabled = True
    43. TimerRohdate.Enabled = False
    44. ElseIf AusgabeArr(0) = "EEPROM2" Then
    45. cmd_Kalbibrierung.Enabled = True
    46. cmd_Kalbibrierung.Enabled = True
    47. lbl_Strom.Text = AusgabeArr(1)
    48. lbl_Spannung.Text = AusgabeArr(2)
    49. lbl_Speicher.Text = "2"
    50. cmd_Rohdaten.Enabled = True
    51. TimerRohdate.Enabled = False
    52. ElseIf AusgabeArr(0) = "EEPROM3" Then
    53. cmd_Kalbibrierung.Enabled = True
    54. cmd_Kalbibrierung.Enabled = True
    55. lbl_Strom.Text = AusgabeArr(1)
    56. lbl_Spannung.Text = AusgabeArr(2)
    57. lbl_Speicher.Text = "3"
    58. cmd_Rohdaten.Enabled = True
    59. TimerRohdate.Enabled = False
    60. Else
    61. lbl_Fehler.Text = "Fehler beim Empfangen"
    62. cmd_Rohdaten.Enabled = True
    63. TimerRohdate.Enabled = False
    64. End If
    65. End If
    67. End Sub

    Hi,
    ich weiß das dein problem gelöst ist aber wie und warum weisst du ja nicht.

    wer auch probleme damit hat, dem kann ich nur fogendes sagen.

    also port öffnen, schreiben, empfangen, schlie. bevor der nächste query geschickt wird eine Sekunde warten mit einem timer z.b. und wieder von vorn
    öffnen, schreiben, empfangen, schliessen und 1 sec. warten, dann sollte es keine probleme geben wenn die syntax der befehle im string richtig sind.

Facebook
Telefonspende