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