用Visual Basic 5.0开发无线通讯数据采集应用程序

MSCOMM同时支持事件驱动及轮询方法。控件MSCOMM能生成一个名为OnComm的事件，它能能捕获的事件范围包括通过串口接受数据以及遇到任何错误等等。事件或错误的值以整数的形式保存在CommEvent属性里。可根据CommEvent属性判断最近一次事件或错误。也可以在程序中设置一个循环，每次循环都直接检查CommEvent属性的值，从而对事件及错误进行“轮询”。如果应用程序规模小，这种方法相当完美。

下面的部分程序代码是计算机和900M无线电台之间的传输程序，本程序已经在486计算机和PII586上调试通过。

1 从串口读入电台数据程序GetStringFromComm()

功能:(1) 主要完成从端口获得数据,将二进制的数据转换为ASCII码数据

Public Function GetStringFromComm() As String

定义变量（略）

If frmTerminal.MSComm1.InBufferCount < 7 Then

    GetStringFromComm = ""

    Exit Function

End If

'//读入标志码

frmTerminal.MSComm1.InputLen = 6

《用Visual Basic 5.0开发无线通讯数据采集应用程序(第4页)》