VisualBasic4.0通信程序设计

南京 孙海健 潘文 钱俞寿

 龚建伟评论：本文对在VB4.0中使用ActiveX控件MSComm进行串口编程，给出了一个实例，因我不懂VB，无法评论其实用性，但经常有网友问及VB的串口编程，故我也放在这里,读者自已去看吧。

摘要：Visual Basic4.0 中通信控件及其在Windows平台下的通信软件设计方法，并结合具体实例给出了基本的通信程序。

关键词：Visual Basic MSCOMM.VBX通信控件 程序设计

1992年Crescent Software Inc.公司专为VB设计了MSCOMM.VBX用户通信控件，它提供了通过串口发送和接收数据的串行通信能力，不但包括了全部Windows API中关于串行通信的16个函数所完成的功能，而且开拓了更多的使用户设计方便的对象属性来满足不同用户不同业务的需求。目前国内众多的VB资料中很少涉及该通信控件的介绍，本文将详细介绍MSCOMM.VBX通信控件及编程方法，并结合工作中的一个实例给出基本通信程序。

1 MSCOMM.VBX通信控件描述

MSCOMM.VBX通信控件可直接从VB的ToolBox中加入窗体Form，即可用其进行通信。若ToolBox中无此控件，则用Tools的Custom Controls 将MSCOMM.VBX从Windows的System子目录中加入VB的ToolBox中。

1.1 通信方式

MSCOMM.VBX有2种不同的方式来处理和解决各类通信软件的开发和设计问题

1、事件驱动。它与C/C++写Windows 软件时的窗口回调函数类似，是1种功能强大的处理问题的方法。在实际工作中，往往要处理许多通信中的相关事件，例如：当线路数据到达本端或CD线和RTS信号线状态发生变化时，要求我们使用相应的事件来跟踪和处理，该控件是使用OnComm事件来实现的，它也包括检测和处理通信错误等方面的问题，CommEvent 值返回最近的通信事件或错误的数字代码。通信控件详细的错误和事件举例有：

MSCOMM-ER-BREAK 收到1个Break Signal

MSCOMM-ER-CDTO CD 信号超时

……

MSCOMM-EV-CD CD信号改变

……

2、查询方式。由程序设计者负责读取CommEvent的值并处理所发生的错误或事件。通常简单的应用程序设计可采用这种办法。

1.2 通信控件的属性

利用通信控件编制通信程序，关键是准确理解设置通信控件的属性。MSCOMM.VBX提供了27个关于通信控件方面的属性，例如：

CommPort：设置或返回通信口编号。

Settings：设置或返回以字符串形式出现的数据通信格式：波特率、校验、数据位和停 止位。

PortOpen：设置或返回通信口状态（包括打开和关闭1个通信口）

……

3、 实例

本程序应用背景为DCC95型静电除尘器自动监控系统软件，解决1个PC工控机（主站）与32个单片机（子站）之间的通信问题。主站与子站之间这总线式网络结构，采用RS-485通信标准，以问答方式进行数据通信。由于32个子站与主站发送通信命令（下行命令），主站在接收子站发回的相应回答命令（上行命令）后继续发送下行命令的通信形式。根据系统功能的要求，主站需发送2种类型的命令：（1）同期命令，它由定时器触发引起，每隔ls周期发送1次；（2）非周期性命令，它由操作者按动相应命令按钮引起，非周期性发送。自动监控系统软件安装在主站上，而通信程序作为自动监控系统软件的一部分也安装在主站上。

本文仅列出调试通信程序时进行试验用的基本演示程序清单。试验时，用1台PC机作为主站，另一台PC机模拟32个子站的工作，两台PC机之间采用RS232c串口通信。往主站的通信演示程序窗体（form）中加入1个通信控件、2个定时器控件和1个命令按钮控件，通信控件（Mscomm1）用于访问串口，发送和接收数据；Periodic定时器控件（Periodic）用于控制每秒由主站向各子站发送周期性命令；命令按钮控件(NonPeriodic-Command)与NonPeriodic定时器控件（NonPeriodic）用于发送非周期性命令。数据传送采用事件驱动的通信方式，根据不同的发送命令设置RTreshlod属性，从而引起OnComm事件以接收数据。

2.1 窗体各控件初始化程序

设置通信串口工作参数，设置Periodic定时器的在断间隔为ls, NonPeriodic定时器的中断间隔为0.5s。

Sub Form-Load ()

Mscomm1.CommPort=2 ’选用COM2串行口

Mscomm1.Settings="9600，N8，1" ’波特率9600，无奇偶校验位，8位数据位1位停止位 

Mscomm1.InputLen=0 ’Input将读取接收缓冲区的全部内容

Mscomm1.InBufferSize=1024 ’设置接收缓冲区的字节长度

Mscomm1.PortOpen=True ’打开通信口

Mscomm1.InBufferCount=0 ’清除发送缓冲区数据

Mscomm1.OutBufferCount=0 ’清除接收缓冲区数据

Periodic.inteval=100 ’设置ls定时间隔，使遥测命令每隔ls发送1次

NonPeriodic.inteval=500 ’设置0.5s定时间隔，查询命令按钮是否处于激活状态以确定是否发送周期性命令

Command-Pressed=False ’命令按钮为未激活状态

During- Periodic=False ’周期性命令数据传输尚未开始

During- NonPeriodic=False ’非周期性命令数据传输尚未开始

End Sub

2.2 非周期性命令发送程序

根据命令按钮状态及周期性命令数据传输状态，在NonPeriodic定时器的中断程序中发送非周期性命令。

Sub NonPeriodic-Command-Click ()

Command-Pressed=True ’命令按钮激活

End Sub

Sub NonPeriodic-Timer ()

if During- Periodic=True OR Command-Pressed=False

Then Exit Sub ’若周期性命令数据传输尚未结束或命令按钮处于激活状态，则退出发送非周期性命令程序。

Command-Pressed=False ’命令按钮恢复为未激活状态

Call SendData (NONPERIODIC-COMMAND) ’发送非周期性命令

Mscomm1.RThreshold=R-NONPERIODIC-BYTE’发送非周期性命令后，设置Rthreshold属性，使主站接收所设定的字节数后引发OnComm事件

End Sub

2.3 Periodic定时器程序

在Periodic定时器的中断程序中发送周期性命令：

Sub Periodic-Timer ()

if During- NonPeriodic=True Then Exit Sub ’若非周期性命令数据传输尚未结束，则退出发送非周期性命令程序。

During-Periodic=True ’设置周期性命令数据传输状态为正在进行中 

Call SendData (PERIODIC-COMMAND) ’发送周期性命令

Mscomm1.RThreshold=R-PERIODIC-BYTE ’发送周期性命令后，主站接收R-REMOT- EDATA-BYTE个字节，可引发OnComm 事件

End Sub

2.4 OnComm事件程序

根据RThreshold属性设置值，当接收缓存区内接收到相应字节的字符时，引发OnComm事件，在中断程序中接收数据。

Sub Mscomm1-OnComm ()

Select Case Mscomm1.CommEvent ’在此可插入处理各种不同错误或事件的代码 

Case MSCOMM-EV-RECEIVE

ReceiveString$=Mscomm1.Input

Select Case Mscomm1.RThreshold

Case R-PERIODIC-BYTE ’周期性命令的应答数据

Call DisposeData(PERIODIC-COMMAND) ’处理接收数据

During Periodic=False ’设置周期性命令数据传输状态为结束

Case R-NONPERIODIC-BYTE ’非周期性命令的应答数据

Call DisposeData(NONPERIODIC-COMMAND) ’处理接收数据

During-Nonperiodic=False ’设置非周期性命令数据传输状态为结束

End Select

End Select

End Sub

随着VB版本的不断升级，VB将成为最快速、易用、强劲的应用开发工具，是企业级客户/服务器应用软件开发的首选工具之一。

参考文献

1、夏云 ·Windows环境下串行数据通信程序设计·PC应用，1995；（6）

2、舒继武·Visual Basic 3.0中通信及应用·微型机与应用，1996；（8）

3、陈小欧·Windows环境下串口异步通信程序设计·电子技术应用，1997；（2）