MSComm1.CommPort = 4 ‘设置通讯串口为4
MSComm1.InputLen = 0 ’设置或返回一次从接受缓冲器中读取所有字节数
MSComm1.InBufferSize = 512 ‘设置接收缓冲区512BYTE
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 512 ’设置发送缓冲区512BYTE
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 3 ‘每3个字符到接收缓冲区都触发接收事件
MSComm1.SThreshold = 1
MSComm1.PortOpen = True
End Sub
Private Sub Label6_Click()
Shell “explorer.exe http://blog.163.com/wujieflash” ’我博客的超连接,多多捧场
End Sub
Private Sub MSComm1_OnComm()
Text2.Text = MSComm1.Input
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii 《 Asc(“0”) Or KeyAscii 》 Asc(“9”) Then
KeyAscii = 0
MsgBox (“请输入数字字符!”)
End If
End Sub
软件是简单了点,但功能却齐全的。
5. 总结
这次搞得这个实例仿真的确有点麻烦,不过的确能了解很多关于这串行通信方面的知识,经过自己亲自动手实现,感觉也是蛮不错的。
关于控制,MCU就介绍完了,您有什么想法可以联系小编。