VBmscomm串口控件及与51单片机通讯使用指南.docVIP

概述 串口通讯作为一种古老而又灵活的通讯方式，被广泛地应用于PC间的通讯以及PC和单片机之间的通讯之中。 提到串口通讯的编程，人们往往立刻想到C、汇编等对系统底层操作支持较好的编程语言以及大串繁琐的代码。实际上，只要我们借助相关ActiveX控件的帮助，即使是在底层操作一向不被人看好的VB中，一样能够实现串口通 讯，甚至其实现方法和C、汇编相比，要更加快捷方便。下面，笔者就介绍一下在VB中实现串口通讯的方法。在Visual Basic中有一个名为Microsoft Communication Control（简称MSComm）的通讯控件。我们只要通 过对此控件的属性和事件进行相应编程操作，就可以轻松地实现串口通讯。下面，笔者就简要地介绍一下MSComm控件的使用方法。 二、MSComm控件的主要属性、事件1、MSComm的属性 常用属性和方法 ? ? 利用MSComm控件实现计算机通信的关键是理解并正确设置MSComm控件众多属性和方法。以下是MSComm控件的常用属性和方法： ? ●Commport：设置通讯所占用的串口号。如设成1（默认值），表示对Com1进行操作。语法 object.CommPort[value ] (value 一整型值，说明端口号。) 说明 在设计时，value 可以设置成从 1 到 16 的任何数（缺省值为 1）。但是如果用 PortOpen 属性打开一个并不存在的端口时，MSComm 控件会产生错误 68（设备无效）。注意：必须在打开端口之前设置 CommPort 属性。●CTSHolding 属性：确定是否可通过查询 Clear To Send (CTS) 线的状态发送数据。Clear To Send 是调制解调器发送到相联计算机的信号，指示传输可以进行。该属性在设计时无效，在运行时为只读。语法： object.CTSHolding（Boolean） Mscomm 控件的 CTSHolding 属性设置值：True Clear To Send 线为高电平。 False Clear To Send 线为低电平。 说明：如果 Clear To Send 线为低电平 (CTSHolding = False) 并且超时时，MSComm 控件设置 CommEvent 属性为 comEventCTSTO (Clear To Send Timeout) 并产生 OnComm 事件。 Clear To Send 线用于 RTS/CTS (Request To Send/Clear To Send) 硬件握手。如果需要确定 Clear To Send 线的状态，CTSHolding 属性给出一种手工查询的方法。?? ●CommEvent：这是一个非常重要的属性。该属性设计时无效，运行时只读。一旦串口发生通信事件或产生错误，依据产生的事件和错误，MSComm控件为CommEvent属性赋不同的代码，同时产生OnComm事件。用户程序就可在OnComm事件处理程序中针对不同的代码，进行相应的处理。CommEvent属性的代码、常数及含义参见表1及表2。 ? ? ? 表1 ? CommEvent通信事件 ? 代码 ? 常数 ? 含义 ? ?? 1 ? ComEvReceive ? 接受到Rthreshold个字符。该事件将持续产生，直到用Input属性从接受缓冲区中读取并删除字符。 ? ? 2 ? ComEvSend ? 发送缓冲区中数据少于Sthreshold个，说明串口已经发送了一些数据，程序可以用Output属性继续发送数据。 ? ? ? 3 ? ComEvCTS ? Clear ? To ? Send信号线状态发生变化。 ? ?? 4 ? ComEvDSR ? Data ? Set ? Ready信号线状态从1变到0。 ? ?? 5 ? ComEvCD ? Carrier ? Detect信号线状态发生变化。 ? ?? 6 ? ComEvRing ? 检测到振铃信号。 ? ? ? 7 ? ComEvEOF ? 接受到文件结束符。 ? ? ? ? ? ? 表2 ? CommEvent通信错误 ? 代码 ? 常数 ? 含义 ? ?? 1001 ? ComEvntBreak ? 接受到一个中断信号。 ? ? ? 1002 ? ComEvntCTSTO ? Clear ? To ? Send信号超时。 ? ?? 1003 ? ComEvntDSRTO ? Data ? Set ? Ready信号超时。 ? ? ? 1004 ? ComEvntFrame ? 帧错误。 ? ? ? 1006 ? ComEvntOverrun ? 串口超速。 ? ?? 1007 ? ComEvntCDTO ? 载波检测超时。 ? ? ?