在VB下实现无线通信的方法

　一、 VB串行通信

　　利用VB开发通信程序主要的方法有两种:一是利用VB本身提供的控件(CONTRALS);另一种方法是利用Windows API应用程序接口。Windows API 主要提供了三个动态连接库(KERNEL.EXE、USER.EXE、GDI.EXE)供开发人员调用,其中KERNEL.EXE 主要包括一些底层操作函数,完成一些资源管理、任务、内存等操作;USER.EXE包含了一些与Windows管理有关的函数,如通信、菜单、消息、光标、插入符、计时器以及绝大多数非显示函数;GDI.EXE图形设备接口库,主要内容为与设备输出有关的函数。和串口通信有关系的函数BuilidCommDCB、ClearCommBreak、SetCommBreak、FlushComm、GetCommError、GetCommState、WriteComm、ReadComm、SetCommState、CloseComm等均在 \Windows\system 子目录下的USER.EXE动态连接库中,在VB调用之前应该先在全局变量定义处声明API通信函数、定义常量。

　　在VB的控件工具箱中,提供了一个使用非常方便的串行通信控件MSComm,它提供了一个事件OnComm,该事件可以截取串口的任何消息,转入事件处理程序。OnComm事件是唯一的,OnComm可以捕获通信时发生的串口事件和错误信息,当有串口事件或错误发生时,VB会立刻触发一个OnComm事件,程序就会自动转入OnComm事件处理程序中。CommEvent属性是OnComm事件的指示器,该属性在设计时不能使用,在程序运行时为只读,CommEvent 属性存有最近的事件或错误的数值代码,可以在程序中随时读取CommEvent 属性值来了解通信的状况,OnComm事件是和CommEvent属性密切相关、一起使用,当任何一个OnComm 事件或错误发生时,都会使得CommEvent属性值改变,在OnComm事件处理过程中,可以通过判断CommEvent属性值,对于不同的属性值转入不同的事件处理过程,一般采用的办法是SELECT CASE.......END SELECT。由于在无线通信中没有使用有线Modem,CommEvent 属性涉及到的有线Modem的属性数值代码和本项目无关。

　　二、无线传输接口和协议

　　用Intel 586/120的PC机为上位机,通信程序用VB开发,用8031单片机作CPU、 AD574作数据采集的下位机,上位机作数据接收和数据处理中心站,下位机实时采集数据之后,进行简单的数据平均计算,当收到上位机发来的发送指令之后,开始向上位机发送数据。

　　上位机无线通信接口使用的是一块插在ISA扩展槽中的无线Modem ZX-02,无线Modem与Kenwood公司的TK-378无线对讲机相连,数字信号通过无线Modem调制成为音频信号之后,送到TK-378无线对讲机上的MIC口。
下位机有一台外置无线Modem ZX-01,单片机的数字信号经过串口送入无线Modem,Modem对信号进行调制后送入Kenwood TK-378无线对讲机上,接收数据的方式与上述相同,由TK-378收到信号后,经无线Modem将音频信号解调为数字信号进入计算机或单片机处理。

　　由于在通信网络中,并非点对点的通信,而是一点对多点的广播式的通信方式,因此,我们在通信协议中增加站点识别码,给下位机编码可以保证网络通信的有序性。

　　由于无线通信可能会有空间的燥声干扰,因此,采取了多项抗干扰措施,首先是包头识别码,在发送了传输命令之后,下位机开始以打包的形式传输数据,每一包都有一个包头和包尾识别码,假如识别码有误,这一次的传输为不正常数据处理。打包发送另外一个原因是TK-270对讲机连续发送数据的时间不能超过一分钟,超过一分钟就会自动中断发送,因此,当数据较多时不打包连续发送的时间就会超过一分钟,发送数据中断。

　　在下位机中有32KB的NVRAM,可以保存32KB的数据。该数据可以由上位机发送清除命令的方法清除掉,当32KB满了以后,最早放入的数据就会丢掉,由于采样速率不高,在慢采的情况下,两天的时间才能存满,这样不论上位机或下位机出现断电、死机等问题,数据不会丢失掉。

　　由于使用的无线Modem所限,传输速率只能达到2400bps,而在我们的使用中1200bps、N Parity、8 DATA、1 STOP为较稳定状态。

　　上位机向下位机发送的命令有校时命令、请求内存命令、发送数据命令、快采命令和慢采命令等。发送命令有两种发送方式,即手动方式和自动方式,自动方式是由定时器来完成的。
　　三、 应用实例

　　由于该项目的软件源代码较长,我们只拿出和串口通信有关的程序片段来供大家参考。在我们的工作中实践了三种通信方式,即查询方式、事件驱动方式、事件驱动转查询方式。这三种方式各有利弊,查询方式方便可靠,可利用协议或设定时钟进入和退出查询状态,但不是资源的有效利用方式;事件触发方式对于定长通信非常有效,但定长通信在有些场合不实用;事件驱动转查询方式既有事件驱动的特点又有转查询方式特点,可以说是集二者之长,有效利用资源。下面着重介绍事件驱动转查询方式。

　　首先在公共模块中定义和ONCOMM有关的参数:

　　Global Const MSCOMM_EV_RECEIVE = 2‘收到 Rthreshold 个字符。该事件将持续产生直到用 Input 属性从接收缓冲区中删除数据。

　　Global Const MSCOMM_ER_RXOVER = 1008‘接受缓冲区溢出,接收缓冲区没有空间。

　　Global Const MSCOMM_ER_TXFULL = 1010 ‘传输缓冲区已满。传输字符时传输缓冲区已满。

　　在启动过程中对串口和输入输出缓冲区初始化:

Sub Form_Load ()
comm1.Settings = "1200,n,8,1" 设定波特率1200bps,无校验,8位数据位,1位停止位
comm1.CommPort = 1 串口1
comm1.InputLen = 1 一次从输入缓冲区中读取一个字符
comm1.InBufferSize = 512 定义输入缓冲区为512字节(bytes)
comm1.InBufferCount = 0 清空输入缓冲区
comm1.OutBufferCount = 0 清空输出缓冲区
comm1.PortOpen = True 启动串口
End Sub

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!