• 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

Status
Not open for further replies.

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.

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?
 
Status
Not open for further replies.

Latest threads

EE World Online Articles

Loading
Top