当前位置：文档之家 › Visual Basic 6MSComm控件

Visual Basic 6MSComm控件

  • 格式：doc
  • 大小：273.50 KB
  • 文档页数：10

Visual Basic 6.0(以下简称VB) 是一种功能强大、简单易学的程序设计语言。

它不但保留了原先Basic语言的全部功能，而且还增加了面向对象程序设计功能。

它不仅可以方便快捷地编制适用于数据处理、多媒体等方面的程序，而且利用ActiveX控件MSComm还能十分方便地开发出使用计算机串口的计算机通信程序。

本文结合计算机通信的两个例子，详细介绍如何在VB中使用MSComm控件。

处理方式MSComm控件提供了两种处理通信的方式：一种为事件驱动方式，该方式相当于一般程序设计中的中断方式。

当串口发生事件或错误时，MSComm控件会产生OnComm事件，用户程序可以捕获该事件进行相应处理。

本文的两个例子均采用该方式。

另一种为查询方式，在用户程序中设计定时或不定时查询MSComm控件的某些属性是否发生变化，从而确定相应处理。

在程序空闲时间较多时可以采用该方式。

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

以下是MSComm 控件的常用属性和方法：●Commport：设置或返回串口号。

●Settings：以字符串的形式设置或返回串口通信参数。

●Portopen：设置或返回串口状态。

●InputMode：设置或返回接收数据的类型。

●Inputlen：设置或返回一次从接收缓冲区中读取字节数。

●InBufferSize：设置或返回接收缓冲区的大小，缺省值为1024字节。

●InBufferCount：设置或返回接收缓冲区中等待计算机接收的字符数。

●Input：从接收缓冲区中读取数据并清空该缓冲区，该属性设计时无效，运行时只读。

●OutBufferSize：设置或返回发送缓冲区的大小，缺省值为512字节。

●OutBufferCount：设置或返回发送缓冲区中等待计算机发送的字符数。

●Output：向发送缓冲区发送数据，该属性设计时无效，运行时只读。

●Rthreshold：该属性为一阀值。

当接收缓冲区中字符数达到该值时，MSComm控件设置Commevent属性为ComEvReceive，并产生OnComm事件。

用户可在OnComm事件处理程序中进行相应处理。

若Rthreshold属性设置为0，则不产生OnComm事件。

例如用户希望接收缓冲区中达到一个字符就接收一个字符，可将Rthreshold 设置为1。

这样接收缓冲区中接收到一个字符，就产生一次OnComm事件。

●Sthreshold：该属性亦为一阀值。

当发送缓冲区中字符数小于该值时，MSComm控件设置Commevent属性为ComEvSend，并产生OnComm事件。

若Sthreshold属性设置为0，则不产生OnComm事件。

要特别注意的是仅当发送缓冲区中字符数小于该值的瞬间才产生OnComm事件，其后就不再产生OnComm事件。

例如Sthreshold 设置为3，仅当发送缓冲区中字符数从3降为2时，MSComm控件设置Commevent属性为ComEvSend，同时产生OnComm事件，如发送缓冲区中字符始终为2，则不会再产生OnComm事件。

这就避免了发送缓冲区中数据未发送完就反复发生OnComm事件。

●CommEvent：这是一个非常重要的属性。

该属性设计时无效，运行时只读。

一旦串口发生通信事件或产生错误，依据产生的事件和错误，MSComm控件为CommEvent属性赋不同的代码，同时产生OnComm事件。

用户程序就可在OnComm事件处理程序中针对不同的代码，进行相应的处理。

CommEvent属性的代码、常数及含义参见表1及表2。

表1 CommEvent通信事件表2 CommEvent通信错误实例1：计算机拨号在一些实际应用中经常需要使用计算机拨号。

下面这个例子利用MSComm控件操作Modem进行拨号，实现串口通信。

实现步骤：1.建窗体●添加一个MSComm控件，用来建立与串口的连接；●添加一个Text控件，Name属性为Txttel，用来输入电话号码；●添加3个CommandButton控件，Name属性分别为DialButton、CancellButton、QuitButton，分别用来实现拨号、中止拨号、中止程序；●添加一个Label控件，用来显示所有与拨号有关的信息。

窗体见图1。

2．设置MSComm控件属性●InBufferSize=1024；●Inputlen=0；●InputMode=0；●Rthreshold=2；●RTSEnable=True；●Settings=“9600,N,8,1”；●Sthreshold=0。

因为每一台计算机的串口使用状态都不会一样。

为使程序具有通用性，在窗体的Load方法中首先进行串口测试，找到第一个可用串口后再进行设置。

3．程序功能程序根据输入的电话号码进行拨号，Modem正常拨号后，提示用户摘机，准备通话。

图1 电话拨号实例4．主要方法与事件代码'设置可用串口Private Sub Form_Load()On Error GoTo error_openFor i = 1 To 4mPort = iMSComm1.PortOpen = True'设置可用的第一个串口On Error GoTo 0Exit Suberror_resume:Nexterror_open:Resume error_resumeEnd SubPrivate Sub DialButton_Click()Dim Number＄, Temp＄Number＄= Trim＄(Txttel.Text)If Number＄= “" ThenMsgBox “请输入电话号码"Txttel.SetFocusExit SubEnd IfDialButton.Enabled = FalseQuitButton.Enabled = FalseDialString＄=“ATDT”＋Number＄＋“;” ＋vbCr '清除接收缓冲区MSComm1.InBufferCount =0'拨电话号码MSComm1.Output = DialString＄Lblmessage.Caption = “正在拨号码－”＋Number＄DialButton.Enabled = TrueQuitButton.Enabled = TrueEnd SubPrivate Sub MSComm1_OnComm()Select Case mEventCase comEvReceive'读取串口数据COMBUF=COMBUF ＋MSComm1.Inputlc = InStr(1, COMBUF, “OK”)If lc = 0 Then Exit Sub'Modem已正常拨号，返回OKLblmessage.Caption = “请您摘下电话机，准备通话”Case comEvSendEnd SelectEnd SubPrivate Sub CancelButton_Click()'断开与调制解调器的连接MSComm1.Output = “ATH” ＋vbCrEnd Sub实例2：实现来电显示在一些实际应用中，需要显示并保存来电号码，并根据电话号码显示相应资料，比如小区物业管理和110报警等系统。

实现步骤：1．创建窗体●添加一个MSComm控件，用来建立与串口的连接；●添加4个Option控件，用来确定使用的串口号；●添加4个Label控件，用来显示来电号码及日期时间；●添加一个ProgressBar控件，用来显示电话振铃次数；●为方便调试程序，添加一个Text控件Text 5，用来显示Modem传来的所有信息。

窗体见图2。

图2 来电显示窗体2．设置MSComm控件属性●InBufferSize=1024；●Inputlen=0；●InputMode=0；●Rthreshold=1；●RTSEnable=True；●Settings=“9600,N,8,1"；●Sthreshold=0。

3．程序功能程序首先初始化Modem，然后等待来电。

当有来电时，MSComm产生OnComm事件。

Modem送出的信息格式为“DATE = 月日回车换行TIME = 时分回车换行NMBR = 电话号码回车换行”。

在OnComm事件处理程序中对读入信息进行截取，截取电话号码后，以该电话号码为关键字，查询并显示数据库中有关信息。

4．主要方法与事件代码'通用声明部分Const DEBFLG = 1Public COMX, BEEPNO, HANGUP,PNLOC As IntegerPublic COMBUF, COMLIN As StringPrivate Sub Form_Load()'检测串行口Dim I, C As IntegerCOMX = 0COMBUF = “”COMLIN = “”BEEPNO = 0HANGUP = 0'正常运行程序，关闭右侧Text5If DEBFLG= 0 ThenForm1.Width = Form1.Width －Text5.WidthText5.Enabled = FalseText5.Visible = FalseEnd IfOn Error GoTo ERROR_FORM_LOAD'检测可用串口For C = 1 To 4If MSComm1.PortOpen Then MSComm1.PortOpen = False mPort = CIf Not MSComm1.PortOpen ThenMSComm1.PortOpen = TrueIf MSComm1.PortOpen Then MSComm1.PortOpen = False If COMX = 0 Then COMX = CFORM_LOAD_1:Next CIf COMX = 0 Then EndOn Error GoTo 0Option1(COMX －1).Value = TrueExit SubERROR_FORM_LOAD:Option1(C －1).Enabled = FalseResume FORM_LOAD_1End Sub'选择串行口Private Sub Option1_Click(Index As Integer)COMX = Index ＋1Call INIT_MODEMEnd Sub'初试化ModemPrivate Sub INIT_MODEM()If MSComm1.PortOpen Then MSComm1.PortOpen = False mPort = COMXIf Not MSComm1.PortOpen Then MSComm1.PortOpen = TrueMSComm1.Output = “AT＃CID=1” ＋vbCr'检查Modem命令是否完成Call CHK_MODEMMSComm1.Output = “ATS0=0” ＋vbCrEnd Sub'检查Modem命令是否完成Private Sub CHK_MODEM()Dim T As SingleDim L As IntegerT = TimerDoCOMBUF = COMBUF ＋MSComm1.InputL = InStr(1, COMBUF,“OK”)Loop Until L <> 0 Or Timer －T > 1If L = 0 ThenLine1.Visible = TrueLine2.Visible = TrueForm1.ShowMsgBox “MODEM未联机”,vbOKOnly＋vbCritical,“测试MODEM”ElseLine1.Visible = FalseLine2.Visible = FalseEnd IfEnd Sub'串行口接收事件处理Private Sub MSComm1_OnComm()Dim CH, ST As StringDim LC As IntegerSelect Case mEvent'接收到Rthreshold个字符Case comEvReceiveCOMBUF = COMBUF ＋MSComm1.Input'读取串口数据DoLC = InStr(1, COMBUF, Chr(10))If LC = 0 Then Exit DoCOMLIN = Left(COMBUF, LC)COMBUF = Mid(COMBUF, LC ＋1)CH = Left(COMLIN, 1)If “ ” < CH And CH < Chr(127) And DEBFLG = 1 ThenText5.Text = Text5.Text ＋COMLINText5.SelStart = Len(Text5.Text)End If'截取来电号码,并显示If InStr(1, COMLIN“NMBR=”)<> 0 ThenST = Mid(COMLIN, 8)Text2.Text=“ ”＋Left＄(ST,Len (ST) －2) ＋“ ”Form1.WindowState = 0Timer1.Enabled = TrueCall BEEP_NO'截取来电日期,并显示ElseIf InStr(1, COMLIN, “DATE = ”) <> 0 ThenText3.Text = Str(Year(DATE)) ＋“.”＋Mid(COMLIN, 8, 2) ＋“.” ＋Mid(COMLIN, 10, 2) ＋“ ”'截取来电时间,并显示ElseIf InStr(1, COMLIN, “TIME = ”) <> 0 ThenText4.Text = “ ” ＋Mid(COMLIN, 8, 2) ＋“:” ＋Mid(COMLIN, 10, 2)'检测振铃个数ElseIf InStr(1, COMLIN, “RING”) <> 0 ThenCall BEEP_NOIf HANGUP = 1 Or BEEPNO = 15 Then Call HANG_UP'检测是否停止振铃ElseIf Left(COMLIN, 3) = “000” ThenBEEPNO = 0Timer1.Enabled = FalseForm1.WindowState = 1ProgressBar1.Value = 0Frame3.Caption = “振铃数”End IfLoop'其他事件处理Case comEvCTSCase comEvDSRCase comEvCDCase comEvRingCase comEventBreakCall INIT_MODEMCase ElseMsgBox “串口接收事件号：” ＆mEvent ＆“ ”, vbOKOnly ＋vbCritical, “测试串行口”End SelectEnd SubOn Error GoTo 0表示禁止当前过程中任何已启动的错误处理程序。

合集下载

mscomm控件的使用和安装

mscomm控件的使用和安装

一、引言目前，在用计算机进行数据传输时，常用的是串行通信方式。

用C＋＋Builder来编写串行通信程序时，可以调用Windows API函数，也可以利用VB中的MSComm控件。

利用API函数编写实际应用程序时，往往要考虑多线程的问题，这样编出来的程序不但十分庞大，而且结构比较复杂，继承性差，维护困难。

但是使用串行通信控件就相对简单一些，而且功能强大，性能安全可靠。

本文就简单的介绍一下在C++ Builder中利用MSComm 控件进行编程。

二、MSComm控件的常用属性和事件MSComm 控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。

具体的来说，它提供了两种处理通信问题的方法：一是事件驱动(Event－driven)方法，一是查询法。

事件驱动方式在使用事件驱动法设计程序时，每当有新字符到达，或端口状态改变，或发生错误时，MSComm控件将解发OnComm事件，而应用程序在捕获该事件后，通过检查MSComm控件的CommEvent属性可以获知所发生的事件或错误，从而采取相应的操作。

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

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

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

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

1.MSComm 控件的常用属性CommPort属性：设置或返回通讯端口号，可以设置为1到16之间的任何值，本系统采用缺省值2；Settings属性：以字符串形式设置或返回波特率、奇偶校验、数据位和停止位，本系统采用缺省值"9600，n，8，1";PortOpen属性：设置或返回通讯口的状态以及打开和关闭端口，可通过把该属性设置为true或者false来打开或者关闭端口；InBufferSize和OutBufferSize属性：分别设置接收和发送缓冲区分配的内存数量，单位为字节，缺省值分别为1024byte和512byte；InputLen属性：确定希望从接收缓冲区移出的字符数量，当InputLen＝0时，一次把接收缓冲区的字符全部移出；Input属性：从接收缓冲区中读出数据，然后将该数据从缓冲区移走。

VB中MSComm控件的设置与应用

VB中MSComm控件的设置与应用

修改稿收到日期： <!!A?!@?<<
+ )* 中 ,-.&// 控 件 的 常 用 属 性
（ +） .&//0&12 。 设 置 或 返 回 通 讯 端 口 号 。 格 式 为 ： ［ 4 0&1256/781 ］。在 设 计 时 ， ,-.&//3.&//0&12 0&1256/781 可 以 设 置 成 从 + 到 +9 的 任 何 数 （ 缺 省 值 为 + ）。 但 是 如 果 用 0&12:;8$ 属 性 打 开 一 个 并 不 存 在 的 端 口 时 ， 就 会 产 生 错 误 ， 还 需 注 意 的 是 必 须 在 打 开 端 口 之 前 设 置 .&//0&12 属 性 。例 如 ： 即 设 置 当 前 端 口 为 .:, ,-.&//3.&//0&12 4 < ，
< 口。
（ <） 以字符串形式设置或返回波特率、 奇偶校 -822#$=( 。 验、数据位和停止位。格式为： ,-.&//3-822#$=(［ 40>1>-? 第一部分是 21#$= ］。0>1>-21#$= 是 一 个 包 含 四 部 分 的 字 符 串 ： 波 特 率 设 置 ， 其 可 选 值 为 ++! ， @!! ， 9!! ， +<!! ， <A!! ， AB!! ， 一 般 选 定 C9!! ； 第二部分是奇偶 C9!! ， +AA!! ， +C<!! ， <BB!! ， 校验设置， 5 表示不校验， D 表示偶校验， : 表示奇校验， 表示空格检验， 一 般 设 定 为 5； 第三部分 , 表示符号校验， 是数据位位数设置， 其 可 选 值 为 A， 一 般 选 定 B； 第 E， 9， F， B， 四部分是停止位位数设置， 其 可 选 值 为 +， 一般选定 +3E ， <，
自己用VB编制的上位机（MSComm控件）

自己用VB编制的上位机（MSComm控件）

自己用VB编制的上位机（MSComm控件）本人初学者，许多地方显得粗糙笨拙，但总算是成功了，不过自我感受VB真的很简单，我大致学了两三个星期就可以了。

本文只同向我一样的初学者分享一下经验，毕竟咱不是专业的。

下面开始。

上位机可方便地实现与单片机之间进行信息传递交互，能够更加容易对机械手臂进行控制，实现操作可视化，更加直观，保存重要数据等功能。

我们利用Visual Basic 6.0(以下简称VB)来编制上位机，VB 是一种功能强大、简单易学的程序设计语言。

它不但保留了原先Basic 语言的全部功能，而且还增加了面向对象程序设计功能。

它不仅可以方便快捷地编制适用于数据处理、多媒体等方面的程序，而且利用ActiveX控件MSComm还能十分方便地开发出使用计算机串口的计算机通信程序。

本实验涉及控制六路舵机，所以需要编制上位机实现一次向下位机传输含有六个数据的数组，同时接受来自下位机的数组，并显示。

整个过程可分为如下几个过程：一：VB是面向对象的语言，首先需要绘制程序界面该上位机大致分为左边的功能部分与右边的可视化调节部分。

功能部分有端口选择，用以选择合适的端口进行串口通信，波特率选择，打开与关闭端口，动作设置等。

为了便于布局，应用frame控件建立区域，再将控件拖到frame 区域中，对于功能相同的控件来说，建立控件组的方式会使编程避免重复繁琐，例如HScrollbar控件，先向frame区域内拖入一个HScrollbar控件，再复制，粘贴到frame区域内部，则提示是否建立控件组，点击确定即可。

这样便为后续编程带来很大的方便。

调节部分运用Hscrollbar控件来粗略调节度数，设定按钮与文本框配合来精确调节输出度数。

用右列文本框实时读取舵机当前角度。

用optionbutton控件来选择hscrollbar的步进精度，这里分为0.1度与1度两个不同的选项。

由于一组optionbutton中在程序运行中只能有一个处于选中状态，根据本程序要求，每一横列的两个optionbutton为一组，这样就需要frame控件，在同一个frame区域里的optionbutton默认为一组。

VB6.0环境下利用Mscomm控件实现串行通信

VB6.0环境下利用Mscomm控件实现串行通信

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）来加快应用程序关键部分的执行速度。