多站远程无线控制信号系统通信软件的开发

事件驱动转查询方式。这三种方式各有利弊，其中查询方式具有方便可靠的特点，可利用协议或设定时钟来进入和退出查询状态，但它不是资源的有效利用方式；事件触发方式对于定长通讯非常有效，但其定长通讯在有些场合不适用；而事件驱动转查询方式既有事件驱动的特点又有转查询方式的特点，可以说是汇集了前二者之长，故可有效利用资源。下面着重介绍事件驱动转查询方式。

由于在通讯中，ＲＴＳ电平可置高或置低，如果用事件驱动，计算机就会进入中断，资源就没有有效利用，所以在程序中添加了一个接收函数。为了保证程序的可靠性和灵活性，可以运用设置身份码等方法来保证各个子站互不干扰，具体实现过程的主程序流程图如图２所示。

除以上处理外，还可以使用以下方法来增加系统的可靠性、灵活性和效率。

（１）设置身份码和目的地址

每个数传模块均有表示其唯一身份的身份码，身份码长为两个字节共十六位。第一字节表示组码，第二字节表示组内识别码，身份码可用Ｄ７Ｈ?Ｆ５Ｈ?ＸＸＨ?ＹＹＨ设置，可设置于模块内的ＥＥＲＯＭ中，掉电后不丢失。在数据传送前，应设置目的地址，以便确定由哪个来接收数据。采用此方法可以有效地防止干扰。

（２）使用动态数组

接收字节数据时，必须使用动态数组。一个动态数组被声明后，可以利用Ｉｎｐｕｔ属性将串行端口输入缓冲区内的数据指定到该动态数组中。被接收到的数据的实际大小必须利用Ｌｂｏｕｎｄ及Ｕｂｏｕｎｄ才能取得最大及最小索引值，同时也只有这样，才能利用程序将内部的值一一显示出来。另外，利用最大和最小索引值还可以判断是否为一次成功接收。

（３）最优化ＴｉｍｅＤｅｌａｙ

在每次传输指令后，一定要等待一段时间才可能从串行端口的输入缓冲区中取得信号源传回的数据，这个时间有多久是项目的关键，太长了效率太低，太短了，数据有可能接收不全，所以有必要进行最佳化测试。具体代码如下：

Ｐｕｂｌｉｃ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ＧｅｔＴｉｃｋＣｏｕｎｔ Ｌｉｂ ″ｋｅｒ-ｎｅｌ３２″ （）?Ａｓ Ｌｏｎｇ

Ｄｉｍ Ｂｕｆ＄

Ｄｉｍ Ｔ１＆?Ｔ２＆

Ｃｏｍｍ１．Ｏｕｔｐｕｔ＝Ｔｒｉｍ（Ｕｃａｓｅ（ｔｘｔｓｅｎｄ．．Ｔｅｘｔ）） ＆ ｖｂｃｒ

Ｔ１＝ＧｅｔＴｉｃｋＣｏｕｎｔ?（）

Ｄｏ

Ｂｕｆ＝Ｂｕｆ ＆ Ｃｏｍｍ１．Ｉｎｐｕｔ

Ｌｏｏｐ Ｕｎｉｔｌ Ｉｎｓｔｒ（１，Ｂｕｆ，ｖｂＣｒ）＞０

Ｔ２＝ＧｅｔＴｉｃｋＣｏｕｎｔ（）

ＬｂｌＴｉｍｅ．Ｃａｐｔｉｏｎ＝ＣＳｔｒ（Ｔ２－Ｔ１） ＆ “ｍｓ”

该程序中使用ＧｅｔＴｉｃｋＣｏｕｎｔ来取得系统自开机后每千分之一秒更新的Ｔｉｃｋ值，在接收的前后加上取Ｔｉｃｋ值的叙述，自然就可以得到传输的时间了。从测试的结果来看，传输单个数据的时间为１００ｍｓ，１０个群组的时间约为５００ｍｓ。

（４） 增加程序的效率

利用下面的程序可在无线通讯受到干扰或对方设备电源没有打开等原因造成对方数据不能上传时，避免程序一直在等待。如果在规定时间内还没等到规定的字节数时就跳出循环，并出现一个重新发送对话框。此时如果还是不对，就弹出一个对话框“请检查系统！＂。具体程序如下：

Ｐｕｂｌｉｃ Ｓｕｂ ＲｅｃｅｉｖｅＤａｔａ（）

′Ｏｎ Ｅｒｒｏｒ Ｒｅｓｕｍｅ Ｎｅｘｔ

Ｄｉｍ ｓｔａｒｔ， ｄｅｎｄ Ａｓ Ｉｎｔｅｇｅｒ

Ｄｉｍ ｂｙｉｎ（） Ａｓ Ｂｙｔｅ

《多站远程无线控制信号系统通信软件的开发(第2页)》