MY CODE FOR MSCOMM1_ONCOMM() EVENT IS
HTML Code:
Private Sub MSComm1_OnComm()
Dim strMessage As String
Select Case MSComm1.CommEvent
' Event messages.
Case comEvReceive
If MSComm1.InBufferCount > 0 Then
strMessage = StrConv(MSComm1.Input, vbUnicode) ' ERROR IN THIS LINE (MSCOMM1.INPUT) "ERROR READING FROM COMM PORT DEVICE"
Text1.Text = strMessage
Else
MsgBox ("No message received")
End If
' Case comEvSend
' Case comEvCTS
' strMessage = "[Change in CTS Detected]"
' Case comEvDSR
' strMessage = "[Change in DSR Detected]"
' Case comEvCD
' strMessage = "[Change in CD Detected]"
' Case comEvRing
' strMessage = "[The Phone is Ringing]"
' Case comEvEOF
' strMessage = "[End of File Detected]"
' Error messages.
Case comBreak
strMessage = "[Break Received]"
Case comCDTO
strMessage = "[Carrier Detect Timeout]"
Case comCTSTO
strMessage = "[CTS Timeout]"
Case comDCB
strMessage = "[Error retrieving DCB]"
Case comDSRTO
strMessage = "[DSR Timeout]"
Case comFrame
strMessage = "[Framing Error]"
Case comOverrun
strMessage = "[Overrun Error]"
Case comRxOver
strMessage = "[Receive Buffer Overflow]"
Case comRxParity
strMessage = "[Parity Error]"
Case comTxFull
strMessage = "[Transmit Buffer Full]"
' Case Else
' strMessage = "[Unknown error or event: " & MSComm1.CommEvent & "]"
End Select
strBuffer = strBuffer & strMessage
End Sub