Serialport Stream

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

Es gibt 72 Antworten in diesem Thema. Der letzte Beitrag () ist von Haudruferzappeltnoch.

    Definiere

    Haudruferzappeltnoch schrieb:

    auf die Daten gucken
    Du kannst eine Gegenstelle implementieren und einfach ohne Event in einem Timer-Tick- oder Button-Click-Event die vorhandenen Dagten auslesen wie auch immer (Bytes oder String) und Dir ansehen.
    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 wenn ich per Button-Klick jetzt meinen Serialport abfrage mit BytesToRead, sagt er 0. Ok das verstehe ich.
    Jetzt schicke ich ihm ein Signal (das kann von der Gegenstelle ausgehend schon ein String sein?), dann ist BytesToRead nicht mehr 0.
    ReadExisting gibt mir dieses Signal und ChrW(26) das Eof Zeichen. Aber das Eof-Zeichen hat die Gegenstelle auch geschickt.
    Ist das soweit korrekt?

    Was ist wenn der Port kein ChrW(26) bekommt? Bleibt BytesToRead dann 0? Oder wird da endlos weitergelesen?

    Das wollte ich quasi per Try and Error nachgucken.

    Das EOF-Zeichen heißt: »Ich als Gerät-am-anderen-Ende habe Dir momentan nix mehr zu sagen.« Das ist wie das Klischee-"Over" bei Funkgerätgesprächen. Solange der eine nicht "Over" sagt, heißt das für den anderen, dass der eine noch was sagen will. Wenn das Gerät also warumauchimmer kein Signal bekommt, hat es auch keinen Grund, der SerialPort-Endstelle, also quasi Deinem Programm eine Antwort zu erteilen. Und ohne Antwort kein EOF-Signal. Wenn das Gerät aber ungültige Daten bekommt, also diese nicht verarbeiten kann, sollte es dies auch dem Programm mitteilen, natürlich gefolgt von einem EOF-Signal. Das ist aber eine Spezifikationsfrage des Geräts, also siehe Gerätedoku.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Haudruferzappeltnoch schrieb:

    (das kann von der Gegenstelle ausgehend schon ein String sein?)
    Das sollte in der Beschreibung der Gegenstelle stehen.
    Das nennt sich Übertragungsprotokoll.
    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!

    Haudruferzappeltnoch schrieb:

    Wann bekommt das Gerät denn selbst ein Signal in diesem Prozess?
    Wenn Du das programmtechnisch organisierst.
    Oder ist das bloß ein Sender aber kein Empfänger?
    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!

    Haudruferzappeltnoch schrieb:

    Das Gerät sendet doch das Signal? Wann bekommt das Gerät denn selbst ein Signal in diesem Prozess?
    Dann ist folgende Aussage von Dir für mich nicht erklärbar:

    Haudruferzappeltnoch schrieb:

    Jetzt schicke ich ihm ein Signal
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Mit "ihm" meinte ich den Serialport.
    Das Gerät ist nur passiv im Ablauf. Das kann meinetwegen sein was will. Hauptsache es gibt seriell lesbaren Strom aufs Kabel. Das sind aber immer Bytes hätte ich gedacht, gut wenn die Bytes als String konvertierbar sind dann sind das Strings, so meint ihr das oder?

    Also ich weiß nicht wie das EoF repräsentiert wird, aber sagen wir das ist ein volles Byte "11111111"
    Dann schickt die Gegenstelle etwas das mir BytesToRead = 1 gibt, dann wäre das bsp. "0101101011111111" Weil das Eof angehangen wird.

    Aber was macht der Serialport wenn nur "01011010" einläuft, also kein eof und trotzdem daten?

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Haudruferzappeltnoch“ ()

    Achsooo …

    Haudruferzappeltnoch schrieb:

    Was ist wenn der Port kein ChrW(26) bekommt? Bleibt BytesToRead dann 0? Oder wird da endlos weitergelesen?
    Wenn der Port kein ChrW(26) bekommt, bekommt er (wohl) auch kein EOF-Signal. Daher wird der Port weiterhin warten, bis was kommt. Und BytesToRead müsste dementsprechend auch 0 bleiben.
    Ich frag mich nur gerade: Kannst Du all die Sachen nicht vor Ort testen?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Haudruferzappeltnoch schrieb:

    Das sind aber immer Bytes hätte ich gedacht
    In der untersten Ebene des Systems gehen da ausschließlich Bytes aufs Kabel.
    Höhere Programmiersprachen (z.B. .NET) machen dann daraus ggf. Strings, wenn mit Encoding und den Strring-Methoden gearbeitet wird.
    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!

    @Haudruferzappeltnoch
    Guck dir das mal an.
    Da sind noch ein paar Sachen drin die überarbeitet werden müssten, aber nix was das Serialport betrifft. (Denke ich)
    Wenn du wissen willst was das für Bytes sind, wandele den String halt um.

    VB.NET-Quellcode

    1. ​Public Class Form1
    2. ' Das Delegat muss die selbe Signature haben
    3. Delegate Sub TextBoxCallback(ByVal text As String)
    5. Private WithEvents myComPort As IO.Ports.SerialPort
    7. ' Bei den meisten Geräten ist ein Abschlußzeichen erforderlich, meistens
    8. ' wird ChrW(13) oder ChrW(10) oder beide benötigt
    9. ' - Wählt was eure Gegenstelle benötigt:
    10. ' Private EndOfCommand As String = Constants.vbCr.ToString
    11. ' Private EndOfCommand As String = Constants.vbLf.ToString
    12. Private EndOfCommand As String = Constants.vbCrLf.ToString
    14. Private Sub Form1_Load(ByVal sender As System.Object, _
    15. ByVal e As System.EventArgs) Handles MyBase.Load
    17. ' Mal nachschauen, ob es hier SerialPorts gibt
    18. Dim str() As String = IO.Ports.SerialPort.GetPortNames()
    20. ' Wenn nein, dann beenden:
    21. If str.Length = 0 Then
    22. MsgBox("No Serialport available!", MsgBoxStyle.Critical)
    23. Me.Close()
    24. End If
    26. ' Eine Instance von SerialPort erstellen
    27. ' Im Normalfall ist das COM1:
    28. Me.myComPort = New IO.Ports.SerialPort(str(0))
    30. ' Die folgenden vier Einstellungen müssen denen der
    31. ' Gegenstelle entsprechen
    32. Me.myComPort.BaudRate = 9600
    33. Me.myComPort.DataBits = 8
    34. Me.myComPort.StopBits = IO.Ports.StopBits.One
    35. Me.myComPort.Parity = IO.Ports.Parity.None
    37. ' Wichtig! Hier wird eingestellt nach wieviel Bytes im Eingangspuffer
    38. ' das DataReceived Event gefeuert wird
    39. Me.myComPort.ReceivedBytesThreshold = 1
    41. ' Und nun öffnen wir den Port
    42. Me.myComPort.Open()
    43. End Sub
    45. ''' <summary>
    46. ''' Wird ausgelöst wenn die Comm die in ReceivedBytesThreshold eingestellte
    47. ''' Anzahl Bytes empfangen hat
    48. ''' </summary>
    49. Private Sub myComPort_DataReceived( _
    50. ByVal sender As Object, _
    51. ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
    52. Handles myComPort.DataReceived
    54. Select Case e.EventType
    55. Case IO.Ports.SerialData.Chars
    56. ' Ein Zeichen wurde empfangen und im Eingabepuffer platziert.
    58. Case IO.Ports.SerialData.Eof
    59. ' Das Dateiendezeichen wurde empfangen und im
    60. ' Eingabepuffer platziert.
    62. End Select
    63. Dim msg As String = Me.myComPort.ReadExisting
    64. Me.ShowText(msg)
    65. End Sub
    67. ''' <summary>
    68. ''' Wird ausgelöst wenn sich die Steuerleitungen geändert haben
    69. ''' </summary>
    70. Private Sub myComPort_PinChanged(ByVal sender As Object, ByVal e As _
    71. System.IO.Ports.SerialPinChangedEventArgs) Handles myComPort.PinChanged
    72. Select Case e.EventType
    73. Case IO.Ports.SerialPinChange.Break
    74. ' Bei der Eingabe wurde ein "break" erkannt.
    76. Case IO.Ports.SerialPinChange.CDChanged
    77. ' Der Zustand des CD-Signals (Carrier Detect) hat sich geändert.
    78. ' Mit diesem Signal wird angezeigt, ob ein Modem mit einer
    79. ' Telefonleitung verbunden ist und ein Datenträgersignal
    80. ' erkannt wurde.
    82. Case IO.Ports.SerialPinChange.CtsChanged
    83. ' Der Zustand des CTS-Signals (Clear to Send) hat sich geändert.
    84. ' Mit diesem Signal wird angegeben, ob Daten über den seriellen
    85. ' Anschluss gesendet werden können.
    87. Case IO.Ports.SerialPinChange.DsrChanged
    88. ' Zustand des DSR-Signals (Data Set Ready) hat sich geändert.
    89. ' Mit diesem Signal wird angezeigt, ob das Gerät am seriellen
    90. ' Anschluss betriebsbereit ist.
    92. Case IO.Ports.SerialPinChange.Ring
    93. 'Ein Ringindikator wurde erkannt.
    95. End Select
    96. End Sub
    98. ''' <summary>
    99. ''' Wird ausgelöst wenn ein Fehler in der Übertragung endeckt wurde
    100. ''' </summary>
    101. Private Sub myComPort_ErrorReceived( _
    102. ByVal sender As Object, _
    103. ByVal e As System.IO.Ports.SerialErrorReceivedEventArgs) _
    104. Handles myComPort.ErrorReceived
    106. Select Case e.EventType
    107. Case IO.Ports.SerialError.Frame
    108. ' Die Hardware hat einen Rahmenfehler erkannt.
    110. Case IO.Ports.SerialError.Overrun
    111. ' Ein Zeichenpufferüberlauf ist aufgetreten. Das nächste
    112. ' Zeichen geht verloren.
    114. Case IO.Ports.SerialError.RXOver
    115. ' Ein Eingabepufferüberlauf ist aufgetreten.
    116. ' Die Kapazität des Eingabepuffers ist erschöpft,
    117. ' oder es wurde ein Zeichen nach dem Dateiendezeichen
    118. ' (EOF, end-of-file) empfangen.
    120. Case IO.Ports.SerialError.RXParity
    121. ' Die Hardware hat einen Paritätsfehler erkannt.
    123. Case IO.Ports.SerialError.TXFull
    124. ' Die Anwendung hat versucht, ein Zeichen zu übertragen, aber
    125. ' die Kapazität des Ausgabepuffers war erschöpft.
    127. End Select
    128. Me.ShowText("ERROR" & vbCrLf)
    129. End Sub
    131. ''' <summary>
    132. ''' Da die Daten aus einem anderem Thread kommen müssen wir die Ausgabe
    133. ''' über Invoke machen
    134. ''' </summary>
    135. Private Sub ShowText(ByVal text As String)
    136. If Me.TextBox1.InvokeRequired Then
    137. Dim d As New TextBoxCallback(AddressOf ShowText)
    138. Me.Invoke(d, New Object() {text})
    139. Else
    140. Me.TextBox1.Text = Me.TextBox1.Text & text
    141. End If
    142. End Sub
    144. ''' <summary>
    145. ''' Hier wird der Command zusammengesetzt und versendet
    146. ''' </summary>
    147. ''' <param name="command"></param>
    148. ''' <remarks></remarks>
    149. Private Sub Send(ByVal command As String)
    150. Me.myComPort.Write(command & Me.EndOfCommand)
    151. End Sub
    153. Private Sub Button1_Click(ByVal sender As System.Object, _
    154. ByVal e As System.EventArgs) Handles Button1.Click
    156. Me.Send("Ein Befehl, den die Gegenstelle kennt!")
    157. End Sub
    158. End Class

    Naifu schrieb:

    Wenn du wissen willst was das für Bytes sind, wandele den String halt um.
    Was soll das?
    Mit dem falschen Encoding geht das vor die Hose.
    Wenn er die Bytes haben will, liest er sie mit Public Function Read (buffer As Byte(), offset As Integer, count As Integer) As Integer aus.
    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!

    @RodFromGermany
    Stimmt, das hättet Ihr @Haudruferzappeltnoch aber auch schon vor dreißig Posts mittelten können.
    Abgesehen davon, die meisten Gegenstellen senden ASCII oder Binärdaten mit Protokoll. Dann geht das mit dem String eh in die Hose.
    Also, was soll was?

    Naifu schrieb:

    Stimmt, das hättet Ihr @Haudruferzappeltnoch aber auch schon vor dreißig Posts mittelten können.


    Ich hab im aufgefordert mal im ObjectBrowser mal nach den SerialPort zu schauen, allein das lesen der MethodenNamen hätte ihm klargemacht, das mehr möglich ist. Kam aber nicht sweiter zu, weder ob er das mal getan hat oder nicht, ich glaube aber weniger dran, denn dann hätte er wohl weitere Fragen gehabt.

    Tatsächlich wurde ja bereits die ReadToEnd und CopyTo Methode vorgeschlagen gleich zu Anfang, hab ich probiert, hat sich aufgehangen. Das hab ich soweit geschrieben
    .Read Methode hatte ich selbst auch probiert, hat sich auch aufgehangen. Dachte das wird das gleiche Problem sein, daher nicht mehr erwähnt.
    Dadurch sind wir hier gelandet. Weil ich gefragt hab was da wohl passieren mag.
    Also ReadExisting geht ja, kann es sein, dass man mit den Parameter bei .Read noch bestimmte Fälle abdecken muss?
    In dem Programmsnippet was ich schon nutze Post 15, habe ich ja auch die Read Methode drin, da geht es auch. Aber auch da hängt es sich manchmal! auf wenn ich den komischen Sleep nicht drin hab.

    Also ja ich weiß es nunmal nicht, was da der Knackpunkt ist deswegen frag ich.

    Haudruferzappeltnoch schrieb:

    hat sich aufgehangen.
    Kannst Du das mal etwas näher beschreiben?
    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!

    1. Ich mach nen ComPort ready, mit Baudrate etc.
    2. Button.Click mal reingucken; prüft erst BytesToRead. Die sind 0 also nix da, super
    3. Jetzt sendet die Gegenstelle
    4. Button.Click wieder gucken, BytesToRead nicht 0 also geht er weiter,
    -mit ReadExisting, krieg ich genau das raus was ich soweit hier verstanden habe
    -mit allen anderen Methoden steppt der Debugger da rein und verschwindet. Das Programm reagiert nicht mehr.

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. If SP1.BytesToRead > 0 Then
    3. txtBarcode.Text = SP1.ReadExisting()
    4. End If
    5. End Sub


    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. If SP1.BytesToRead > 0 Then
    3. Dim b(1023) As Byte
    4. txtBarcode.Text = SP1.Read(b, 0, b.Length).ToString 'hier hatte ich auch ReadToEnd oder CopyTo probiert mit dem BaseStream, ist ja immer noch die Frage wann da was drin ist und wie sich der zu dieser Methode unterscheidet
    5. End If
    6. End Sub

    Haudruferzappeltnoch schrieb:

    Das Programm reagiert nicht mehr.


    Der GUI Thread ist blockiert, du willst mehr lesen als da ist, also hängste in dieser Zeile fest, lege den Byte array so groß an wie du ihn brauchst(SP1.BytesToRead hat den Wert ja), und lese nur so viele wie auch da. Kannst auch einen größeren Buffer nehmen, aber lese nur so viel wie da. Ein SP hat auch Properties, im Objectbrowser wäre das sichtbar gewesen, wenn du einen SerialPort aus der ToolBox auf Form ziehst, und dann im Eigenschaftenfenster schaust, ReadTimeout, WriteTimeout default beides -1, steht für Endlos, kannste aber festlegen, aber dann würde eine Exception geworfen, wenn nicht ausreichend gelesen werden konnte.

    Ich erwähnte ja schon das ich Threads verwende, wenn ein Nebenthread kontrolliert festhängt(endlessloop +boolean flag zum verlassen(immer nur lesen was da ist), oder mit async/await arbeiten) kein Thema, alles reagiert weiterhin wunderbar.

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

Facebook
Telefonspende