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就介绍完了,您有什么想法可以联系小编。