利用VB实现PC机与多单片机通讯(2)

发送命令过程是一个带参过程，这样可使发送命令简便易行。具体程序如下：

Sub发送单片机命令过程（command As Byte）

Dim输出命令（1 To 1）As Byte

DoEvents

输出命令（1）=command

MSComm1.OutBufferCount=0

MSComm1.Output=输出命令

MSComm1.InBufferCount=0

End Sub

2.接收数据

接收数据是一个被动的过程，可以通过函数来实现，由定时器开启。在接收过程中，多数用特征字符，如“OK”、“#”等。这些需要在通讯协议中约定。

Function接收数据（）

Do

DoEvents

In_buffer $=In_buffer$