RS 232 Text Codierung

  • VB.NET
  • .NET (FX) 4.5–4.8

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

    RS 232 Text Codierung

    Hallo Forum

    Ich habe ein Problem wo ich nicht weiter kommen

    Die Verbindung zur Schnittstelle wird Hergestellt und ich bekomme auch eine Antwort.
    Nur leider ist das Ergebnis nicht das was ich brauche.

    Hier mal der Code:

    Quellcode

    1. Imports Microsoft.VisualBasic
    3. Imports System
    5. Imports System.Collections
    7. Imports System.Collections.Generic
    9. Imports System.Data
    11. Imports System.Diagnostics
    13. Imports System.Threading
    15. Imports System.IO.Ports
    17. Imports System.Text
    19. Public Class Form1
    21. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    23. Button2.Enabled = True
    25. Dim comopen As Boolean
    27. With SerialPort1
    29. .PortName = ComboBox2.SelectedItem.ToString
    31. .ParityReplace = 59 '59
    33. .BaudRate =38400
    35. .Parity = System.IO.Ports.Parity.None
    37. .DataBits = 8
    39. .StopBits = System.IO.Ports.StopBits.One
    41. .Handshake = System.IO.Ports.Handshake.None
    43. .RtsEnable = False
    45. .ReceivedBytesThreshold = 1
    47. .ReadTimeout = 10000
    49. .NewLine = Constants.vbCr
    51. 'Ganz Wichtig!!!
    53. .DtrEnable = False
    55. .Encoding = System.Text.Encoding.GetEncoding("US")
    57. Try
    59. SerialPort1.Open()
    61. comopen = SerialPort1.IsOpen
    63. 　
    65. Catch ex As Exception
    67. comopen = False
    69. MsgBox("Fehler beim Öffnen des Ports: " & ex.Message)
    71. Button2.Enabled = False
    73. End Try
    75. End With
    77. If SerialPort1.IsOpen Then
    79. Label1.Text = "Verbunden mit " & SerialPort1.PortName
    81. Button3.BackColor = Color.Green
    83. ComboBox2.Enabled = False
    85. Button5.Visible = True
    87. 　
    89. 　
    91. Else
    93. Label1.Text = "Keine Verbindung"
    95. Button3.BackColor = Color.Red
    97. Button2.Enabled = False
    99. End If
    101. 　
    103. End Sub
    105. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    107. Label1.Text = ""
    109. Label1.Text = "Nicht Verbunden"
    111. Button5.Visible = False
    113. Button2.Enabled = False
    115. Button3.BackColor = Color.Red
    117. ComboBox1.SelectedIndex = 0
    119. Button5.Visible = False
    121. For Each sp As String In My.Computer.Ports.SerialPortNames 'ruft die Verfügbaren Ports ab
    123. ComboBox2.Items.Add(sp)
    125. Next
    127. ComboBox2.SelectedIndex = 0
    129. End Sub
    131. Private Sub Form1_close(Sender As Object, e As EventArgs) Handles MyBase.FormClosing
    133. SerialPort1.Close()
    135. End Sub
    137. Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    139. Me.Invoke(Sub() abc(SerialPort1.ReadExisting))
    141. End Sub
    143. Private Sub abc(inputdata As String)
    147. 'TextBox2.AppendText(inputdata & Environment.NewLine)
    149. ListBox1.Items.Add(inputdata)
    153. End Sub
    157. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    159. SerialPort1.Close()
    161. Label1.Text = "Nicht Verbunden"
    163. Button3.BackColor = Color.Red
    165. Button5.Visible = False
    167. End Sub
    169. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    173. End Sub
    177. End Class


    Mit Divice Monitoring Studio bekomme ich die Werte wie Sie brauche. Ich habe mal ein Bild angehängt. Ich glaube dass es nur eine Kleinigkeit ist, komme aber einfach nicht weiter und langsam nervts das ich bei so einer kleinigkeit hänge.
    Also bitte um Hilfe!!!

    Lg Stefan
    Bilder

    • RS232auswertung.jpg

      99,27 kB, 913×381, 126 mal angesehen

    StefanS0 schrieb:

    VB.NET-Quellcode

    1. .Encoding = System.Text.Encoding.GetEncoding("US")
    machst Du

    VB.NET-Quellcode

    1. .Encoding = System.Text.Encoding.GetEncoding("en-US")
    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!

    StefanS0 schrieb:

    Erfolg
    Ich denke, das ist lediglich ein Formatierungsproblem.
    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!

    StefanS0 schrieb:

    Nur weiß ich nicht wo.
    Kannst Du mal vom SerialPort die Information als Byte auslesen und diese dann binär in eine Datei schreiben und diese Datei anhängen?

    VB.NET-Quellcode

    1. Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    2. Dim count = SerialPort1.BytesToRead
    3. Dim buffer() As Byte
    4. ReDim buffer(count - 1)
    5. SerialPort1.Read(buffer, 0, count)
    6. IO.File.WriteAllBytes("DEIN_PFAD", buffer)
    7. 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!

    Ich kenne ähnliches noch von meinen Spielereien mit dem Arduino (Leonardo und UNO).
    Mit dem wird auch via (via USB simulierten) SerialPort kommuniziert.

    Solche abgehakten Zeilen, die in der naechsten Zeile weiter liefen, traten bei mir immer dann auf, wenn der Puffer voll lief.

    Edit (nach Durchforstung altem Codes):
    Wenn ich mir sicher war, das am Ende einer Zeile immer ein CrLf (oder \n) kommt, nahm ich auch immer SerialPort1.ReadLine()
    Soweit ich mich erinnere, kann da auch der Puffer "ueberlaufen" ... ReadLine() wartet bis zum naechsten NewLine/CrLf bis es seine Sammlung abschliesst.

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

    Hallo

    Danke mal für eure Hilfe.
    Ich habe jetzt beides ausprobiert.

    1. Bei ROD's Vorschlag wird die Empfangen Daten richtig in die Txt Datei gespeichert, immer nur die letzte empfange Zeile.
    2. Bei Hirnwundes Vorschlag hängt sich das Programm nach 5 Befehlen auf. ?(

    Mittlerweile glaub ich auch das es was mit dem Buffer zu tun hat.
    Lg

    StefanS0 schrieb:

    immer nur die letzte empfange Zeile.
    Klar.
    Die Datei wird ja bei jedem Empfang überschrieben.
    Mach das so, da werden die neuen Daten angehängt:

    VB.NET-Quellcode

    1. Using sw = New IO.StreamWriter("c:\temp\binTest.bin", True)
    2. Dim bw = New IO.BinaryWriter(sw.BaseStream)
    3. bw.Write(buffer, 0, buffer.Length)
    4. End Using
    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

    Ja, funktioniert soweit sehr gut. Danke

    Blöde Frage: Wie bring ich das ganze jetzt noch, bei meiner Form in die Listbox ?? Also nicht vorab in eine TextBox sondern gleich in die Listbox.

    Lg

    StefanS0 schrieb:

    gleich in die Listbox
    geht so:

    VB.NET-Quellcode

    1. Me.ListBox1.Items.Add("bla") ' Dein Text halt
    Im DataReceived dann so:

    VB.NET-Quellcode

    1. Dim txt = "bla"
    2. Me.BeginInvoke(Sub() Me.ListBox1.Items.Add(txt))

    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