gg
Junior Member level 3
mscomm1 download
Hi,
I'm using MSComm Control to program my RS-232 serial cable. I want the computer to receive the data from other devices. Hence, i written my code,but there's no data appear on my computer. Can anyone help me with this? My code is like this:
Private Sub Form_Load()
MSComm1.RThreshold = 1
MSComm1.InputLen = 1
MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Dim value As String
If MSComm1.CommEvent = 2 Then
value = MSComm1.Input
Picture1.Print value
End If
End Sub
Private Sub Form_Unload(cancel As Integer)
MSComm1.PortOpen = False
End Sub
Hi,
I'm using MSComm Control to program my RS-232 serial cable. I want the computer to receive the data from other devices. Hence, i written my code,but there's no data appear on my computer. Can anyone help me with this? My code is like this:
Private Sub Form_Load()
MSComm1.RThreshold = 1
MSComm1.InputLen = 1
MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Dim value As String
If MSComm1.CommEvent = 2 Then
value = MSComm1.Input
Picture1.Print value
End If
End Sub
Private Sub Form_Unload(cancel As Integer)
MSComm1.PortOpen = False
End Sub