Serielle Schnittstelle liest nicht alle Werte

  • VB.NET

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

    Serielle Schnittstelle liest nicht alle Werte

    Hi,

    ich habe eine Verbindung zu einen Mikrocontroller mit einer RS232 Verbindung. Generell klappt die Verbindung, schicke ich nur viele, ca. 80 Strings (z.B.: "83|00|22|44") auf einmal holt er sich die irgendwie nicht alle ab. Er bleibt mittendrin stehen. Wenn ich jetzt was zum Mikrocontroller sende, empfängt die Serielle Schnittstelle wieder 5 Strings von denen die vorher "vergessen" wurden. Das geht dann immer so weiter... Ich habe seit neuem ein Seriell auf Ethernet Konverter Konverter, vermutlich liegt es daran. Die Einstellungen des Gerätes habe ich in den Anhang gepackt!
    Dazu sagen muss ich noch, dass wenn ich die Werte mal mit einem Terminal Programm sende und auch empfange, geht alles wunderbar. Die Einstellungen des Terminals habe ich auch nach unten gepackt.

    Wodran kann das wohl liegen?

    Code im Anhang...

    VB.NET-Quellcode

    1. Public Class Form_Homevision
    2. Dim SerialInput As String = ""
    4. Private Sub Form_Homevision_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. Try
    8. SerialPort1.PortName = Form_Settings.TB_Com.Text
    9. SerialPort1.BaudRate = 9600
    10. SerialPort1.Parity = IO.Ports.Parity.None
    11. SerialPort1.DataBits = 8
    12. SerialPort1.StopBits = IO.Ports.StopBits.One
    13. SerialPort1.Handshake = IO.Ports.Handshake.None
    14. SerialPort1.RtsEnable = True
    15. SerialPort1.Open()
    19. Catch ex As Exception
    20. Form_Settings.Label2.Text = "Verbindung unterbrochen"
    22. End Try
    24. If SerialPort1.IsOpen Then
    26. Form_Settings.Label2.Text = "Verbindung hergestellt"
    27. SerialPort1.DiscardInBuffer()
    28. SerialPort1.DiscardOutBuffer()
    30. SerialPort1.Write("11|22|33|44" + Chr(13))
    31. End If
    34. End Sub
    37. '//Daten empfangen von der seriellen Schnittstelle
    38. Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    39. Try
    40. If SerialPort1.IsOpen Then
    41. SerialInput = SerialPort1.ReadLine()
    42. Me.Invoke(New EventHandler(AddressOf DoUpdate))
    43. End If
    44. Catch ex As Exception
    45. End Try
    46. End Sub
    48. Public Sub DoUpdate()
    49. ' Dim b As String
    50. ' ListBox füllen
    51. If StopAufzeichnung = False Then
    52. Form_Settings.ListBox1.Items.Insert(0, "Recv: " & SerialInput & " - " & TimeOfDay & " - " & Today)
    53. End If
    55. If SerialInput.Contains("|") = True Then
    56. AuswSerialInp(SerialInput)
    57. End If
    60. End Sub
    63. Public Sub AuswSerialInp(ByVal sInput As String)
    64. Try
    69. ' String in Array packen
    70. Dim sPraefix() As String = {0, 0, 0, 0}
    71. Dim iPraefix() As Integer = {0, 0, 0, 0}
    73. ' auf "|" splitten
    74. sPraefix = sInput.Split(CChar("|")) 'erster Seperator
    76. ' Integer Wert umwandeln
    77. iPraefix(0) = CInt(sPraefix(0))
    78. iPraefix(1) = CInt(sPraefix(1))
    79. iPraefix(2) = CInt(sPraefix(2))
    80. iPraefix(3) = CInt(sPraefix(3))
    82. '##############################################
    83. '##############################################
    84. 'Status vom Mikro
    85. '##############################################
    86. '##############################################
    87. Select Case iPraefix(0)
    91. '79-Heizung ist ein
    92. Case 79
    93. '##############################################
    94. ' Raum
    95. '##############################################
    96. Select Case iPraefix(1)
    100. Case 1
    101. '##############################################
    102. '##############################################
    103. Select Case iPraefix(2)
    104. '##############################################
    106. Case 1
    107. Select Case iPraefix(3)
    108. ' Aus
    109. Case 0
    112. ...
    113. ...
    114. ...
    115. ...




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

    1. Schmeiß das Try-Catch-Zeugs raus, Du willst doch Fehler finden, nicht aber verschleiern.
    2. lies alle verfügbaren Zeichen, nicht nur die nächste Zeile:

    VB.NET-Quellcode

    1. Dim ToRead As Integer = SerialPort1.BytesToRead
    2. If ToRead > 0 Then
    3. Dim Buffer(ToRead - 1) As Byte
    4. SerialPort1.Read(Buffer, 0, ToRead)
    5. ' was mit Buffer tun
    6. End If
    3. Werte alle empfangenen Zeichen aus, nicht nur dann, wenn ein "|" drin enthalten ist.
    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!

    Ich weiss leider nicht wie ich das wo einfügen soll?!?!?

    VB.NET-Quellcode

    1. '//Daten empfangen von der seriellen Schnittstelle
    2. Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    3. Try
    4. If SerialPort1.IsOpen Then
    5. SerialInput = SerialPort1.ReadLine()
    6. Me.Invoke(New EventHandler(AddressOf DoUpdate))
    7. End If
    8. Catch ex As Exception
    9. End Try
    10. End Sub
    12. Public Sub DoUpdate()
    13. ' Dim b As String
    14. ' ListBox füllen
    15. If StopAufzeichnung = False Then
    16. Form_Settings.ListBox1.Items.Insert(0, "Recv: " & SerialInput & " - " & TimeOfDay & " - " & Today)
    17. End If
    19. If SerialInput.Contains("|") = True Then
    20. AuswSerialInp(SerialInput)
    21. End If
    24. End Sub

    Alex0815 schrieb:

    Ich weiss leider nicht wie ich das wo einfügen soll
    So:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    2. Me.Invoke(Sub() ReceiveText())
    3. End Sub
    5. Private Sub ReceiveText()
    6. Dim ToRead As Integer = SerialPort1.BytesToRead
    7. If ToRead > 0 Then
    8. Dim Buffer(ToRead - 1) As Byte
    9. SerialPort1.Read(Buffer, 0, ToRead)
    10. ' was mit Buffer tun
    11. End If
    12. End Sub
    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!

    Mit dem ReadByte komme ich irgendwie nicht klar... Ich brauche ja den kompletten string bis zum CR

    Ich habe es jetzt mal so ausgetetst: (s.unten) Dabei wird jedoch nur die Erste Zeile angezeigt, dann garnichts mehr? Wodran kann das liegen? Ich brauche immer eine Zeile bis zum "\r" die Zeile sieht z.B. so aus 11|22|33|44

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO.Ports
    3. Imports System.Threading
    5. Public Class Form1
    7. Dim eineZeile As String
    10. Dim s As String = ""
    12. Dim SerialInput As String = ""
    17. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    23. SerialPort1.PortName = "COM4"
    24. SerialPort1.BaudRate = 9600
    25. SerialPort1.Parity = IO.Ports.Parity.None
    26. SerialPort1.DataBits = 8
    27. SerialPort1.StopBits = IO.Ports.StopBits.One
    28. SerialPort1.Handshake = IO.Ports.Handshake.None
    29. SerialPort1.RtsEnable = True
    30. SerialPort1.DtrEnable = True
    32. SerialPort1.NewLine = vbCr
    33. SerialPort1.Open()
    35. If SerialPort1.IsOpen Then
    36. Label1.Text = "...verbunden"
    37. SerialPort1.Write("11|22|33|44" + Chr(13))
    38. Else
    39. Label1.Text = "...getrennt"
    40. End If
    42. End Sub
    48. 'Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    52. ' SerialInput = SerialPort1.ReadLine()
    57. ' Me.Invoke(New EventHandler(AddressOf DoUpdate))
    59. 'End Sub
    61. Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    62. Dim pos As Integer
    63. Dim posmemm As Integer
    66. '' Daten an SerialInput dranhängen, statt SerialInput zu überschreiben
    67. SerialInput = SerialInput + SerialPort1.ReadExisting()
    68. 'SerialInput += SerialPort1.ReadLine()
    70. pos = SerialInput.IndexOf(vbCr)
    71. If (pos >= 0) Then
    72. eineZeile = SerialInput.Substring(0, pos)
    74. posmemm = pos
    76. 'verarbeite meineDaten
    77. SerialInput = SerialInput.Substring(pos, SerialInput.Length - pos)
    78. Me.Invoke(New EventHandler(AddressOf DoUpdate))
    79. End If
    82. End Sub
    84. Public Sub DoUpdate()
    85. ListBox1.Items.Insert(0, "Recv: " & eineZeile)
    88. TextBox2.Text = ""
    89. TextBox2.Text = SerialInput
    90. TextBox1.Text = TextBox1.Text + 1
    91. End Sub
    95. Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    96. SerialPort1.Write(TextBox5.Text & Convert.ToChar(13) & Chr(13))
    97. End Sub
    99. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    100. ListBox1.Items.Clear()
    101. TextBox1.Text = 0
    102. TextBox2.Text = ""
    103. SerialInput = ""
    104. End Sub
    106. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    107. If SerialPort1.IsOpen = True Then
    108. SerialPort1.Close()
    109. End If
    111. Me.Close()
    113. End Sub
    115. Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    116. SerialPort1.Close()
    117. End Sub
    119. Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    120. If Not SerialPort1.IsOpen Then
    121. SerialPort1.Open()
    122. End If
    123. End Sub
    124. End Class



    Das ist der Code der auf dem Mikrocontroller testhalber gesendet wird:

    VB.NET-Quellcode

    1. usart_write_str0("start\r");
    2. for( uint16_t i = 1; i < 4; i++ )
    4. for( uint16_t j = 2; j < 4; j++ )
    6. for( uint16_t k = 1; k < 4; k++ )
    8. for( uint16_t l = 2; l < 4; l++ )
    9. {
    10. sprintf( str, "%02d|%02d|%02d|%02d\r", i, j, k, l );
    11. usart_write_str0(str);
    12. }
    14. usart_write_str0("ende\r");



    So sieht die Anzeige dann aus:

    Alex0815 schrieb:

    Ich brauche ja den kompletten string bis zum CR
    Was passiert mit dem eingelesenen Text nach dem CR?
    Nimm die Initialisierung aus der Form_Load raus. Wenn dort Exceptions kommen (nicht alle) bekommst Du nix mit und bemerkst es so nicht.
    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!

    Also ich brauche jeden String der zwischen zwei CR steht, der allererste hat natürlcih keinen CR als erstes...
    So wird gesendet:

    VB.NET-Quellcode

    1. 11|22|33|44\r55|66|77|88\r99|10|11|12\r


    so brauche ich dann den String in einer Datei die ich dann weiter bearbeite:
    11|22|33|44

    dann bein näcshten mal diesen String
    55|66|77|88
    dann:
    99|10|11|12
    und so weiter:


    Du meinst also,

    VB.NET-Quellcode

    1. SerialPort1.PortName = "COM4"
    2. SerialPort1.BaudRate = 9600
    3. SerialPort1.Parity = IO.Ports.Parity.None
    4. SerialPort1.DataBits = 8
    5. SerialPort1.StopBits = IO.Ports.StopBits.One
    6. SerialPort1.Handshake = IO.Ports.Handshake.None
    7. SerialPort1.RtsEnable = True
    8. SerialPort1.DtrEnable = True


    entfernen

    und im Load Object nur

    VB.NET-Quellcode

    1. SerialPort1.NewLine = vbCr
    2. SerialPort1.Open()



    stehen lassen, webei das NewLine auch noch weg kann, das kommt noch aus der Zeit als ich es mit ReadLine versucht habe...

    Alex0815 schrieb:

    Du meinst also,
    Ich meine also, dass im Form_Load gar kein solch Code stehen sollte.
    Und dann solltest Du immer den gesamten verfügbaren Text lesen, den kannst Du dann ja am Zeilenende splitten und hast Deine Zeilen in einem Array.
    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!

    skyscater schrieb:

    Hatte mal das selbe Problem:
    klick mich
    Wenn du meine letzte kryptische Antwort nicht entziffern kannst, sag bescheid, dann erklär ichs dir und such villeicht noch den Codeabschnitt dazu heraus.
    mfg.skyscater


    Hi, ja ich glaube ich habe das gleiche Problem... Bei mir läuft es im Terminal auch 100%tig...
    Ich denke auch, dass ich den String erst mit ReadExisting sammeln muss, und dann an eine Sub übergebe wo ich sie mir dann noch in die einzelne Strings zerteile sobald ich ein "\r" erkenne.

    Im Grunde macht das aber eigentlich ja schon:

    VB.NET-Quellcode

    1. SerialInput = SerialInput + SerialPort1.ReadExisting()
    2. 'SerialInput += SerialPort1.ReadLine()
    4. pos = SerialInput.IndexOf(vbCr)
    5. If (pos >= 0) Then
    6. eineZeile = SerialInput.Substring(0, pos)
    9. 'verarbeite meineDaten
    10. SerialInput = SerialInput.Substring(pos, SerialInput.Length - pos)
    11. Me.Invoke(New EventHandler(AddressOf DoUpdate))
    12. End If



    Was hast du für ein Trennzeichen? Wie hast du das dann gelöst?

    Alex0815 schrieb:

    Im Grunde macht das aber eigentlich ja schon:
    Probier mal dies:
    DataReceived

    VB.NET-Quellcode

    1. Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    2. Me.Invoke(Sub() ReceiveText())
    3. End Sub
    5. Private Sub ReceiveText()
    6. Dim ToRead As Integer = SerialPort1.BytesToRead
    7. If ToRead > 0 Then
    8. 'Neu empfangene Zeichen an die Empfangspuffer anhängen
    9. Dim Buffer(ToRead - 1) As Byte
    10. SerialPort1.Read(Buffer, 0, ToRead)
    11. TextBox1.Text &= System.Text.Encoding.Default.GetString(Buffer)
    12. End If
    13. End Sub
    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!

    Hi, so hatte ich es auch schon ausprobiert, nur ich brauche den String immer bis zum CR in einer Zeile so wie beim Terminal:



    In der Form sieht es so aus:


    VB.NET-Quellcode

    1. Private Sub ReceiveText()
    2. Dim ToRead As Integer = SerialPort1.BytesToRead
    3. If ToRead > 0 Then
    4. 'Neu empfangene Zeichen an die Empfangspuffer anhängen
    5. Dim Buffer(ToRead - 1) As Byte
    6. SerialPort1.Read(Buffer, 0, ToRead)
    7. TextBox2.Text &= System.Text.Encoding.Default.GetString(Buffer)
    8. ListBox1.Items.Insert(0, "Recv: " & ByteArrayToString(Buffer))
    9. End If
    11. End Sub

    Alex0815 schrieb:

    nur ich brauche den String immer bis zum CR in einer Zeile

    VB.NET-Quellcode

    1. Dim text2() = text1.Split(Environment.NewLine)
    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!

Facebook
Telefonspende