2024年5月5日发(作者：)

静嬲｜『２　鼢嘲ｌ》　％昭　

ＶＢ６．Ｏ的ＭＳＣｏｍｍ通信控件应用举例　

口文／程巍巍　

提要本文介绍了基于Ｖ　Ｂ６．０的Ｍｓｃ０姗　

使用通信组件。该方式实际上是通过通信组件　

事件进行捕获，通过检查ＭＳＣｏｍｍ控件的　

调用ＡＰ】要复杂，但在程序上容易实现。使用　而采取相应的操作处理这些通信事件。这种方　

ＭＳＣｏｍｍ控件时，实际上就是使用了ＡＰ１函　法的优点是程序响应及时，可靠性高。　

数，ＡＰＩ函数将被ｃｏｍｍ．ｄｒｖ解释并传送给外　２、查询法。该方法可以在程序的每个关键　

围设备驱动程序，使用ＭＳＣｏｍｍ的用户只需要　

功能之后，通过检查ＣｏｍｍＥｖｅｎｔ属性的值来查　

ｎｄｏｗＳ　ＡＰＩ函数，其过程要比直接　Ｃ０ｍｍＥｖｅｎｔ属性获知所发生的事件或错误，从　

通信控件相关理论，并以一个实例演示了　

间接调用ｗｉ

ＭＳＣｏ棚控件的主要属性。　

关键词：串行通信：ＶＢ６．０；ＭＳｃｏｍ控件　

中图分类号：Ｆ４９文献标识码：Ａ　

在当今这个科技飞速发展的时代，我们经　

关心如何使用ＭｓＣｏｍｍ所提供的属性或事件，　询事件和错误。每个使用的ＭＳＣｏｍｍ控件对　

常需要在计算机与其他设备之间进行通信，而　

以驱动ＡＰＩ函数的接口完成工作。　应着一个串行端口。如果应用程序需要访问多　

串行通信作为一种灵活、方便、可靠的通信方　

二、串行通信程序的执行过程　

个串行端口，必须使用多个ＭＳＣ０ｍｍ控件。　

式被广泛采用。在开发串行通信程序的过程　

ＭＳＣｏｍｍ控件通过串行端口传输和接收　

表１　

查询法适合于较小的应用程序，在这种情　

中，利用微软的ＭＳＣｏｍｍ通信控件相对比较简　

数据，为应用程序提供串行通　

单，该控件具有丰富的与串行通信密切相关的　

信功能。该控件提供了两种处　

控件类型　

ＭＳＣｏｍｍ　

Ｔｉｍｅｒ　

Ｃ

ｏｍｍａｎｄｂｕ【ｔ０ｎ　

Ｃ

０ｍｍａｎｄｂｕｔｔ０ｎ　

属性　

ｎａｍｅ　

ｎａｍｅ　

ｎａｍｅ　

属性值　

ＭＳＣｏｍｍ１　

Ｔｉｍｅｒ１　

Ｃｏｍｍａｎｄ１　

属性及事件，提供了对串口的各种操作。　

理通信的方式：　

ＭＳＣｏｍｍ控件在ＶＢ中容易使用，在串口编程　

ｌ、事件驱动通信。事件驱　

时也非常方便，程序员不必花时间去了解较为　

动通信是处理串行端口交互　

复杂的ＡＰＩ函数。　

作用的一种非常有效的方式　

用ＶＢ６．０进行串行通信程序的设计方　

在使用事件驱动通信时，每当　

法简介　

有一个字符到达或端口状态　

一

ＯｐｔｌＯｎ　

ｎａｍｅ　

打开端口　

Ｃｏｍｍａｎｄ２　

、

Ｏｐｔｌｏｎ　

Ｃ

ｏｍｍａｎｄｂｕｔ【０ｎ　

ｎ砌ｅ　

输入电话号码　

Ｃ０ｍｍａｎｄ３　

用ｖｉｓｕａｌ　ｂａｓｉｃ６．０进行串行通信程序的设　

发生改变，或发生错误时，　

计有两种方式：（１）直接调用ｗｉｎｄ０ｗｓ　ＡＰＩ。（２）　

Ｍｓｃｏｍｍ控件将触发０ｎｃｏｍｍ　

Ｏｐｔｌｏｎ　挂断电话号码　

懂。针对我国农民的文化水平相对较低，甚至　

的情况下，利用电视网络进行法制教育宣传已　阵风”现象，法制教育宣传机构在进行法制宣　

存在文盲和半文盲的情况，法制宣传机构在进　经成为可能，而且利用电视网络进行法制教育　传教育时，应注意避免此种情况的出现；农村　

行农村法制教育时应当尽可能采取适合当前　

宣传可以收到覆盖面广的效果；抽调各级政法　

法制宣传教育贵在坚持，只有常抓不懈，才能　

农村实际情况的方法进行，要充分考虑到当前　干警和行政执法人员组成法律咨询宣传队逐　抓出成果。与此同时，就我国的实际情况来看，　

农民的接受能力，循序渐进地向农民传授公民　村开展法律宣传，提供法律咨询服务；通过举　我国正处全面建设社会主义新农村的时期，在　

应知会的法律基本常识和基础理论，逐步帮助　办法律知识竞赛，它既丰富了农民的生活，也　

这个社会转型时期，为了适应经济和社会各个　

农民树立牢固的法制观念和法律意识，从而使　

使农民从中受到法制教育；把对农民的法制宣　方面飞速发展的需要，各种法律法规将不断被　

农民具备一定的法律意识，并养成遵纪守法、　

传教育与对中小学生的法制宣传教育结合起　

制定出来，这也要求法制宣传机构要不断进行　

依法办事的习惯。　

来，让中小学生在接受法制宣传教育的同时把　法制教育宣传。　

（三）在法制宣传教育的形式上，要灵活多　

法带到家中，与家长共同学习，从而收到教育　

总之，农村法制宣传教育必须结合农村实　

样。针对当前农村法制宣传教育所采取的形式　的双重效果，等等。简言之，只要法制宣传部门　际，采取行之有效的措施与形式，力争收到入　

中存在的不足，法制宣传机构在进行农村法制　在进行法制宣传时注意探索新的、更加符合农　

耳入心的理想宣传效果，从而维护和促进农村　

宣传教育时，应该在发挥原有宣传形式的长处　

村实际情况的形式，农村法制宣传教育一定能　

的和谐、稳定与发展，为创造一个安定的国内　

的基础上，探索新的、更加有效的宣传形式，以　

够收到理想的宣传效果。　

取得最佳的宣传效果。如，在目前我国电视网　

环境做贡献，进而推进社会主义新农村建设的　

（四）在法制宣传教育的力度上，要持之以　

顺利开展。　

络比较普及，广大农民拥有电视机的比例很高　

恒。针对当前农村法制宣传教育中存在的“一　

（作者单位：中共汕头市委党校）　

固　

《合作经济与科技》２００９年４月号上（总第３６６期）　

科　

》鼢ｆ　籀嬲ｌ　

况下，每当应用程序执行完某一串行口操作　Ｉｆ　Ｎｏｔ　ＭＳＣｏｍｍ１．Ｐ０ｎ０Ｄｅｎ　Ｔｈｅｎ　如果端口没　ｅｖｍｓ　＝”电话铃响起”　

后，将不断检查ＭＳＣｏｍｍ控件的ＣｏｍｍＥｖｅｎｔ　

有打开则打开它　

Ｃａｓｅ　ｃｏⅡｌＥｖＥ０Ｆ　

属性，以检查执行结果或检查某一事件是否发　

ＩｆＥｌＴＴｈｅｎ　Ｅｘｉｔ　Ｓｕｂ　

ｅｖｍｓｇ￥＝”被检测的文件结尾”　

生。　

ＥｎｄⅡ　

Ｃａｓｅ　ｃ０ｍＢｒｅａｌ【　

而进行串行通信时一般有两种传输方式：　

ＭＳＣｏｍｍ１．Ｏｕ【ｐｕｔ＝”ＡＴＤＴ”＆ｎｕｍ＆ｖｂＣｒＩ　

ｅ肿ｓ　＝”收到中断”　

（１）字符形式：通常以小于ＡＳＣＩＩ码１２８　

拨打电话号码　

Ｃａｓｅ　ｃ０ｍＣＤＴ０　

的字符码来传递，通常用于传送指令。　

ｓｔ　ｔｉｍｉｎｇ　启动端口计时器　ｅｍｓｇ８＝”运输检测超时”　

（２）二进制形式：将数据以二进制编码的　

Ｅｎｄ　ｓｕｂ　

Ｃａｓｅ　ｃｏｍＣＴＳ．ＴＯ　

方式传递，它可能含有ＡＳＣＩＩ码ｌ２８以上的字　

Ｐｆｉｖａｔｅ　Ｓｕｂ　ＣｏｍⅡｌａｎｄ３

一

Ｃｌｉｃｋ（）　

ｅＨＩｌｓ　＝”ｃ１、ｓ超时”　

符码。通常用来传送数据，以提高速度。　

０ｎ　Ｅｒｒｏｒ　Ｒｅｓｕｍｅ　Ｎｅｘｔ　Ｃａｓｅ　ｃｏｍＤＣＢ　

三、串行通信实例　

Ｍｓｃ０ｍｍ１．０ｕｔｐｕｔ＝”ＡＴＨ”　发送挂机字符串　

ｅ册ｓ　＝”检索ＤＣＢ错误”　

下面以一个实例来演示ＭｓＣｏｍｍ控件的　

ｒｅｔ＝ＭＳＣｏｍｍ１．Ｄ　腿Ｅｎａｂｌｅ　保存当前设置　

Ｃ船ｅ　ｃｏｍＤＳＲＴ０　

主要属性。根据程序需要，进行以下操作步骤：　

ＭＳＣｏｍｍ１．ＤＴＲＥｎａｂｌｅ＝　ｒｈｅ　打开Ｄ　Ｉ＇Ｒ　

ｅ硼ｓｇ￥＝”ＤＳＲ超时”　

１、新建工程。启动ｖＢ后，新建一个标准　

ＭＳＣｏｍｍ１．ＤＴＲＥｎａｂｋ＝Ｅａｌｓｅ　关闭ＤＴＲ　

Ｃａｓｅ　ｃｏｍＦ咖ｅ　

的ＥＸＥ工程。　

ＭＳＣｏｍｍ１．ＤＴＲＥｎａｂｌｅ＝ｒｅｆ　恢复原来的设置　ｅｒｎ１ｓｇ￥＝”帧错误”　

２、设计用户界面。（１）在“工具’堞单中选　

如果端口确实处于打开状态，则关闭它　

Ｃａｓｅ　ｃ０ｍ０ｖｅｎｕｎ　

中“部件”，在“控件”选项卡中选择“Ｍｉｃｒｏｓ０ｆｔ　

ⅡＭＳＣ０ｍｍ１．Ｐ（Ｉｎ０ｐｅｎ　Ｔｈｅｎ　ＭＳＣｏｍｍ１．Ｐ０卜　

ｅ肋ｓ　：”超限错误”　

Ｃｏｍｍ　Ｃ０ｎｔｒ０ｌｓ６．Ｏ”。然后从工具箱中将　

ｔ０ｐｅｎ＝Ｆａｌｓｅ　Ｃａｓｅ　ｃｏｍＲｘ０ｖｅｒ　

ＭＳＣｏｍｍ添加到窗体Ｆ０珊ｌ中。（２）给窗体　

ⅡＥｒｒ　Ｔｈｅｎ　ＭｓｇＢｏｘ　Ｅｎｏｒ￥，４８　通知用户错　

ｅｒｒｎｓｇ￥＝”接收缓冲区溢出”　

Ｆｏｒｎ１１添加１个计时器控件，３个命令按钮控　

误信息　

Ｃａｓｅ　ｃｏｍＲｘＰａｒｉｔｙ　

件，并设置控件的相关属性。（表１）　

ｓｔ０ｐｔｉｍｉｎｇ　停止端口计时器　

ｅ肿ｓｇ￥＝”奇偶校验错”　

３、编写程序代码　

０ｎ　ＥｒｍｒＧｄＴｂ　Ｏ　

Ｃａｓｅ　ｃ０ｍＴｘＦｕｌ】　

０ｐｔｉｏｎ　Ｅｘｐｌｉｃｉｆ　Ｅｎｄ　Ｓｕｂ　

ｅ册ｓ　＝”传送缓冲区满”　

Ｐｕｂｌｉｃ　ｅｃｈｏ　Ａｓ　Ｂ０ｏｌｅａｎ　回应‘打开，关闭’标志　，０ｎｃ０ｍｍ事件被用于捕获ｃｏｍｍｕｎｉｃａｌｉ０ｎｓ事件　

Ｃａｓｅ　Ｅｌｓｅ　

Ｄｉｍ　ｒｅｔ　Ａｓ　Ｉｎｔｅｇｅｒ　设为整数　

及错误　

ｅｍ　＝”未知的错误或事件”　

Ｄｉｍ　ｓｔａｒ【ｔｉｍｅ　Ａｓ　Ｄ８ｔａ　为端口计时器存储开始　

Ｐｒｉｖａｔｅ　Ｓｔａｔｉｃ　Ｓｕｂ　ＭＳＣｏｍｍｌ＿０ｎＣｏｍｍ（）　

Ｅｎｄ　Ｓｅｌｅｃｔ　

时间　

Ｄｉｍ　ｅｖｍｓ　

Ｅｎｄ　Ｓｕｂ　

ＰＩｉｖａｔｅ　Ｓｕｂ　ｃ０ｍｍａｎｄ１．ｃｌｉｃｋ（）　

Ｄｉｍ　ｅｒｍｓ　

蹦ｖａｔｅ　Ｓｕｂ　ｓｔａｎｔｉｍｉｎｇ（）　

０ｎ　Ｅｎｌ０ｒ　Ｒｅｓｕｍｅ　Ｎｅｘｆ　

依据ｃ０ｍｍｅｃｅｎｔ属性进行分支　

调用此函数启动连接时间计时器　

Ｄｉｍ叩ｅｎｎａｇ　

ＳｅＩｅｃｔ　Ｃａｓｅ　ＭＳＣｏｍｍ１．ＣｏｍｍＥｖｅｎｔ　ｓｔａｎｔｉｍｅ＝Ｎｏｗ　

ＭＳＣｏｍｍ１．Ｐ０ｎＯｐｅｎ＝Ｎｏｔ　ＭＳＣｏｍｍ１．Ｐ０卜　

事件信息　

Ｔｊｍｅｒ１．Ｅｎａｂｌｅｄ：Ｔｒｕｅ　

ｔＯｐｅｎ　

Ｃ鹊ｅ　ｃｏｍＥｖＲｅｃｅｉｖｅ　

Ｅｎｄ　Ｓｕｂ　

Ｉｆ　Ｅｒｒ　Ｔｈｅｎ　ＭｓｇＢｏｘ　ＥＩＴ０ｒ￥，４８　

Ｄｉｍ　ｂＬ　ｅｒＡｓＶａｒｉａＴｌｔ　

Ｐｒｉｖａ【ｅ　Ｓｕｂ　ｓｔ０ｐｔｉｍｉｎｇ（）　

叩ｅｎｎａｇ　ＭＳＣ０ｍｍ１．Ｐ０ｒ【０ｐｅｎ　

ｂｕｆＥｅｒ＝ＭＳＣ０ｍｍ１．ＩｎＤｕｔ　

调用此函数停止计时　

Ｉｆ　ＭＳＣ０ｍｍ１．Ｐ０ｒｔ０ｐｅｎ　Ｔｈｅｎ　

Ｄｅｂｕｇ．蹦ｎｔ”接收一”＆Ｓ　ｏｎｖ（ｂｕｆｆｅｒ，　

Ｔｉｍｅｒ１．Ｅｎａｂ１ｅｄ＝Ｆａｌｓｅ　

ｓｌａｎｔｉｍｉｎｇ　

ｖｂＵｎｉｃ０ｄｅ）　

Ｅｎｄ　Ｓｕｂ　

Ｅｎｄ　Ｉｆ　

，ｓｈ０ｗｄａＩｅ　ｔｘｔＩｅｒｒｎ，　（ＳｔｒＣ０ｎｖ（ｂｕⅡｌｅｒ，　

程序执行时的界面如下图：　

Ｅｎｄ　Ｓｕｂ　

ｖｂＵｎｉｃｏｄｅ））　

腑ｖａｌｅ　Ｓｕｂ　Ｃｏｎ瑚ａｎｄ２＿Ｃｌｉｃｋ（）　

Ｃａｓｅ　ｃｏｍＥｖＳｅｎｄ　

０ｎ　Ｌ０ｃａｌ　ＥⅡ．０ｒ　Ｒｅｓｕｍｅ　Ｎｅｘｔ　

Ｃａｓｅ　ｃｏｍＥｖＣ　

Ｓｆａｌｉｃ　ｎｕｍ　Ａｓ　Ｓｔｒｉｎｇ　

ｅｖｍ昭￥＝”被检测的ＣＴｓ改变”　

ｎｕｍ＝”ｌ—Ｏ２９—８９３６—６７３５”　ＭＳＤＮ的电话号　

Ｃａｓｅ　ｃ０ｍＥｖＤＳＲ　

码　从用户处获得电话号码　

ｅｖｍｓｇ￥＝”被检测的ＤＳＲ改变”　

ｎｕｍ＝Ｉｎｐｕ【Ｂ０ｘ￥（”输入电话号码：”，”拨打电　

Ｃａｓｅ　ｃｏｍＥｖＣＤ　

话号码”，ｎｕ『ｎ）　

ｅｖｍｓｇ￥＝”被检测的ＣＤ改变”　

Ⅱｎｌｌｍ＝…。　ｒｈｅｎ　Ｅｘｉｔ　ｓ１ｌｂ　

Ｃａｓｅ　ｃ０ｍＥｖＲｉｎｇ　

（作者单位：西安欧亚学院信息工程学院）　

《合作经济与科技》２Ｏｏ９年４月号上（总第３６６期）　囡