VB中MScomm控件通信方式的使用.docVIP

VB中MScomm控件通信方式的使用 1 引 言 VB开发串口通信程序常用的方法是利用VB自身提供的控件MScomm来实现，该控件 隐藏了大部分串口通信的底层运行过程和许多烦琐的处理过程，将串口封装起来，操作容易、 易实现。同时支持查询法和事件驱动通信的机制。文中主要介绍两种通信方法的使用。 2 查询法[ ] 查询法是通过周期性地读取缓冲区的信号来发现是否有事件发生并进行处理的方法。它 不使用端口的硬件中断，必须在足够频繁地查询端口的情况下才能保证不会遗失任何数据或 者事件，查询的频率取决于缓存的大小、数据量和对快速响应的要求。查询法不具有自动判断 通信的“智能”化，需要人为启动接收或发送数据。在通信发生前就用查询法来判断接收数据， 难免额外占用CPU 的资源，在庞大的实时系统中会有诸多不便。因此，查询法实用于较小、 简单的程序。对于简单的发送接收程序，设置Rthreshold一0(不触发OnComm 事件)， MScomm1．Inputlen=0(一次从接收缓冲区读取所有字节)示例如下： MSComm1．Output=SendCommand’sendcommand代表发送命令帧，不同的通信协议有 不同的发送帧格式 Do ’有的也用SLEEP函数来延时处理 DoEvents() Loop Untill MSComm1．InbufferCount一Receivelen’接收字符串长度 Do Receivedata= M SComm1．Input Loop Until1．MSComm1．InbufferCount=0’读完应答帧 3 事件驱动法[ ] 事件驱动法是利用MScomm控件的OnComm事件触发机制来完成的。每当有通信错误 或通信数据发生时，就会产生此事件。该方法能自动判断通信的发生并触发中断响应，只有通 信发生时才响应中断，通信未发生时不占用CPU资源，此时能够进行其他工作。事件的处理 是通过判断CommEvent属性值获得事件类型，再根据事件类型进行相应数据处理。大部分 通信程序都使用该方法，但对于不同的通信要求，该方法的使用也有所不同。 3．1 定长数据的处理 事件驱动法能够自动判断通信的发生并触发中断响应是通过设置MScomm 控件的 Rthreshold属性来实现的。当Rthreshold： ”时，接收缓冲区收到”个字节的数据就触发 OnComm 事件。可见，对仪表发送定长数据的处理很方便，只要设置Rthreshold为接收数据 的固定长度，InputLen属性设置为O，在OnComm事件中编写处理过程。示例如下： Private Sub MSCommlOnComm() Dim Receivedata() As Byte Dim bytData As Variant’接收缓冲区读取数据 On Error Resume Next Select Case CommEvent Case comEvReceive bytData=M SComm1．Input Redim Receivedata (Ubound(bytData)As Byte For i一0 To Ubound(bytData) Receivedata(i)= bytData(i) Next i End Select End Sub 3．2 不定长数据的处理 在某些串口通信中，仪表发送的数据帧是不定长的，在使用事件驱动法响应时，为了实现 实时监测功能，接收数据时读取要尽可能的快。在程序开始运行时设置Rthreshold属性，接 收缓冲区收到1字节产生OnComm事件，InputLen一1(每次读取一个字节)，等到程序接 收一帧完整数据后，计算出当前帧数据长度，再将Rthreshold属性修改为帧长度，则接收缓冲 区在收到一帧数据后，MSComm控件才会触发一个OnComm 事件。这样就会有更多的时间 对数据进行计算和处理。 比如数据帧最大长度为26，帧格式首字节为02H，第二个字节表示状态，反映发送的字节 数Len，之后的第3到24个字节为需处理的数据，无结束标志。先设置Rthreshold= 1，然后 计算实际长度Len，OnComm事件部分处理程序如下： Dim Len As Interger Dim Receivedata(4)As Byte ’根据具体需要设定数组大小 Dim bytData As Variant’接收缓冲区读取数据 Private Sub MSCommlOnComm() Select Case CommEvent ’判断MSComml通信事件 Case comEvReceive ’收到Rthreshold个字节产生的接收事件 bytData=MSComm1．Input ’读取一个接收字节 Receivedata(1)一bytD