基于VB 6.0串口通信的氣壓測高系統(tǒng)數(shù)據(jù)采集實(shí)現(xiàn)

王曉嵐

(中國科學(xué)院國家天文臺 北京 100012)

串口通信在系統(tǒng)控制的范疇中一直占據(jù)著極其重要的地位，在規(guī)格上越來越完善，應(yīng)用也越來越廣泛，使用串行通信的方式可以達(dá)到系統(tǒng)控制的目的。以往，要實(shí)現(xiàn)計(jì)算機(jī)的串口通信需要做大量復(fù)雜的工作，如今，Visual Basic 6.0(VB 6.0)在開發(fā)可視化環(huán)境下的監(jiān)控系統(tǒng)時(shí)有其獨(dú)特的優(yōu)勢，VB 6.0提供了串行通信控件，可以輕松實(shí)現(xiàn)串口數(shù)據(jù)的交換。本文介紹了基于VB 6.0的ActiveX控件――Microsoft Communication(MSComm)通信控件，實(shí)現(xiàn)了PC機(jī)對氣壓測高系統(tǒng)的串行通訊功能，完成了對多臺氣壓測高設(shè)備進(jìn)行數(shù)據(jù)采集。

1 氣壓測高測試系統(tǒng)的基本構(gòu)成

氣壓測高系統(tǒng)的基本構(gòu)成如圖1所示，由PC機(jī)、氣壓測高基準(zhǔn)站以及氣壓測高接收機(jī)三部分組成。PC機(jī)通過RS 232接口以及USB-RS 232接口與一個(gè)氣壓測高基準(zhǔn)站和多個(gè)氣壓測高接收機(jī)相連接。氣壓測高基準(zhǔn)站和每個(gè)氣壓測高接收機(jī)通過選用不同的串口端口來區(qū)分，這樣PC機(jī)就可以對基準(zhǔn)站和每個(gè)接收機(jī)進(jìn)行通信，實(shí)現(xiàn)對氣壓測高基準(zhǔn)站以及接收機(jī)的數(shù)據(jù)采集。


采集到的數(shù)據(jù)主要用于以下分析：

(1)分析不同地點(diǎn)的氣壓值、溫度值以及大地高度值。

(2)比較同一地點(diǎn)不同氣壓測高接收機(jī)測量的氣壓值、溫度值以及大地高度值。

2 氣壓測高接收機(jī)的簡介

氣壓測高接收機(jī)采用主要器件為：瑞士Intersema公司生產(chǎn)的集成壓阻式壓力傳感器和ADC接口的SMD混合集成模塊――MS5534C，微控制器選用ATmega8L單片機(jī)。氣壓測高接收機(jī)的硬件示意圖如圖2所示。其工作流程為：氣壓測高基準(zhǔn)站將氣象資料(基準(zhǔn)站的氣壓、溫度和高度)發(fā)送給ATmega8L，同時(shí)，ATmega8L采集MS5534C測得的接收機(jī)所在位置的氣壓和溫度，利用相關(guān)的公式，解算出當(dāng)?shù)氐拇蟮馗叨?，并發(fā)送給PC機(jī)。



3 VB 6.0中MSComm通信控件

VB 6.0增加了面向?qū)ο蟪绦蛟O(shè)計(jì)功能，它不僅可以方便快捷地編制適用于數(shù)據(jù)處理、多媒體等方面的程序，并且提供了一個(gè)ActiveX控件――Microsoft Communication Control，Version 6.0，稱為MSComm控件，可以方便地開發(fā)出使用計(jì)算機(jī)串口的計(jì)算機(jī)通信程序。MSComm控件提供了兩種處理通信的方式：一種為事件驅(qū)動方式，該方式相當(dāng)于一般程序設(shè)計(jì)中的中斷方式。當(dāng)串口發(fā)生事件或錯誤時(shí)，MSComm控件會產(chǎn)生OnComm事件，用戶程序可以捕獲該事件進(jìn)行相應(yīng)處理。另一種為查詢方式，在用戶程序中設(shè)計(jì)定時(shí)或不定時(shí)查詢MSComm控件的某些屬性是否發(fā)生變化，從而確定相應(yīng)處理。

利用MSComm控件實(shí)現(xiàn)計(jì)算機(jī)通信的關(guān)鍵是理解并正確設(shè)置MSComm控件眾多屬性和方法。以下是MSComm控件的常用屬性和方法：

Commport：設(shè)置或返回串口號，類型short。

Settings：以字符串的形式設(shè)置或返回串口通信參數(shù)。

Portopen：設(shè)置或返回串口狀態(tài)。

InputMode：設(shè)置或返回接收數(shù)據(jù)的類型。

Inputlen：設(shè)置或返回一次從接收緩沖區(qū)中讀取字節(jié)數(shù)，類型short。

Input：從接收緩沖區(qū)中讀取數(shù)據(jù)并清空該緩沖區(qū)，該屬性設(shè)計(jì)時(shí)無效，運(yùn)行時(shí)只讀。

Output：向發(fā)送緩沖區(qū)發(fā)送數(shù)據(jù)，該屬性設(shè)計(jì)時(shí)無效，運(yùn)行時(shí)只讀。

Rthreshold：當(dāng)接收緩沖區(qū)中字符數(shù)達(dá)到該值時(shí)，MSComm控件設(shè)置Commevent屬性為ComEvReceive，并產(chǎn)生OnComm事件。

Sthreshold：當(dāng)發(fā)送緩沖區(qū)中字符數(shù)小于該值時(shí)，MSComm控件設(shè)置Commevent屬性為ComEvSend，并產(chǎn)生OnComm事件。若Sthreshold屬性設(shè)置為0，則不產(chǎn)生OnComm事件。

CommEvent：串口事件，該屬性設(shè)計(jì)時(shí)無效，運(yùn)行時(shí)只讀。一旦串口發(fā)生通信事件或產(chǎn)生錯誤，依據(jù)產(chǎn)生的事件和錯誤，MSComm控件為CommEvent屬性賦不同的代碼，同時(shí)產(chǎn)生OnComm事件。用戶程序就可在OnComm事件處理程序中針對不同的代碼，進(jìn)行相應(yīng)的處理。