please help me.. i want to create a program
that will throw send a <text> typed in text1.text after clicking
command1 then the receiver will send it back.. then
the sent back data will be shown in text2.text..
here are my settings and getting error 8020 error read comm device
here are my current setttings
Private Sub Form_Load()
With MSComm1
If .PortOpen Then .PortOpen = False
.CommPort = 15
.Settings = "9600,N,8,1"
.Handshaking = comNone
.DTREnable = True
.RTSEnable = True
.RThreshold = 1
.SThreshold = 0
.PortOpen = True
End With 'MSComm1
Private Sub Command2_Click()
With MSComm1
'make sure the serial port is open
If .PortOpen = False Then .PortOpen = True
'send the data to turn off led (including a tailing carriage return as often needed)
.Output = Text1.Text
'Text1.Text = ""
End With 'MSComm1
End Sub
================
this part has an error (strInput = .Input)
Private Sub MSComm1_OnComm()
With MSComm1 'test for incoming event
Select Case .CommEvent
Case comEvReceive
strInput = .Input
Text2.Text = Text2.Text & strInput 'display incoming event data to displaying textbox
End Select
End With
End Sub
=====================
if you guys could create a fresh program. would be better thanks ^_^
