使用VB中的MSComm控件实现串口通信

《使用VB中的MSComm控件实现串口通信》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、使用VB中的MSComm控件实现RS-232串口通信实验准备：需要准备一些与串口通信有关的设备，如（外置式）调制解调器、计算机串口与调制解调器的连接线、一根DTE到DTE的无调制解调器连接线（接法见本章有关习题的参考答案），在实验前检查计算机的两个串口是否能够正常工作。实验环境：Windows95/98操作系统，MicrosoftVB5.0以上程序设计环境。对例题中涉及调制解调器的内容，采用计算机与调制解调器连接的方式；对在例题中设计数据传输的内容，须事先将DTE到DTE的无调制解调器连接线的两端，分别插入Com1和Com2串口。实验说明：VB中的M

2、SComm控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。MSComm控件提供下列两种处理通讯的方式：（1）事件驱动(实时)方式，这是处理串行端口交互作用的一种非常有效的方法。在许多情况下，在事件发生时需要得到通知，例如，在CarrierDetect（CD）或RequestToSend（RTS）线上一个字符到达或一个变化发生时。在这些清况下，可以利用MSComm控件的OnComm事件捕获并处理这些通讯事件。OnComm事件还可以检查和处理通讯错误。（2）轮询方式，在程序的每个关键功能之后，可以通过检查CommEvent属性的值来查询事件和

3、错误。如果应用程序较小，并且是自保持的，这种方法可能是更可取的。例如，如果写一个简单的电话拨号程序，则没有必要对每接收一个字符都产生事件，因为唯一等待接收的字符是调制解调器的“OK”响应。每个使用的MSComm控件都对应着一个串行端口。如果应用程序需要访问多个串行端口，必须使用多个MSComm控件。可以在Windows“控制面板”中改变端口地址和中断地址。下面这个简单的例子采用了轮询方法演示了用调制解调器进行基本的串行通讯：PrivateSubForm_Load（）DimInstringAsString'保存输入子串的缓冲区MSCOmm1.CommP

4、ort=3'使用COM3。MSComm1.Settings="2400,N,8,1"'2400波特率，无奇偶校验，8位数据位，一位停止位MSComm1.InputLen＝0'当输入占用时，告诉控件读人整个缓冲区。MSComm1.PortOpen＝True'打开端口。MSComm1.Output="AT"+Chr$(13)'将调制解调器的Attention命令送到调制解调器。Do'等待数据返回到串行端口。DoEventsLoopUntilMSComm1.InBufferCount>=2Instring＝MSComm1.Input'从串行端口读”OK“响

5、应。'进行相应的处理，这里省略MSComm1．PortOpen＝False'关闭串行端口。EndSub下面我们将讲述一下MSComm控件的所有属性，其中前5个是最基本的，必须首先掌握。⑴MsComm控件属性1)CommPort，设置并返回通讯端口号。语法为：Object.CommPort[=value]说明：value一为一个整型值，说明端口号。在设计时，va1ue可以设置成从1到16的任何数（缺省值为1）。但是如果用PortOpen属性打开一个并不存在的端口时，MSComm控件会产生错误68（设备无效）。注意：必须在打开端口之前设置CommPort

6、属性的值。1)Settings，设置并返回波特率、奇偶校验、数据位、停止位参数。语法为：0bject.Settings[＝value]说明：value一为字符串表达式，说明通讯端口的设置值。Value由四个设置值组成，其格式如下：“BBBB，P，D，S”，其中：BBBB为波特率，P为奇偶校验，D为数据位数，S为停止位数。value的缺省值：”9600，N，8，1”2)PortOpen，设置并返回通讯端口的状态（开或关）。在设计时无效。语法为：object.PortOpen[＝value]说明：value一为布尔表达式，说明通讯端口的状态。value的

7、取值为：True——端口开，False一端口关注意：设置PortOpen属性为True时打开端口。设置为False时关闭端口并清除接收和传输缓冲区。当应用程序终止时，MSComm控件自动关闭串行端口。串行端口设备必须支持Settings属性当前的设置值。如果Settings属性包含硬件不支持的通讯设置值，那么硬件可能不会正常工作。如果在端口打开之前，DTREnable或RTSEnable属性设置为True，当关闭端口时，该属性设置为False。否则，DTR和RTS线保持其先前的状态。下例以波特率2400打开4号通讯端口，没有奇偶检查，7个数据位，1。

8、5个停止位：MSComm1.Settings="2400,n,7,1.5"MSCOmm1.CommPort=