VisualBasic串口通信程序设计实例
用VisualBasic的Communications控件实现串行通信-2019年精选文档
ations 控件实现串行通信1．引言Visual Basic （以下简称VB ）是一般程序设计人员在Windows 环境下最常用的编程语言。
在 VB 中除了可以调用 API 函数，完成串行通信的任务之外，更常用、更简便的是使用 提供的Communications 控件（以下简称Comn 控件）来完成各种 串行通信任务。
2. VB 的Comr 控件2.1 Com m 控件的添加Comm 控件并不是VB 的基本控件，刚进入 VB 环境中时，在控件工具箱上是找不到 Comn 控件的，要使用它必须另行添加，添加的方法如下：用鼠标右击VB 的控件工具箱，在弹出菜单中选择"部件…"菜单项，会出现一个"部件…"对话框，勾选其中的"MicrosoftComm Control6.0"选项，在VB 的控件工具箱中会出现一个电话2.2 Comm 控件概述 Comm 控件用于进行串行通信，既可以用来提供简单的串行端口通信功能， 也可以用来创建功能完备的、 事件驱动的高级通 信工具。
Comm 空件提供了一系列标准通信命令的使用界面。
使用它用Visua Basic 的CommunicVB 机形状的控件图标，它就是进行串行通信要使用的Comr 控 件。
可以建立与串行端口的连接，通过串行端口连接到其他通信设备(如MODEM，发出命令，交换数据以及监视和响应串行连接中发生的事件和错误。
利用它可以进行诸如拨打电话、监视串行端口的输入数据乃至创建功能完备的终端程序等功能。
2.3 Comm 空件的重要属性1)CommPor：t 设置或返回通信端口号，其取值范围为1〜99,缺省为1。
当把这个属性设置成1,表示利用COM1 端口进行串行通信。
在程序运行时也可以读取该属性, 用来了解串行端口的使用情况。
2)Settings ：用字符串的形式设置或返回串行通信的帧格式。
例如将Settings设置为"9600, n, 8, 1"，表示采用的串行通信波特率是9600、无奇偶校验、数据位是8 位、 1 位停止位。
Visual+Basic串口通讯调试方法
Visual Basic串口通讯调试方法现有电子秤一台，使用串口与计算机进行通讯。
编写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个数据位、1个停止位.（这里需要进一步说明的是：.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 = TrueEnd Sub（通信传输速率为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类型数变量中。
利用Visual Basic实现串行通信技术
Ｂ ６０ 中通 信控件在 Ｗｉｄ ｗｓ 台下进 行通信软件 的开发，并 给出 了事例 的基本通 信程 序 ． ａｃ． ｎｏ 平 关 键 词 ：Ｖｉ ａ ａ ｉ Ｍｓｏ ｓ ｌＢ ｓ ｃ ｍｍｌＶ ｕ ｃ ＢＸ通 信控件 Ｉ程 序设计
中圈分类号 ；Ｔ ３３０ Ｐ ９ ．２
文 献 标识 码 ：Ａ
统提出资源申请 要求 （ 打开 串口） ，通信完成后必须释放资源 （ 关闭串口） 。
２ ＲＳ ３ Ｃ串 口通 信接 线 方 法 （ ２２ 三线制 ）
一
个完 整的 ＲＳ ３ Ｃ接 口有 ２ －２ ２ ２根线 ，采 用标 准的 ２ 插头 ５芯
Ｐ Ｃ
ＰＣ
座 （ 或者 ９芯插头座 ） ５芯和 ９芯的主要信号线相同。首先 ，串 。２ 口传输 数据 只要 有 接收 数 据 针 脚 和 发 送针 脚就 能 实现 ：同一个 串 口 的接收脚和发送脚直接 用线相连 ；两个串口相连或一个串口 多个 和 串口相连 同一对 ９ 针串 口和 ２ 针 串口， ５ 均是 ２ ３ 与 交叉相连 ， 信号
Ｅｓ ｌｅ ’
Ｍ ＳＣｏ ｍ ． ｍ １ ＤＴＲＥ ｂ ｅ ｎａ ｌ ＝Ｆａｓ ｌ ｅ
Ｅｎ Ｉ ｄｆ
３ 打开时 向 ＭＯ Ｅ 发出一些命令来设置有关参数 ，其 中 Ｓ ＝ （＞＝ ） ） ＤＭ ０ ｎｎ １自动应答 ． ｎ为响铃次数 ； Ｅ／ ０ Ｅｌ关 闭／ 开 命令 字 符 回应 ｌＯ ／ ｍｏ ｅ 返 回／ 打 Ｏ Ｏｌ ｄｍ 不返 回结 果 码 ｌＭＯ Ｍ ｌ关 闭 ／ 开 ＭＯＤ Ｍ 扬 声 ／ 打 Ｅ 器 ，例 程 如 下 ：
伊 崇信 ’ 赵
颖
卉哈尔 １ １０ ） ６ ０ ０ （． １齐齐哈 尔大学信息学院 计算机系．齐齐哈 尔 １ １０ ， ．齐齐哈尔铁路运输职工大学 计算机 系．齐： ６ ０６ ２
使用VB实现的基于串口通信的数据采集系统毕业设计
基于串行口的数据采集系统的设计摘要：数据采集在日常生活中有着广泛的应用，特别是在一些对数据的准确性，实时性要求比较高的场合，需要设计专用的电路来实现系统的需求，而系统的功能的实现，与我们对元器件的选型，设计搭建的电路有直接的关系，它们直接影响着系统对外界环境的感知和响应能力，决定着系统的性能。
数据采集在工业控制领域有着广泛的需求，本设计是实现基于串行口的数据采集系统，以采集周围的环境温度为采集对象，以STC89C51单片机作为下位机，以PC机作为上位机，使用9针串口来实现下位机和上位机的通讯。
通过在PC机上使用VB6.0开发软件来开发实现数据接收显示控制界面。
系统调试结果表明，该系统设计合理，对周边环境温度的变化反应敏感，数据采集的波特率达到9600bps.关键字：数据采集系统、STC89C51单片机、串口通信、VB中图分类号：TP2IDesign of Data Acquisition System Base on SerialCommunicationABSTRACT: Data collection is widely applied in daily life, especially in the place which is very high request in data accuracy, real time display. A special circuit is need to be designed to realize it. Also, it have much connection with the sensor and circuit design , they influence the system’s sensor and response ability very much , it directly determined the system’s character.Nowadays, Data collection is widely requested in the industry control area. The system is designed to realize the data acquisition according to the serial port , collecting the temperature around the environment as collection object , use STC89C51 single-chip microcomputer as down machine , use personal computer as upper machine , use 9 pin serial port to realize the down SCM and upper PC’s communication . A display control form was made use the VB6.0 software . The experiment have done display that , the design was reasonable , it was very sensitive to the temperature’s ch ange around the environment .The system’s data collection speed could arrived to 9600bps.关键词：data collection system；STC89C51 single-chip microcomputer；serial communication；Visual Basic中图分类号：TP2II目次摘要 (I)ABSTRACT (II)目次 .......................................................................................................................................I II 1绪论. (1)1.1研究的背景和意义 (1)1.2数据采集系统的研究现状 (1)1.3研究思路和方法比较 (2)1.4本章小结 (3)2 基于串行口的数据采集系统的总体设计与分析 (4)2.1 基于串行口的数据采集系统的总体设计思想 (4)2.2 设计方案与论证 (4)2.3 本章小结 (5)3 下位机的设计 (6)3.1传感器的选择 (6)3.2 TTL与RS232电平的转换 (7)3.3单片机电路设计 (8)3.4系统总的电路设计实现 (8)3.5本章小结 (10)4 上位机的设计 (11)4.1 Visual Basic设计介绍 (11)4.2 Visual Basic 设计实现 (12)III4.3 本章小结 (13)5 系统结果和分析 (14)5.1 实验调试与结果 (14)5.2 本章小结 (18)6总结 (19)参考文献 (20)附录（下位机实现程序代码） (21)个人简历 (22)学位论文数据集 (23)IV1 绪论1.1 研究的背景和意义在计算机广泛应用的今天，数据采集在很多领域有着十分重要的应用。
Visual Basic串口通信程序设计实例
第6章Visual Basic串口通信程序设计典型实例利用Visual Basic开发串口通信程序既可以使用MSComm控件也可以调用Windows API 函数。
不过，只要MSComm可以被选用，它几乎总是我们推荐的选择，因为MSComm的功能和API调用一样好甚至比它还好且使用起来更加简单。
在本章提供的串口通信程序设计中，除了PC机与PC机串口通信外，PC机与单片机、PC机与智能仪表、PC机与PLC、PC机与GSM短信模块等串口通信任务的实现均采用MSComm控件。
6.1 PC机与PC机串口通信程序设计当两台串口设备通信距离较近时，可以直接连接，最简单的情况，在通信中只需三根线（发送线、接收线、信号地线）便可实现全双工异步串行通信。
本设计通过两台PC机串口三线连接，介绍了利用API函数和MSComm控件设计串口通信程序的方法，包括字符与文件的发送与接收。
6.1.1 设计目的1）掌握PC机与PC机串口通信的线路连接方法。
2）利用MSComm控件和VB-API函数实现PC机与PC机串口通信的程序设计方法。
6.1.2 设计用软、硬件本设计用到的硬件和软件清单见表6-1。
6.1.3 硬件线路线路说明：在计算机通电前，按图6-1所示将2台PC机通过串口线连接起来：PC机A 串口COM1端口的TXD与PC机B串口COM1端口的RXD相连；PC机A串口COM1端口的RXD与PC机B串口COM1端口的TXD相连；PC机A串口COM1端口的GND与PC机B串口COM1端口的GND相连。
6.1.4 设计任务利用MSComm控件和Visual Basic API函数编写程序实现PC机与PC机串口通信。
图6-1 PC机与PC机串口通信线路任务要求：两台计算机互发字符并自动接收，如一台计算机输入字符串“Please return abc123”，单击“发送字符”命令，另一台计算机若收到，就输入字符串“abc123”，单击“发送字符”命令，信息返回到第一组的计算机。
Visual Basic串口通信程序设计实例
Visual Basic串口通信程序设计典型实例利用Visual Basic开发串口通信程序既可以使用MSComm控件也可以调用Windows API 函数。
不过，只要MSComm可以被选用，它几乎总是我们推荐的选择，因为MSComm的功能和API调用一样好甚至比它还好且使用起来更加简单。
在本章提供的串口通信程序设计中，除了PC机与PC机串口通信外，PC机与单片机、PC机与智能仪表、PC机与PLC、PC机与GSM短信模块等串口通信任务的实现均采用MSComm控件。
6.1 PC机与PC机串口通信程序设计当两台串口设备通信距离较近时，可以直接连接，最简单的情况，在通信中只需三根线（发送线、接收线、信号地线）便可实现全双工异步串行通信。
本设计通过两台PC机串口三线连接，介绍了利用API函数和MSComm控件设计串口通信程序的方法，包括字符与文件的发送与接收。
6.1.1 设计目的1）掌握PC机与PC机串口通信的线路连接方法。
2）利用MSComm控件和VB-API函数实现PC机与PC机串口通信的程序设计方法。
6.1.2 设计用软、硬件本设计用到的硬件和软件清单见表6-1。
6.1.3 硬件线路线路说明：在计算机通电前，按图6-1所示将2台PC机通过串口线连接起来：PC机A 串口COM1端口的TXD与PC机B串口COM1端口的RXD相连；PC机A串口COM1端口的RXD与PC机B串口COM1端口的TXD相连；PC机A串口COM1端口的GND与PC机B串口COM1端口的GND相连。
6.1.4 设计任务利用MSComm控件和Visual Basic API函数编写程序实现PC机与PC机串口通信。
216图6-1 PC机与PC机串口通信线路任务要求：两台计算机互发字符并自动接收，如一台计算机输入字符串“Please return abc123”，单击“发送字符”命令，另一台计算机若收到，就输入字符串“abc123”，单击“发送字符”命令，信息返回到第一组的计算机。
PLC与VB6.0串口通讯案例
1、引言可编程控制器以其高可靠性，配置灵活和完善的功能，在工业控制系统中得到越来越广泛的应用。
但对于操作员所需要的报表打印、趋势图形显示、工况查寻、参数在线修改等功能，PLC却不能直接方便地提供。
所以通常采用计算机PC与PLC组成一个完整的监控系统。
本文以台安TP02系列PLC为例，讨论用Visual Basic(VB)实现PLC与上位机的通讯2、VB在通讯控件中的使用可编程控制器PLC与上位机PC之间的通信，下位机为PLC，基于其可靠性极高，主要承担控制功能，而上位PC机主要承担监察管理功能，有时兼备部分控制功能，如发出运行，停止命令。
VB语言是基于WINDOWS操作系统的功能强、易学易用、主要是面向学习对象的程序设计语言。
VB带有专门管理串行通讯的MSComm控件，只需设置几个主要参数就可以实现PLC与PC串行通讯。
要完成通信必须设置MSComm的相关属性值：（1）CommPort：设置或传回通信连接端口代号（2）Settings：设置初始化参数。
以字符串的形式设置或传回连接速度、奇偶校验、数据位、停止位等4个参数（3）PortOpen：设置或传回通信连接端口的状态（4）Input：从输入寄存器传回并移除字符（5）Output：将一个字符串写入输出寄存器（6）InputLen：指定由串行端口读入的字符串长度（7）InBu FF erCount：传回在接收寄存器中的字符数3、软硬件之间：台安TP02与上位机PC通信时，为了实现两者的通信需要配备通信线。
4、通信程序的实现4.1 通信初始化程序首先，在窗体开始设计之前，添加MSComm控件。
4.2程序编写：4.2.1 通信控件MSComm1属性设置：mPort = 1 设置端口号MSComm1.Settings = "19200,E,7,2" 设置通信参数MSComm1.InputLen = 0 设置读入字符串长度MSComm1.PortOpen = True 设置通信端口状态4.2.2 PLC运行程序：STX$ = "::"TransmitBuf$ = "01?5RUN"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBu FF erCount >= 12In1$ = MSComm1.Input4.2.3 从PLC读取资料，将寄存器内的数据资料在PC上显示以便观察监控（反应时间50ms）：STX$ = "::"transmitBuf$ = "01?5MRVD000102"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBufferCount >= 20InData$ = MSComm1.InputLabel2.Caption = Mid$(InData$, 10, 4)Label3.Caption = Mid$(InData$, 14, 4)4.2.4从PLC读取资料，将RelayC0001状态通过PC显示进行监控（反应时间50ms）：STX$ = "::"transmitBuf$ = "01?5MCRC0001"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBufferCount >= 13In4$ = MSComm1.InputCoil$ = Mid$(In4$, 10, 1)C1% = CInt(Coil$)Label6.Caption = C1%4.2.5 设定Relay状态，将Relay设定为ON（反应时间50ms）：Dim C1 As IntegerSTX$ = "::"transmitBuf$ = "01?5SCSY00011"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBufferCount >= 12In2$ = MSComm1.Input4.2.6 PLC停止运行：STX$ = "::"transmitBuf$ = "01?5STP"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBufferCount >= 12In3$ = MSComm1.Input4.2.7 VB6.0下CheckSum函数代码如下：Private Function CheckSum(transmitBuf$)L = Len(transmitBuf$)Add = 0Dim k, sum As IntegerFor k = 1 To LTJ$ = Mid$(transmitBuf$, k, 1)Add = Add + Asc(TJ$)Next kDo While Add >= 256Add = Add - 256LoopAdd = 255 - Add + 1tempBuf$ = Hex$(Add)CheckSum = LTrim(tempBuf$)End Function5、结论PLC与上位机的结合，并通过VB6.0传送数据所构成的计算机监控系统，对于近距离传输数据的现场控制来说是一种性价比很高的解决方案。
VisualC网络编程案例实战之串口通信编程应用.pptx
2．使用CMSComm类
• 在上面的小节中，向用户介绍了CMSComm类的头 文件。用户在该类的头文件中，可以看到主要的成 员函数声明等。在本小节中，将在程序中，使用该 类进行相关的串口操作，并向用户介绍这些操作的 方法。
• （1）用户要使用CMSComm类，必须在程序中包含 该类的头文件。
第14章 串口通信编程应用
• 如今，越来越多的用户将计算机串口应用到实际生 产和生活中。利用串口进行数据通信，不但可以实 现远距离数据传输，还可以轻松实现数据的检错与 纠错。读者在VC中，实现串口通信编程可以使用 MFC中的串口控件或者Windows API函数。在本章 中，将向用户分别介绍这两种实现方法。本章假定 读者在同一台计算机上虚拟了两个串口C置串口参数
• 首先，用户需要使用串口类对象调用函数SetCommPort() 设置将打开的串口号。该函数原型如下：
• void SetCommPort(short nNewValue);//设置串口号码
• 该函数的作用是指定或设置将打开的串口号码。参数 nNewValue表示设置的串口号。例如，用户在程序中， 将使用串口“COM1”进行串口通信，则设置串口号的 代码如下：
• CString str="9600,n,8,1"; 初始化参数字符串
• comm.SetSettings(str); 设置串口参数
//定义并 //
• 在上面的程序中，用户将波特率设置为9600（默认值），n表示无 校验位，数据位为8，停止位为1。其中，设置奇偶校验位的取值 如表14.2所示。
表14.1 串口接收数据类型的取值
取值 0 1
含义 表示接收数据的类型是文本类型 表示接收的数据类型为二进制类型