Don't know if you've resolved this, but when data is received, the DataReceived event is triggered, so you need to code that to get the data and put it into the RechTextBox.
I'm not a .Net programmer so the code below may look a bit VB6'ish:
Code:
Private Sub SerialPort1_DataReceived(sender As Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Static ReceiveBuffer As String
Dim ExitLoop As Boolean
'
' Read whatever has been received by the Serial Port
' and append it to the Receive Buffer
'
Dim CharReceived As String = SerialPort1.ReadExisting()
ReceiveBuffer = ReceiveBuffer & CharReceived
Do
'
' Examine the Receive Buffer to see if the End of Message indicator
' has been received
' (in this example it's expecting a vbNewLine
'
Dim EndOfMessage As Integer = ReceiveBuffer.IndexOf(vbNewLine)
If EndOfMessage > 0 Then
'
' A complete Record has been received
' Append it to the RichTextBox and add a vbNewLine
'
RichTextBox1.AppendText(ReceiveBuffer.Substring(0, EndOfMessage))
RichTextBox1.AppendText(vbNewLine)
'
' See if there's anything else in the Receive Buffer
' If there is then move it to the front and go round the loop again
' If there isn't then flush the Buffer and signal to exit the loop
'
If ReceiveBuffer.Length > EndOfMessage + 2 Then
ReceiveBuffer = ReceiveBuffer.Substring(EndOfMessage + 2)
Else
ReceiveBuffer = vbNullString
ExitLoop = True
End If
Else
'
' Haven't received the End of Message indicator
' exit and wait for the next character to be received
'
ExitLoop = True
End If
Loop Until ExitLoop
End Sub
The code assumes that ReceiveThreshold = 1 (the default value)
It also assumes that each 'record' sent is terminated by a vbNewLine.
It's not tested as I haven't got anything to test it with but hopefully you'll be able to follow the logic.
EDIT: If the data is just coming in as a 'stream' with no End of Message indicator, the code can be simplified to:
Code:
Private Sub SerialPort1_DataReceived(sender As Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
'
' Read whatever has been received by the Serial Port
' and append it to the RichTextBox
'
RichTextBox1.AppendText(SerialPort1.ReadExisting())
End Sub
Reply With Quote
Originally Posted by gordk
