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

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

Ｄｉｍ Ｉ％? ｂｕｆ＄

′根据事件分发处理

Ｄｏ Ｗｈｉｌｅ ｆｒｍＭＳＣｏｍｍＤｅｍｏ．ＭＳＣｏｍｍ１．ＣｏｍｍＥｖｅｎｔ ＝ ２

Ｅｘｉｔ Ｄｏ

Ｌｏｏｐ

Ｔｉｍｅｄｅｌａｙ ８５０ ′适当延时

ｂｙｉｎ ＝ ｆｒｍＭＳＣｏｍｍＤｅｍｏ．ＭＳＣｏｍｍ１．Ｉｎｐｕｔ

′接收串行端口内的数据至动态数组中

ｄｅｎｄ ＝ ＵＢｏｕｎｄ（ｂｙｉｎ） ′得到最大值

ｓｔａｒｔ ＝ ＬＢｏｕｎｄ（ｂｙｉｎ） ′得到最小值

Ｉｆ ｄｅｎｄ ＜ ５ Ｔｈｅｎ

ＭｓｇＢｏｘ ＲａｄａｒＮｏＯｕｔ ＆ “信号源出现系统

故障，请求检修！”? ｖｂＯＫＯｎｌｙ

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｉｆ

′接收串行端口内的数据至动态数组中

′ＲｅＤｉｍ Ｐｒｅｓｅｒｖｅ ｂｙｉｎ（１１） Ａｓ Ｂｙｔｅ

Ｉｆ ｂｙｉｎｄａｔａ（０） ＝ ＆Ｈ５５ Ａｎｄ ｂｙｉｎｄａｔａ（１） ＝ ＆ＨＡＡ

Ｔｈｅｎ ′包头正确，接收到包头进行数据处理

．

．

．

Ｅｎｄ ｓｕｂ

′延时程序

Ｓｕｂ Ｔｉｍｅｄｅｌａｙ（ＴＴ Ａｓ Ｌｏｎｇ）

Ｄｉｍ ｔ Ａｓ Ｌｏｎｇ ′声明一个长整数，记录计数值

ｔ ＝ ＧｅｔＴｉｃｋＣｏｕｎｔ（） ′取得系统计数值

Ｄｏ ′开始循环

ＤｏＥｖｅｎｔｓ

Ｉｆ ＧｅｔＴｉｃｋＣｏｕｎｔ － ｔ ＜ ０ Ｔｈｅｎ ｔ ＝ ＧｅｔＴｉｃｋ-Ｃｏｕｎｔ ′归零

Ｌｏｏｐ Ｕｎｔｉｌ ＧｅｔＴｉｃｋＣｏｕｎｔ － ｔ ＞＝ ＴＴ ′计算延迟是否到达

Ｅｎｄ Ｓｕｂ

４　结论

根据本系统的研制经验，利用ＭＳＣＯＭＭ控件开发无线通信要把握好以下三条：

（１） 收发之间应延时适当，这需要在测试中不断地调试，以达到最佳效果。

（２） 选用好的且必须具有纠错功能的无线数传模块，否则将达不到理想的效果。

（３） 设定一个合理的通信协议，使中心站与子站有良好的沟通。实际测验证明，本系统在ＷＩＮ９８中运行稳定，在实验过程中取得了良好的效果。