Windows环境下的串行数据通信程序设计论文.docVIP

　　Windows环境下的串行数据通信程序设计论文 .freel/目录下)是1992年Crescent soft来实现的,它也包括检测和处理通信错误等方面的问题。以下是MSM详细的错误和事件列表(读者可参阅SKD或MSC/C++ 7.0等中的SM.VBX中提供了27个关于通信控件方面的属性,以下列出最重要的几个: mPort设置和返回通信口的数目 Settings设置和返回以字符串形式给出的数据通信格式:波特率,校验,数据位和停止位 PortOpen设置和返回通信口的状态(包括打开和关闭一个通信口) Input读串行数据接收缓冲器 Output发送一个串 在MSM.VBX中,有两个与Input和Output性质相等同的函数; (1) 输入函数,从串行通信接收缓冲器中读取字符串,句型如下: lnput(By Val hSM-ER_BREAK插入处理BREAK代码 Case MSM-ER_CDTO插入处理CD(RLSD)超时代码 Case MSM-ER_CTSTO插入处理CTS超时代码 Case MSM-ER_DSRTO插入处理DSR超时代码 Case MSM-ER_FRAME插入处理帧错误代码 Case MSM-ER_OVERRUN插入处理数据丢失代码 Case MSM-ER_RXOVER插入处理接收缓冲器溢出代码 Case MSM-ER_RXPARITY插入处理校验错误代码 Case MSM-ER_TXFULL插入处理发送缓冲器满代码 事件部分 Case MSM-EV_CD插入处理CD信号改变代码 Case MSM-EV_CTS插入处理CTS信号改变代码 Case MSM-EV_DSR插入处理DST信号改变代码 Case MSM-EV_EOF插入处理收到一个文本文件结束字(26)代码 Case MSM-EV_RING插入处理检测到一个振铃信号代码 Case MSM-EV_RECEIVE插入接收到设定的字符数时产生该事件代码 Case MSM-EV_SEND插入处理发生缓冲器中的字符数低于设定的数值时产生该 事件的代码End Select End Sub (2) 查询方式 查询方式,就是每个命令(含数据块)都要查询等待对它的回答。详细使用方法请见下文的实例叙述。 三、一个完整例子 该程序的设计背景是全军医药信息网上电话拨号用户前台软件中的自动拨号部分,为节省篇幅和说明问题,这里进行了重新编辑,但其本身是完整的。该程序帮助主人进行电话拨号以呼通被叫。 调试环境:LEO 486/50,HiTec MODEM,院内电话脉冲拨号,使用串行口1,PSM.VBX通信控件。 ------------ Visual Basic 3.0 MSM.VBX程序设计:使用MODEM拨号,人工通话 程序名:MDIALER.TXT 军事医学科学院计算中心 夏云,1995.2.12 运行:使用VB FILE中的Load Text项装入,按F5或生成.EXE文件运行 ------------ Option Explicit Dim PhoneNumbers$()电话号码存储变量 Dim CancelFlagCancel按钮状态标志 Sub Dial(Number$)拨号例程 Dim DialString$,FromModem$,dummy 根据脉冲/双音多频拨号方式来选择DT/DP; 所拨号码存放在变量PhoneNumbers$(Index)中; 命令中的分号表示MODEM在拨号后重新回到命令状态; 每个命令由回车符Chr$(13)结束; DialString$=ATDT+Number$+;+Chr$(13) mi.Settings=2400,N,8,1设置帧格式 On Error Resume Next错误恢复 mi.PortOpen=True启动该口工作 If Err Then如果该口不可启动,则显示信息 MsgBox当前串行通信端口不能工作,请选择使用另外端口。” Exit Sub End if mi.InBufferCount=0清除接收缓冲器 mi.Output=DialString$开始拨号 Do等待MODEM返回“OK”回答 dummy=DoEvents()进入等待方式,将资源提交系统管理 If mi.InBufferCount Then若接收缓冲器中有数据存在,则读 FromModem$=FromModem$+mi.Input If InStr(FromModem$,OK)Then 是否接收到“OK” Beep已经接收到“OK”,发蜂呜声 MsgBox对方电话已经拨通,请摘话机并按回车或OK钮” Exit Do End If End If If CancelFlag Then若Cancel钮按下则处理 CancelFlag=Fal