Modem通讯意外处理
2006-02-27 11:45:29 来源:WEB开发网核心提示:在通过MODEM建立好联系后,MODEM会返回“CONNECT9600”消息,Modem通讯意外处理,其中9600表示所建立的波特率,如果没有建立好通讯MODEM会返回“BUSY”,我们可通讯取得MSCOMM1.INPUT中的内容可检测是否已建立好联系,建立好联系和中断联系MSCOMM1的ONCOMM事件会产生一个定义
在通过MODEM建立好联系后,MODEM会返回“CONNECT9600”消息,其中9600表示所建立的波特率。如果没有建立好通讯MODEM会返回“BUSY”。
我们可通讯取得MSCOMM1.INPUT中的内容可检测是否已建立好联系。建立好联系和中断联系MSCOMM1的ONCOMM事件会产生一个定义好的MSCOMM_EV_CD消息,在对该消息的处理中也可检测通讯的好与坏。
在模块定义中加入以下代码:
GlobalConstMSCOMM_EV_SEND=1
GlobalConstMSCOMM_EV_RECEIVE=2
GlobalConstMSCOMM_EV_CTS=3
GlobalConstMSCOMM_EV_DSR=4
GlobalConstMSCOMM_EV_CD=5
GlobalConstMSCOMM_EV_RING=6
GlobalConstMSCOMM_EV_EOF=7
GlobalConstMSCOMM_ER_BREAK=1001
GlobalConstMSCOMM_ER_CTSTO=1002
GlobalConstMSCOMM_ER_DSRTO=1003
GlobalConstMSCOMM_ER_FRAME=1004
GlobalConstMSCOMM_ER_OVERRUN=1006
GlobalConstMSCOMM_ER_CDTO=1007
GlobalConstMSCOMM_ER_RXOVER=1008
GlobalConstMSCOMM_ER_RXPARITY=1009
GlobalConstMSCOMM_ER_TXFULL=1010
在mscomm1_ONCOMM中加入
SelectCaseMSCOMM1.CommEvent'i=1,2...
'错误部分
CaseMSCOMM_ER_BREAK'插入处理BREAK代码
CaseMSCOMM_ER_CDTO'插入处理CD(RLSD)超时代码
CaseMSCOMM_ER_CTSTO'插入处理CTS超时代码
CaseMSCOMM_ER_DSRTO'插入处理DSR超时代码
CaseMSCOMM_ER_FRAME'插入处理帧错误代码
CaseMSCOMM_ER_OVERRUN'插入处理数据丢失代码
CaseMSCOMM_ER_RXOVER'插入处理接收缓冲器溢出代码
CaseMSCOMM_ER_RXPARITY'插入处理校验错误代码
CaseMSCOMM_ER_TXFULL'插入处理发送缓冲器满代码
'事件部分
CaseMSCOMM_EV_SEND
CaseMSCOMM_EV_CD'插入处理CD信号改变代码
msgbox"CD_CHANGE"
CaseMSCOMM_EV_CTS'插入处理CTS信号改变代码
'MsgBox"EV_CTS"
CaseMSCOMM_EV_DSR'插入处理DST信号改变代码
'MsgBox"EV_DSR"
CaseMSCOMM_EV_EOF'插入处理收到一个文本文件结束字(26)代码
CaseMSCOMM_EV_RING'插入处理检测到一个振铃信号代码
CaseMSCOMM_EV_RECEIVE'插入接收到设定的字符数时产生该事件代码
'MsgBox"EV_RECEIVE"
CaseMSCOMM_EV_SEND'插入处理发送缓冲器中的字符数低于设定的数值时产生该事件的代码
EndSelect->
我们可通讯取得MSCOMM1.INPUT中的内容可检测是否已建立好联系。建立好联系和中断联系MSCOMM1的ONCOMM事件会产生一个定义好的MSCOMM_EV_CD消息,在对该消息的处理中也可检测通讯的好与坏。
在模块定义中加入以下代码:
GlobalConstMSCOMM_EV_SEND=1
GlobalConstMSCOMM_EV_RECEIVE=2
GlobalConstMSCOMM_EV_CTS=3
GlobalConstMSCOMM_EV_DSR=4
GlobalConstMSCOMM_EV_CD=5
GlobalConstMSCOMM_EV_RING=6
GlobalConstMSCOMM_EV_EOF=7
GlobalConstMSCOMM_ER_BREAK=1001
GlobalConstMSCOMM_ER_CTSTO=1002
GlobalConstMSCOMM_ER_DSRTO=1003
GlobalConstMSCOMM_ER_FRAME=1004
GlobalConstMSCOMM_ER_OVERRUN=1006
GlobalConstMSCOMM_ER_CDTO=1007
GlobalConstMSCOMM_ER_RXOVER=1008
GlobalConstMSCOMM_ER_RXPARITY=1009
GlobalConstMSCOMM_ER_TXFULL=1010
在mscomm1_ONCOMM中加入
SelectCaseMSCOMM1.CommEvent'i=1,2...
'错误部分
CaseMSCOMM_ER_BREAK'插入处理BREAK代码
CaseMSCOMM_ER_CDTO'插入处理CD(RLSD)超时代码
CaseMSCOMM_ER_CTSTO'插入处理CTS超时代码
CaseMSCOMM_ER_DSRTO'插入处理DSR超时代码
CaseMSCOMM_ER_FRAME'插入处理帧错误代码
CaseMSCOMM_ER_OVERRUN'插入处理数据丢失代码
CaseMSCOMM_ER_RXOVER'插入处理接收缓冲器溢出代码
CaseMSCOMM_ER_RXPARITY'插入处理校验错误代码
CaseMSCOMM_ER_TXFULL'插入处理发送缓冲器满代码
'事件部分
CaseMSCOMM_EV_SEND
CaseMSCOMM_EV_CD'插入处理CD信号改变代码
msgbox"CD_CHANGE"
CaseMSCOMM_EV_CTS'插入处理CTS信号改变代码
'MsgBox"EV_CTS"
CaseMSCOMM_EV_DSR'插入处理DST信号改变代码
'MsgBox"EV_DSR"
CaseMSCOMM_EV_EOF'插入处理收到一个文本文件结束字(26)代码
CaseMSCOMM_EV_RING'插入处理检测到一个振铃信号代码
CaseMSCOMM_EV_RECEIVE'插入接收到设定的字符数时产生该事件代码
'MsgBox"EV_RECEIVE"
CaseMSCOMM_EV_SEND'插入处理发送缓冲器中的字符数低于设定的数值时产生该事件的代码
EndSelect->
更多精彩
赞助商链接