随着windows在国内的普及，特别是windows95的推出，越来越多的微机用户转向了windows操作系统。不过windows应用软件的开发对于一般工程技术领域的技术人员来说并非易事，不但windows的消息循环机制不易理解，而且要开发一个功能强、界面美观的应用软件，其编程和调试的工作量是非常大的。许多并非搞软件出身的工程技术人员对windows编程望而生畏。然而使用微软的visualbasic来开发这些方面的windows应用软件就十分方便，一般工程技术人员易于掌握，设计软件界面非常方便，编程工作量相对较小，只需进行主要应用功能的编程和少量界面控制的编程。本文介绍了笔者使用vb在串行通信编程方面的一些收获，由于在报刊杂志上对windows下串行通信编程的介绍多为用microsoftc++或borlandc++，故笔者愿意就vb在该方面的应用与大家探讨。对于采用了rs-232接口进行串行通信的计算机测控系统软件的开发，具有一定的参考价值。
在该系统中使用了80c31单片机作为下位机采集惯性敏感部件的测量数据，经过一定的预处理后通过rs-232串行口将数据传送给上位pc机。在pc机上windows环境下运行检测软件，接受串行口传来的数据，进行数据处理、显示、存盘等。数据处理结果以表格形式打印输出。
在vb3.0中，有许多专业厂商提供用户定制的控件(customcontrol)，这些控件以.vbx为后缀，其中mscomm.vbx即是用于串行通信的控件。对于vb3.0，启动后该控件就包含于控件工具箱(toolbox)内，否则可以通过file|addfile将该控件加入控件工具箱。然后就可以利用该控件进行串行通信的程序设计。
下面举一个简单的例子，说明了如何进行串行通信的程序设计，该程序在windows95环境下，使用vb3.0已经实现:
1.先建立一个项目文件，其控件如下表所示:
2.代码如下:
subform_load()
comm1.commport=1‘使用串行口1
'波特率9600，偶校验，8个数据位，1个停止位。
comm1.settings=“9600，e，8，1”
当使用comm1.input时，每次从接收缓冲区取一个字节。
comm1.inputlen=1
timer1.interval=20‘定时器的中断间隔为20ms，用于更新显示时间。
endsub
subcmdcomm_click()
dimechoch%‘命令变量
staticmaxf01&，maxf02&，minf01&，minf02&‘最大值，最小值
onerrorresumenext‘简单的错误处理
maxf01&=maxf02&=0‘初始化变量
minf01&=32767
minf02&=32767
label2.caption=comm1.settings‘显示串行口的设置。
ifcmdcomm.caption=“通信”then‘若当前命令按扭的提示为“通信”则开始发送和
cmdcomm.caption=“停止”‘接受数据，并将命令按扭提示改为“停止”，以
cmdexit.enabled=false‘允许停止通信。使退出命令在通信中失效。
ifnotcomm1.portopenthen‘若串行口没有打开，则打开串行口
comm1.portopen=true
endif
ifcomm1.portopenthen
ifecho.text＜＞“”then‘若命令输入框不空，则将其转换为十六进制数值
echoch%=val(“&h”+echo.text)
else
echoch%=&hf0‘否则确省命令为f0h
endif
comm1.output=chr(echoch%)‘向串行口写入一字节命令，由windows自
endif‘动将命令发出
label3.caption=hex(echoch%)‘显示刚发出的命令
dowhilecomm1.portopen
ifcomm1.inbuffercount＞0then‘若comm1.inbuffercount＞0表示接受缓冲
ch$=comm1.input‘区有数据，并读出一个字符，
ifasc(ch$)=echoch%then‘若与发出的命令相同，则退出当前循环
exitdo‘进入下一循环
endif
else
comm1.output=chr(echoch%)‘否则继续向下位机发命令，通知下位机
endif‘送数据
dummy=doevents()‘让系统处理其他消息
loop
‘下位机接受到正确的命令，并回发命令正确时，进入下面循环
i=1
dowhilecomm1.portopen
ifcomm1.inbuffercount＞5then
ch$=comm1.input
dowhileasc(ch$)＜＞echoch%‘以命令字节同步测试数据
ch$=comm1.input
loop
ch1$=comm1.input‘从windows串行数据接受缓冲区读测试数据
ch2$=comm1.input
ch3$=comm1.input
ch4$=comm1.input
newf01&=clng(clng(asc(ch2$))*16*16+asc(ch1$))‘合并为一个整数
newf02&=clng(clng(asc(ch4$))*16*16+asc(ch3$))
ifnewf01&＞maxf01&then‘判断最大值，最小值
maxf01&=newf01&
endif
ifnewf01&＜minf01&then
minf01&=newf01&
endif
ifnewf02&＞maxf02&then
maxf02&=newf02&
endif
ifnewf02&＜minf02&then
minf02&=newf02&
endif
labf01.caption=str(newf01&)‘显示数据
labf02.caption=str(newf02&)
labmaxf01.caption=str(maxf01&)
labminf01.caption=str(minf01&)
labmaxf02.caption=str(maxf02&)
labminf02.caption=str(minf02&)
