<meter id="pryje"><nav id="pryje"><delect id="pryje"></delect></nav></meter>
          <label id="pryje"></label>

          新聞中心

          EEPW首頁 > 測試測量 > 設計應用 > 基于VB 6.0串口通信的氣壓測高系統(tǒng)數據采集

          基于VB 6.0串口通信的氣壓測高系統(tǒng)數據采集

          作者: 時間:2010-04-14 來源:網絡 收藏

            3 VB 6.0中MSComm通信控件

            VB 6.0增加了面向對象程序設計功能,它不僅可以方便快捷地編制適用于數據處理、多媒體等方面的程序,并且提供了一個ActiveX控件——Microsoft Communication Control,Version 6.0,稱為MSComm控件,可以方便地開發(fā)出使用計算機串口的計算機通信程序。MSComm控件提供了兩種處理通信的方式:一種為事件驅動方式,該方式相當于一般程序設計中的中斷方式。當串口發(fā)生事件或錯誤時,MSComm控件會產生OnComm事件,用戶程序可以捕獲該事件進行相應處理。另一種為查詢方式,在用戶程序中設計定時或不定時查詢MSComm控件的某些屬性是否發(fā)生變化,從而確定相應處理。

            利用MSComm控件實現計算機通信的關鍵是理解并正確設置MSComm控件眾多屬性和方法。以下是 MSComm控件的常用屬性和方法:

            Commport:設置或返回串口號,類型short。

            Settings:以字符串的形式設置或返回參數。

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

            InputMode:設置或返回接收數據的類型。

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

            Input:從接收緩沖區(qū)中讀取數據并清空該緩沖區(qū),該屬性設計時無效,運行時只讀。

            Output:向發(fā)送緩沖區(qū)發(fā)送數據,該屬性設計時無效,運行時只讀。

            Rthreshold:當接收緩沖區(qū)中字符數達到該值時,MSComm控件設置Commevent屬性為ComEvReceive,并產生 OnComm事件。

            Sthreshold:當發(fā)送緩沖區(qū)中字符數小于該值時,MSComm控件設置Commevent屬性為ComEvSend,并產生OnComm事件。若Sthreshold屬性設置為0,則不產生OnComm事件。

            CommEvent:串口事件,該屬性設計時無效,運行時只讀。一旦串口發(fā)生通信事件或產生錯誤,依據產生的事件和錯誤,MSComm控件為 CommEvent屬性賦不同的代碼,同時產生OnComm事件。用戶程序就可在OnComm事件處理程序中針對不同的代碼,進行相應的處理。

            4 利用VB 6.0實現的串行通信

            在VB 6.0編程環(huán)境下,新建工程并引用MSComm控件,在窗體中添加所需控件,構建一個合理的收發(fā)界面。在窗體中還需要添加以下幾個基本控件:

            (1)MSComm控件,主要用于軟件對串口的訪問。由于需要實現多臺氣壓測高接收機的測試,需要添加多個控件。

            (2)定時器控件,用于使PC機定時向各氣壓測高接收機發(fā)送命令,使其定時回傳實時數據。

            (3)非周期命令發(fā)送按鈕,用于非周期性指令的傳送啟動。

            (4)數據保存按鈕,用于將采集到數據保存為文本文件,便于數據后處理。

            (5)用于數據接收數據和發(fā)送數據的文本框。



          評論


          相關推薦

          技術專區(qū)

          關閉
          看屁屁www成人影院,亚洲人妻成人图片,亚洲精品成人午夜在线,日韩在线 欧美成人 (function(){ var bp = document.createElement('script'); var curProtocol = window.location.protocol.split(':')[0]; if (curProtocol === 'https') { bp.src = 'https://zz.bdstatic.com/linksubmit/push.js'; } else { bp.src = 'http://push.zhanzhang.baidu.com/push.js'; } var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(bp, s); })();