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

VB6.0下用MSComm控件实现串口通信MSComm控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能，以下先对其属性进行详细的说明后再举一个例子进行说明：1基本属性CommPortO mPort[=value]Object为MSComm控件，value为整数值，标志端口号。

说明：该属性设置并返回通讯端口号，value的值可以设为1-16间的任意数(默认为1)。

在打开端口之前必须先设置CommPort属性，当端口不存在时，如果用PortOpen属性打开它，MSComm控件会产生错误68(即设备无效的错误)。

SettingsObjiect.Setting[=value]Object为MSComm控件，value为字符串类型，表示通讯端口的设置值。

说明：本属性用来设置并返回端口的波特率、奇偶校验位、数据位和停止位参数。

当端口打开时，如果指定的value参数非法，则MSComm控件产生380号(非法属性值)错误。

有效的value参数值由四个设置值组成，有如下格式：“BBBB,P,D,S”，其中BBBB为波特率，P为奇偶校验，D为数据位数，S为停止位数。

Value的默认值为：“9600,N,8,1”，下面给出合法的波特率、奇偶校验位、数据位和停止位参数：波特率：110，300，600，1200，2400，4800，9600(默认)，14400，19200，28800，38400，56000，57600，115200，128000，256000。

奇偶校验值：E(偶校验，Even)、M(标记，Mark)、N(默认，Default，None)、O(奇校验，Odd)、S(空格，Space)。

数据位值：4，5，6，7，8(默认)，9。

停止位值：1(默认)，1.5，2。

PortOpenO bject.PortOpen[=value]Object为MSComm控件。

Value为布尔类型，表明通讯端口的状态。

用VB怎么做COM口通讯`Private Sub Command1_Click()MSComm1.Output = "123456"End SubPrivate Sub Form_Load()MSComm1.PortOpen = TrueMSComm1.RThreshold = 1MSComm1.SThreshold = 1MSComm1.InputMode = comInputModeTextText1 = ""End SubPrivate Sub MSComm1_OnComm()Select Case mEventCase comEvSendText1 = "comEvSend"Case comEvReceiveText1 = "comEvReceive"Case comEvCTSText1 = "comEvCTS"Case comEvDSRText1 = "comEvDSR"Case comEvCDText1 = "comEvCD"Case comEvRingText1 = "comEvRing"Case comEvEOFText1 = "comEvEOF"End SelectEnd Sub以下参考MSDN：OnComm 常数常数值描述comEvSend 1 发送事件。

comEvReceive 2 接收事件。

comEvCTS 3 clear-to-send 线变化。

comEvDSR 4 data-set ready 线变化。

comEvCD 5 carrier detect 线变化。

comEvRing 6 振铃检测。

comEvEOF 7 文件结束。

MSComm 控件提供下列两种处理通讯的方式：事件驱动通讯是处理串行端口交互作用的一种非常有效的方法。

使用VB中的MSm控件实现RS-232串口通信实验准备：需要准备一些与串口通信有关的设备，如〔外置式〕调制解调器、计算机串口与调制解调器的连接线、一根DTE到DTE的无调制解调器连接线〔接法见本章有关习题的参考答案〕，在实验前检查计算机的两个串口是否能够正常工作。

实验环境：Windows 95/98操作系统，Microsoft VB 5.0以上程序设计环境。

对例题中涉及调制解调器的容，采用计算机与调制解调器连接的方式；对在例题中设计数据传输的容，须事先将DTE到DTE 的无调制解调器连接线的两端，分别插入1和2串口。

实验说明：VB中的MSm控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。

MSm控件提供以下两种处理通讯的方式：〔1〕事件驱动(实时)方式，这是处理串行端口交互作用的一种非常有效的方法。

在许多情况下，在事件发生时需要得到通知，例如，在Carrier Detect〔CD〕或RequestToSend〔RTS〕线上一个字符到达或一个变化发生时。

在这些清况下，可以利用MSm 控件的Onm事件捕获并处理这些通讯事件。

Onm事件还可以检查和处理通讯错误。

〔2〕轮询方式，在程序的每个关键功能之后，可以通过检查mEvent 属性的值来查询事件和错误。

如果应用程序较小，并且是自保持的，这种方法可能是更可取的。

例如，如果写一个简单的拨号程序，则没有必要对每接收一个字符都产生事件，因为唯一等待接收的字符是调制解调器的"OK〞响应。

每个使用的MSm控件都对应着一个串行端口。

如果应用程序需要访问多个串行端口，必须使用多个MSm控件。

可以在Windows"控制面板〞中改变端口地址和中断地址。

下面这个简单的例子采用了轮询方法演示了用调制解调器进展根本的串行通讯：Private Sub Form_Load〔〕Dim Instring As String '保存输入子串的缓冲区MSm1.mPort=3 '使用3。

VB6.0环境下利用Mscomm控件实现串行通信Use Mscomm Control Component to Implement Serial Communication under Visual Basic摘要: 本文简要介绍了VB6.0中Mscomm通信控件的属性和使用方法，并结合具体实例给出了基本的通信程序。

主题词：串行通信Visual Basic Mscomm .vbx控件Abstract: This paper briefly introduces the principle and method of Mscomm object of Visual basic 6.0, and with a real example basic program codes are given.Key Words：Serial Communication; Visual Basic; Mscomm .vbx control component随着计算机技术的飞速发展及其广泛应用，远程控制以及数据采集系统多采用上位机和下位机的主从工作方式，由于串行通信具有高效可靠、价格便宜，遵循统一的标准等特点，因而成为主要的通信手段。

微机的分析处理能力较强，有很好的人机界面和大容量的多种存储方式，所以上位机一般采用微机。

而单片机具有价格低，功能强，抗干扰能力好，温限宽和面向控制等特点，所以下位机采用单片机来构成主从式多机工作模式。

在需要对采集的数据进行分析处理或在远程需要对控制对象的控制过程进行统计或有条件控制时，采用数据库访问技术能有效地解决这类问题。

Visual Basic 6.0以其强大的功能、使用简单、能在短时间内开发出高效的通信程序而成为Windows系统开发的主要编程语言。

首先表现在VB可直接使用户自定义控件VBX或OCX文件；其次表现在VB可通过调用动态链接库（DLL，dynamic link library）来加快应用程序关键部分的执行速度。

现有电子秤一台，使用串口与计算机进行通讯。

编写VB程序来访问串口，达到读取电子秤上显示的数据。

该电子秤为BE01型仪表，输出为RS-232C标准接口，波特率为300-9600、偶校验、7个数据位、2个停止位。

所有字符现有电子秤一台，使用串口与计算机进行通讯。

编写VB程序来访问串口，达到读取电子秤上显示的数据。

该电子秤为BE01型仪表，输出为RS-232C标准接口，波特率为300-9600、偶校验、7个数据位、2个停止位。

所有字符均发送11位ASCII码，一个起始位。

在VB中与串口通讯需要引入控件MSComm串口通讯控件（在Microsoft Comm Control 6.0中）。

具体程序如下：控件简称：MSCDim Out(12) As Byte '接收var中的值Dim var As Variant '接收MSC.input中的数值Dim nRece As Integer '计算MSC.inputbuffer的个数Dim i As Integer, j As Integer '随即变量，计算循环************************************************************************** **Private Sub Form_Load()ClearTextWith MSC.CommPort = 1 '设置Com1为通信端口.Settings = "9600,E,7,2" '设置通信端口参数 9600赫兹、偶校验、7个数据位、2个停止位.（这里需要进一步说明的是：.Setting=”BBBB,P,D,S”。

含义是：B：Baud Rate（波特率）；P：Parity（奇偶）；D：Data Bit；S：Stop Bit）.InBufferSize = 40 '设置缓冲区接收数据为40字节.InputLen = 1 '设置Input一次从接收缓冲读取字节数为1.RThreshold = 1 '设置接收一个字节就产生OnComm事件End WithEnd Sub************************************************************************** **Private Sub ClearText()Text3.Text = ""Text2.Text = "5"Text1.Text = ""End SubPrivate Sub Command1_Click()ClearText' nRece = 0 '计数器清零With MSC.InputMode = comInputModeBinary '设置数据接收模式为二进制形式.InBufferCount = 0 '清除接收缓冲区If Not .PortOpen Then.PortOpen = True '打开通信端口End IfEnd WithEnd SubPrivate Sub MSC_OnComm()DelayTime ‘用来延续时间ClearTextWith MSCSelect Case .CommEvent '判断通信事件Case comEvReceive: '收到Rthreshold个字节产生的接收事件SwichVar 1If Out(1) = 2 Then '判断是否为数据的开始标志.RThreshold = 0 '关闭OnComm事件接收End IfDoDoEventsLoop Until .InBufferCount >= 3 '循环等待接收缓冲区>=3个字节' nRece = nRece + 1For i = 2 To 12SwichVar iText1.Text = Text1.Text & Chr(Out(i))NextText1.Text = LTrim(Text1.Text)Text2.Text = Text2.Text & CStr(nRece).RThreshold = 1 '打开MSComm事件接收Case Else' .PortOpen = FalseEnd SelectEnd WithEnd Sub************************************************************************** **Private Sub DelayTime()Dim bDT As BooleanDim sPrevious As Single, sLast As SinglebDT = TruesPrevious = Timer (Timer可以计算从子夜到现在所经过的秒数，在Microsoft Windows中，Timer函数可以返回一秒的小数部分)Do While bDTIf Timer - sPrevious >= 0.3 Then bDT = FalseLoopbDT = True（通信传输速率为9600bps，则最快速度1.04ms发送一个字节，仪表每秒发送50帧数据，每帧数据有4个字节，即每秒发送200个字节，平均5.0ms 发送一个字节，连续读取串口数据时要在程序中添加循环等待程序）Private Sub SwichVar(ByVal nNum As Integer)DelayTimevar = Nullvar = MSC.InputOut(nNum) = var(0)End Sub（设置接收数据模式采用二进制形式，即 InputMode=comInputModeBinary，但用Input 属性读取数据时，不能直接赋值给 Byte 类型变量，只能通过先赋值给一个 Variant 类型变量，返回一个二进制数据的数组，再转换保存到Byte类型数变量中。

VB实现串口通讯目前，Visual Basic （简称VB）已成为WINDOWS 系统开发的主要语言，以其高效、简单易学及功能强大的特点越来越为广大程序设计人员及用户所青睐。

VB 支持面向对象的程序设计，具有结构化的事件驱动编程模式并可以使用无限扩增的控件。

在VB 应用程序中可以方便地调用WINDOWS API函数，使得编程效率提高，应用功能增强。

利用VB 提供的这些功能，我们可以有三种方法完成串口通信。

一种是用VB 提供的具有强大功能的通信控件;另一种方法是调用WINDOWS API 函数，使用WINDOWS 提供的通信函数编写移植性强的应用程序;第三是利用文件的输入/ 输出完成，该方法简便易行，但有一定的局限性。

一、利用通信控件（MSCOMM）完成串口通信VB 提供了通信控件MSCOMM，文件名为MSCOMM. VBX。

该控件可设置串行通信的数据发送和接收，对串口状态及串行通信的信息格式和协议进行设置。

在通信过程中可以触发OnComm事件，在该事件过程进行数据检验处理及检错，还可以通过编程访问CommEvent 属性来了解通信的情况，进行收发数据的处理。

每个通信控件对应一个串口，如果要访问多个通信口，则要设计多个通信控件。

1、通信控件的事件及基本属性（1）事件OnComm：通信控件只提供了一个事件，该事件的触发可以对串口的通信事件及错误进行处理。

通过对CommEvent 属性的判断可知当前的通信错误和事件，分别对每个CommEvent 值进行编程就完成了对各个错误和事件的处理。

如：CommEvent = MSCOMM—EV—SEND 表示发送事件。

这些信息可从VB 提供的常量文件CONSTANT. TXT中查出。

（2）属性CommPort ：设置通信控件与哪个串口相连接，设置并返回通信口号。

Setting ：设置通信的信息格式，为字符型。

顺序为：波特率、校验、数据位、停止位。

PortOpen ：布尔型、开关通信口。

基于VB中MSComm控件的通信软件开发与实现
李旭东;陈俊杰
【期刊名称】《电脑开发与应用》
【年(卷),期】2004(017)007
【摘要】VB中的MSComm控件提供了一系列标准通信命令的接口,它允许建立串口连接,可以连接到其他通信设备、可发送命令、进行数据交换以及监视和响应在通信过程中可能发生的各种错误和事件,介绍了有关的知识和技术,并由实例分步骤说明如何利用VB6.0中的MSComm控件进行通信软件的开发.
【总页数】3页(P25-27)
【作者】李旭东;陈俊杰
【作者单位】太原理工大学,太原,030024;太原理工大学,太原,030024
【正文语种】中文
【中图分类】TP31
【相关文献】
1.浅谈基于MSComm控件实现VB串口通信 [J], 董萍
2.基于VB中MSComm控件的串行通信 [J], 王丽英
3.VB中利用MSCOMM控件实现通信技巧 [J], 陈正非
4.微机监控系统中实现串行通信的一种方法——引用VB高级控件MSComm [J], 杨慧;陈炜
5.基于VB通信控件MSComm实现计算机与欧姆龙PLC串行通信编程的研究与应用 [J], 张红军;韦晓明;苏锐生
因版权原因，仅展示原文概要，查看原文内容请购买。

1.MSComm控件两种处理通讯的⽅式 MSComm控件提供下列两种处理通讯的⽅式：事件驱动⽅式和查询⽅式。

1.1 事件驱动⽅式 事件驱动通讯是处理串⾏端⼝交互作⽤的⼀种⾮常有效的⽅法。

在许多情况下，在事件发⽣时需要得到通知，例如，在串⼝接收缓冲区中有字符，或者 Carrier Detect (CD) 或 Request To Send (RTS) 线上⼀个字符到达或⼀个变化发⽣时。

在这些情况下，可以利⽤ MSComm 控件的 OnComm 事件捕获并处理这些通讯事件。

OnComm 事件还可以检查和处理通讯错误。

所有通讯事件和通讯错误的列表，参阅 CommEvent 属性。

在编程过程中，就可以在OnComm事件处理函数中加⼊⾃⼰的处理代码。

这种⽅法的优点是程序响应及时，可靠性⾼。

每个MSComm 控件对应着⼀个串⾏端⼝。

如果应⽤程序需要访问多个串⾏端⼝，必须使⽤多个 MSComm 控件。

1.2 查询⽅式 查询⽅式实质上还是事件驱动，但在有些情况下，这种⽅式显得更为便捷。

在程序的每个关键功能之后，可以通过检查CommEvent 属性的值来查询事件和错误。

如果应⽤程序较⼩，并且是⾃保持的，这种⽅法可能是更可取的。

例如，如果写⼀个简单的电话拨号程序，则没有必要对每接收⼀个字符都产⽣事件，因为等待接收的字符是调制解调器的“确定”响应。

2.MSComm 控件的常⽤属性 MSComm 控件有很多重要的属性，但⾸先必须熟悉⼏个属性。

CommPort 设置并返回通讯端⼝号。

Settings 以字符串的形式设置并返回波特率、奇偶校验、数据位、停⽌位。

PortOpen 设置并返回通讯端⼝的状态。

也可以打开和关闭端⼝。

Input 从接收缓冲区返回和删除字符。

Output 向传输缓冲区写⼀个字符串。

下⾯分别描述： CommPort属性:设置并返回通讯端⼝号。

语法 mPort[value ] (value ⼀整型值，说明端⼝号。

VB下实现串口通信的方法1 VB下实现串口通信的方法1.1 通信控件MSComm简介VB下的串行端口通信是通过其提供的控件Microsoft Comm control（简称MSComm）实现的。

该控件屏蔽了通信过程中的底层操作，程序员只需设置并监视MSComm控件的属性和事件，结合其它VB提供的控件就可完成对串口的初始化和数据的发送接收。

本系统中用到的主要MSComm控件属性如下：①、Commport：设置并返回通信端口代码。

默认值为1，最大值为16，需要使用超过16个通信端口时，要采用其他方式操控通信端口（如PcommPro软件）。

例如将串口2设为通信端口：mPort=2。

②、Setting：设置初始化参数。

其格式为“****，P，D，S”，其中****为波特率(baud)，P为校验方式，D为数据位数，S为停止位。

默认值为“9600，N，8，1”，意为“串口通信速度为9600Baud，无校验，每次数据为8个Bit，停止位为1个Bit”。

波特率可为110，300，600，1200，2400，9600，14400，19200，28800，38400（保留）等等。

校验位默认为None（无校验），若传输距离长，可增加校验位，可选M为符号校验，E为偶校验，O为奇校验，S为空白校验。

停止位的设定值可为：1（默认值），1.5，2。

此处的设置要和单片机侧的设置保持一致，否则不能实现正常的通信。

例如我们采用的初始化参数为“2400，N，8，1”，则单片机侧的设置相应项为：定时器1的初值为E6并且SMOD（串行口波特率加倍位）为1（对应2400Bit），串口控制寄存器SCON为40（10位异步收发，对应8Bit数据位，1Bit停止位）。

③、PortOpen：设置或返回通信端口状态。

④、Input：从缓冲区返回并删除字符。

将串行输入寄存器的数据读出，并清除寄存器中已读取的数据。

寄存器的特性是FIFO（First In First Out，先进先出）。

第25卷第2期 河北建筑工程学院学报 Vol.25No.2 2007年6月JOURNAL OF HE BE I I N STI T UTE OF ARCH I TECT URE AND C I V I L E NGI N EER I N G June2007利用vb的m sco mm控件实现双机通信刘英魁　许爱中张家口广播电视大学摘　要　简要介绍了V isual B asic6.0中串行通信控件MSCOMM的功能和属性,以及利用MSCOMM实现双机通信的方法,最后结合具体实例给出了基本的通信程序.关键词　串行通信;V isual B asic;MSCOMM控件;RS-232-C中图号　TP31　引言计算机技术在工业领域中最广泛和最有效的应用之一是计算机辅助自动化控制,而控制的核心又不外乎于控制信号和检测信号的获取与分析,使用计算机语言达到控制设备的目的是实现自动化的一个环节,对于窗口环境下的控制来说,V isual B asic是很好的选择.串行通信与并行通信是每台计算机均会提供的两种对外的通信方式,很多设备也是通过这两种方式和计箅机进行通信的,V isual B asic提供了串行通信控件让开发者可以方便的设计串行通信的系统程序.本文主要介绍如何在V isual B asic环境下利用串行通信控件实现双机通信的方法.1　MSCOMM控件功能简介用V isual B asic6.0进行串行通信程序的设计有两种方式:一是直接调用W indows AP I,另一种方式是使用通信控件,但后一种方式实际上是通过通信组件间接地调用了W indows AP I函数,其过程要比直接调用AP I要复杂,但是在程序的实现上要比前一种方式简单的多.要使用串行通信控件,首先要在工程开始设计之前,依次选择/工程/部件等菜单项,选中MSComm32.ocx选项,单击确定按钮,则工具箱中就会显示通信控件,可供程序设计者使用.1.1　MSCOMM控件的主要属性CommPort:用于设置或返回通信连接端口号码.Settings:用于设置或返回初始化参数,即波特率,奇偶校验位,数据位和停止位.Port O pen:用于设置或返回通信连接端口的状态.使用前必须将要使用的串行接口先行打开,而在使用完毕之后,也必须执行关闭操作.I nput:用于从输入缓存区返回并删除字符,程序靠该命令将对方传到输入缓存区中的字符读进来,并清除缓存区中已被读取的字符,在设计阶段时无效,运行阶段时为只读.I nput L en:确定被I nput属性读取的字符数.Out put:用于将一个字符串写入输出缓存区,在设计阶段时无效,运行阶段时为只读.I nput M ode:用于设置或返回I nput属性取回的数据形态.该属性值有0或1,分别对应文本形式或二进制式.CommEvent:在通信错误或事件发生时都会产生OnComm事件,CommEvent属性存有该错误或事件的数值码(这也是此控件唯一的事件).I nBuffer Count:用于返回在接收缓存区中的字符数.该属性在设计阶段无法使用,如果把该属性值设置为0,可以清除接收缓存区.1.2　MSCOMM控件通信方式的选择收稿日期:2006-09-20作者简介:男,1969年生,讲师,张家口市,075000MSCOMM 控件提供两种处理通信的方式:(1)事件驱动法每当有新字符到达或端口状态改变,或发生错误时,MSCOMM 控件将触发OnCo mm 事件,而应用程序在捕获该事件后,通过检查MSCOMM 控件的CommEvent 属性,可以获知所发生的事件或错误,从而采取相应的操作.(2)查询法每当应用程序执行完某一串行端口操作后,将不断检查MSCOMM 控件的CommEvent 属性,以检查执行结果或检查某一事件是否发生.2　测试中的硬件设备如果要进行单机测试,可将RS -232-C 在线的第2引脚(RXD )与第3引脚(TXD )短路,那么由第3引脚的输出信号就会被发送到第2引脚而送到同一串行端口的输入缓冲区,即可将数据读入.如果想要在两台计算机之间进行通信,需要将本地计算机RS -232-C 的发送引脚连接到对方计算机RS -232-C 的接收引脚,并将本地计算机RS -232-C 的接收引脚连接到对方计算机RS -232-C 的发送引脚.这就需要将RS -232-C 线材进行必要的跳线,将一根普通的RS -232-C 线,拆开其中一端的盒盖,将第2脚(RXD )与第3脚(T XD )对调即可.本次测试是用两台计算机进行通信的.3　程序设计PC 机的通信演示程序如下.该程序可自动或手动接收发送区内容,定时器控件用于对发送区内容的自动接收.窗体的加载事件代码:　txtreceive .Text =buf Private Sub For m _Load ()　End I f Ti m er1.I nterval =500End Sub Ti m er1.Enabled =True 定时器mPort =1Private Sub Ti m er1_Ti m er ()MSComm1.Settings ="9600,n,8,1"I f MSComm1.I n Buffer Count >0Then MSComm1.Port O pen =True txt Receive .Text =End Sub txt Receive .Text +MSComm1.I nput .发送程序End I f p rivate Sub CmdSend_Click ()End SubMSComm1.Out put =Tri m (txtsend .Text )切换Ti m er1控件的启动/关闭状态End Sub Private Sub Cmdonoff_Click ()接收程序Ti m er1.Enabled =Not Ti m er1.Enabled Private Sub CmdReceive_Click ()End SubD i m buf ＄关闭通信端口buf =Tri m (MSComm1.I nput )Private Sub CmdExit_Click ()　I f Len (buf )=0Then MSComm1.Port O pen =False txtreceive .Text =""Unl oad Me ElseEnd Sub4　结束语本程序经过实验运行,能实现双机之间的可靠通信.用vb 实现串行通信简单易用,也可以应用到微机与单片机或其它仪器仪表的串行通信中去,因此对双机串行通信软件的设计和对串行通信的研究,具有重要的现实意义.参　考　文　献[1]龚沛曾.V isual B asic6.0程序设计教程.高等教育出版社.2000年2月[2]范逸之,陈立元.V isual B asic 与RS -232串行通信控制.北京:清华大学出版社,2002年Rea li z i n g Two M ach i n e Co mm un i ca te by Usi n g M SCOMM Con trol of vbL iu Yingkui Xu A izhongZhangjiakou Radi o &Televisi on UniversityAbstract This paper briefly intr oduces the functi on and attributer of serial co mmunicati on contr olMSCOMMof the V isual Basic6.0and the method of realizing t w o machine co mmunicati on by usingMSC O MM contr ol of visual Basic6.0.It als o gives the basic communicati on p r ogra m combined with s pecific exa mp le .Key words serial communicati on;visual B asic;MSCOMM contr ol;RS -232-C111第2期刘英魁　许爱中 利用vb 的m scomm 控件实现双机通信。

VB是Visual Basic的简称，是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式级程序设计语言，可用于开发Windows 环境下的各类应用程序。

它简单易学、效率高，且功能强大可以与Windows 专业开发工具SDK相媲美。

在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发环境下功能强大、图形界面丰富的应用软件系统。

他的简单易学可以使我们快速实现自己想在Windows下的软件功能。

小则可以做计算器、上位机等符合自己需要的小软件；大则可以连接数据库做些管理系统，比如某公司的人事管理系统。

这里要说的是MSCOMM控件在VB中的使用方法。

MSComm 作为一个串行通讯控件为程序员串口通讯编程节省了很多时间。

在应用中加入一个MSComm控件非常简单。

在VB的常用控件里是没有MSCOMM控件的，我们可以通过工程部件勾取Microsoft comm control 6.0 来添加MSCOMM控件。

下面，让我们来了解其使用方法：1．串口通信基础知识一般悦来，计算机都有一个或多个串行端口，它们依次为com1、Com2、…，这些串口还提供了外部设备与PC进行数据传输和通信的通道。

这些串口在CPU和外设之间充当解释器的角色。

当字符数据从CPU发送给外设时，这些字符数据将被转换成串行比特流数据；当接收数据时，比特流数据被转换为字符数据传递给CPU，再进一步说，在操作系统方面，Windows用通信驱动程序（COMM.DRV）调用API函数发送和接收数据，当用通信控件或声明调用API函数时，它门由COMM. DRV解释并传递给设备驱动程序，作为一个VB程序员，要编写通信程序．只需知道通信控件提供给Windows通信AP1函数的接口即可．换句话说，只需设定和监视通信控件的属性和事件即可。

一、概述串口通讯作为一种古老而又灵活的通讯方式，被广泛地应用于PC间的通讯以及PC和单片机之间的通讯之中。

提到串口通讯的编程，人们往往立刻想到C、汇编等对系统底层操作支持较好的编程语言以及大串繁琐的代码。

实际上，只要我们借助相关ActiveX控件的帮助，即使是在底层操作一向不被人看好的VB中，一样能够实现串口通讯，甚至其实现方法和C、汇编相比，要更加快捷方便。

下面，笔者就介绍一下在VB中实现串口通讯的方法。

在Visual Basic中有一个名为Microsoft Communication Control（简称MSComm）的通讯控件。

我们只要通过对此控件的属性和事件进行相应编程操作，就可以轻松地实现串口通讯。

下面，笔者就简要地介绍一下MSComm控件的使用方法。

二、MSComm控件的主要属性、事件1、MSComm的属性常用属性和方法利用MSComm控件实现计算机通信的关键是理解并正确设置MSComm控件众多属性和方法。

以下是MSComm控件的常用属性和方法：●Commport：设置通讯所占用的串口号。

如设成1（默认值），表示对Com1进行操作。

语法 mPort[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 线为高电平。

vb串口通信编程一、概述串口通讯作为一种古老而又灵活的通讯方式，被广泛地应用于PC间的通讯以及PC和单片机之间的通讯之中。

提到串口通讯的编程，人们往往立刻想到C、汇编等对系统底层操作支持较好的编程语言以及大串繁琐的代码。

实际上，只要我们借助相关ActiveX控件的帮助，即使是在底层操作一向不被人看好的VB中，一样能够实现串口通讯，甚至其实现方法和C、汇编相比，要更加快捷方便。

下面，笔者就介绍一下在VB中实现串口通讯的方法。

在Visual Basic中有一个名为Microsoft Communication Control（简称MSComm）的通讯控件。

我们只要通过对此控件的属性和事件进行相应编程操作，就可以轻松地实现串口通讯。

下面，笔者就简要地介绍一下MSComm控件的使用方法。

二、MSComm控件的主要属性、事件1、MSComm的属性由于MSComm控件属性很多，在此笔者仅介绍与实现串口通讯密切相关的核心属性。

Commport：设置通讯所占用的串口号。

如设成1（默认值），表示对Com1进行操作。

Setting：对串口通讯的相关参数。

包括串口通讯的比特率，奇偶校验，数据位长度、停止位等。

其默认值是“9600,N,8,1”，表示串口比特率是9600bit/s，不作奇偶校验，8位数据位，1个停止位。

Portopen：设置串口状态，值为True时打开串口，值为False时关闭串口。

Input：从输入寄存器读取数据，返回值为从串口读取的数据内容，同时输入寄存器将被清空。

Ouput：发送数据到输出寄存器。

InBufferCount：设置输入寄存器所存储的字符数，当将其值设为0时，则输入寄存器将被清空。

InputMode：设置从输入寄存器中读取数据的形式。

若值为0，则表示以文本形式读取；值为1，则表示以二进制形式读取。

OutBufferCount：设置输出寄存器所存储的字符数，当将其值设为0时，则输出寄存器将被清空。

第24卷第2期吕梁高等专科学校学报 2008年6月V ol. 24 No. 2 Journal of Lvliang Higher College Jun . 2008 基于VB环境下利用MSCOMM控件进行串行通信高永强(吕梁高等专科学校计算机系,山西吕梁 033000)摘要：结合示例程序,介绍VB中的控件MSCOMM,论述如何利用MSCOMM控件来进行通讯,是非常重要的.关键词：MSCOMM控件;通信;发送;接收中图分类号：TP273+.5 文献标识码：A 文章编号：1008-7834（2008）02-0031-03串行通讯技术具有简单且易实现的特性,在系统控制领域中一直扮演着极其重要的角色,它不仅没有被时代的进步而淘汰,反而在规格上越来越先进,应用也越来越广泛,成为计算机上的标准配置.在实验室和工业应用中,受信道成本限制,串口常常作为计算机与外部串行设备之间的首选数据传输通道,而且由于串行通信方便易行,许多设备和计算机都可以通过串口对外设进行控制、检测,串口通讯日益成为计算机和外设进行通讯、获取由外设采集到的监测数据的一个非常重要的手段.用Visual Basic 6.0进行串行通信程序的设计有两种方式,一是直接调用Windows API,另一种方式是使用通信控件,但后一种方式实际上是通过通信组件间接的调用了Windows API函数,其过程要比直接调用API 要复杂,但是在程序的实现上要比前一种方式简单的多.所以本文介绍串行通信控件的属性及其使用方法.1 Mscomm控件介绍1.1 MSCOMM控件的主要属性CommPort：用于设置或返回通信连接端口号码.Settings：用于设置或返回初始化参数,即波特率、奇偶校验位、数据位和停止位.PortOpen：用于设置或返回返回通信连接端口的状态.使用前必须将要使用的串行接口先行打开,而在使用完毕之后,也必须执行关闭操作.Input：用于从输入缓存区返回并删除字符.程序靠该命令将对方传到输入缓存区中的字符读进来,并清除缓存区中已被读取的字符.在设计阶段时无效,运行阶段时为只读.InputLen：确定被Input属性读取的字符数.Output：用于将一个字符串写入输出缓存区.在设计阶段时无效,运行阶段时为只读.InputMode：用于设置或返回Input属性取回的数据形态.该属性值有0或1,分别对应文本形式或二进制式.CommEvent：在通信错误或事件发生时都会产生OnComm事件,CommEvent属性存有该错误或事件的数值码.（这也是此控件唯一的事件）.InBufferCount：用于返回在接收缓存区中的字符数.该属性在设计阶段无法使用,如果把该属性值设置为0,以清除接收缓存区.1.2 MSCOMM控件的事件OnComm事件：当CommEvent属性的值发生变化时,就触发此事件,标志发生了一个通信事件或错误,如果CommEvent属性值发生了变化,而通信事件又未发生,就必然出现错误.CommEvent属性中含有触发OnComm事件的真正错误或事件的标识代码.1.3 MSCOMM控件进行串行通信的一般步骤收稿日期：2008-03-0631MSCOMM控件进行串行通信的一般步骤为：1）设置通信对象通信端口号及其他属性;2）设定通信协议;3）打开通信端口;4）进行数据的传送;5）关闭通信端口.1.4 MSCOMM控件通信方式的选择MSComm提供了两种处理通信问题的方法,一是事件驱动方法,一是查询法.①事件驱动法在使用事件驱动法设计程序时,每当有新字符到达端口状态改变,或发生错误时,MSComm控件将触发OnComm事件,而应用程序在捕获该事件后,通过检查MSComm控件的CommEvent属性可以获知所发生的事件或错误,从而采取相应的操作.这种方法的优点是不需要一直让程序处于检查的状态,只要事先将程序代码写好,一有事件发生,就会执行相应的程序代码,响应及时,可靠性高.②查询法查询法适合于较小的应用程序,在这种情况下,每当应用程序执行完某一串行口操作后,将不断检查MSComm控件的CommEvent属性,以检查执行结果或检查某一事件是否发生.2 利用MSCOMM控件接收数据利用MSCOMM控件的Input属性可以接收数据,Input属性从接收缓冲区中返回一串数据, 它在设计阶段是无效的,在运行阶段也只能读,Input属性的返回类型为Variant.InputLen属性用于指定由串行端口读入的字符串长度.如果InputLen值为0（默认值）,此值会使Input 命令一次读取所有输入缓冲区中的数据.InputMode属性决定Input属性返回值的数据类型.如果InputMode的值设置为ComInputModeText,则可利用Input属性返回文本数据;如果InputMode的值设置为ComInputModeBinary,则返回Byte数组中的二进制数据.下面的示例程序是利用Input属性接收缓存中的数据：Private Sub Command1_Click()‘用户单击按钮Command1后读取输入缓冲区中的内容Dim Ins as StringMSCOMM1. InputLen=0MSCOMM1.PortOpen=TrueIns=MSCOMM1.inputText1.text=InsMSCOMM1.PortOpen=FalseEnd Sub3利用MSCOMM控件发送数据MSCOMM控件提供了一个Output属性,它能简化对数据的发送Output属性可以往发送缓冲区中写入一串数据,它在设计阶段是无效的,在运行阶段也只能写入,其引用方法如下：MSCOMM1.Output=Value其中Value, 参数表示一串要写入到发送缓冲区中的字符Output属性可以发送文本数据,也可以发送二进制数据.如果要发送文本数据Value, 就必须是含有字符串的Variant数据;如果要发送二进制数据Value,就32必须是含有Byte, 数组的Variant数据.下面的示例程序是利用MSCOMM控件的 Output属性发送数据：Private Sub Text1_KeyPress(KeyAscii As Integer)‘将键盘输入的值传递给Text1’和MSCOMM1控件Dim OutS as variantmport=1MSCOMM1.portOpen=TrueOutS=Chr(KeyAscii)MSCOMM1.Output= OutSMSCOMM1.portOpen=FalseEnd Sub4 结论本文介绍了VB系统中MSCOMM控件的主要属性、事件及使用方法,详细论述了如何利用MSCOMM 控件来发送和接收数据,并给出了示例程序,MSCOMM是VB 系统中的一个通信控件,利用它可开发出功能强大,实时性好的串行通信程序,本文只给出两个简单的示例程序起抛砖引玉作用,本文介绍的方法编程方法在焦化测控系统中得到应用.参考文献：[1]范逸之.Visual Basic与分布式监控系统——RS-232/485串行通信[M].北京：清华大学出版社,2002.[2]刘炳文. Visual Basic6.0程序设计——Activex篇[M].北京：人民邮电出版社,1999.[3]李旭晖,高仁忠,徐瀚伟.Visual Basic程序设计技巧1001例[M].北京：电子工业出版社,1999.Serial Communication Using MSCOMM on the Base of 5vbGAO Yong-qiang(Department of Computer Technology, Lvliang Higher College, Lvliang 033000,China)Abstract：The paper illustrates the MSCOMM and relates the ways of using MSCOMM with examples.Key words：MSCOMM;communication;sending33。