简单的VB串口通讯入门

合集下载

VB控件MSComm串口通讯实例教程

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

编写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串口通讯usb通讯,很有用哦

(1)事件
OnComm:通信控件只提供了一个事件，该事件的触发可以对串口的通信事件及错误进行处理。通过对CommEvent 属性的判断可知当前的通信错误和事件，分别对每个CommEvent 值进行编程就完成了对各个错误和事件的处理。如:CommEvent = MSCOMM—EV—SEND 表示发送事件。这些信息可从VB 提供的常量文件CONSTANT. TXT中查出。
完成发送数据后的一系列操作。如:对刚发送的数据进行处理，当串口是和MODEM通信时，发送完数据后可进行拆除线路联接、挂机等操作。
RThreshold :设置并返回不触发OnComm事件时接收缓冲区被允许的最多字符数。当缓冲区的字符多于设置的值时，则触发OnComm 事件，并把CommEvent 设为MSCOMM—EV—RECEIVE，当RThreshold = 0 则禁止接收触发OnComm 事件，当RThreshold = 1 则接收缓冲区有一个或更多字符时就触发OnComm事件。利用这一属性，就可完成对串口接收数据的处理。
comm1. OutBufferSize = 512 ′设置发送缓冲区为512 字节 comm1. InBufferSize = 512 ′设置接收缓冲区为512 字节
comm1. SThreshold = 0 ′禁止发送事件
comm1. RThreshold = 1 ′每一个字符到接收缓冲区都触发接收事件 ′设置COM2
(2)属性
CommPort :设置通信控件与哪个串口相连接，设置并返回通信口号。 Setting :设置通信的信息格式，为字符型。顺序为:波特率、校验、数据位、停止位。
PortOpen :布尔型、开关通信口。
InputLen :从接收缓冲区读取字符个数。

Visual Basic 串口通讯编程

Mid：从第m 个数开始，取 n 个数。例如：s=Mid(s,2,3)即为从 s 的第二个数开始，取三个数放回s。 Asc：返回第一个字符（包括汉字）的Ascii码。 Str：将一个数字变为字符形式 Hex：返回Ascii码的16 进制数 3、错误处理的应用我们在程序中加入这样一条语句：On Error Resume Next。当程序运行出现错误，比如当打开串行口1 时，该串口已被其它程序占用，程序就会出现错误，如果开始时执行过上述语句，程序将跳过错误语句，接着往下执行。同时，VB 置Err 标志有效。利用Err 的值，我们可以判断一些与硬件相关的操作是否正确和有效，以改变程序的进程。四、界面画出界面，控件上的字符是它们的名称。需要提请大家注意的是，串口控件（即那个电话控件）在VB 默认的控件栏中不存在，需要以下述方式添加，在工程菜单->部件->控件选项卡中选中 Microsoft Comm Control 5.0 复选框，其它备用控件的添加也采用相同的方式，希望大家记住，以后将不再重复。当不再需要该控件而

Visual Basic 串口通三、预备知识和技巧 1、串行通讯控件 Mscomm 调入Mscomm 控件:在“项目”菜单中打开“部件”子菜单, 在部件选择对话框中选择 “Microsoft comm Control 5.0”， Mscomm 控件即加入到您的控件箱中. 常用属性:Commport-通讯端口号,如串口1、串口2。Setting-返回或设置串口参数。InputLen-从接收缓冲区读出的字符数。 InBufferSize、OutBufferSize-输入、输出缓冲区尺寸。 InBufferCount-输入缓冲区内的字符数。常用方法：Output、Input-将发送数据发送出去和将接收数据读出。常用事件：OnComm-无论串行口发生什么事，都会触发该事件。 2、字符处理函数 Left：取字符串的左边n 个字符。例如：s=Left(s,2) 即为取s 的左边两个字符再放回 s。 Right：与Left 类似，取字符右边 n 个字符。

VB.Net串口通信用法

串口通信用法串口通信用法对于初次使用的SerialPort 编写串口通信的朋友，这些是很必要的知识，也是编写串口通信程序前的知识准备。

1、使用 SerialPort 设置串口属性进行串口通讯时，需要设置一些相关参数，可以通过设置SerialPort 类的属性来进行。

串口属性主要包括.PortName 串口名称，COM1, COM2等。

.BaudRate 波特率，也就是串口通讯的速度，进行串口通讯的双方其波特率需要相同，如果用PC连接其他非PC系统，一般地，波特率由非PC系统决定。

.Parity 奇偶校验。

可以选取枚举Parity中的值.DataBits 数据位.StopBits 停止位，可以选取枚举StopBits中的值.Handshake 握手方式，也就是数据流控制方式，可以选取枚举Handshake中的值对其中几个关键术语解释：a，波特率：这是一个衡量通信速度的参数。

它表示每秒钟传送的bit的个数。

例如300波特表示每秒钟发送300个bit。

当我们提到时钟周期时，我们就是指波特率例如如果协议需要4800波特率，那么时钟是4800Hz。

这意味着串口通信在数据线上的采样率为4800Hz。

通常电话线的波特率为14400，28800和36600。

波特率可以远远大于这些值，但是波特率和距离成反比。

高波特率常常用于放置的很近的仪器间的通信，典型的例子就是GPIB设备的通信。

b，数据位：这是衡量通信中实际数据位的参数。

当计算机发送一个信息包，实际的数据不会是8位的，标准的值是5、7和8位。

如何设置取决于你想传送的信息。

比如，标准的ASCII码是0～127（7位）。

扩展的ASCII码是0～255（8位）。

如果数据使用简单的文本（标准ASCII码），那么每个数据包使用7位数据。

每个包是指一个字节，包括开始/停止位，数据位和奇偶校验位。

由于实际数据位取决于通信协议的选取，术语“包”指任何通信的情况。

c，停止位：用于表示单个包的最后一位。

VB串口通信(附图教程)

界面如下：代码如下：Private Sub Form_Load()If MSComm1.PortOpen = True Then MSComm1.PortOpen = False ElseEnd IfCombo1.AddItem "COM1"Combo1.AddItem "COM2"Combo1.AddItem "COM3"Combo1.AddItem "COM4"Combo1.AddItem "COM5"Combo1.AddItem "COM6"Combo1.AddItem "COM7"Combo1.AddItem "COM8"Combo1.AddItem "COM9"Combo1.AddItem "COM10" Combo1.AddItem "COM11" Combo1.AddItem "COM12"Combo1.AddItem "COM13"Combo1.AddItem "COM14"Combo1.AddItem "COM15"Combo1.AddItem "COM16"Combo1.ListIndex = 2Combo2.AddItem "256000"Combo2.AddItem "128000"Combo2.AddItem "115200"Combo2.AddItem "57600"Combo2.AddItem "38400"Combo2.AddItem "28800"Combo2.AddItem "19200"Combo2.AddItem "14400"Combo2.AddItem "12800"Combo2.AddItem "11520"Combo2.AddItem "9600"Combo2.AddItem "4800"Combo2.AddItem "2400"Combo2.AddItem "1200"Combo2.AddItem "600"Combo3.AddItem "无None"Combo3.AddItem "奇Odd"Combo3.AddItem "偶Even"Combo4.AddItem "4"Combo4.AddItem "5"Combo4.AddItem "6"Combo4.AddItem "7"Combo4.AddItem "8"Combo5.AddItem "1"Combo5.AddItem "2"mPort = Combo1.ListIndex + 1 MSComm1.Settings = "9600,n,8,1"ComOpen.Caption = "打开串口"Shape1.FillColor = &HFFFFC0End SubPrivate Sub ComOpen_Click()On Error GoTo uerror '发现错误跳转到错误处理If ComOpen.Caption = "关闭串口" ThenMSComm1.PortOpen = FalseComOpen.Caption = "打开串口" '按钮文字改变Shape1.FillColor = &HFFFFC0 '灯颜色改变ElseMSComm1.PortOpen = TrueComOpen.Caption = "关闭串口"Shape1.FillColor = &HFFEnd IfExit Subuerror:msg$ = "无效端口号" '错误显示Title$ = "串口调试助手"X = MsgBox(msg$, 48, Title$) '48标示显示警告图标End SubPrivate Sub MSComm1_OnComm()Dim BytReceived() As ByteDim strBuff As StringDim i As IntegerSelect Case mEvent '事件发生Case 2ClsMSComm1.InputLen = 0 '读入缓冲区全部内容strBuff = MSComm1.Input '读入到缓冲区Label10.Caption = Label10.Caption + Len(strBuff) '接收计数If MSComm1.InputMode = comInputModeBinary ThenBytReceived() = strBuff '如果是二进制接收模式则进行数据处理，否则直接显示字符串For i = 0 To UBound(BytReceived)If Len(Hex(BytReceived(i))) = 1 ThenstrData = strData & "0" & Hex(BytReceived(i)) & " " '如果只有一个字符，则前补0，如F显示0F，最后补空格Else '方便显示观察如：00 0F FEstrData = strData & Hex(BytReceived(i)) & " "End IfNextTextReceive = TextReceive & strDatastrData = ""ElseTextReceive = TextReceive & strBuffEnd IfEnd SelectEnd SubPrivate Sub ComSend1_Click() '手动发送Dim Temp(0) As ByteDim strBuff As StringIf Option1.Value = True Then '如果显示16进制发送则进行16进制处理，这里只发送一个Temp(0) = "&H" & TextSendMSComm1.Output = Temp '发送一个16进制ElsestrBuff = TextSendEnd IfIf MSComm1.PortOpen = False ThenMsgBox "请打开串口"End IfOn Error GoTo uerrorMSComm1.Output = strBuffLabel11.Caption = Label11.Caption + Len(strBuff) '发送计数uerror:End SubPrivate Sub ComSend2_Click()If ComSend2.Caption = "自动发送" ThenComSend2.Caption = "关闭自动发送"Timer1.Interval = TextTime.TextTimer1.Enabled = TrueElseComSend2.Caption = "自动发送"Timer1.Enabled = FalseEnd IfEnd SubPrivate Sub ComClean1_Click()TextSend.Text = "" '清空发送窗口End SubPrivate Sub Option3_Click()MSComm1.InputMode = comInputModeBinary '选择接收方式End SubPrivate Sub Option4_Click()MSComm1.InputMode = comInputModeText '选择接收方式End SubPrivate Sub Timer1_Timer()Call ComSend1_Click '定时调用手动发送End SubPrivate Sub Timer2_Timer()If Combo3 = "无None" ThenMSComm1.Settings = Str(Combo2) + "N" + Str(Combo4) + Str(Combo5) ElseIf Combo3 = "奇Odd" ThenMSComm1.Settings = Str(Combo2) + "O" + Str(Combo4) + Str(Combo5) ElseIf Combo3 = "偶Even" ThenMSComm1.Settings = Str(Combo2) + "E" + Str(Combo4) + Str(Combo5) End IfEnd SubPrivate Sub Combo1_Click()If MSComm1.PortOpen = True Then '如果串口打开先关闭后再进行其他操作MSComm1.PortOpen = FalseEnd IfmPort = Combo1.ListIndex + 1 '读取com口号End SubPrivate Sub ComClean3_Click()Label10.Caption = 0Label11.Caption = 0End SubPrivate Sub ComClean2_Click()TextReceive.Text = "" '接收窗口End Sub功能上：实现了字符串的发送和接收，8位数据的十六进制发送和接收，有端口，波特率等设置。

7 串口通讯实例程序(VB)

第七篇串口通讯实例程序（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串口的基础知识

一个简单接收的程序Dim inputstr As StringPrivate Sub Command1_Click()If MSComm1.PortOpen = False ThenMSComm1.PortOpen = TrueEnd IfEnd SubPrivate Sub Command2_Click()List1.ClearEnd SubPrivate Sub Form_Load()Timer1.Enabled = FalseWith MSComm1.CommPort = 1 ’使用COM2.Settings = "9600,N,8,1" ’设置通信口参数.InBufferSize = 40’设置MSComm1接收缓冲区为40字节.OutBufferSize = 2’设置MSComm1发送缓冲区为2字节’.InputMode = comInputModeBinary’设置接收数据模式为二进制形式.InputLen = 1’设置Input 一次从接收缓冲读取字节数为1.SThreshold = 1’设置Output 一次从发送缓冲读取字节数为1 InBufferCount = 0 ’清除接收缓冲区.OutBufferCount = 0 ’清除发送缓冲区.RThreshold = 1’设置接收一个字节产生OnComm事件If .PortOpen = False Then’判断通信口是否打开.PortOpen = True ’打开通信口If Err Then ’错误处理MsgBox "串口通信无效"Exit SubEnd IfEnd IfEnd WithEnd SubPrivate Sub MSComm1_OnComm()Select Case mEventCase comEvReceiveav = MSComm1.InputText2.Text = Text2.Text & " " & Asc(av)’Timer1.Enabled = TrueIf av >= 0 And av <= 9 Theninputstr = inputstr & avElseText3.Text = Text3.Text & inputstr & "*"Text1.Text = Asc(av)If Len(inputstr) <> 14 Thenresponse = MsgBox("条码格式不正确，取消格式限制请按“是”，否则按“否”，退出程序按“取消”数据长度=" & Len(inputstr) & " " & inputstr, vbY esNoCancel, "条码格式")List1.AddItem (inputstr)inputstr = ""MSComm1.InBufferCount = 0ElseList1.AddItem (inputstr)inputstr = ""MSComm1.InBufferCount = 0End IfEnd IfEnd SelectEnd SubPrivate Sub Timer1_Timer()Dim inputstrTimer1.Enabled = Falseinputstr = MSComm1.InputList1.AddItem (inputstr)End Sub。

vb串口编程实例

VB串口编程实例介绍VB（Visual Basic）是一种基于对象的编程语言，可用于开发Windows应用程序。

串口编程是指通过串行通信接口与外部设备进行数据交互。

本文将介绍如何使用VB进行串口编程，以实现与外部设备的通信。

前提条件在开始编写VB串口程序之前，需要确保以下条件已满足： - 安装了Visual Studio开发环境，可以选择最新版本的Visual Studio Community免费版。

- 确保计算机上有可用的串口（如COM1、COM2等）或USB转串口适配器。

步骤1. 创建新项目打开Visual Studio，选择创建一个新的VB Windows应用程序项目。

2. 添加控件在窗体上添加以下控件： - 一个ListBox控件用于显示接收到的数据。

- 两个Button控件分别用于打开和关闭串口。

- 一个ComboBox控件用于选择串口号。

- 一个TextBox控件用于输入要发送的数据。

- 一个Button控件用于发送数据。

3. 设置串口属性在窗体代码中添加如下代码：Imports System.IO.PortsPublic Class Form1Dim serialPort As New SerialPort()Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Lo ad' 获取可用的串口号并添加到ComboBox中Dim ports As String() = SerialPort.GetPortNames()ComboBox1.Items.AddRange(ports)End SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click' 打开串口TryserialPort.PortName = ComboBox1.SelectedItem.ToString()serialPort.BaudRate = 9600serialPort.Parity = Parity.NoneserialPort.DataBits = 8serialPort.StopBits = StopBits.OneserialPort.Open()Button1.Enabled = FalseButton2.Enabled = TrueCatch ex As ExceptionMessageBox.Show("无法打开串口：" + ex.Message)End TryEnd SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button 2.Click' 关闭串口TryserialPort.Close()Button1.Enabled = TrueButton2.Enabled = FalseCatch ex As ExceptionMessageBox.Show("无法关闭串口：" + ex.Message)End TryEnd SubEnd Class4. 接收数据和发送数据在窗体代码中添加如下代码：Imports System.IO.PortsPublic Class Form1Dim serialPort As New SerialPort()Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Lo ad' 获取可用的串口号并添加到ComboBox中Dim ports As String() = SerialPort.GetPortNames()ComboBox1.Items.AddRange(ports)End SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button 1.Click' 打开串口' 省略部分代码...AddHandler serialPort.DataReceived, AddressOf DataReceivedHandlerserialPort.Open()Button1.Enabled = FalseButton2.Enabled = TrueEnd SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button 2.Click' 关闭串口' 省略部分代码...RemoveHandler serialPort.DataReceived, AddressOf DataReceivedHandler serialPort.Close()Button1.Enabled = TrueButton2.Enabled = FalseEnd SubPrivate Sub DataReceivedHandler(sender As Object, e As SerialDataReceivedE ventArgs)' 接收数据并显示在ListBox中Dim data As String = serialPort.ReadLine()ListBox1.Invoke(Sub() ListBox1.Items.Add(data))End SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button 3.Click' 发送数据If serialPort.IsOpen ThenDim dataToSend As String = TextBox1.TextserialPort.WriteLine(dataToSend)TextBox1.Clear()ElseMessageBox.Show("请先打开串口")End IfEnd SubEnd Class5. 运行程序点击运行按钮，程序将打开一个窗口，其中包含串口选择、打开/关闭串口、接收数据和发送数据的功能。

VB下实现串口通信的方法

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，先进先出）。

用VisualBasic实现串口通信的三种方法

2. 利用通信控件的实例
Sub Form1 —load ()
form1. show ′设置 COM1
comm1. commport = 1
comm1. Setting = " 9600 ,o ,8 ,1" ′波特率 : 9600 奇校验 ,8
位数据 ,1 位停止位
comm1. Inputlen = 0
一、利用通信控件( MSCOMM) 完成串口通信
VB 提供了通信控件 MSCOMM,文件名为 MSCOMM. VBX。该控件可设置串行通信的数据发送和接收 ,对串口状态及串行通信的信息格式和协议进行设置。在通信过程中可以触发 OnComm 事件 ,在该事件过程进行数据检验处理及检错 ,还可以通过编程访问 CommEvent 属性来了解通信的情况 ,进行收发数据的处理。每个通信控件对应一个串口 ,如果要访问多个通信口 ,则要设计多个通信控件。
利用 VB 提供的这些功能 ,我们可以有三种方法完成串口通信。一种是用 VB 提供的具有强大功能的通信控件 ;另一种方法是调用 WINDOWS API 函数 ,使用 WINDOWS 提供的通信函数编写移植性强的应用程序 ;第三是利用文件的输入/ 输出完成 ,该方法简便易行 ,但有一定的局限性。
EofChar As String 3 1
·6 ·
参数 As 类型 ]) As 类型在声明中 :DECLARE 表示声明 DLL 中的函数 ,当声明是
不具有返回值的过程时用 SUB 关键字 ,而如果调用的函数具有返回值 ,则必须用 FUNCTION 关键字将其声明为函数并在声明语句的最后用 AS 指明函数返回值的类型。LIB 关键字表示当前声明的过程或函数是库名所指定的库中函数而非 VB 本身的函数。库名 ,就是对应动态链接库的名称 ,其中通信函数在 USER 库中。ByVal 关键字将原参数数据类型一一对应到 VB 类型中。

VB中串口通讯的实现详解说明

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 实现串口通信
工作任务一 VB 的初步学习
【学习目的】
1.熟悉 Visual Basic 的基本概念。 2.掌握 Visual Basic 常用的语句。
【技能目标】
能初步使用 Visual Basic。
【相关知识】
知识一.Visual Basic
Visual Basic（简称 VB）是微软公司推出的一种可视化的、面向对象的结构化高级程序设计语言，是当今世界上应用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程语言。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB 都是最快速、最简便的语言。它简单易学、容易掌握，软件界面设计非常便捷，编程工作量较小，开发周期短，特别适合非计算机专业的工程技术人员掌握和使用。
2
计算机测控系统安装与调试
Else If <语句> Else <语句> End If
4.选择语句用了过多的 Else 后你会感到很不方便，而且程序结构也不清晰，所以 VB 中还有选择语句帮助解决这个问题。 VB 中的选择语句的格式是这样的： Select Case <变量名> Case <情况 1> <语句> Case <情况 2> <语句> …… Case <情况 n> <语句> Case Else <语句> End Select 其中：<变量名>可以是数值型或字符串型，而每个 Case 指定的<情况>的数据类型必须与<变量名>的类型一致。 5.循环语句循环结构是计算机语言里一种重要的结构，它的应用广泛，最简单的例子是累加器的作用，更直观的例子是把某件事重复指定次数，这样就不用把要重复的语句输入多次，而通过循环结构完成，非常方便。循环是指在指定的条件下多次重复执行一组语句。被重复执行的一组语句称为循环体。VB 提供了 4 种结构形式的循环语句：（1）For ... Next 语句 C 语言里有一个“for”循环语句，VB 里也有“For”关键字，作用也差不多，只是 VB 的“For”语句更容易理解。它的格式是： For <循环变量>=<初赋值> To <终值> [Step <步长>] 循环体 [Exit For] Next <循环变量> <循环变量>必须为数值型。默认时，<步长>值为 1，<初赋值>小于<终值>。当开始执行 For 语句时，首先将<循环变量>初始化为<初赋值>，程序每循环一次，<循环变量>增 1，直到<循环变量>到达<终值>时为止。注意：在默认情况下，Step 被设为“1”，可以省略，Step 也可以设为负值，例如： Dim a=0 For I=1 To 10 a=a+I Next I 这是一个最简单的累加器的例子，把 1 到 10 累加在一起，然后赋值给“a”。下面的效

使用VB开发串口USB通信软件

使用VB开发串口USB通信软件串口和USB通信软件是一种用于在计算机和外部设备之间进行数据传输的工具。

VB语言是一种适用于Windows平台的编程语言，可以使用VB 开发串口、USB通信软件。

串口通信是一种常见的数据传输方式，它通过计算机的串口（串行通信口）与外部设备进行连接。

在VB中，可以使用SerialPort类来实现串口通信。

下面是一个使用VB编写的串口通信软件的示例代码：```vbImports System.IO.PortsPrivate WithEvents SerialPort As New SerialPortPublic Sub New'设置串口参数SerialPort.PortName = "COM1"SerialPort.BaudRate = 9600SerialPort.Parity = Parity.NoneSerialPort.DataBits = 8SerialPort.StopBits = StopBits.OneEnd SubPublic Sub Open'打开串口SerialPort.OpenEnd SubPublic Sub Close'关闭串口SerialPort.CloseEnd SubPublic Sub WriteData(ByVal data As String)'向串口写入数据SerialPort.WriteLine(data)End SubPrivate Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs) HandlesSerialPort.DataReceived'串口接收到数据时触发的事件Dim data As String = SerialPort.ReadLine'处理接收到的数据Console.WriteLine("Received data: " & data)End SubEnd Class```USB通信是另一种常用的数据传输方式，它通过计算机的USB接口与外部设备进行连接。

visualbasic串口通信及编程实例

visualbasic串口通信及编程实例Visual Basic串口通信及编程实例在实际的工业控制、机器人控制、智能家居等领域中，使用串口通信是一种非常广泛的方式。

Visual Basic (VB) 是一种微软公司开发的高级编程语言，它不仅易于学习，而且拥有丰富的图形界面设计和数据处理功能。

在本篇文章中，我们将深入介绍如何使用VB实现串口通信。

1. 建立串口通信首先，我们需要在VB中创建一个新的窗口(Form)，然后打开工具箱，从中拖拽出一个SerialPort(串口)控件。

在控件属性中，我们需要为其指定相关的参数，例如串口名称、波特率、数据位、停止位、校验位等。

通常情况下，这些参数需要根据硬件设备的配置来进行调整。

在VB中实现串口通信的核心部分是对于SerialPort控件的事件监控。

具体来讲，当SerialPort收到一个数据包时，它会触发一个DataReceived事件。

对于这个事件，我们可以在程序中编写回调函数进行处理。

例如：Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e AsSystem.IO.Ports.SerialDataReceivedEventArgs) HandlesSerialPort1.DataReceived'在这里实现对于数据包的解析和处理End Sub2. 数据读取和发送在SerialPort控件中，有几种方法可以实现数据的读取和发送。

下面我们将介绍其中两种方法：(1) ReadExisting这个方法可以从串口中读取所有现有的数据，例如：Dim data As String = SerialPort1.ReadExisting()(2) Write这个方法可以向串口发送数据，例如：SerialPort1.Write("Hello World")注意，这个函数只能发送字符串数据。

VB中串口通讯的实现详解说明

VB中串口通讯的实现详解说明在VB中实现串口通讯可以分为以下几个步骤：1.引用串口通讯相关的命名空间首先在项目中引用System.IO.Ports命名空间，该命名空间包含了实现串口通讯所需的类和方法。

2.创建串口对象使用SerialPort类创建一个串口实例，可以指定串口的名称、波特率、数据位、停止位、校验位等参数。

```vbDim serialPort As New SerialPortserialPort.PortName = "COM1"serialPort.BaudRate = 9600serialPort.DataBits = 8serialPort.StopBits = StopBits.OneserialPort.Parity = Parity.None```3.打开串口使用Open方法打开串口，可以在Open之前先判断串口是否已经打开。

```vbIf serialPort.IsOpen Then'串口已经打开ElseserialPort.OpenEnd If```4.串口数据接收通过事件处理函数来处理串口接收到的数据。

可以使用DataReceived事件来处理数据接收，当串口接收到数据时会触发该事件。

```vbPrivate Sub SerialPort_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles serialPort.DataReceived Dim data As String = serialPort.ReadExisting'处理接收到的数据End Sub```5.串口数据发送通过串口的Write方法来发送数据。

```vbserialPort.Write("Hello World")```需要注意的是，串口通讯是一种异步操作，发送和接收数据都需要一定的时间，因此在程序中需要合理处理串口的状态。

VB串口通讯

1.VB编译坏境的安装与启动、熟悉；2.建立新的工程文件、并使用工具箱设计目标界面；3.使用LINE函数编写绘图功能的代码；4.使用TIMER和LINE功能实现动画设计；5.MSCOMM串口控件的初始化和编程，两台机器互连并通讯；6.利用VB编程得到的界面实现驱动器参数调试；7.利用VB编程得到的模拟示波器显示驱动器当前参数曲线；8.熟悉VB的代码调试，并完成驱动器参数调试和参数显示的功能。

最后一次课后每人交一份实验报告。

串口断口初始化Private Sub PortInitial() '中断形式的232口设置，没接受80个字符产生一次中断'On Error GoTo FinishSubWith Form9mPort = PortNumber.MSComm1.Settings = PortSet '设置通信口参数.MSComm1.InBufferSize = 1024 * 30 '设置MSComm1接收缓冲区为20K字节.MSComm1.OutBufferSize = 1024 '设置MSComm1发送缓冲区为1K字节.MSComm1.InputMode = comInputModeBinary '设置接收数据模式为二进制形式.MSComm1.InputLen = PutByte '设置Input 一次从接收缓冲读取字节数为50 .MSComm1.InBufferCount = 0 '清除接收缓冲区.MSComm1.OutBufferCount = 0 '清除发送缓冲区.MSComm1.RThreshold = ReceByte '设置接收一个字节产生OnComm事件.MSComm1.PortOpen = TrueEnd With'FinishSub:' MsgBox "请确认串行端口是否正常连接？", vbInformation, "串行端口连接问题" End Sub中断方式接收串口过来的数据并进行显示：在Private Sub MSComm1_OnComm()过程里通过232发送数据（非中断）是在Private Sub ModbusSendData(ByVal WorR As Boolean, ByVal Longth As Byte) 里Private Sub ModbusSendData(ByVal WorR As Boolean, ByVal Longth As Byte) '根据modbus协议发送数据程序Longth代表加上CRC总共长度从1 开始Dim sendbuffer() As Byte '发送缓冲区Dim ArrayModbusCheck() As Byte 'CRC校验数组Dim i As ByteDim j As ByteReDim sendbuffer(0)'设备号码ModbusSendBuffer(0) = 1 'DeviceNum'功能号码读写If WorR = True ThenModbusSendBuffer(FunctionBy) = WriteFunctionElseModbusSendBuffer(FunctionBy) = ReadFunctionEnd If'进行CRC校验'校验前赋值给函数形参数组长度下标从0----Longth-3ReDim ArrayModbusCheck(Longth - 3)j = 0For i = 0 To Longth - 3 Step 1ArrayModbusCheck(j) = ModbusSendBuffer(i)j = j + 1Next iCall CRC16(ArrayModbusCheck())ModbusSendBuffer(Longth - 2) = CRCHiCheckModbusSendBuffer(Longth - 1) = CRCLoCheck'以下是发送程序延迟1毫秒For i = 0 To Longth - 1 Step 1sendbuffer(0) = ModbusSendBuffer(i)MSComm1.Output = sendbufferDoDoEventsLoop Until MSComm1.OutBufferCount = 0delay (0.001)Next iEnd SubPrivate Sub CRC16(ByRef data() As Byte)Dim CRC16Lo As Byte, CRC16Hi As Byte 'CRC寄存器Dim CL As Byte, CH As Byte '多项式码&HA001Dim CRCLo As String, CRCHi As StringDim SaveHi As Byte, SaveLo As ByteDim i As IntegerDim Flag As IntegerCRC16Lo = &HFFCRC16Hi = &HFFCL = &H1CH = &HA0For i = 0 To UBound(data)CRC16Lo = CRC16Lo Xor data(i) '每一个数据与CRC寄存器进行异或For Flag = 0 To 7SaveHi = CRC16HiSaveLo = CRC16LoCRC16Hi = CRC16Hi \ 2 '高位右移一位CRC16Lo = CRC16Lo \ 2 '低位右移一位If ((SaveHi And &H1) = &H1) Then '如果高位字节最后一位为1CRC16Lo = CRC16Lo Or &H80 '则低位字节右移后前面补1End If '否则自动补0If ((SaveLo And &H1) = &H1) Then '如果LSB为1，则与多项式码进行异或CRC16Hi = CRC16Hi Xor CHCRC16Lo = CRC16Lo Xor CLEnd IfNext FlagNext iCRCHiCheck = CRC16LoCRCLoCheck = CRC16HiEnd SubPrivate Sub PortInitial() '中断形式的232口设置，没接受80个字符产生一次中断'On Error GoTo FinishSubWith Form9mPort = PortNumber.MSComm1.Settings = PortSet '设置通信口参数.MSComm1.InBufferSize = 1024 * 30 '设置MSComm1接收缓冲区为20K字节.MSComm1.OutBufferSize = 1024 '设置MSComm1发送缓冲区为1K字节.MSComm1.InputMode = comInputModeBinary '设置接收数据模式为二进制形式.MSComm1.InputLen = PutByte '设置Input 一次从接收缓冲读取字节数为50 .MSComm1.InBufferCount = 0 '清除接收缓冲区.MSComm1.OutBufferCount = 0 '清除发送缓冲区.MSComm1.RThreshold = ReceByte '设置接收一个字节产生OnComm事件.MSComm1.PortOpen = TrueEnd With'FinishSub:' MsgBox "请确认串行端口是否正常连接？", vbInformation, "串行端口连接问题" End SubPrivate Sub MSComm1_OnComm()Dim buffer() As ByteDim num As ByteDim sum As Single '临时数据累加变量Dim h As Byte '临时数据累加变量Dim k As Byte '临时数据累加变量Dim i As Integer '临时数据累加变量Dim j As Integer '接受位置数据个数统计,上限32767Dim TempPos As Single '速度计算临时寄存器Dim nResult As IntegerDim numbertest As LongDim ModbusBuffer() As ByteDim StartPointNum As IntegerDim LoopSign As BooleanDim nowtime As DoubleDim TempVelocity1 As SingleDim TempVelocity2 As SingleDim VelocityStartPoint As Integer '计算速度数据开始点Dim n As IntegerDim NextTimePoint As SingleDim Adjust(1 To 2) As ByteDim Reverse As ByteDim HistoryV As SingleRefreshShapeTimes = RefreshShapeTimes - 1Select Case RefreshShapeTimesCase 1 To 5Shape3.Visible = TrueCase 6 To 10Shape3.Visible = FalseCase 0RefreshShapeTimes = 10End SelectSelect Case mEventCase comEvReceiveIf ModbusSign = False Then '非modbus数据MSComm1.RThreshold = 0j = 1 'j下标从1开始For num = 1 To 10 Step 1 '缓冲区中数据字节型数据变为位置编码器绝对值MSComm1.InputLen = 1buffer = MSComm1.InputIf buffer(0) = &HFD Or buffer(0) = &HFB Thenbuffer = MSComm1.InputIf buffer(0) = &HFD Or buffer(0) = &HFB ThenReverse = buffer(0)MSComm1.InputLen = 2buffer = MSComm1.Input '1PointP(j) = buffer(1)PointP(j) = PointP(j) * 256 + buffer(0)NowEncoderValue = PointP(j)If PointP(j) > Motor_Encoder_Num ThenMSComm1.RThreshold = ReceByteGoTo FinishSubEnd Ifbuffer = MSComm1.Input '2PointPRef(j) = buffer(1)PointPRef(j) = PointPRef(j) * 256 + buffer(0)buffer = MSComm1.Input '3PointI(j) = buffer(1)PointI(j) = PointI(j) * 256 + buffer(0)j = j + 1 'PointP()下标从1到PutByte/2 ElseMSComm1.RThreshold = ReceByteGoTo FinishSubEnd IfElse 'buffer(0)<>&HFD MSComm1.RThreshold = ReceByteGoTo FinishSubEnd If 'buffer(0)=&HFDNext numElse 'modbus形式接收'不做任何事情放数据过去GoTo FinishSubEnd IfCase ElseEnd Selectj = j - 1 'j多加一次If j < 1 Then GoTo FinishSub '为发送激发响应本次响应结束h = 1sum = 0'接受缓冲区中电机位置数据个数为j'以下程序为画图接受数据处理程序For i = 1 To j Step 1'依次对缓冲区中的数据进行判断位置'PointP(j)为编码器反馈的原始数据（没加圈数）PointP(i) = PointP(i) + rmin '反馈位置数据加上历史记载圈数'If PointP(i) - Historyp < -1 * 0.8 * Motor_Encoder_Num Then '判断是否正转加一圈位置数据'rmin = rmin + Motor_Encoder_Num'PointP(i) = PointP(i) + Motor_Encoder_Num + 1'ElseIf PointP(i) - Historyp > Motor_Encoder_Num * 0.8 Then '判断是否反转减一圈位置数据'rmin = rmin - Motor_Encoder_Num'PointP(i) = PointP(i) - Motor_Encoder_Num - 1'End IfIf Reverse = &HFD And PointP(i) - Historyp < -1 * 0.2 * Motor_Encoder_Num Then '正转rmin = rmin + Motor_Encoder_NumPointP(i) = PointP(i) + Motor_Encoder_Num + 1ElseIf Reverse = &HFB And PointP(i) - Historyp > Motor_Encoder_Num * 0.2 Thenrmin = rmin - Motor_Encoder_NumPointP(i) = PointP(i) - Motor_Encoder_Num- 1End If'电流实际位置位置偏差赋值PointDataP(ArrowPoint) = PointP(i) - Initial_Position'判断电流是否正数If PointI(i) > 16384 ThenPointDataI(ArrowPoint) = PointI(i) - 65536ElsePointDataI(ArrowPoint) = PointI(i)End If'判断位置偏差是否为负数0-65535 正转正值反转负值'If PointPRef(i) - HistoryPref > 32767 Then PointPRef(i) = HistoryPrefIf Reverse = &HFD ThenIf PointPRef(i) <= 32767 ThenPointDataPRef(ArrowPoint) = PointPRef(i)ElsePointDataPRef(ArrowPoint) = PointPRef(i) - 65536End If'PointDataPRef(ArrowPoint) = -PointDataPRef(ArrowPoint)ElseIf PointPRef(i) <= 32767 ThenPointDataPRef(ArrowPoint) = PointPRef(i)ElsePointDataPRef(ArrowPoint) = PointPRef(i) - 65536End If'PointDataPRef(ArrowPoint) = -PointDataPRef(ArrowPoint)End If'HistoryPref = PointDataPRef(ArrowPoint)PointV(i) = (PointP(i) - Historyp) * Drawing_ConstIf Abs(PointV(i) - HistoryV) > 3600 Then PointV(i) = HistoryV '前后两次采样速度变化过大滤波PointDataV(ArrowPoint) = PointV(i)HistoryV = PointV(i)'*****************保存位置历史数据为判断电机转过整数圈数准备********************Historyp = PointP(i)ArrowPoint = ArrowPoint + 1 '指针移动加一后面多加一If ArrowPoint > DrawMemory ThenArrowPoint = 1 '越界从1开始PointDataP(0) = PointDataP(DrawMemory) '方便以后画图PointDataV(0) = PointDataV(DrawMemory)PointDataPRef(0) = PointDataPRef(DrawMemory)PointDataI(0) = PointDataI(DrawMemory)End IfNext i'画图程序'触发条件时间If FirstReceive = True ThenHistoryTime = TimerFirstReceive = FalseEnd IfIf (Timer - HistoryTime > RefreshTime) And (StopSign = False) Then '判断是否该显示Shape1.RefreshDrawWidth = 2axisT = 2715'定起始数组坐标TraceTime = count_limitIf ArrowPoint - TraceTime < 0 ThenStartPointNum = DrawMemory - Abs(TraceTime - ArrowPoint) - 1ElseStartPointNum = ArrowPoint - 1 - TraceTimeEnd IfHistoryTime = TimerEnd If '显示条件Text1.Text = Str(Fix(PointDataV(ArrowPoint - 1))) '转速Text5.Text = Str(PointDataP(ArrowPoint - 1)) '脉冲数MSComm1.RThreshold = ReceByteFinishSub:Exit SubEnd Sub。

VB串口通讯详解

一、VB串行通信利用VB开发通信程序主要的方法有两种:一是利用VB本身提供的控件(CONTRALS);另一种方法是利用Windows API应用程序接口。

Windows API 主要提供了三个动态连接库(KERNEL.EX E、USER.EX E、GDI.EX E)供开发人员调用,其中KERNEL.EX E 主要包括一些底层操作函数,完成一些资源管理、任务、内存等操作;USER.EX E包含了一些与Windows管理有关的函数,如通信、菜单、消息、光标、插入符、计时器以及绝大多数非显示函数;GDI.EX E图形设备接口库,主要内容为与设备输出有关的函数。

和串口通信有关系的函数BuilidCommDCB、ClearCommBreak、SetCommBreak、FlushComm、GetCommError、GetCommState、WriteComm、ReadComm、SetCommState、CloseComm等均在\Windows\system 子目录下的USER.EX E动态连接库中,在VB调用之前应该先在全局变量定义处声明API通信函数、定义常量。

在VB的控件工具箱中,提供了一个使用非常方便的串行通信控件MSComm,它提供了一个事件OnComm,该事件可以截取串口的任何消息,转入事件处理程序。

OnComm事件是唯一的,OnComm可以捕获通信时发生的串口事件和错误信息,当有串口事件或错误发生时,VB会立刻触发一个OnComm 事件,程序就会自动转入OnComm事件处理程序中。

CommEvent属性是OnComm事件的指示器,该属性在设计时不能使用,在程序运行时为只读,CommEvent 属性存有最近的事件或错误的数值代码,可以在程序中随时读取CommEvent 属性值来了解通信的状况,OnComm事件是和CommEvent属性密切相关、一起使用,当任何一个OnComm 事件或错误发生时,都会使得CommEvent属性值改变,在OnComm事件处理过程中,可以通过判断CommEvent属性值,对于不同的属性值转入不同的事件处理过程,一般采用的办法是SELECT CASE.......END SELECT。