VB串口编程

vb中怎样用mscomm控件实现串口通信本问分两部分均来自第一部分jessezappy（晶晶)================================================================================== If MSComm1.PortOpen Then MSComm1.PortOpen = FalsemPort = 1 '假定是用COM1口' 设定传输速率等，可依照您的需求更改MSComm1.Settings = "9600,N,8,1"MSComm1.PortOpen = True'---------初始化Modem-------------MSComm1.Output = "ATZ"MSComm1.Output = "AT&F"MSComm1.Output = "ATE0"MSComm1.Output = "ATM1"MSComm1.Output = "ATQ0"MSComm1.Output = "ATV0"'--------------------------拨号-------------MSComm1.Output ="ATDT163" '拨163'---------------------------接通后MSComm1.Output ="SDFJDKSJLKFA" '发送字符串'---------------------Private Sub MSComm1_OnComm() '用串口事件捕捉数据..If MSComm1.InBufferCount Then' 通讯埠中假如有资料的话, 则读取进来InStringB = InStringB & MSComm1.Input' 如果资料中有Chr(13) 和Chr(10) 的话, 则显示出来If InStr(InStringB, vbCrLf) Theninstring = instring & InStringBAddText Text3, InStringB, FalseInStringB = ""End IfEnd IfEND SUB'-------------------------挂断--------MSComm1.PortOpen = False '这个挂断方法不能适用所有MODEM,我正在研究...通用办法================================================================================================第二部分:===========================================================================最后借你一篇文章看,作者不是我,里面的不一定都对..'-----------------------------------------------------------VB Mscomm控件应用江苏戚墅堰机车车辆厂设计处(213011) 李秉璋--------------------------------------------------------------------------------Visual Basic 6.0(以下简称VB) 是一种功能强大、简单易学的程序设计语言。

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时，则输出寄存器将被清空。

我的VB串口读写入门首先需要的是在VB中增加一个microsoft comm control 6.0的控件。

步骤就是：工程（project）->部件(components)->点击,出现对话框下拉垂直滑动杆，找到“microsoft comm control 6.0”点击前面的矩形框，确定。

先介绍一下必须熟悉几个属性：CommPort 设置并返回通讯端口号。

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

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

也可以打开和关闭端口。

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

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

然后给大家一个读串口的小例程：Private Sub Form_Load()mPort = 1 '选择com1Mscomm1.Settings = "9600,N,8,1" '设置波特率为9600，没有奇偶校验，8位数据位，1位结束位Mscomm1.InputLen = 0 '读取全部的输入缓冲区If Mscomm1.PortOpen = False Then Mscomm1.PortOpen = True '端口打开Mscomm1.RThreshold = 2Mscomm1.SThreshold = 2End SubPrivate Sub Mscomm1_OnComm() '所有的通讯事件都可以激发MSComm1控件的OnComm 事件Select Case mEventCase comEvReceive'此处的代码可以进行当串口的接受缓冲区里有RThreshold个字符的处理Text4 = Text4 & Mscomm1.InputCase comEvSend'此处的代码可以进行当串口的发送缓冲区里有SThreshold个字符的处理End SelectEnd SubUnload 事件是当窗体从屏幕上删除时发生。

目次：串口数据接收方式如何处理不定长数据的接收用字符方式收发码值大于127的字符数据串口通讯问答2串口数据接收方式1、在OnComm 事件中接收数据：这种方式能充分MSCOMM控件的特性。

OnComm 事件还可以检查和处理通讯错误；可以通过检查CommEvent 属性的值来查询事件和错误；对于不定长数据以及对数据进行处理比较复杂的情况，此法不是很方便。

Private Sub MSComm_OnComm ()Select Case mEvent' 错误Case comEventBreak ' 收到Break。

Case comEventCDTO ' CD (RLSD) 超时。

Case comEventCTSTO ' CTS Timeout。

Case comEventDSRTO ' DSR Timeout。

Case comEventFrame ' Framing ErrorCase comEventOverrun '数据丢失。

Case comEventRxOver'接收缓冲区溢出。

Case comEventRxParity' Parity 错误。

Case comEventTxFull '传输缓冲区已满。

Case comEventDCB '获取DCB] 时意外错误' 事件Case comEvCD ' CD 线状态变化。

Case comEvCTS ' CTS 线状态变化。

Case comEvDSR ' DSR 线状态变化。

Case comEvRing ' Ring Indicator 变化。

Case comEvReceive ' 收到RThreshold # of chars.Case comEvSend ' 传输缓冲区有Sthreshold 个字符'Case comEvEof ' 输入数据流中发现EOF 字符End SelectEnd Sub2.轮循法采集数据:A、定时器轮循法对于数据包方式收发数据以及不需即时响应情况，用轮循法更好些。

如何用VB 实现电脑串口通信无协技术顾问： 陈文斯什么是串口，为何要学习串口串口是计算机上一种非常通用设备通信的协议。

大多数台式计算机包含两个基于RS232的串口（一般用9针公头接出其中一个接口，如图1所示）。

串口同时也是仪器仪表设备通用的通信协议；很多GPIB 兼容的设备也带有RS-232口。

鉴于串口应用如此广泛，大多数单片机也内置了串口。

通过串口，单片机可以很轻松地与其它设备交换信息。

用VB 编写串口通信的好处Windows 操作系统由于其友好的用户界面赢得了很多用户的青睐。

Visual Basic 即是微软公司基于Windows 操作系统的可视化编程平台。

有些同学会疑问：我又不是计算机专业的，学习VB 是不是十分痛苦。

我告诉你们，非也！要是你对它感兴趣，很快，你会爱上它的。

VB 十分容易入门。

设计用户界面就像我们平时制作PPT 的界面一样。

只需把你需要的控件拖到界面上并调整即可。

VB 的代码也很通俗易懂。

其实基本上都是调用系统函数的。

为抛砖引玉，现举个例子，简要介绍一下VB 编写。

（以下的所有例程都是基于VB6.0的，对于较高.net 版本，可能有所不同）任务1：软件界面上有一个文本框和按钮，当点击按钮时，文本框上显示“爱电子，爱生活。

华南理工大学电子爱好者协会”1、 运行VB ，在新建程序的界面上画出一个文本框（textbox ）和按钮（commandbotton ）。

如图2所示；2、 双击按钮，出现代码编辑窗口。

并在其中输入代码，如图3所示；3、 运行程序，点击按钮，即可看到如图4所示的效果：是不是很简单呢？！图2图3图1图4个人建议大一大二的师弟师妹应该学习如何用VB操作串口，特别是学会如何实现电脑跟单片机的通信。

这样子，我们日后设计的电子作品必定增色不少。

现在详细讲解一下如何用VB操作串口。

（读者可去图书馆借阅相关图书，掌握串口跟VB的基础知识）要用VB操作串口，需要用到Mscomm控件。

第七篇串口通讯实例程序（VB版）上一篇文档中简单了解了一下SerialPort控件。

本篇文档将利用这个控件，编写一个简单的串口收发程序。

打开VS2005。

文件| 新建| 项目。

新建一个项目，名称：SerialPortTest。

打开Form1.vb窗口。

在窗口中添加几个控件。

包括4个按钮，两个编辑框，1个状态栏，两个静态文本，简单的调整一下窗体。

如下图：将两个编辑框的Multiline属性设置为True。

然后给窗体添加一个SerialPort控件。

调整一下其属性如下：BaudRate : 9600 DataBits : 8 Parity : None PortName : COM1StopBits : One ReceivedBytesThreshold : 1添加“打开串口”按钮的单击响应函数，如下：——————————————————————————————————Private Sub BTN_COM_OPEN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_COM_OPEN.ClickIf Me.SerialPort1.IsOpen = True ThenMe.StatusBar1.Text = "串口已经连接! COM1,9600,8,1"MsgBox("当前设备已连接", MsgBoxStyle.OkOnly, "提示") ElseMe.SerialPort1.Open()If Me.SerialPort1.IsOpen = True ThenMe.StatusBar1.Text = "打开串口成功!COM1,9600,8,1"ElseMe.StatusBar1.Text = "打开串口失败!"End IfEnd IfEnd Sub ——————————————————————————————————上面这段代码，打开串口，并在状态栏上显示一些提示信息。

利用VB如何进行串口读写在VB中，可以使用SerialPort类来进行串口读写操作。

以下是使用VB进行串口读写的一般步骤：1. 引用System.IO.Ports命名空间：在代码文件的顶部，添加Imports System.IO.Ports命名空间，以便可以使用SerialPort类。

2. 创建SerialPort对象：在代码中创建SerialPort对象，并设置串口的各种属性，如端口名称、波特率、数据位、校验位、停止位等。

例如：```vbDim serialPort As New SerialPortserialPort.PortName = "COM1"serialPort.BaudRate = 9600serialPort.Parity = Parity.NoneserialPort.DataBits = 8serialPort.StopBits = StopBits.One```3. 打开串口：使用serialPort.Open(方法打开串口，并检查串口是否成功打开。

例如：```vbTryserialPort.OpenIf serialPort.IsOpen ThenMessageBox.Show("串口已打开")End IfCatch ex As ExceptionMessageBox.Show("串口打开失败：" & ex.Message)End Try```4. 读取串口数据：使用serialPort.DataReceived事件来处理接收到的数据。

例如：```vbPrivate Sub serialPort_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles serialPort.DataReceived Dim receivedData As String = serialPort.ReadExisting'处理接收到的数据End Sub```5. 写入串口数据：使用serialPort.Write(方法向串口写入数据。

使用 Communications 控件Communications 控件可以用来提供简单的串行端口通讯功能，也可以用来创建功能完备（full-featured）、事件驱动的高级通讯工具。

Communications 控件Communications 控件提供了一系列标准通讯命令的使用界面。

使用它可以建立与串行端口的连接，通过串行端口连接到其它通讯设备（例如调制解调器），发出命令，交换数据，以及监视和响应串行连接中发生的事件和错误。

用途●拨打电话号码。

●监视串行端口的输入数据。

●创建功能完备的终端程序。

示例应用程序：Dialer.vbp 和 VBTerm.vbpDialer.vbp 和 VBTerm.vbp 示例应用程序位于 Visual Basic CD-ROM 的 ProgramFiles\Microsoft Visual Studio\Common\Samples\vb directory 目录中，它们分别演示了 Communications 控件的简单编程技术和复杂编程技术。

串行通讯的基本知识每台计算机都提供了一个或多个串行端口。

它们被依次命名为：COM1、COM2 等等。

在标准的 PC 中，鼠标通常被连接到 COM1 端口。

调制解调器可能连接到 COM2，扫描仪被连接到 COM3，等等。

串行端口提供了计算机与这些外部串行设备之间的数据传输通道。

串行端口的本质功能是作为 CPU 和串行设备间的编码转换器。

当数据从 CPU 经过串行端口发送出去时，字节数据被转换为串行的位。

在接收数据时，串行的位将被转换为字节数据。

要完成数据的传输，还需要进一步一个解释层。

在操作系统一边，Windows 使用了通讯驱动程序 Comm.drv，以便使用标准的 Windows API 函数发送和接收数据。

驱动程序通常由串行设备制造商提供，以便将其硬件与 Windows 连接。

在使用 Communications 控件时，实际上使用了 API 函数，API 函数将被 Comm.drv 解释并传输给设备驱动程序。