GatorGnet
New Member
I have started a vb6 app and I am using a test script to test an IR receiver. I have a basic IR receiver hooked up to com1. I have another program that I use to test ir transmitters and everything is working.
However, when I run this script, nothing happens when I send IR data. For now, all I want it to do is END so I know it is working.
Any ideas?
However, when I run this script, nothing happens when I send IR data. For now, all I want it to do is END so I know it is working.
Code:
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "38400,O,8,1"
'MSComm1.InputMode = 0 'comInputModeText
'MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.DTREnable = True
MSComm1.RTSEnable = True
MSComm1.NullDiscard = False
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
End
End Select
End Sub
Any ideas?