• Welcome to our site! Electro Tech is an online community (with over 170,000 members) who enjoy talking about and building electronic circuits, projects and gadgets. To participate you need to register. Registration is free. Click here to register now.

VB6 Serial Comm + IR

Not open for further replies.


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.

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 Select

End Sub
Any ideas?
Not open for further replies.

EE World Online Articles