VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - MODEM通讯意外处理
发表评论(0)作者:, 平台:, 阅读:9035, 日期:2000-03-29
在通过MODEM建立好联系后,MODEM会返回“CONNECT 9600”消息,

其中9600表示所建立的波特率。如果没有建立好通讯MODEM会返回“BUSY”。

我们可通讯取得MSCOMM1.INPUT中的内容可检测是否已建立好联系。

建立好联系和中断联系MSCOMM1的ONCOMM事件会产生一个定义好的

MSCOMM_EV_CD消息,在对该消息的处理中也可检测通讯的好与坏。


在模块定义中加入以下代码:

Global Const MSCOMM_EV_SEND = 1

Global Const MSCOMM_EV_RECEIVE = 2

Global Const MSCOMM_EV_CTS = 3

Global Const MSCOMM_EV_DSR = 4

Global Const MSCOMM_EV_CD = 5

Global Const MSCOMM_EV_RING = 6

Global Const MSCOMM_EV_EOF = 7

Global Const MSCOMM_ER_BREAK = 1001

Global Const MSCOMM_ER_CTSTO = 1002

Global Const MSCOMM_ER_DSRTO = 1003

Global Const MSCOMM_ER_FRAME = 1004

Global Const MSCOMM_ER_OVERRUN = 1006

Global Const MSCOMM_ER_CDTO = 1007

Global Const MSCOMM_ER_RXOVER = 1008

Global Const MSCOMM_ER_RXPARITY = 1009

Global Const MSCOMM_ER_TXFULL = 1010

在mscomm1_ONCOMM中加入

Select Case MSCOMM1.CommEvent 'i=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 MSCOMM_ER_RXPARITY '插入处理校验错误代码

Case MSCOMM_ER_TXFULL '插入处理发送缓冲器满代码

'事件部分

Case MSCOMM_EV_SEND



Case MSCOMM_EV_CD '插入处理CD信号改变代码

msgbox"CD_CHANGE"

Case MSCOMM_EV_CTS '插入处理CTS信号改变代码

'MsgBox "EV_CTS"

Case MSCOMM_EV_DSR '插入处理DST信号改变代码

' MsgBox "EV_DSR"

Case MSCOMM_EV_EOF '插入处理收到一个文本文件结束字(26)代码

Case MSCOMM_EV_RING '插入处理检测到一个振铃信号代码



Case MSCOMM_EV_RECEIVE '插入接收到设定的字符数时产生该事件代码

'MsgBox "EV_RECEIVE"

Case MSCOMM_EV_SEND '插入处理发送缓冲器中的字符数低于设定的数值时产生该事件的代码

End Select