Private Sub Command1_Click()
MSComm1.Settings = "9600,N,8,1" '设置波特率、校验位、数据位、停止位的字符串
MSComm1.CommPort = 1 '决定串口号
MSComm1.InputLen = 0 ' 告诉控件读入整个缓冲区
MSComm1.PortOpen = True '打开串口
MSComm1.Output = "a1121" '向串口发送字符串"abcd"
MSComm1.PortOpen = False '关闭串口
End Sub
Private Sub MSComm1_OnComm() '当收到串口返回值时触发这个事件
Text2.Text = "hello!" ‘为了检测oncomm是否运行!
Dim InString As String
MSComm1.InputLen = 0 ' 读取所有可用数据。
MSComm1.InputMode = 0
If MSComm1.InBufferCount Then ' 检查数据。
' Read data.
InString = MSComm1.Input
End If
Text2.Text = InString
End Sub
上面的程序发送的字符是可以检测到的,已经发送出去了,我是把串口的2,3口直接连起来的,也就是发送什么就接受什么,但是想把接受的字符显示出来,始终没有成功,麻烦大家给看看吧!