Empfangene Serial Port Daten in verschiedene Lables augeben

  • VB.NET

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

    Empfangene Serial Port Daten in verschiedene Lables augeben

    Ich möchte ein kleines tool zum auslesen von einem Serial Port mit vb erstellen.
    jedoch habe ich ein Problem beim auslesen der strings.
    mein String sieht so aus:
    $APR:1#$AOT:349#$MEB:10#$MBV:0#$WME:0#$MEW:2868904939#$STW:50429304#$MES:100#
    Wie splite ich den string in verschidene Lables?
    Beispiel:
    $MES:100#
    $=anfang
    MES:= bezeichnung
    100= der wert der in einem lable ausgegeben werden soll
    #=ende
    Mein Code

    VB.NET-Quellcode

    1. Private Sub ReceivedText(ByVal [text] As String)
    3. Dim characters() As Char = {"a"c, "b"c, "c"c, "d"c}
    5. Dim alphabet As New String(characters)
    7. 'compares the ID of the creating Thread to the ID of the calling Thread
    9. If Me.RichTextBox2.InvokeRequired Then
    11. Dim x As New SetTextCallback(AddressOf ReceivedText)
    13. Me.Invoke(x, New Object() {(text)})
    15. Else
    17. Me.Label3.Text = [text]


    ;(

    CodeTag eingefügt. Nächstes Mal bitte selbst daran denken! ~Thunderbolt

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

    cappy80 schrieb:

    mein String sieht so aus:
    Wenn Du dem Port sagst, dass "#"Dein Zeilenende ist, bekommst Du jedes Schnipsel Deiner Daten einzeln als Zeile geliefert:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. SerialPort1.NewLine = "#"
    3. End Sub
    5. Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    6. Dim line = SerialPort1.ReadLine()
    7. ' was mit line tun
    8. 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!

    cappy80 schrieb:

    in ein Label
    Strings, keine Zahlen, ansonsten musst Du sie noch konvertieren. Wenn Du das SerialPort wie oben gezeigt konfiguriert hast, dann so:

    VB.NET-Quellcode

    1. Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    2. Dim txt = SerialPort1.ReadLine
    3. ' das SerialPort arbeitet in einem anderen Thread, deswegen muss die Ausgabe invoked werden.
    4. Me.BeginInvoke(Sub() Ausgabe(txt))
    5. End Sub
    7. Private Sub Ausgabe(txt As String)
    8. Dim parts() = txt.Split(New Char() {"$"c, ":"c}, System.StringSplitOptions.RemoveEmptyEntries)
    9. Dim value As String = parts(1)
    10. Select Case parts(0)
    11. Case "APR"
    12. Label1.Text = value
    13. Case "AOT"
    14. Label2.Text = value
    15. Case "MEB"
    16. Label3.Text = value
    17. Case "MBV"
    18. Label4.Text = value
    19. End Select
    20. 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!

    Hat super funktioniert Danke

    Habe aber bemerkt das beim auslesen teile verloren gehen oder nur langsam angezeigt werden.
    wo kann der Fehler sein?


    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Threading
    3. Imports System.IO.Ports
    4. Imports System.ComponentModel
    5. Imports System.Collections.Generic
    6. Imports System.Data
    7. Imports System.Drawing
    8. Imports System.Linq
    9. Imports System.Text
    10. Imports System.Windows.Forms
    11. Imports System.Text.RegularExpressions
    13. Public Class Form1
    15. Dim SerialPort As Object()
    17. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    18. SerialPort1.NewLine = "#"
    19. serialport = IO.Ports.SerialPort.GetPortNames()
    20. ComboBox1.Items.AddRange(SerialPort)
    22. End Sub
    23. Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    24. Dim txt = SerialPort1.ReadLine
    25. 'das SerialPort arbeitet in einem anderen Thread, deswegen muss die Ausgabe invoked werden.
    26. Me.BeginInvoke(Sub() Ausgabe(txt))
    27. End Sub
    29. Private Sub Ausgabe(txt As String)
    30. Dim parts() = txt.Split(New Char() {"$"c, ":"c}, System.StringSplitOptions.RemoveEmptyEntries)
    31. Dim value As String = parts(1)
    32. Select Case parts(0)
    33. Case "APR"
    34. Label3.Text = value
    35. Case "AOT"
    36. Label4.Text = value
    37. Case "MEB"
    38. Label5.Text = value
    39. Case "MBV"
    40. Label6.Text = value
    41. Case "WME"
    42. Label7.Text = value
    43. Case "MEW"
    44. Label8.Text = value
    45. Case "STW"
    46. Label9.Text = value
    47. Case "MES"
    48. Label10.Text = value
    49. End Select
    50. End Sub
    52. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    53. Me.RichTextBox1.Text = String.Empty
    54. If Me.ComboBox1.Text = String.Empty Then
    55. Me.RichTextBox1.Text = "Please Select Port Settings"
    56. Else
    57. Try
    58. ' make sure port isn't open
    59. If Not Me.SerialPort1.IsOpen Then
    60. Me.SerialPort1.PortName = Me.ComboBox1.Text
    61. 'this->textBox1->Text=this->comboBox1->Text;
    62. Me.SerialPort1.BaudRate = 57600
    63. 'this->textBox1->Text=this->comboBox2->Text;
    64. Me.RichTextBox2.Text = ""
    65. 'open serial port
    66. Me.SerialPort1.Open()
    67. Me.ProgressBar1.Value = 100
    68. Else
    69. Me.RichTextBox1.Text = "Port isn't openned"
    70. End If
    71. Catch UnnamedCatchVariable As UnauthorizedAccessException
    72. Me.RichTextBox1.Text = "Port belegt"
    73. End Try
    74. End If
    76. End Sub
    77. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    78. SerialPort1.Close()
    79. Me.ProgressBar1.Value = 0
    80. ' add sender name
    81. Dim name As String = Me.SerialPort1.PortName
    82. ' grab text and store in send buffer
    83. Dim message As String = Me.RichTextBox1.Text
    84. ' write to serial
    85. If Me.SerialPort1.IsOpen Then
    86. 'this->_serialPort->WriteLine(String::Format("<{0}>: {1}",name,message));
    87. Me.SerialPort1.WriteLine(message)
    88. Me.Label3.Text = ""
    89. Me.RichTextBox1.Text = String.Empty
    90. Me.RichTextBox2.Text = String.Empty
    91. Me.Label3.Text = Text.DefaultIfEmpty
    92. Else
    93. Me.RichTextBox2.Text = "Port Not Opened"
    95. End If
    97. End Sub
    99. End Class

    cappy80 schrieb:

    VB.NET-Quellcode

    1. Me.SerialPort1.Open()
    machst Du beim Start der Anwendung,

    cappy80 schrieb:

    VB.NET-Quellcode

    1. SerialPort1.Close()
    bei Beendigung.
    Sonst wäre es möglich, dass Teile gesendet werden, während das Port zu ist.
    Mit Button2 schließt Du das Port und fragst danach, ob es offen 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!

    cappy80 schrieb:

    von etwa 1 Sekunde
    K.A. Ich kann das ohne Hardware leider nicht testen.
    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!