用Visual Basic 5.0开发无线通讯数据采集应用程序

1、用Visual Basic 5.0开发无线通讯数据采集应用程序摘要：本文通过对无线通讯系统根本工作原理的分析，说明了采用VisualBasi5.0中的控件S.VBX进展无线数据采集程序开发的根本方法。并结合900频率无线通讯电台的特点，给出了根本通讯接口源程序代码。关键词：VB5无线通讯控件1引言目前对于用于数据采集和传输的无线设备之间的通讯编程，一般仍采用语言和汇编语言较多，这主要是由于在编程时，要涉及到对无线通讯设备硬件的控制，因此，选择语言和汇编语言的较多。采用以上两种语言进展编程，对于一般的编程人员来讲，很难较快的掌握。本文采用可视化的编程环境从根本上解决了以上问题，只要有一定编程根底

2、的技术人员，均可实现自己编程。2无线通讯设备的根本工作原理在无线的通讯方式中，数据传输的根本原理可以认为是通过调制解调器进展工作的，而这种调制解调器是无线方式工作的，它不含有拨号功能，而且和它直接连接的是无线电台。无线电台的作用就相当于有线传输中的 线，它是通过无线电波进展发送和承受信号的。而无线调制解调器的作用是将二进制的信号调制成可以在无线电台之间传输的无线电波。信号转换过程的属性取决于调制解调器所接收到的源信号和目的信号。一般来说，调制解调器从终端或计算机接以串行方式收到二进制信号后，将它们转换成了音频信号。然后调制解调器将这些声音通过无线电台传输出去。在承受端，另一个兼容的调制解调器将

3、这些声音信号转换成了二进制信号，并把这些二进制信号发送给终端或计算机。由于在无线电台之间有过滤和放大作用，同时，无线电波的传输受很多因素影响，因此传送的速度受到限制。下面给出了一种900电台的技术特性见表1。本程序就是使用的这种电台，对于其它参数的电台，其根本原理也是一样的。表1900无线电台的技术指标工程指标含义传输速率1.2Kbps或2.4Kbps每秒的字节数数据的控制透明传输发射功率3承受灵敏度-105dB工作频率915917HZ信道158个3无线数据采集的编程由无线通讯的根本原理可以看出，无线的数据采集和传输主要包括以下几个过程，从带处理器的传感器或计算机终端发送二进制信号到无线调制解

4、调器；无线电台之间建立连接并传输数据；从另外一端的电台承受二进制数据；将数据传输到计算机。因此，要建立无线设备之间的通讯必须在两端进展编程。从计算机终端到无线电台的数据传输是通过计算机的串行口进展的，通过对串行口进展编程就可以实现向电台发送数据。在VisualBasi5.0中的控件S是进展串口通讯的。通过设定控件S的属性，可以用VB5.0对其进展灵敏的编程，控件S同时支持事件驱动及轮询方法。控件S能生成一个名为n的事件，它能能捕获的事件范围包括通过串口承受数据以及遇到任何错误等等。事件或错误的值以整数的形式保存在Event属性里。可根据Event属性判断最近一次事件或错误。也可以在程序中设置一

5、个循环，每次循环都直接检查Event属性的值，从而对事件及错误进展“轮询。假如应用程序规模小，这种方法相当完美。下面的局部程序代码是计算机和900无线电台之间的传输程序，本程序已经在486计算机和PII586上调试通过。1从串口读入电台数据程序GetStringFr()功能:(1)主要完成从端口获得数据,将二进制的数据转换为ASII码数据PubliFuntinGetStringFr()AsString定义变量略IffrTerinal.S1.InBufferunt7ThenGetStringFr=ExitFuntinEndIf/读入标志码frTerinal.S1.InputLen=6ReDiPr

6、eserveBinDataarr(6)AsByteBinData=frTerinal.S1.InputBinDataarr=BinDataUserDataLenth=BinDataarr(5)用户数据的长度ait1:IfBinDataarr(5)frTerinal.S1.InBufferuntThen未承受完数据delay6延时6sGTait1EndIffrTerinal.S1.InputLen=UserDataLenthBinData=frTerinal.S1.InputReDiPreserveBinDataarr(UserDataLenth)BinDataarr=BinDataGetStr

7、ingFr=BinTtext(UserDataLenth,0)frTerinal.S1.InBufferunt=0清空承受缓冲区EndFuntin2从串口向电台发送数据程序SendStringT()PubliSubSendStringT(ByValTransandAsInteger,ByValTransStringAsString)ReDiBinDataarr(5)frTerinal.S1.utBufferunt=0/清空发送缓冲区TransString=akestring(Val(.txtdesstatin.Text),4)+TransString/设置标志码略SeletaseTransan

8、dase0:transittextReDiPreserveBinDataarr(6+Len(TransString)TextTbin(TransString)BinData=BinDataarrfrTerinal.S1.utput=BinData发送ase1:transitbinarydataReDiPreserveBinDataArr(5+Len(TransString)+UserDataLenth)AsByteTextTbin(TransString)BinDataArr(5)=UserDataLenth+Len(TransString)DiiAsIntegerFri=1TUserData

9、LenthBinDataArr(5+Len(TransString)+i)=userDataarr(i-1)NextiBinData=BinDataArrS1.utput=BinDataEndSeletbinDatalenth=0EndSub以上的两个子程序是在实现无线传输的根本程序，假如要实现无线设备两端的数据采集，需要在此根底上进展文件格式、控制命令、编码方式等的编程，这些编程均可通过VisualBasi5.0实现，由于篇幅所限，本文对这局部内容不作详细表达。4结论和讨论通过以上的实例编程可以得出，采用VisualBasi5.0对无线数据采集和传输进展编程，具有可视化、容易掌握、灵敏性好，尤其串口控件S的属性功能齐全，完全可以控制串行口实现各种功能。通过VisualBasi5.0编写的程序具有界面友好，操作方便，且编程过程简单。本文仅在数据采集方面应用了VisualBasi5