VisualBasic串口通信程序设计

1mscommvbx通信控件描述

mscommvbx通信控件可直接从vb的toolbox中加入窗体form，即可用其进行通信。若toolbox中无此控件，则用tools的customcontrols将mscommvbx从windows的system子目录中加入vb的toolbox中。

11通信方式

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

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

mscomm-er-break收到1个breaksignal

mscomm-er-cdtocd信号超时

mscomm-ev-cdcd信号改变

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

12通信控件的属性

利用通信控件编制通信程序，关键是准确理解设置通信控件的属性。mscommvbx提供了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事件以接收数据。

21窗体各控件初始化程序

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

subform-load()

mscomm1commport=2'选用com2串行口

mscomm1settings="9600，n8，1"'波特率9600，无奇偶校验位，8位数据位1位停止位

mscomm1inputlen=0'input将读取接收缓冲区的全部内容

mscomm1inbuffersize=1024'设置接收缓冲区的字节长度

mscomm1portopen=true'打开通信口

mscomm1inbuffercount=0'清除发送缓冲区数据

mscomm1outbuffercount=0'清除接收缓冲区数据

periodicinteval=100'设置ls定时间隔，使遥测命令每隔ls发送1次

nonperiodicinteval=500'设置05s定时间隔，查询命令按钮是否处于激活状态以确定是否发送周期性命令

command-pressed=false'命令按钮为未激活状态

during-periodic=false'周期性命令数据传输尚未开始

during-nonperiodic=false'非周期性命令数据传输尚未开始

endsub

22非周期性命令发送程序

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

subnonperiodic-command-click()

command-pressed=true'命令按钮激活

endsub

subnonperiodic-timer()

ifduring-periodic=trueorcommand-pressed=false

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

command-pressed=false'命令按钮恢复为未激活状态

callsenddata(nonperiodic-command)'发送非周期性命令

mscomm1rthreshold=r-nonperiodic-byte'发送非周期性命令后，设置rthreshold属性，使主站接收所设定的字节数后引发oncomm事件

endsub

23periodic定时器程序

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

subperiodic-timer()

ifduring-nonperiodic=truethenexitsub'若非周期性命令数据传输尚未结束，则退出发送非周期性命令程序。

during-periodic=true'设置周期性命令数据传输状态为正在进行中

callsenddata(periodic-command)'发送周期性命令

mscomm1rthreshold=r-periodic-byte'发送周期性命令后，主站接收r-remot-edata-byte个字节，可引发oncomm事件

endsub

24oncomm事件程序

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

submscomm1-oncomm()

selectcasemscomm1commevent'在此可插入处理各种不同错误或事件的代码

casemscomm-ev-receive

receivestring$=mscomm1input

selectcasemscomm1rthreshold

caser-periodic-byte'周期性命令的应答数据

calldisposedata(periodic-command)'处理接收数据

duringperiodic=false'设置周期性命令数据传输状态为结束

caser-nonperiodic-byte'非周期性命令的应答数据

calldisposedata(nonperiodic-command)'处理接收数据

during-nonperiodic=false'设置非周期性命令数据传输状态为结束

endselect

endselect

endsub

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

1、打开VisualBasic编辑器，在Excel中，按下ALT加F11键打开VisualBasic编辑器。

2、在VisualBasic编辑器中，选择插入模块，创建一个新的VBA代码模块。

3、在新创建的模块中编写VBA代码。

VB编程过程中，通过引发Timer事件，Timer控件可以有规律地间隔一段时间执行一次代码。Interval属性是Timer控件最重要的一个属性，它以千分之一秒为单位指定Timer事件之间的间隔，理论上可以认为最少可设置为1毫秒触发一次Timer事件，另外一个重要属性是Enabled属性，它决定计时器是否开始工作。因为Timer控件响应时间的流逝，独立于用户，可以成为编程者的“好帮手”，所以在实践中很受欢迎，但编程者特别是初学者在实际使用过程中往往会感觉到“力不从心”，下面笔者将通过分析并结合自己的编程体会谈谈Timer控件使用中的几个误区。

1 编程中过于相信Interval属性值的准确性

这是初学者易犯的错误，其实Interval属性值只是一个参考值，其准确性低，因而间隔不一定准确。Timer控件是基于Windows消息WM_TIME的时钟脉冲发生器，系统每秒生成18个时钟信号，所以即使用毫秒衡量Interval属性，间隔的实际精度不会超过1/18秒，换句话说，Timer控件能够精确设置的最短时间是656毫秒，如果要使时间间隔更精确，应让定时器检查系统时钟。

2 Interval属性的取值范围

Interval属性的有效值在0至65535之间，这就意味着即使最长时间间隔也只是656秒，比一分钟长不了多少，而且VB只有在Interval属性值大于0时，才会产生Timer事件，这是要特别注意的地方。

3 Timer控件的功能定位出错

Timer事件是周期性的，Interval属性主要是决定“多少次”而非“多久”，所以一般不用于计时，而是用做计数。笔者曾做过实验，把Interval值分别设为1000和60000，即把间隔时间分别设为一秒钟和一分钟，做成一个计时器，并把工作结果和系统标准时间比较，误差分别是67%和17%，可见定时器事件生成越频繁，响应事件所用的处理越多，越将降低系统综合性能，从而导致误差增大，这么大的误差显然失去了用做计时的意义。

4 计数器变量的声明错误

在设计计数器时最易犯的错误是不声明变量或在区域变量中声明。将Interval属性设为1000，看看下面这个程序:

Private Sub Timer1_timer()

Dim i as integer

i=i+1

print i

End Sub

也许有读者可能想通过这段程序，能打印出1，2……n，而事实上只能打印出1，1……1来，原因在于每个时间间隔内，按顺序运行的Timer事件是彼此互不相干的，如将变量i声明为区域变量，每次程序一运行完，此变量即告完成任务，因此显示的永远是1，如在程序中将i声明为公用变量，此变量存储的值就会一直保留下来。

以上几点只是笔者在当前系统环境下的粗浅认识，可以想见，随着硬件和软件环境的不断改善，将会出现更加精确的Timer控件。