Sauberes Auslesen von der Serielle Schnittstelle ????

  • VB.NET

    Sauberes Auslesen von der Serielle Schnittstelle ????

    Hallo zusammen, ich möchte gerne daten von der serielle schnittstelle empfangen und weiter verarbeiten,
    das senden klappt einwand frei, nur mit dem empfang haperts, was die weiter verarbeitung betrifft ....

    mit dem arbeite ich zur zeit ..

    VB.NET-Quellcode

    1. Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    2. For i As Int32 = 0 To SerialPort1.BytesToRead ' Alle Bytes einzel lesen und anzeigen
    3. Try
    4. Dim buf As Byte() = {SerialPort1.BaseStream.ReadByte}
    5. Dim enc As New System.Text.ASCIIEncoding()
    6. Programm = enc.GetString(buf)
    7. Programm = Programm.Replace(Chr(1), Nothing)
    8. objDateiMacher.Write(Programm)
    9. Me.Invoke(TextboxAktualisieren)
    11. Catch ex As Exception
    12. MessageBox.Show("Ein Übertragungsfehler ist aufgetreten.", "Fehler", MessageBoxButtons.OK)
    13. End Try
    14. Next i
    15. End Sub
    16. Private Sub Wertübergabe()
    17. TextBox2.AppendText(Programm)
    18. End Sub
    20. Private Sub btnOptionenID0_Click(sender As System.Object, e As System.EventArgs) Handles btnOptionenID0.Click
    21. '### 01 03 00 00 00 14 45 c5 / 02 03 00 00 00 14 45 f6 ###
    22. SerialPort1.Write({&H1, &H3, &H0, &H0, &H0, &H14, &H45, &HC5}, 0, 8)
    23. End Sub


    was muss ich anstellen das die empfangen werte wieder sauber in einer z.b textbox stehen .. ???

Facebook
Telefonspende