说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

检测运程数据传送的断线-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
检测运程数据传送的断线-VB资料

我使用MSCOMM1通过MODEM和远程传送数据,如何检测已经建立好联系呢?
如果意外或者远程断线,我又能如何检测到?使用此控件应注意什么问题?
请您赐教:-) - zxx

答复1:
如果MSCOMM1的INPUT域是“CONNECT”表示MODEM已经连上了,
其他如:“NO CARRIER”“NO DIAL TONE”等表示某种连接失败。
要定时检测MODEM要引入定时器控件,定时在线上传送一些填充信号,
如果过一定的时间未受到对方程序(也要相同处理)的应答信号,
就认为已断线了。
- linhang
答复2:
本人也正在编写一个用MODEM通讯的程序,同样面临相同的问题,现将
本人的解决办法介绍如下,希望有所帮助。
在通过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
所知有限,望共同探讨。
- sida@public.xt.hn.cn

非access数据库在vb中的编程及应用 关闭程序中所有创建的数据库连接。 -VB资料 关闭所有的数据连接 -VB资料 关于数据报表的打印设置-VB资料 VB建立、改变及重构Access数据库-VB资料 结构化查询语言(SQL)详解之一-VB资料 利用VB使ACCESS数据库在网络使用中保持同步 返回 连接Data到多个表单-VB资料 列出 SQL Server 数据库中所有的存储过程-VB资料 列出MDB档当中所有table的名称-VB资料 您想知道有谁正在使用您的 Access 文件吗?(多人环境中)-VB资料 主题:浅谈Excel 的VB编程 巧用VB6的DataGrid实现通用电子表格 VB取得正确的 RecordCount 值 主題:如何动态新增、移除 ODBC DSN? -VB资料 VB如何将表中的数据导出到电子表格中 VB如何将文本文件转换为ACCESS数据库 VB如何將 Excel 的文件导入 Access文件? VB如何判断数据中是否存在某一表或查询 VB如何删除FoxPro数据库的数据? VB如何设置对VB数据库连接的动态路径 VB如何使用 ADO 來压缩或修复 Microsoft Access 文件 VB如何修改Foxpro数据库(不是用VB实现的,不过也可以看看) VB如何在 SQL 语句中使用日期? 返回 VB如何在表中保存单引号? VB如何抓出 Access 的 Table 欄位中的【敘述】部份呢? 实现Access数据库的Web查询-VB资料 使用Visual Basic访问数据库几个注意的问题 数据库查询-VB资料 数据约束控件和 RecordSet-VB资料 锁住数据库中的表 -VB资料 有没有谁帮我说一下ASSERT()是一个什么样的函数,有什么用?? 〉〉〉〉〉〉〉请问影响一条SQL语句的执行计划的因素主要有哪些方面 怎么用SQL语句判断一个表中的某一字段有三个相同的值的记录? 有什么方法把一个应用程序做成系统的服务啊? 如何在EDIT中既限制只能输入数字又保证能输入小数?在线等~~~ 动态连接库的提取 如何做在线试题考试程序,请给例子.谢谢~~ 请问:在JScript中有什么方法是与C#中的“System.Web.HttpUtility.UrlEncode(string)”相当的? multipage和tabstrip的连接问题 ?@@@ MFC编程:关于GetDocument()@@@ 寻找解决方案 如何把几条sql语句全成一条? 友情提示:多线程浏览器弹出窗口的问题 点网页中的文件下载,直接在浏览器中打开了,我想点击下载后弹出对话框,然后保存. 求救,页面文字的大小如何设置? 关于SQL语句的优化…… 怎么判断一个Input type= text中的数字是不是浮点数? 哪位大哥有关于操作系统中文件系统设计的实例文档,(急用)谢谢。 有关asp中,后台编辑新闻时,上传多图片,如何在前台显示的问题 一定给分,初学java,请问java开发平台的比较 weblogic及EJB属于中间层的吗?( 请问SQLServer数据更新速度与系统配置之间关系的问题 问题还是没有得到解决,请csdn高手进来看看.(在线等!) 请大家帮忙~~~~~ 添加一个矩形框用什么函数,在上面添加文字、颜色呢? 拜托!请问全面学习J2EE一共要装哪些软件?谢谢! 这是我在本机上用ROUTE PRINT出来的内容,请高手们指点! 在线送分!!!谁能帮我解决分页的问题 请问有没有什么简便的方法在数组里插入一条纪录。 打印打印 如何通知一个正在Sleep(INFINITE)的线程结束运行? 小问题 c语言基础问题 上海的朋友!请进来说说如果你/*未来*/女朋友或男朋友第一次来上海,你会带他或她去哪些地方玩??有七到十天时间 请问长时间用光驱放DVD会不会损伤硬盘? 急救 vj6 中如何调用sql数据库 谁能告诉我早期LINUX内核的源代码和C编译器的源代码,哪能找到!谢谢! DB2安装问题 有谁知道北京数字证书认证中心是干吗?他们说的什么信息加密、网上作业身份识别、BGC是什么回事?跟服务器有关吗? 在SQL Server中导库时出现DLL错误,怎么回事 将int型转化为字符型用什么函数? 谁能告诉我早期LINUX内核的源代码和C编译器的源代码,哪能找到!谢谢!要多少分都给! 500分求菜单功能。 很急的问题!希望大家帮忙! jb8中类找不到了??? 请教高手:如何让label显示在text、button等的上面? 新手请高手帮忙了~~~ 谢谢~~~ 500分求菜单功能。 修改数据,提交保存老报错,纳闷~~~ 急!在RED HAT LINUX中怎么配置POP和STMP服务器? 散分呵呵 二人买同样的练习本,甲买7本,乙买5本甲用的钱比乙多6角,甲买练习本用去多少钱 角平分线的判定 小南同学这样画∠AOB的平分线,如图分别在OA OB的两边截取OC=OD OE=OF.连接DE CF交与点P,过点P作射线OP,则OP平分∠AOB.你认为她画的正确吗?如果正确,请说明理由;如果不正确,请加 谁能帮我取个维族名字~`最好是维族朋友帮帮忙!我的父系血统是维吾尔族的,我姓翦.据说是祖先征战来到了湖南并因此扎根,所以基本汉化了,在老家只有些老人还了解传统,我很想取一个维族 invited article是什么意思 Who invited blue jeans?A.the AmericansB.the FrenchC.the Italians 印象中有一句话,总想不起来怎么说的了.就是我的淘宝店铺,一直都保存百分百的信誉,可现在有个人给了中评,那从此也就不可能是百分百了,这个人就是第一个怎么怎么的人,印象中好像有这么 在英语语法中,什么时候用现在完成时,什么时候用现在完成进行时?真的很confuse耶! 八位数Q换九位登记号Q 83362436 本人想用一个八位数的Q加上一个九位数的Q换一个九位数的Q 永不找回 最好CF福建一的 be invited for 加时间段表示什么 甲的钱比乙多4%,丙的钱比乙多5%,甲比乙对多8.1元,乙有( ) 记者追问医改网站故障 白宫发言人犯难美国会圆顶1300多条裂缝 50年最酝酿八旬六连任 麦凯恩欲2016年竞希腊女童疑曾遭拐卖 美国夫妻认为是其俄国防部长23日将出席俄罗斯-北约理德媒称俄前首富霍多尔科夫斯基难获释 联合国难民署加紧向300万叙民众提供联合国称巴以局势动态令人忧虑 吁各方欧洲太空望远镜将发射 能预测行星是否澳大利亚总督布赖斯访问成都 与大熊猫韩外交部可容忍同时标记独岛和竹岛 议日本福岛3号反应堆熔毁状况坏于预期别因价格战忘了造安全车的初衷市领导会见维和凯旋民警甘家寨还有40余人被埋广西一些民生领域及区直部门违规用钱问中国海外投资最青睐伦敦一研究生向境外卖情报被批捕今日股市猜想:大盘继续考验2200点未来几天降雨频密证实车间有开空调企业不发高温补贴家居广告宣传大婚晚辰修真之覆雨翻云傲立古今妈咪17岁:天才儿子腹黑爹嫡女策,素手天下青阳在舞誓不为妻:全球缉捕少夫人完美勇士仙道可期红眸的征程萌宝无敌:妈咪搞定坏爹地周恩来少年读书旧址旅游中共满洲省委旧址旅游状元楼旅游多拉神山旅游崇州文庙旅游涿州影视城旅游玫瑰堂旅游湾仔海味市场旅游集安洞沟古墓群旅游禹山游览区旅游国内城旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘