Daten von Arduino an VB

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Daten von Arduino an VB

    Hallo,

    ich versuche von einem Arduino zusammengesetzte Daten in Vb aufzuschlüssel um es in verschiedenen Textboxen anzuzeigen.
    Leider kann ich die daten für eine Textbox splitten, sobald ich mehrere einsetze bekomme ich eine Fehlermeldung :

    System.IndexOutofRangeException das Feld(1) ausserhalbe des Array wäre.

    Was mache ich falsch?

    Vielen Dank für die Hilfe

    Die Daten sind auf Arduino-Seite:

    C-Quellcode

    1. Serial.print(check0);
    2. Serial.print(",");
    3. Serial.print(check1);
    4. Serial.print(",");
    5. Serial.print(check2);
    6. Serial.print(",");
    7. Serial.print(check3);
    8. Serial.println(",");


    Auf der VB-Seite :

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO.Ports
    4. Public Class Form1
    6. Dim comPORT As String
    7. Dim Feld() As String
    8. Dim receivedData As String = ""
    9. Dim WithEvents serialPort As New SerialPort
    11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    12. Timer1.Enabled = False
    13. comPORT = ""
    14. For Each sp As String In My.Computer.Ports.SerialPortNames
    15. comPort_ComboBox.Items.Add(sp)
    16. Next
    17. End Sub
    19. Private Sub comPort_ComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comPort_ComboBox.SelectedIndexChanged
    20. If (comPort_ComboBox.SelectedItem <> "") Then
    21. comPORT = comPort_ComboBox.SelectedItem
    22. End If
    23. End Sub
    25. Private Sub connect_BTN_Click(sender As Object, e As EventArgs) Handles connect_BTN.Click
    26. If (connect_BTN.Text = "Connect") Then
    27. If (comPORT <> "") Then
    28. SerialPort1.Close()
    29. SerialPort1.PortName = comPORT
    30. SerialPort1.BaudRate = 115200
    31. SerialPort1.DataBits = 8
    32. SerialPort1.Parity = Parity.None
    33. SerialPort1.StopBits = StopBits.One
    34. SerialPort1.Handshake = Handshake.None
    35. SerialPort1.Encoding = System.Text.Encoding.Default 'very important!
    36. SerialPort1.ReadTimeout = 10000
    38. SerialPort1.Open()
    39. connect_BTN.Text = "Dis-connect"
    40. Timer1.Enabled = True
    41. Timer_LBL.Text = "Timer: ON"
    42. Else
    43. MsgBox("Select a COM port first")
    44. End If
    45. Else
    46. SerialPort1.Close()
    47. connect_BTN.Text = "Connect"
    48. Timer1.Enabled = False
    49. Timer_LBL.Text = "Timer: OFF"
    50. End If
    52. End Sub
    54. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    55. receivedData = ReceiveSerialData()
    57. Feld = receivedData.Split(",")
    59. RichTextBox1.Text = Feld(0)
    60. RichTextBox2.Text = Feld(1)
    61. RichTextBox3.Text = Feld(2)
    63. End Sub
    65. Function ReceiveSerialData() As String
    66. Dim Incoming As String
    67. Try
    68. Incoming = SerialPort1.ReadExisting()
    69. If Incoming Is Nothing Then
    70. Return "nothing" & vbCrLf
    71. Else
    72. Return Incoming
    73. End If
    74. Catch ex As TimeoutException
    75. Return "Error: Serial Port read timed out."
    76. End Try
    78. End Function
    80. Private Sub clear_BTN_Click(sender As Object, e As EventArgs) Handles clear_BTN.Click
    81. RichTextBox1.Text = ""
    82. RichTextBox2.Text = ""
    83. End Sub
    85. End Class


    Code-Tag eingefügt. ~Thunderbolt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    @OLMUK Willkommen im Forum. :thumbup:
    Offensichtlich willst Du auf einen Feldindex zugreifen, den es nicht gibt.
    Hast Du Dir die Daten angesehen, die Du splitten willst?
    Hast Du Dich überzeugt, dass das, was Du glaubst zu splitten, auch tatsächlich das ist, was Du splitten willst?
    In welcher Zeile kommt diese Exception?
    Lerne zu debuggen:
    Debuggen, Fehler finden und beseitigen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    das muss ich erst mal einzeln abarbeiten :

    Die Daten sind : Byte, Byte, Byte und wenn ich ohne Split sende kommt 1,2,3 an in der Textbox

    Mit Split und Feld(0) ist auch das erste byte abgetrennt, aber sobald ich Feld(1) hinzufüge kommt die
    Fehlermeldung...
    Kann ich das Array irgendwo festlegen ?

    OLMUK schrieb:

    Kann ich das Array irgendwo festlegen ?
    Zunächst solltest Du einen Haltepunkt setzen!
    Oder bist Du der Meinung, dass ein Code, der compiliert, fehlerfrei ist :?:
    Setze auf Zeile 57 Deines Codes einen Haltepunkt und sieh Dir an, was Du zu splitten gedenkst.
    Das Array ist die Variable Feld.
    ====
    Da ich nicht über Deine Hardware verfüge, kann ich nicht wissen, was in den Variablen steht.
    Das musst Du feststellen und entsprechend reagieren oder es uns mitteilen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Erst mal vielen Dank- leider verstehe ich nicht alles

    Habe versucht einen Haltpunkt einzufügen - geht nicht.

    Da ich ohne Split oder nur mit Feld(0) den richtigen Wert bekomme, müsste doch
    alles korrekt ankommen. Wie gesagt es kommt ohne Split in der Textbox 1,2,3 an
    und das ist exakt was ich sende.

    Ist denn der Ansatz nicht das Array zu definieren ( aber keines der gegoogelten Beispiele
    tun das ) ?

    OLMUK schrieb:

    geht nicht.
    Üblicherweise F9.

    OLMUK schrieb:

    müsste doch alles korrekt ankommen.
    Das nennen wir "Spekulatius".
    ====
    Kann es sein, dass Du Bytes sendest, aber Chars empfängst?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    ok, das war der richtige Hinweis -
    muss mich mal schlaumachen mit den Haltepunkten ( da ist eine Linie mit F9 )

    Hoffe ich nerve nicht zu arg mit den Basics - danke

    Habe etwas getestet mit Erfolg und es gibt keinen Fehler mehr mit dem Array.
    Also liegt mein Problem beim Sender

    Quellcode

    1. Dim Test As String = "1,2,3"
    3. 'RichTextBox1.Text = Test
    5. 'Feld = receivedData.Split(",")
    6. 'Feld = Split(receivedData, ",")
    7. Feld = Test.Split(New Char() {","c})
    9. RichTextBox1.Text = Feld(0)
    10. RichTextBox2.Text = Feld(1)
    11. RichTextBox3.Text = Feld(2)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „OLMUK“ ()

    @OLMUK Zeile 6 ist VB6-Code, das solltest Du vermeiden, sieh Dir mal das an:
    Visual Studio - Empfohlene Einstellungen
    Auf die Schnelle kannst Du auch receivedData in der Console ausgeben: Console.WriteLine(receivedData), die wird dann im Ausgabefenster des Studios ausgegeben.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    OLMUK schrieb:

    was spricht gegen vb6 ?
    Du hast VB.NET angeklickt, und die meisten Kollegen hier, die Dir helfen wollen, haben in ihren Einstellungen VB6 abgewählt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    OLMUK schrieb:

    ist dies nicht relevant
    Äh - was jetzt?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hoffe deine Geduld nicht zu überdehnen ...

    Muss mich korrigieren das die auskommentierten ja nicht den char genommen haben.

    Habe zig Bücher aber wenn man nicht weiss nach was man suchen muss wird es schwierig...

    Mit der Verwendung von Visual Studio 2019 habe ich VB Net ??

    Hättest du bitte einen Tipp das grundsätzlich zu verstehen ?

    Schönes Wochenende

    OLMUK schrieb:

    habe ich VB Net ?
    Ja.
    Per Default werden über das SerialPort String-Daten mit ASCIIEncoding gesendet. Informiere Dich selbst, was das bedeutet!
    Überlege, Zeichen welchen Typs Du sendest und Zeichen welchen Typs Du empfängst.
    Welche Datentypen kommen da ühaupt in Frage?
    Informiere Dich und berichte. :thumbup:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Eierlein Jou, habich überlesen. :whistling:
    Default ist in diesem Kontext auch nicht viel besser, weil wir erst mal aufklären müssen, was der Arduino sendet.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo,

    ich möchte das Thema bitte nochmal aufgreifen :
    In der Zwischenzeit habe ich einiges gelernt, leider ist aber die Unsicherheit auch gestiegen.

    Die Übertragung des Strings (Beispiel ) 1,1,0,0,10,10,0,0, mit Ende Cr kommt in der GUI an.
    Die Anzahl der Werte ist immer gleich, nur der Inhalt ändert sich.
    Nach der Übergabe sollen die übernommenen Werte in ein Array " Feld() " geschrieben werden
    zur weiteren Verarbeitung.
    Die Splittung hat bereits funktioniert, leider scrollen nun die Werte durch.
    Ich finde den Fehler nicht, aber durch die Fehlersuche und den vielen Versuchen glaube ich das
    grundsätztlich nicht korrekt durchzuführen.
    Meine Btte richtet sich nicht zur Findung des Fehlers, sondern den Grundsatz der Splittung mit der
    Übernahme zu verstehen und (selbst) umzusetzen.

    Auszug des betreffenden Teiles :

    Quellcode

    1. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    2. receivedData = ReceiveSerialData()
    4. Dim s As String
    6. s = receivedData + "," + "," + "," + "," + "," + "," + ","
    7. Feld = s.Split(New Char() {","c})
    9. TextBox3.Text = s
    11. '*** Zuweisung Eingang Serielle Schnittstelle
    12. In_Rolle = Feld(0)
    13. In_Band = Feld(1)
    14. In_G1 = Feld(2)
    15. In_G2 = Feld(3)

    Nur ganz kurz:

    VB.NET-Quellcode

    1. Dim s As String
    2. s = receivedData + "," + "," + "," + "," + "," + "," + ","
    3. Feld = s.Split(New Char() {","c})

    ->

    VB.NET-Quellcode

    1. Dim s = receivedData & ",,,,,,," 'falls das inhaltlich überhaupt Sinn ergibt, aber am Inhalt habe ich ja nix geändert
    2. Feld = s.Split(","c)
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Das Ergebnis ist das Gleiche...

    Was ich bitte benötige ist die Übernahme in das Feld() Array nach dem CR nicht mehr zu verändern.

    Da ich in SPS Bahnen denke würde ich das MOVE mit einem Boolean verriegeln nach CR.
    Wie kann ich einen Boolean setzen wenn nach [data1, data2, data3, data4, data5, data6, data7, data8,]
    CR kommt?
    Mache ich mich verständlich ?

Facebook
Telefonspende