多站远程无线控制信号系统通信软件的开发
减小字体
增大字体（３）最优化ＴｉｍｅＤｅｌａｙ
在每次传输指令后，一定要等待一段时间才可能从串行端口的输入缓冲区中取得信号源传回的数据，这个时间有多久是项目的关键，太长了效率太低，太短了，数据有可能接收不全，所以有必要进行最佳化测试。具体代码如下：
Ｐｕｂｌｉｃ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ＧｅｔＴｉｃｋＣｏｕｎｔ Ｌｉｂ ″ｋｅｒ-ｎｅｌ３２″ （）Ａｓ Ｌｏｎｇ
Ｄｉｍ Ｂｕｆ＄
Ｄｉｍ Ｔ１＆Ｔ２＆
Ｃｏｍｍ１．Ｏｕｔｐｕｔ＝Ｔｒｉｍ（Ｕｃａｓｅ（ｔｘｔｓｅｎｄ．．Ｔｅｘｔ）） ＆ ｖｂｃｒ
Ｔ１＝ＧｅｔＴｉｃｋＣｏｕｎｔ（）
Ｄｏ
Ｂｕｆ＝Ｂｕｆ ＆ Ｃｏｍｍ１．Ｉｎｐｕｔ
Ｌｏｏｐ Ｕｎｉｔｌ Ｉｎｓｔｒ（１，Ｂｕｆ，ｖｂＣｒ）＞０
Ｔ２＝ＧｅｔＴｉｃｋＣｏｕｎｔ（）
ＬｂｌＴｉｍｅ．Ｃａｐｔｉｏｎ＝ＣＳｔｒ（Ｔ２－Ｔ１） ＆ “ｍｓ”
该程序中使用ＧｅｔＴｉｃｋＣｏｕｎｔ来取得系统自开机后每千分之一秒更新的Ｔｉｃｋ值，在接收的前后加上取Ｔｉｃｋ值的叙述，自然就可以得到传输的时间了。从测试的结果来看，传输单个数据的时间为１００ｍｓ，１０个群组的时间约为５００ｍｓ。
（４） 增加程序的效率
利用下面的程序可在无线通讯受到干扰或对方设备电源没有打开等原因造成对方数据不能上传时，避免程序一直在等待。如果在规定时间内还没等到规定的字节数时就跳出循环，并出现一个重新发送对话框。此时如果还是不对，就弹出一个对话框“请检查系统！＂。具体程序如下：
Ｐｕｂｌｉｃ Ｓｕｂ ＲｅｃｅｉｖｅＤａｔａ（）
′Ｏｎ Ｅｒｒｏｒ Ｒｅｓｕｍｅ Ｎｅｘｔ
Ｄｉｍ ｓｔａｒｔ， ｄｅｎｄ Ａｓ Ｉｎｔｅｇｅｒ
Ｄｉｍ ｂｙｉｎ（） Ａｓ Ｂｙｔｅ
Ｄｉｍ ｂｙｉｎｄａｔａ（１１） Ａｓ Ｂｙｔｅ
Ｄｉｍ Ｉ％ ｂｕｆ＄
′根据事件分发处理
Ｄｏ Ｗｈｉｌｅ ｆｒｍＭＳＣｏｍｍＤｅｍｏ．ＭＳＣｏｍｍ１．ＣｏｍｍＥｖｅｎｔ ＝ ２
Ｅｘｉｔ Ｄｏ
Ｌｏｏｐ
Ｔｉｍｅｄｅｌａｙ ８５０ ′适当延时
ｂｙｉｎ ＝ ｆｒｍＭＳＣｏｍｍＤｅｍｏ．ＭＳＣｏｍｍ１．Ｉｎｐｕｔ
′接收串行端口内的数据至动态数组中
ｄｅｎｄ ＝ ＵＢｏｕｎｄ（ｂｙｉｎ） ′得到最大值
ｓｔａｒｔ ＝ ＬＢｏｕｎｄ（ｂｙｉｎ） ′得到最小值
Ｉｆ ｄｅｎｄ ＜ ５ Ｔｈｅｎ
ＭｓｇＢｏｘ ＲａｄａｒＮｏＯｕｔ ＆ “信号源出现系统
故障，请求检修！” ｖｂＯＫＯｎｌｙ
Ｅｘｉｔ Ｓｕｂ
Ｅｎｄ Ｉｆ
′接收串行端口内的数据至动态数组中
′ＲｅＤｉｍ Ｐｒｅｓｅｒｖｅ ｂｙｉｎ（１１） Ａｓ Ｂｙｔｅ
Ｉｆ ｂｙｉｎｄａｔａ（０） ＝ ＆Ｈ５５ Ａｎｄ ｂｙｉｎｄａｔａ（１） ＝ ＆ＨＡＡ
Ｔｈｅｎ ′包头正确，接收到包头进行数据处理
．
．
．
Ｅｎｄ ｓｕｂ
′延时程序
Ｓｕｂ Ｔｉｍｅｄｅｌａｙ（ＴＴ Ａｓ Ｌｏｎｇ）
Ｄｉｍ ｔ Ａｓ Ｌｏｎｇ ′声明一个长整数，记录计数值
ｔ ＝ ＧｅｔＴｉｃｋＣｏｕｎｔ（） ′取得系统计数值
Ｄｏ ′开始循环
ＤｏＥｖｅｎｔｓ
Ｉｆ ＧｅｔＴｉｃｋＣｏｕｎｔ － ｔ ＜ ０ Ｔｈｅｎ ｔ ＝ ＧｅｔＴｉｃｋ-Ｃｏｕｎｔ ′归零
Ｌｏｏｐ Ｕｎｔｉｌ ＧｅｔＴｉｃｋＣｏｕｎｔ － ｔ ＞＝ ＴＴ ′计算延迟是否到达
Ｅｎｄ Ｓｕｂ
４ 结论
根据本系统的研制经验，利用ＭＳＣＯＭＭ控件开发无线通信要把握好以下三条：
（１） 收发之间应延时适当，这需要在测试中不断地调试，以达到最佳效果。
（２） 选用好的且必须具有纠错功能的无线数传模块，否则将达不到理想的效果。
（３） 设定一个合理的通信协议，使中心站与子站有良好的沟通。实际测验证明，本系统在ＷＩＮ９８中运行稳定，在实验过程中取得了良好的效果。
Tags：
作者：佚名
- 好的评价 如果您觉得此文章好，就请您
0%(0) 
- 差的评价 如果您觉得此文章差，就请您
0%(0) 
中查找“多站远程无线控制信号系统通信软件的开发”更多相关内容
中查找“多站远程无线控制信号系统通信软件的开发”更多相关内容