Daten der seriellen Schnittstelle auswerten

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von fraju.

    Daten der seriellen Schnittstelle auswerten

    Hallo,

    ich steh mal wieder voll auf dem Schlauch.
    Ich bekomme über die serielle Schnittselle fortlaufend Datentelegramme.
    Jedes Telegram endet mit einem # Zeichen.

    Da die Telegramme eine unterschiedliche Länge haben möchte ich so lange sammeln bis dieses Zeichen erscheint und dann weiter auswerten.

    Im angehängten Code sollen die Daten in der Textbox10 gesammelt und dann ausgewertet werden.
    Irgent wie mache ich da aber etwas falsch da die Daten völlig durcheinander angezeigt werden



    VB.NET-Quellcode

    1. Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles myComPort.DataReceived
    3. Dim vari1ende As String
    4. Dim PosStart As Integer
    5. Dim Variablen() As String
    6. Dim PosRaute As Integer
    7. Dim inc As Integer
    8. Dim Datenabschnitt As String
    10. Me.TextBox1.Text = Me.TextBox1.Text & Me.myComPort.ReadExisting ' Textbox1 wird fortlaufen gefüllt
    14. Me.TextBox10.Text = TextBox10.Text & Me.myComPort.ReadExisting ' Textbox10 wird zur Auswertung gefüllt
    15. If Me.TextBox10.Text = ("#"c) Then
    18. vari1ende = Me.TextBox10.Text.IndexOf("#"c) 'Länge Textinhalt feststellen
    19. Me.TextBoxLange.Text = vari1ende 'Länge Textinhalt anzeigen
    22. PosStart = Me.TextBox10.Text.IndexOf("0:") 'Position Startzeichen feststellen
    23. PosRaute = Me.TextBox10.Text.IndexOf("#"c) 'Position Endzeichen feststellen
    24. Datenabschnitt = Me.TextBox10.Text.Substring(PosStart + 2, PosRaute - PosStart - 3) 'Substring(start, length)
    25. Variablen = Split(Datenabschnitt, "-")
    27. For inc = LBound(Variablen) To UBound(Variablen) ' String füllen
    28. xvari(inc) = Variablen(inc)
    29. Next
    32. Me.TextBox2.Text = CStr(xvari(0))
    33. Me.TextBox3.Text = CStr(xvari(1))
    34. Me.TextBox4.Text = CStr(xvari(2))
    35. Me.TextBox5.Text = CStr(xvari(3))
    36. Me.TextBox6.Text = CStr(xvari(4))
    37. Me.TextBox7.Text = CStr(xvari(5))
    38. Me.TextBox8.Text = CStr(xvari(6))
    39. Me.TextBox9.Text = CStr(xvari(7))
    41. Me.TextBox10.Text = ""
    43. End If
    46. End Sub

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

    Hallo,

    danke für deine Hilfe.
    Das hat mir schon ein wenig weitergeholfen.

    Meine Daten werden über einen AVR Controller an die Schnittstelle gesendet.
    I.d.R. kommt immer ein Datensatz an. Allerdings kann die Zeit zum nächsten Datensatz sehr gering sein so dass fast keine Unterbrechung zu erkennen ist.
    Vielleicht kannst du mir noch eine Frage beantworten.
    Wird beim Empfang über die serielle Schnittstelle nicht immer automatisch ein "unsichtbares Zeichen" als Datensatzende mitgesendet?

    Kommt auf das Protokoll an. Manchmal kommt als letztes ein CHR(13) (Wagenrücklauf). Manchmal ein CHR(13)CHR(10) (Wagenrücklauf und Zeilenvorschub).
    Meine (selbstprogrammierten) AVRs senden als letztes immer ein CHR(13) zum PC.

    Ich selbst entferne alle CHR(10) (Wenn denn welche kommen) und Splitte dann bei CHR(13) auf. Der Rest bleibt im Puffer und neue Daten werden da wieder angehangen.

    Beispiel gibt es nicht, da ich nicht VB.NET progge.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Hallo
    Wenn du das Sendeprotokoll selbst in der Hand hast, solltest du erst einmal die EinzelZeichen mit kleinen Pausen senden.
    Dein Vb Prog testet jedes Zeichen sofort nach Eingang,das brauch auch etwas Zeit.

    Ich habe auch mit guten Erfolg immer eine Konstante Länge von Zeichen gesendet.
    Wenn weniger Daten dann Dummi Bytes.
    Hängst du dann Trotzdem ein Endezeichen daran,kannst du nochmals dadurch feststellen das die Daten
    alle angekommen sind.
    Es gibt viele Wege,mit Verzögerung ist es aber am sichersten,wenn nicht mit Prüfsumme gearbeitet wird.
    Gruß

Facebook
Telefonspende