This is actually my code, and i tried different ways and still doesnt work:
Private Sub MSComm1_OnComm()
Dim Data As String
Select Case MSComm1.CommEvent
Case comEvSend
Data = CStr(MSComm1.Input)
End Select
Text1 = Data
End Sub
Private Sub Timer1_Timer()
Call MSComm1_OnComm
End Sub
AND you have to set the RThreshold property of the control to a value other than 0 (which is the default) to receive the comEvReceive events.
Greetings,
Rick
Maybe you should hook up a protocol analyzer between your pc and your device. At least you know then if you're actually getting any data from the device or not.
Greetings,
Rick
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.