《Windows环境下的串行数据通信程序设计.doc》由会员分享，可在线阅读，更多相关《Windows环境下的串行数据通信程序设计.doc（7页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、Windows环境下的串行数据通信程序设计 2004-10-29 来源：摘 要 该文详细讨论了MSCOMM.VBX通信控件在Windows平台下的通信软件设计方法,借助于Visual Basic所附的通信控件能非常方便地开发出高级和专业性通信软件来满足不同业务的需要。在Windows操作系统平台上开发通信软件时,虽然Windows 3.1 SDK提供了完备的API应用程序接口函数和以中断方式驱动的通信设备驱动程序COMM.DRV,从而可以用C或C+来完成这类应用程序的设计,但其复杂化和专业化程度仍然很高。所以,目前许多软件开发人员都在使用Microsoft Visual Basic来开发Win
2、dows应用程序。本文将详细叙述VB环境的通信软件开发方法,通过对通信控件MSCOMM.VBX的分析,我们可以看到利用VB来开发Windows平台下的通信软件非常简单。最后结合我们工作中的一个实例来完整地描述该类软件的设计方法。一、MSCOMM.VBX的描述VB中的串行通信控件已全面提供了使用RS-232来进行数据通信软件开发设计的所有细则,Microsoft Visual Basic 3.0中的MSCOMM.VBX(需要安装在indowsystem目录下)是1992年Crescent software Inc. 公司专为Microsoft的VB平台设计的,它使用以下两种不同的方式来处理和解决
3、各类通信软件的开发和设计问题。(1) 事件驱动,它和我们用C/C+写Windows软件时的窗口回调函数类似,是一种功能强大的处理问题的方法。在实际工作中,往往要求我们处理许多通信中的相关事件。例如:当线路数据到达本端或CD(Carrier Detect)和RTS(Request To Send)信号线状态发生变化时,这就要求我们使用相应的事件来跟踪和处理。在该控件中,是使用OnComm来实现的,它也包括检测和处理通信错误等方面的问题。以下是MSCOMM详细的错误和事件列表(读者可参阅SKD或MSC/C+ 7.0等中的Windows.h有关的通信部分常数和函数原型):MSCOMM_ER_BREA
4、KA收到一个Break signal.MSCOMM_ER_CDTOCD信号超时MSCOMM_ER_CTSTOCTS信号超时MSCOMM_ER_DSRTODSR信号超时MSCOMM_ER_FRAME帧错误发生MSCOMM_ER_OVERRUN接收数据丢失MSCOMM_ER_RXOVER接收缓冲器溢出MSCOMM_ER_RXPARITY纠验错MSCOMM_ER_TXFULL发送缓冲器满MSCOMM_EV_CDCD信号改变MSCOMM_EV_CTSCTS信号改变MSCOMM_EV_DSRDSR信号改变MSCOMM_EV_EOF收到一个文本文件结束字符(26)MSCOMM_EV_RING检测到一个振铃
5、信号MSCOMM_EV_RECEIVE接收到设定的字符数时产生该事件MSCOMM_EV_SEND发生缓冲器中的字符数低于设定的数值时产生该事件以上常数定义在CONSTANT.TXT文件中。(2) 查询方式,由程序设计者来负责读取CommEvent的值并处理所发生的错误或事件。通常简单的应用程序设计可采用这种方法。使用通信控件开发通信软件时,能非常简单地设计出同时访问多个通信口的程序,这就是Windows的好处。例如使用Commi.OnComm,其中1in(n:当前可用的通信口),就可以设计多个通信串口处理程序。例如,一个基于电话网用来检索信息资料的小型服务器的后台软件的设计应用就是一个很好的例
6、子。MSCOMM.VBX中提供了27个关于通信控件方面的属性,以下列出最重要的几个:CommPort设置和返回通信口的数目Settings设置和返回以字符串形式给出的数据通信格式:波特率,校验,数据位和停止位PortOpen设置和返回通信口的状态(包括打开和关闭一个通信口)Input读串行数据接收缓冲器Output发送一个串在MSCOMM.VBX中,有两个与Input和Output性质相等同的函数;(1) 输入函数,从串行通信接收缓冲器中读取字符串,句型如下:Comlnput(By Val hWnd As Integer, lpData As Any,By Val cbData As Inte
7、ger) As IntegerT8S14200.GIF;图1返回值:本次读操作实际读取的字符数(2) 输出函数,向通信口发送一个字符串,句型如下:ComOutput(By Val hWnd As Integer, lpData As Any,By Val cbData As Integer) As integerT8S14201.GIF;图2返回值:本次写操作实际发送的字符数二、事件驱动和查询方式下的两种通信软件开发模板这两种方式分别对应我们通常使用汇编或C/C+来写通信程序中的中断和查询方法。(1) 事件驱动下例是一个使用事件驱动方式设计通信程序的模板,我们只需根据自己的实际情况来选择在下列
8、的Case语句中插入相应的代码即可。Sub Comm_OnComm()Select Case Commi.CommEventi=1,2. 错误部分Case MSCOMM-ER_BREAK插入处理BREAK代码Case MSCOMM-ER_CDTO插入处理CD(RLSD)超时代码Case MSCOMM-ER_CTSTO插入处理CTS超时代码Case MSCOMM-ER_DSRTO插入处理DSR超时代码Case MSCOMM-ER_FRAME插入处理帧错误代码Case MSCOMM-ER_OVERRUN插入处理数据丢失代码Case MSCOMM-ER_RXOVER插入处理接收缓冲器溢出代码Case
9、 MSCOMM-ER_RXPARITY插入处理校验错误代码Case MSCOMM-ER_TXFULL插入处理发送缓冲器满代码事件部分Case MSCOMM-EV_CD插入处理CD信号改变代码Case MSCOMM-EV_CTS插入处理CTS信号改变代码Case MSCOMM-EV_DSR插入处理DST信号改变代码Case MSCOMM-EV_EOF插入处理收到一个文本文件结束字(26)代码Case MSCOMM-EV_RING插入处理检测到一个振铃信号代码Case MSCOMM-EV_RECEIVE插入接收到设定的字符数时产生该事件代码Case MSCOMM-EV_SEND插入处理发生缓冲器中
10、的字符数低于设定的数值时产生该事件的代码End SelectEnd Sub(2) 查询方式查询方式,就是每个命令(含数据块)都要查询等待对它的回答。详细使用方法请见下文的实例叙述。三、一个完整例子该程序的设计背景是全军医药信息网上电话拨号用户前台软件中的自动拨号部分,为节省篇幅和说明问题,这里进行了重新编辑,但其本身是完整的。该程序帮助主人进行电话拨号以呼通被叫。调试环境:LEO 486/50,HiTec MODEM,院内电话脉冲拨号,使用串行口1,PWIN 3.1程序Form由下列部分组成:List1电话号码显示列表;Label1拨号状态显示;Dial,Cancel,Quit三个按钮;MSC
11、OMM.VBX通信控件。 - Visual Basic 3.0 MSCOMM.VBX程序设计:使用MODEM拨号,人工通话 程序名:MDIALER.TXT 军事医学科学院计算中心 夏云,1995.2.12 运行:使用VB FILE中的Load Text项装入,按F5或生成.EXE文件运行 -Option ExplicitDim PhoneNumbers$()电话号码存储变量Dim CancelFlagCancel按钮状态标志Sub Dial(Number$)拨号例程Dim DialString$,FromModem$,dummy根据脉冲/双音多频拨号方式来选择DT/DP;所拨号码存放在变量Ph
12、oneNumbers$(Index)中;命令中的分号表示MODEM在拨号后重新回到命令状态;每个命令由回车符Chr$(13)结束;DialString$=ATDT+Number$+;+Chr$(13)Commi.Settings=2400,N,8,1设置帧格式On Error Resume Next错误恢复Commi.PortOpen=True启动该口工作If Err Then如果该口不可启动,则显示信息MsgBox当前串行通信端口不能工作,请选择使用另外端口。”Exit SubEnd ifCommi.InBufferCount=0清除接收缓冲器Commi.Output=DialString$
13、开始拨号Do等待MODEM返回“OK”回答dummy=DoEvents()进入等待方式,将资源提交系统管理If Commi.InBufferCount Then若接收缓冲器中有数据存在,则读FromModem$=FromModem$+Commi.InputIf InStr(FromModem$,OK)Then 是否接收到“OK”Beep已经接收到“OK”,发蜂呜声MsgBox对方电话已经拨通,请摘话机并按回车或OK钮”Exit DoEnd IfEnd IfIf CancelFlag Then若Cancel钮按下则处理CancelFlag=FalseExit DoEnd IfLoopCommi.
14、Output=ATH+Chr$(13)挂断命令Commi.PortOpen=False关闭该口End SubSub DialButton_Click()Dial按钮处理程序Dim Number$,Temp$DialButton.Enabled=FalseDial,Quit二个按钮同时无效QuitButton.Enabled=FalseCancelButton.Enabled=True开放Cancel按钮Number$=PhoneNumbers$(List1.ListIndex)获得一个电话号码Temp$=Status保存状态Status$=“正在拨号码:”+Number$Dial Number
15、$拨号例程执行DialButton.Enabled=True拨号结束开放Dail,Quit按钮DialButton.Enabled=TrueCancelButton.Enabled=False禁止Cancel按钮Status=Temp$恢复状态End SubSub Form_Load()Commi.InputLen=0设置0值:读全部接收缓冲器内容MDialer.Show显示窗口List1.AddItem“四环医学研究院计算中心”List1.AddItem“军事医学科学院情报所张华研究员”ReDim PhoneNumbers$(0 To List1.ListCount-1)PhoneNumbe
16、rs$(0)=1-8233296PhoneNumber$(1)=1-8232255List1.ListIndex=0默认第一个号码End SubSub List1-DblClick()列表框选择号码启动拨号DialButton-ClickEnd SubSub CancelButton-Click()Cancel按钮处理程序CancelFlag=True标识Cancel钮已按下CancelButton.Enabled=False取消该钮继续活动End SubSub QuitButton-Click()Quit按钮End结束End SubMSCOMM.VBX对开发Windows平台下的通信软件的确方便容易,使用事件驱动能设计良好的后台通信程序、开发终端仿真软件和解决更复杂的实际问题。该通信控件不但包括了全部Windows API中关于串行通信的16个函数所完成的功能,而且开拓了更多的使用户设计方便的对象属性来满足不同用户不同业务的需求。因此我们可以应用上文讨论的内容和方法,利用Windows环境,使用VB工具来开发设计所有串行通信的软件。另外,MSCOMM为了能在下一个高速调制解调设备标准中直接使用,它提供了14.4Kbps一档的速率接口。