在VB6．0中‚通过添加ActiveX控件‚用户可以借助其操作系统应用程序来扩展VisualBasic6．0的功能。在应用程序的窗体中‚可以含其他应用程 序的数据‚如声音数据‚串口数据等。用户可以使用创建这些数据的应用程序‚以编程方式控制含有串口数据的应用程序。在VB6．0应用程序中可以有很多方法来使用OLE和ActiveX技术。
1硬件与软件支撑
计算机上的RS－232其9针脚2‚3‚5定义如下：
2RXD    接收（Receive）
3TXD    传送（Transmit）
5GND    地线（Ground）
计算机上的RS－232与称重仪RS－232串行通信端口连线示意图如下：

软件：操作系统为Windows98‚应用软件为VB6．0。
2　向窗体中添加MSComm 控件
（1）从主菜单中选择“工程”‚从工程中选择“部件”；
（2）随后在打开的对话框中‚打勾选择“ MicrosoftComm Control6．0”；
（3）单击确定后‚即可在工具箱中见到“电话机”图标
3主要属性
Comport：设置或返回通信连接端口代号。Settings：设置初始化参数‚以字符串形式设置或返回连接速度、校验码、数据位、停止位等4个参数。其格式为“BBBB、P、D、S”‚其中BBBB为连线速度‚P为字符校检方式‚D为数据位数‚S为停止位数。如“960、N、7、1”‚即端口以每秒960Bit的速度传输‚每次数据是7个Bit。而停止位为1个Bit。
Portopen：设置或返回通信连接端口的状态。
使用前必须将要使用的串行端口打开；使用完毕后‚也必须执行关闭操作。
Input：从输入寄存器返回并删除字符。程序靠其将对方所传至输入寄存器的数据读进程序中‚并清除寄存器中已被读取的数据。
Output：将欲传送的数据字写入输出寄存器。当程序需要传输字符串到对方时‚可将字符串使用此属性写入输出寄存器中。
Inputlen：指定由串行端口读入的字符串长度或字节个数。
Inbuffercount：返回串行端口输入缓冲区中的字符个数。
4实现过程
首先建立一窗体‚向窗体中添加通信控件如2）‚接着添加1个文本框Text1‚再添加2个命令钮‚一个为接收命令钮‚另一个为退出命令钮。
（2）对其主要控件属性设置如下：MSComm1．CommPort＝2MSComm1．Settings＝“120．E．7．2”应与称重仪设置一致
（3）各控件代码如下：
接收：
buf＝””buf＝Trim（MSComm1．Input）IfLen（buf）＝0Then
Text1．Text＝””＆＆Text1为接收文本框Else
Text1．Text＝bufEndIf
退出：
MSComm1．PortOpen＝False．End
（4）也可实现自动接收
向表单添加定时器控件‚并将其属性interval设置为10
对其事件编程如下：
IfMSComm1．InbufferCount＞0ThenText1．Text＝Text1．Text＋MSComm．InputEndIf
5结束语
实际工作环境可以是实时接收信息来自于称重仪等相关仪器设备‚可根据这些仪器设备的说明书查其输出数据的格式‚然后对相关属性进行适当设置‚再在接收数据程序段中通过函数对数据进行适当处理后‚即可交给其它实用程序段使用。

本文源于网络转载，如有侵权，请联系删除