''' <summary>
''' Wird ausgelöst wenn die Comm die in ReceivedBytesThreshold eingestellte
''' Anzahl Bytes empfangen hat
''' </summary>
Private Sub myComPort_DataReceived( _
ByVal sender As Object, _
ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
Handles myComPort.DataReceived
 
Select Case e.EventType
Case IO.Ports.SerialData.Chars
' Ein Zeichen wurde empfangen und im Eingabepuffer platziert.
 
Case IO.Ports.SerialData.Eof
' Das Dateiendezeichen wurde empfangen und im
' Eingabepuffer platziert.
 
End Select
'### geändert in Redaline(). empfängt Zeichen bis zum oben definierten
' .newline
Dim msg As String = Me.myComPort.ReadLine
' ### --------------------------------------------------------------
' versuche auch mal folgende Methoden.
' Kann für Deinen Fall nützlich sein:
' Anzahl der im Empfangspuffer aufgelaufenen Zeichen:
' Bytenumber = SerialPort1.BytesToRead
' liest 1 Zeichen im Format Byte aus dem Puffer:
'ByteToRead = SerialPort1.ReadByte()
' liest 1 Byte aus dem Puffer und konvertiert nach Ascii:
'CharToRead = SerialPort1.ReadChar()
' liest String bis Zeichenfolge "90" empfangen wird
'readBuffer1 = SerialPort1.ReadTo("90")
'----------------------------------------------------------------------
 
Me.ShowText(msg)
End Sub
 
 
''' <summary>
''' Da die Daten aus einem anderem Thread kommen müssen wir die Ausgabe
''' über Invoke machen
''' </summary>
Private Sub ShowText(ByVal text As String)
If Me.TextBox3.InvokeRequired Then
Dim d As New TextBoxCallback(AddressOf ShowText)
Me.Invoke(d, New Object() {text})
Else
TextBox3.Text = "" ' erst einmal löschen
TextBox3.Text = text
End If
End Sub
 
 
End Class

mfg
Ellen