事件驅(qū)動轉(zhuǎn)查詢方式。這三種方式各有利弊,其中查詢方式具有方便可靠的特點,可利用協(xié)議或設定時鐘來進入和退出查詢狀態(tài),但它不是資源的有效利用方式;事件觸發(fā)方式對于定長通訊非常有效,但其定長通訊在有些場合不適用;而事件驅(qū)動轉(zhuǎn)查詢方式既有事件驅(qū)動的特點又有轉(zhuǎn)查詢方式的特點,可以說是匯集了前二者之長,故可有效利用資源。下面著重介紹事件驅(qū)動轉(zhuǎn)查詢方式。 由于在通訊中,ＲＴＳ電平可置高或置低,如果用事件驅(qū)動,計算機就會進入中斷,資源就沒有有效利用,所以在程序中添加了一個接收函數(shù)。為了保證程序的可靠性和靈活性,可以運用設置身份碼等方法來保證各個子站互不干擾,具體實現(xiàn)過程的主程序流程圖如圖２所示。
除以上處理外,還可以使用以下方法來增加系統(tǒng)的可靠性、靈活性和效率。
（１）設置身份碼和目的地址
每個數(shù)傳模塊均有表示其唯一身份的身份碼,身份碼長為兩個字節(jié)共十六位。第一字節(jié)表示組碼,第二字節(jié)表示組內(nèi)識別碼,身份碼可用Ｄ７ＨＦ５ＨＸＸＨＹＹＨ設置,可設置于模塊內(nèi)的ＥＥＲＯＭ中,掉電后不丟失。在數(shù)據(jù)傳送前,應設置目的地址,以便確定由哪個來接收數(shù)據(jù)。采用此方法可以有效地防止干擾。
（２）使用動態(tài)數(shù)組
接收字節(jié)數(shù)據(jù)時,必須使用動態(tài)數(shù)組。一個動態(tài)數(shù)組被聲明后,可以利用Ｉｎｐｕｔ屬性將串行端口輸入緩沖區(qū)內(nèi)的數(shù)據(jù)指定到該動態(tài)數(shù)組中。被接收到的數(shù)據(jù)的實際大小必須利用Ｌｂｏｕｎｄ及Ｕｂｏｕｎｄ才能取得最大及最小索引值,同時也只有這樣,才能利用程序?qū)?nèi)部的值一一顯示出來。另外,利用最大和最小索引值還可以判斷是否為一次成功接收。
（３）最優(yōu)化ＴｉｍｅＤｅｌａｙ
在每次傳輸指令后,一定要等待一段時間才可能從串行端口的輸入緩沖區(qū)中取得信號源傳回的數(shù)據(jù),這個時間有多久是項目的關鍵,太長了效率太低,太短了,數(shù)據(jù)有可能接收不全,所以有必要進行最佳化測試。具體代碼如下：
Ｐｕｂｌｉｃ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ＧｅｔＴｉｃｋＣｏｕｎｔ Ｌｉｂ ″ｋｅｒ-ｎｅｌ３２″ （）Ａｓ Ｌｏｎｇ
Ｄｉｍ Ｂｕｆ＄
Ｄｉｍ Ｔ１＆Ｔ２＆
Ｃｏｍｍ１．Ｏｕｔｐｕｔ＝Ｔｒｉｍ（Ｕｃａｓｅ（ｔｘｔｓｅｎｄ．．Ｔｅｘｔ）） ＆ ｖｂｃｒ
Ｔ１＝ＧｅｔＴｉｃｋＣｏｕｎｔ（）
Ｄｏ
Ｂｕｆ＝Ｂｕｆ ＆ Ｃｏｍｍ１．Ｉｎｐｕｔ
Ｌｏｏｐ Ｕｎｉｔｌ Ｉｎｓｔｒ（１,Ｂｕｆ,ｖｂＣｒ）＞０
Ｔ２＝ＧｅｔＴｉｃｋＣｏｕｎｔ（）
ＬｂｌＴｉｍｅ．Ｃａｐｔｉｏｎ＝ＣＳｔｒ（Ｔ２－Ｔ１） ＆ “ｍｓ”
該程序中使用ＧｅｔＴｉｃｋＣｏｕｎｔ來取得系統(tǒng)自開機后每千分之一秒更新的Ｔｉｃｋ值,在接收的前后加上取Ｔｉｃｋ值的敘述,自然就可以得到傳輸?shù)臅r間了。從測試的結果來看,傳輸單個數(shù)據(jù)的時間為１００ｍｓ,１０個群組的時間約為５００ｍｓ。
（４） 增加程序的效率
利用下面的程序可在無線通訊受到干擾或?qū)Ψ皆O備電源沒有打開等原因造成對方數(shù)據(jù)不能上傳時,避免程序一直在等待。如果在規(guī)定時間內(nèi)還沒等到規(guī)定的字節(jié)數(shù)時就跳出循環(huán),并出現(xiàn)一個重新發(fā)送對話框。此時如果還是不對,就彈出一個對話框“請檢查系統(tǒng)�。ⅰ＞唧w程序如下：
Ｐｕｂｌｉｃ Ｓｕｂ ＲｅｃｅｉｖｅＤａｔａ（）
′Ｏｎ Ｅｒｒｏｒ Ｒｅｓｕｍｅ Ｎｅｘｔ
Ｄｉｍ ｓｔａｒｔ, ｄｅｎｄ Ａｓ Ｉｎｔｅｇｅｒ
Ｄｉｍ ｂｙｉｎ（） Ａｓ Ｂｙｔｅ
Ｄｉｍ ｂｙｉｎｄａｔａ（１１） Ａｓ Ｂｙｔｅ
Ｄｉｍ Ｉ％ ｂｕｆ＄
′根據(jù)事件分發(fā)處理
Ｄｏ Ｗｈｉｌｅ ｆｒｍＭＳＣｏｍｍＤｅｍｏ．ＭＳＣｏｍｍ１．ＣｏｍｍＥｖｅｎｔ ＝ ２
Ｅｘｉｔ Ｄｏ
Ｌｏｏｐ
Ｔｉｍｅｄｅｌａｙ ８５０ ′適當延時
ｂｙｉｎ ＝ ｆｒｍＭＳＣｏｍｍＤｅｍｏ．ＭＳＣｏｍｍ１．Ｉｎｐｕｔ
′接收串行端口內(nèi)的數(shù)據(jù)至動態(tài)數(shù)組中
ｄｅｎｄ ＝ ＵＢｏｕｎｄ（ｂｙｉｎ） ′得到最大值
ｓｔａｒｔ ＝ ＬＢｏｕｎｄ（ｂｙｉｎ） ′得到最小值
Ｉｆ ｄｅｎｄ ＜ ５ Ｔｈｅｎ
ＭｓｇＢｏｘ ＲａｄａｒＮｏＯｕｔ ＆ “信號源出現(xiàn)系統(tǒng)
故障,請求檢修！” ｖｂＯＫＯｎｌｙ
Ｅｘｉｔ Ｓｕｂ
Ｅｎｄ Ｉｆ
′接收串行端口內(nèi)的數(shù)據(jù)至動態(tài)數(shù)組中
′ＲｅＤｉｍ Ｐｒｅｓｅｒｖｅ ｂｙｉｎ（１１） Ａｓ Ｂｙｔｅ
Ｉｆ ｂｙｉｎｄａｔａ（０） ＝ ＆Ｈ５５ Ａｎｄ ｂｙｉｎｄａｔａ（１） ＝ ＆ＨＡＡ
Ｔｈｅｎ ′包頭正確,接收到包頭進行數(shù)據(jù)處理
．
．
．
Ｅｎｄ ｓｕｂ
′延時程序
Ｓｕｂ Ｔｉｍｅｄｅｌａｙ（ＴＴ Ａｓ Ｌｏｎｇ）
Ｄｉｍ ｔ Ａｓ Ｌｏｎｇ ′聲明一個長整數(shù),記錄計數(shù)值
ｔ ＝ ＧｅｔＴｉｃｋＣｏｕｎｔ（） ′取得系統(tǒng)計數(shù)值
Ｄｏ ′開始循環(huán)
ＤｏＥｖｅｎｔｓ
Ｉｆ ＧｅｔＴｉｃｋＣｏｕｎｔ － ｔ ＜ ０ Ｔｈｅｎ ｔ ＝ ＧｅｔＴｉｃｋ-Ｃｏｕｎｔ ′歸零
Ｌｏｏｐ Ｕｎｔｉｌ ＧｅｔＴｉｃｋＣｏｕｎｔ － ｔ ＞＝ ＴＴ ′計算延遲是否到達
Ｅｎｄ Ｓｕｂ
４ 結論
根據(jù)本系統(tǒng)的研制經(jīng)驗,利用ＭＳＣＯＭＭ控件開發(fā)無線通信要把握好以下三條：
（１） 收發(fā)之間應延時適當,這需要在測試中不斷地調(diào)試,以達到最佳效果。
（２） 選用好的且必須具有糾錯功能的無線數(shù)傳模塊,否則將達不到理想的效果。
（３） 設定一個合理的通信協(xié)議,使中心站與子站有良好的溝通。實際測驗證明,本系統(tǒng)在ＷＩＮ９８中運行穩(wěn)定,在實驗過程中取得了良好的效果。
