J
guys, can somebody please help me with my program...
<pre>
Option Explicit
Dim ReceivedData As String
Private Sub Form_Load()
MSComm1.CommPort = 7
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
ReceivedData = ""
End Sub
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
ReceivedData = MSComm1.Input
If ReceivedData = "start" Then
Label1.Caption = "start"
Else
Label1.Caption = "wrong input"
End If
End Sub</pre>
there must be a display in the label containing the text that i sent once the text is received... but this is not working... is there still a need to use at commands and download a dll file?...
somebody please help me... thank u so much in advance!
<pre>
Option Explicit
Dim ReceivedData As String
Private Sub Form_Load()
MSComm1.CommPort = 7
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
ReceivedData = ""
End Sub
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
ReceivedData = MSComm1.Input
If ReceivedData = "start" Then
Label1.Caption = "start"
Else
Label1.Caption = "wrong input"
End If
End Sub</pre>
there must be a display in the label containing the text that i sent once the text is received... but this is not working... is there still a need to use at commands and download a dll file?...
somebody please help me... thank u so much in advance!