串口通信在系統(tǒng)控制的范疇中一直占據(jù)著極其重要的地位,，在規(guī)格上越來(lái)越完善，應(yīng)用也越來(lái)越廣泛,，使用串行通信的方式可以達(dá)到系統(tǒng)控制的目的,。以往，要實(shí)現(xiàn)計(jì)算機(jī)的串口通信需要做大量復(fù)雜的工作,，如今,，Visual Basic 6.0(VB 6.0)在開(kāi)發(fā)可視化環(huán)境下的監(jiān)控系統(tǒng)時(shí)有其獨(dú)特的優(yōu)勢(shì)，VB 6.0提供了串行通信控件,，可以輕松實(shí)現(xiàn)串口數(shù)據(jù)的交換,。本文介紹了基于VB 6.0的ActiveX控件——Microsoft Communication(MSComm)通信控件，實(shí)現(xiàn)了PC機(jī)對(duì)氣壓測(cè)高系統(tǒng)的串行通訊功能,，完成了對(duì)多臺(tái)氣壓測(cè)高設(shè)備進(jìn)行數(shù)據(jù)采集,。
1 氣壓測(cè)高測(cè)試系統(tǒng)的基本構(gòu)成
氣壓測(cè)高系統(tǒng)的基本構(gòu)成如圖1所示，由PC機(jī),、氣壓測(cè)高基準(zhǔn)站以及氣壓測(cè)高接收機(jī)三部分組成,。PC機(jī)通過(guò)RS 232接口以及USB-RS 232接口與一個(gè)氣壓測(cè)高基準(zhǔn)站和多個(gè)氣壓測(cè)高接收機(jī)相連接。氣壓測(cè)高基準(zhǔn)站和每個(gè)氣壓測(cè)高接收機(jī)通過(guò)選用不同的串口端口來(lái)區(qū)分,，這樣PC機(jī)就可以對(duì)基準(zhǔn)站和每個(gè)接收機(jī)進(jìn)行通信,，實(shí)現(xiàn)對(duì)氣壓測(cè)高基準(zhǔn)站以及接收機(jī)的數(shù)據(jù)采集。
采集到的數(shù)據(jù)主要用于以下分析：
(1)分析不同地點(diǎn)的氣壓值,、溫度值以及大地高度值,。
(2)比較同一地點(diǎn)不同氣壓測(cè)高接收機(jī)測(cè)量的氣壓值、溫度值以及大地高度值,。
2 氣壓測(cè)高接收機(jī)的簡(jiǎn)介
氣壓測(cè)高接收機(jī)采用主要器件為：瑞士Intersema公司生產(chǎn)的集成壓阻式壓力傳感器和ADC接口的SMD混合集成模塊——MS5534C,，微控制器選用ATmega8L單片機(jī)。氣壓測(cè)高接收機(jī)的硬件示意圖如圖2所示,。其工作流程為：氣壓測(cè)高基準(zhǔn)站將氣象資料(基準(zhǔn)站的氣壓,、溫度和高度)發(fā)送給ATmega8L，同時(shí),，ATmega8L采集MS5534C測(cè)得的接收機(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控件,，可以方便地開(kāi)發(fā)出使用計(jì)算機(jī)串口的計(jì)算機(jī)通信程序,。MSComm控件提供了兩種處理通信的方式：一種為事件驅(qū)動(dòng)方式，該方式相當(dāng)于一般程序設(shè)計(jì)中的中斷方式,。當(dāng)串口發(fā)生事件或錯(cuò)誤時(shí),，MSComm控件會(huì)產(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è)置或返回串口號(hào)，類(lèi)型short,。
Settings：以字符串的形式設(shè)置或返回串口通信參數(shù),。
Portopen：設(shè)置或返回串口狀態(tài)。
InputMode：設(shè)置或返回接收數(shù)據(jù)的類(lèi)型,。
Inputlen：設(shè)置或返回一次從接收緩沖區(qū)中讀取字節(jié)數(shù),，類(lèi)型short。
Input：從接收緩沖區(qū)中讀取數(shù)據(jù)并清空該緩沖區(qū),，該屬性設(shè)計(jì)時(shí)無(wú)效,，運(yùn)行時(shí)只讀。
Output：向發(fā)送緩沖區(qū)發(fā)送數(shù)據(jù),，該屬性設(shè)計(jì)時(shí)無(wú)效,，運(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í)無(wú)效,，運(yùn)行時(shí)只讀,。一旦串口發(fā)生通信事件或產(chǎn)生錯(cuò)誤，依據(jù)產(chǎn)生的事件和錯(cuò)誤,，MSComm控件為 CommEvent屬性賦不同的代碼,，同時(shí)產(chǎn)生OnComm事件,。用戶程序就可在OnComm事件處理程序中針對(duì)不同的代碼,，進(jìn)行相應(yīng)的處理,。
4 利用VB 6.0實(shí)現(xiàn)數(shù)據(jù)采集的串行通信
在VB 6.0編程環(huán)境下，新建工程并引用MSComm控件,，在窗體中添加所需控件,，構(gòu)建一個(gè)合理的收發(fā)界面。在窗體中還需要添加以下幾個(gè)基本控件：
(1)MSComm控件,，主要用于軟件對(duì)串口的訪問(wèn),。由于需要實(shí)現(xiàn)多臺(tái)氣壓測(cè)高接收機(jī)的測(cè)試，需要添加多個(gè)控件,。
(2)定時(shí)器控件,，用于使PC機(jī)定時(shí)向各氣壓測(cè)高接收機(jī)發(fā)送命令，使其定時(shí)回傳實(shí)時(shí)數(shù)據(jù),。
(3)非周期命令發(fā)送按鈕,，用于非周期性指令的傳送啟動(dòng)。
(4)數(shù)據(jù)保存按鈕,，用于將采集到數(shù)據(jù)保存為文本文件,，便于數(shù)據(jù)后處理。
(5)用于數(shù)據(jù)接收數(shù)據(jù)和發(fā)送數(shù)據(jù)的文本框,。
首先,，應(yīng)對(duì)窗體中MSComm控件初始化設(shè)置：
每個(gè)氣壓測(cè)高接收機(jī)回傳數(shù)據(jù)時(shí)即可以在PC機(jī)上引發(fā)各自的OnComm()事件，相互之間不存在數(shù)據(jù)干擾問(wèn)題,，數(shù)據(jù)采集后分別保存為文本文件,，為后期數(shù)據(jù)處理提供原始數(shù)據(jù)。
5 結(jié) 語(yǔ)
本文介紹了VB 6.0的串行通信控件,，分析了串口通信系統(tǒng)硬件構(gòu)成和主要程序解決過(guò)程,，有效提高了氣壓測(cè)高系統(tǒng)的測(cè)試效率，確保了數(shù)據(jù)采集的實(shí)時(shí)性和正確性,。通過(guò)應(yīng)用表明,，數(shù)據(jù)采集準(zhǔn)確，系統(tǒng)性能穩(wěn)定,，數(shù)據(jù)后處理方便,。