湖北省漳河工程管理局 劉恒清
Visual Basic(簡稱VB)是Windows環境下簡單、易學、高效的編程語言開發系統,以其所見即所得的可視化界面設計風格和32位面向對象的程序設計等特點,已廣泛地應用于各個領域,是很多計算機軟件開發人員采用的開發工具。VB提供了良好的界面設計能力,提供了強大的數據庫訪問功能和微機串口通信功能。完全能夠滿足汽車衡管理系統的數據采集、處理和存儲要求。下面以SCS微機汽車衡稱重軟件為例,敘述VB軟件對系統中幾個重要功能程序的設計。
SCS微機汽車衡稱重系統主要通過計算機串口連接汽車衡稱重儀表,處理儀表所獲取的汽車重量信息,達到管理汽車稱重數據的目的。系統軟件要求達到的功能主要有:
(1)設置管理權限,達到操作人員分級登錄操作。
(2)記錄、貯存并打印每一次稱重結果。包括車號、貨物名稱、運貨單位、駕駛員、毛皮重、凈重、進出廠過磅時間、司磅員等內容。
(3)查詢打印功能。可按車號、時間范圍、司磅員、貨物種類、駕駛員等或任意組合查詢過去稱重記錄,并可打印輸出。
(4)統計打印功能。可對稱重結果自動進行統計,并打印各種報表,如月報、年報、分類報表等。
(5)數據維護功能。包括記錄限制修改和刪除,數據備份和導出。
在這個系統軟件中,重點是編寫數據采集的串口通信模塊和數據庫操作訪問功能程序。用Visual Basic編程語言來編制這些程序,也就要充分理解串口通信和數據庫訪問相關的控件特點和應用技術。
用VB開發串口通信程序常用兩種方法,一種是利用WINDOWS的通信API函數實現,另一種是采用VB內集成的MSComm通信控件實現。在實例中選用MSComm控件實現串口通信的編程,該控件具有豐富的與串口通信密切相關的屬性和事件,提供了對串口的各種操作。在通信過程中,當發送數據、收到數據或產生傳輸錯誤時,觸發MSComm控件的OnComm事件,然后可以通過判斷CommEvent屬性值獲得事件類型,再根據事件類型進行相應數據處理。因此用其實現微機串口的數據通信相當簡單,以很少的程序代碼就可以輕松實現串口的訪問和數據通信。
以微機管理系統連接汽車衡XK3 19O-A9稱重顯示器為例。該儀表可連接8個35OΩ或12個7OOΩ的高精度稱重傳感器,用于測量汽車重量數據。儀表測量準確度為Ⅲ級(N=3OOO)按顯示分度值設置不同,測量范圍最大值1OO噸。該儀表具有RS-232/RS422(選配)串行通訊接口,能與微機進行串口數據通信,實時傳送檢測數據。
該儀表串口數據通信協議是:數據傳輸速率為6OO/12OO/24OO/96OObps(可選),數據格式(1O位):1位開始位,8位數據位(ASCⅡ編碼),1位停止位,無奇偶校驗位。通訊方式有連續方式和指令方式兩種,這里只列舉連續通訊方式中的格式。
所傳送的數據為儀表顯示的當前稱量(毛重或凈重)。每幀數據由1O組數據組成。格式如表1。

表1
(1)為滿足各種儀表參數和計算機不同運行環境的需要,把串口通信的一些參數用數據庫的表進行存放,程序通過讀取表數據來進行通信環境參數的設置。這樣做用戶可以修改數據表的數據來改變運行參數,以滿足實際需要。
(2)為了提高接收數據的讀取速度,實現實時監測功能,設置MSComm1的屬性RThreshold=4,接收緩沖區收到四個字節產生OnComm事件;InputLen=1,每次讀取一個字節。設置接收數據模式采用二進制形式,即InputMode=comInputM odeBinary。設置InBufferSize=5O(設置接收緩沖區為5O字節),OutBufferSize=2(設置發送緩沖區為2字節)。
(3)定義一個Byte類型數組變量來存放重量數據值。注意用Input屬性讀取數據時,還要看儀表輸出數據位格式的編碼方式。壓縮的BCD碼存入Byte類型變量,VB系統只按十進制數處理,這要通過一個簡單算法換算,解壓BCD碼才能還原成十進制表示數值。本例ASCⅡ編碼直接賦值給數組Byte類型變量。

表2 本地表數據表結構

表3 稱重數據表結構
系統數據庫db1.mdb建立一個名為“串口”的表,字段分別為串口、波特率、校驗、停止位、數據位、流控制,記錄串口運行參數設置信息。在窗體中添加名為MSComm1的MSComm控件,名為Label7顯示重量數據的標簽控件,名為Text3、Text4存貯毛重、皮重的文本框控件等。
串口初始化模塊:



本例以Microsoft Access數據庫進行稱重數據的管理,建立db1.mdb數據庫。汽車衡完成一個稱重過程一般是某車號汽車稱毛重,再過皮重(或者稱重順序反調)得出凈重后,數據存入數據表,打印報表。在實際稱重中稱毛重和過皮重的過程并不連續,有時要連續稱幾臺汽車的毛重或皮重,因此必須建立一個用于存貯稱重暫存數據的表。在db1.mdb數據庫中建立報頭、帳戶、本地表、稱重、單位設置、歷史皮重、串口、物質類別等數據表。“本地表”用于存貯歷史稱重數據,“稱重”表存貯稱重暫存數據,本例重點介紹“本地表”和“稱重”兩個關鍵表的結構設計,如表2,表3所示。
SCS微機汽車衡稱重軟件建立了“系統登錄”、“稱重管理”、“報表管理”等多個窗體,都涉及到對db1.mdb數據庫的編程,主要應用了Visual Basic對Access數據庫操作的編程語言。如:


[1]劉樂善,歐陽明星,等.微型計算機接口技術及應用[M].武漢:華中理工大學出版社,2001.
[2]龔沛曾,等.Visual Basic程序設計教程[M].北京:高等教育出版社,1998.
[3]XK3190—A9稱重顯示器使用說明書.上海耀華稱重系統公司.