[RESOLVED] Using ONCOMM Event

[papafrancisco]

I have searched the forum and found several several topics for using ONCOMM. I want to detect the arrival of data at the com port without polling nor do I want to wait for the data. Each received message will end with <ETX> &h03/chr$(3). Is this too ambitious?

[papafrancisco]

Figured it out on my own. Thanks

[HyperUniverse]

So, how dd you do it?

I am using similar end string - chr$(3) to end my incomming data.
And because I am a beginner in programming, I just want to see if I do it right.

Thanks.

[papafrancisco]

I set RThreshold = 1 and used the following code (some was taken from this forum):

Private Sub MSComm1_OnComm()
Dim strInput As String
With MSComm1
'test for incoming event
Select Case .CommEvent
Case comEvReceive
'display incoming event data to displaying textbox
strInput = .Input


Do Until Right$(strInput, 1) = Chr$(3)
strInput = strInput + .Input
Loop

SerialInASCII.Text = strInput
End Select
End With 'MSComm1
End Sub


'by setting RThreshold = 1, each byte is compared and added to the string strInput until chr$(3) is detected. This code may be cluggy to some but it works. By the way, I am novoice programmer myself and ask questions and search this forum reguarly. There are good people on this forum that want to help

[CDRIVE]

You would be wise to not use "+" to concatenate strings. The "&" char is the proper way to do it.

strInput = strInput & .Input