A1VBCode Forums / Classic Visual Basic (VB 6 or earlier) / General Visual Basic / Monitoring MSComm1.CommEvent / Latest Posts

RE: Monitoring MSComm1.CommEvent

CDRIVE — Sun, 21 Mar 2010 01:13:56 GMT

After giving this more thought I think this is the best way to go because it tests for both comEvCTS as well as the state of CTSHolding.

Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub

Option Explicit

Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub

Private Sub Command1_Click()
MSComm1.RTSEnable = Not MSComm1.RTSEnable = True
End Sub

Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvCTS And MSComm1.CTSHolding = True Then
Me.Caption = "CTS Line is High"
End If
If MSComm1.CommEvent = comEvCTS And MSComm1.CTSHolding = False Then
Me.Caption = "CTS Line is Low"
End If
End Sub

RE: Monitoring MSComm1.CommEvent

CDRIVE — Sun, 21 Mar 2010 01:09:02 GMT

This code toggles the RTS line which is jumped to the CTS line. It's garanteed to work.

By the way comEvCTS only returns a change in the CTS line. It can't tell you if it's high or low, which is why I didn't use it in the top example.

Option Explicit

Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub

Private Sub Command1_Click()
MSComm1.RTSEnable = Not MSComm1.RTSEnable = True
End Sub

Private Sub MSComm1_OnComm()
If MSComm1.CTSHolding = True Then
Me.Caption = "CTS Line Is High"
Else
Me.Caption = "CTS Line Is Low"
End If
End Sub

If you want to use comEvCTS you can write it this way but it's not as reliable or clean as my first example.

Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub

Private Sub Command1_Click()
MSComm1.RTSEnable = Not MSComm1.RTSEnable = True
End Sub

Private Sub MSComm1_OnComm()
Static intEvCtr As Integer
If MSComm1.CommEvent = comEvCTS Then intEvCtr = intEvCtr + 1
If MSComm1.CommEvent = comEvCTS And intEvCtr = 1 Then
Me.Caption = "CTS Line Went High"
End If
If MSComm1.CommEvent = comEvCTS And intEvCtr = 2 Then
Me.Caption = "CTS Line Went Low"
intEvCtr = 0
End If
End Sub

Monitoring MSComm1.CommEvent

duchoang — Sat, 20 Mar 2010 00:47:46 GMT

Hello,
I'm using MSComm.CommEvent to monitor event of my COM port.
First I open port1 and get value 105
then I short circuit pin 7 (RTS) and 8 (CTS) and then It returns event value "3"
But when I release (disconnect) pin 7 and 8, it still remains value "3"
Why I does not return back to the original value "105"
Does anyone know the code,
help me pls

************
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.RTSEnable = True
MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
MSComm1.RTSEnable = False
End Sub
Private Sub MSComm1_OnComm()
Debug.Print MSComm1.CommEvent
Text1.Text = MSComm1.CommEvent
End Sub
************