在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結束語
實際工作環境可以是實時接收信息來自於稱重儀等相關儀器設備‚可根據這些儀器設備的說明書查其輸出數據的格式‚然後對相關屬性進行適當設置‚再在接收數據程序段中通過函數對數據進行適當處理後‚即可交給其它實用程序段使用。

本文源於網絡轉載，如有侵權，請聯係刪除