VB串口通信程序设计典型实例
VB串口通信程序设计典型实例
第6章V B串口通信程序设计典型实例利用VB开发串口通信程序既可以使用MSComm控件也可以调用Windows API函数实现。
不过，只要MSComm控件可以被选用，我们推荐选择此控件实现，因为MSComm控件的功能和API调用一样强，甚至比它还好且使用起来更加简单。
在本章提供的串口通信程序设计中，除了PC与PC串口通信外，PC与单片机、PC与智能仪表、PC与PLC、PC与GSM短信模块等串口通信任务的实现均采用MSComm控件。
6.1 PC与PC串口通信程序设计当两台串口设备通信距离较近时，可以直接连接，最简单的情况，在通信中只需3根线（发送线、接收线、信号地线）便可实现全双工异步串行通信。
本设计通过两台PC串口3线连接，介绍了利用API函数和MSComm控件设计串口通信程序的方法，包括字符与文件的发送与接收。
6.1.1 PC与PC串口通信程序设计目的（1）掌握PC与PC串口通信的线路连接方法。
（2）利用MSComm控件和API函数实现PC与PC串口通信的程序设计方法。
6.1.2 PC与PC串口通信程序设计用软、硬件本设计用到的硬件和软件清单如表6-1所示。
表6-1设计用软、硬件序号名称数量1 PC或IPC 22 串口通信线（三线制） 13 Visual Basic 6.0 16.1.3 PC与PC串口通信程序硬件线路图线路说明，在计算机通电前，按图6-1所示将两台PC通过串口线连接起来：计算机A 串口COM1端口的TXD与计算机B串口COM1端口的RXD相连，计算机A串口COM1端口的RXD与计算机B串口COM1端口的TXD相连，计算机A串口COM1端口的GND与计算机B串口COM1端口的GND相连。
第6章VB串口通信程序设计典型实例图6-1 PC与PC串口通信线路6.1.4 设计任务利用MSComm控件和VB API函数编写程序实现PC与PC串口通信。
任务要求，两台计算机互发字符并自动接收，如一台计算机输入字符串“Please return abc123”，单击“发送字符”命令，另一台计算机若收到，就输入字符串“abc123”，单击“发送字符”命令，信息返回到第一组的计算机。
使用VB中的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。
VB中串口通讯的实现
VB中串口通讯的实现在VB中实现串口通讯需要借助于SerialPort类，该类提供了一系列方法和属性用于串口的配置和通讯操作。
接下来，定义一个SerialPort对象和一个字节数组，用于接收和发送数据。
在窗体加载事件中初始化SerialPort对象，并设置串口的一些属性，如波特率、数据位、校验位等，根据实际需求进行配置。
还可以设置数据接收和发送的事件处理函数。
例如，下面的代码演示了如何配置串口：```vbImports System.IO.PortsPublic Class Form1Dim serialPort As New SerialPortDim receiveBuffer(255) As BytePrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load'配置串口属性serialPort.PortName = "COM1"serialPort.BaudRate = 9600serialPort.DataBits = 8serialPort.Parity = Parity.NoneserialPort.StopBits = StopBits.One'数据接收事件处理函数AddHandler serialPort.DataReceived, AddressOfSerialPort_DataReceived'打开串口serialPort.OpenEnd SubPrivate Sub SerialPort_DataReceived(sender As Object, e As SerialDataReceivedEventArgs)'接收数据Dim bytesToRead As Integer = serialPort.BytesToReadDim bytesRead As Integer = serialPort.Read(receiveBuffer, 0, bytesToRead)'处理接收到的数据If bytesRead > 0 ThenDim receivedData As String =Encoding.ASCII.GetString(receiveBuffer, 0, bytesRead) '显示接收到的数据UpdateReceivedData(receivedData)End IfEnd SubPrivate Sub btnSend_Click(sender As Object, e As EventArgs) Handles btnSend.Click'发送数据Dim sendData As String = txtSendData.TextDim sendBuffer As Byte( = Encoding.ASCII.GetBytes(sendData) serialPort.Write(sendBuffer, 0, sendBuffer.Length)'清空发送框txtSendData.Text = ""End SubPrivate Sub UpdateReceivedData(data As String)'更新接收数据的显示If Me.InvokeRequired Then ' 跨线程调用控件Me.Invoke(Sub( UpdateReceivedData(data))ElselblReceivedData.Text = dataEnd IfEnd SubEnd Class```在上述代码中，我们主要关注Form1_Load事件处理函数和btnSend_Click事件处理函数。
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位数据的十六进制发送和接收，有端口，波特率等设置。
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类型数变量中。
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”，单击“发送字符”命令，信息返回到第一组的计算机。
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平台下的实现摘要：本文首先介绍串行通讯的基础知识，然后结合示例剖析在VB平台下的串口通讯的编程技巧。
随着计算机系统的普及与外围设备技术的发展，计算机与外围设备之间的通讯就显得越来越重要了。
由于串行通信是在一根传输线上一位一位的传送信息，所用的传输线少，并且可以借助现成的电话网进行信息传送，因此，特别适合于远距离传输。
对于那些与计算机相距不远的人－机交换设备和串行存储的外部设备如终端、打印机、逻辑分析仪、磁盘等，采用串行方式交换数据也很普遍。
在实时控制和管理方面，采用多台微机处理机组成分级分布控制系统中，各CPU之间的通信一般都是串行方式。
所以串行接口是微机应用系统常用的接口，而相应的应用程序也成为今年来研究的热点。
本文旨在阐述一般的穿口通讯的原理及其程序设计，希望借此能够抛砖引玉，为更深入的研究打下一定的基础。
一、串行通讯的基本原理所谓"串行通信"是指外设和计算机间使用一根数据信号线,数据在一根数据信号线上按位进行传输，每一位数据都占据一个固定的时间长度。
这种通信方式使用的数据线少，在远距离通信中可以节约通信成本，当然，其传输速度比并行传输慢。
相比之下，由于高速率的要求，处于计算机内部的CPU与串口之间的通讯仍然采用并行的通讯方式，所以串行口的本质就是实现CPU与外围数据设备的数据格式转换（或者称为串并转换器），即当数据从外围设备输入计算机时，数据格式由位(bit)转化为字节数据；反之，当计算机发送下行数据到外围设备时，串口又将字节数据转化为位数据。
二、串口通讯的程序设计原理前面介绍了串行通讯的基本原理，那么如何在程序设计中实现它呢？事实上，这个过程并不复杂，一般有两种实现途径：其一就是使用MSCOMM控件，此控件提供很多方便操作的属性和方法，利用它们可以很方便地实现你的目的；另外一种途径就是使用Windows API，微软为开发者提供了很多相关的串行操作的编程接口，使用这些接口，可以很完成更为强大的功能。
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串口通讯实例作者：liwenzhao高精度电压表(24bit) VB源程序Dim PortValue As Integer '端口号选择1-4Dim value As Double '当前一次取值Dim value2 As Double '要显示的值Dim valueSum As Double '和Dim numCount As Double '算平均值是的计数个数Dim func As Integer '功能号标志1-4Dim valueFlag As IntegerPrivate Sub Check1_Click()'自动刷新被选中则刷新按钮无效If Check1.value ThenCommand1.Enabled = FalseElseCommand1.Enabled = TrueCommand1.SetFocusEnd IfEnd SubPrivate Sub Command1_Click()'显示Call displayEnd SubPrivate Sub Command2_Click()valueSum = 0 '清计数和numCount = 1 '清计数个数Label6.Caption = Str(numCount - 1) '显示复位value = 0value2 = 0valueFlag = 0Call displayEnd SubPrivate Sub Form_Activate()numCount = 1value = 0valueSum = 0PortValue = 1Text1.Visible = FalseLabel6.Caption = "0"Option1(0).value = TrueOption2(0).value = TrueCommand1.SetFocusLabel1.Caption = Format(value2, "0.000,000") For i = 0 To 3If Option2(i).value = True Thenfunc = i + 1End IfNext iCheck1.value = 1'Call ComPortOpenEnd SubPublic Sub ComPortOpen() '开串口With MSComm1.CommPort = PortValue '使用COM1.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 '清除发送缓冲区'MaxW = -99'最大值赋初值'MinW = 99 '最小值赋初值'w = 0'数据个数计数器清零.RThreshold = 1On Error Resume Next'设置接收一个字节产生OnComm事件If .PortOpen = False Then'判断通信口是否打开.PortOpen = True '打开通信口If Err Then '错误处理msg = MsgBox(" 串口COM" & PortValue & " 无效！", vbOKOnly, "警告")Exit SubEnd IfEnd IfEnd With'MsgBox "端口已打开"End SubPublic Sub ComPortClose() '关串口MSComm1.PortOpen = False' MsgBox "端口已关闭"End SubPrivate Sub MSComm1_OnComm()Call reciveEnd SubPrivate Sub Option1_Click(Index As Integer)If MSComm1.PortOpen = True ThenCall ComPortCloseEnd IfPortValue = Index + 1Call ComPortOpenEnd SubPrivate Sub recive() '检测起始位并接收数据Dim Buffer As VariantDim Arr() As ByteDim inData(5) As ByteDim count As IntegerDim temp As Byte' MsgBox "OnComm"With MSComm1Select Case .CommEvent'判断MSComm1通信事件Case comEvReceive'收到Rthreshold个字节产生的接收事件Buffer = .InputArr = Buffer'读取一个接收字节' Text1.Text = Arr(0)If Arr(0) = &H1B Then.RThreshold = 0DoDoEventsLoop Until .InBufferCount >= 4For i = 1 To 4'count = .InBufferCountBuffer = .InputArr = BufferinData(i) = Arr(0)Next iIf inData(4) = &HA ThenIf (inData(1) Mod 64) >= 32 Then.RThreshold = 1Exit SubEnd IfvalueFlag = 1'0.000003814697265625temp = inData(1) Mod 16If temp <= 7 Thenvalue = inData(1) Mod 8value = value * 256 * 256value = value + Val(inData(2)) * 256 value = value + Val(inData(3))value = value * 3.814697265625E-06'Text1.Text = Format(value, "0.000,000") Elsevalue = inData(1) Mod 8value = value * 256 * 256value = value + Val(inData(2)) * 256 value = value + Val(inData(3))value = value * 3.814697265625E-06 value = 0 - valueEnd Iftemp = inData(1) Mod 128' test OFIf temp >= 64 ThenIf value < 0 Thenvalue = value - 0.000004Elsevalue = value + 0.000004End IfEnd If'检测自动刷新If Check1.value Then'valueFlag = 1Call displayEnd IfElse.RThreshold = 1Exit SubEnd If.InBufferCount = 0.RThreshold = 1End IfCase ElseEnd SelectEnd With'Text1.Text = Text1.Text + 1End SubPrivate Sub Option2_Click(Index As Integer) func = Index + 1End SubPublic Sub display() '判断功能并显示'功能选择Select Case funcCase 1 '当前值value2 = valueCase 2 '平均值If numCount > 100000 ThennumCount = 1valueSum = 0End IfIf valueFlag = 1 ThenvalueSum = valueSum + valuevalue2 = valueSum / numCountnumCount = numCount + 1valueFlag = 0Label6.Caption = Str(numCount - 1)End IfCase 3 '最大值If value > value2 Thenvalue2 = valueEnd IfCase 4 '最小值If value < value2 Thenvalue2 = valueEnd IfCase ElseEnd Select'Text1.Text = Str(valueSum)Label1.Caption = Format(value2, "0.000,000")End SubPrivate Sub Timer1_Timer()'清缓冲区' Text1.Text = MSComm1.InBufferCount If MSComm1.InBufferCount >= 80 ThenMSComm1.InBufferCount = 0End IfEnd Sub。
VB实现串口通信,计算机网络实验
工业计算机网络实验报告实验4：计算机网络实验——VB实现串口通信一、实验目的：（1）熟悉和掌握串口通信的基本概念；（2）进一步熟悉RS-232C串口通信标准；（3）熟悉和掌握串行通信控件MSComm及其应用。
二、实验任务：（1）学会使用虚拟串行驱动程序(VSPD)虚拟串口。
（2）.学会使用串口调试助手。
（3）使用VB做一个串口通信程序，要求能实现数据的收发。
三、编程实现：代码：Option ExplicitDim FS As IntegerPrivate Sub cmdExit_Click()Comm1.PortOpen = FalseEndEnd SubPrivate Sub cmdReceive_Click()txtReceive = Comm1.InputEnd SubPrivate Sub cmdSend_Click()Comm1.Output = txtSend.TextEnd SubPrivate Sub Comm1_OnComm() 'Label4.Caption = Comm1.Input End SubPrivate Sub Form_Load() Comm1.PortOpen = TrueEnd SubPrivate Sub txtReceive_Change() 'Comm1.OutputEnd Sub运行安装VPSD：用VPSD创建虚拟的端口：创建端口3,4运行两个例程，端口号分别设置为3,4：端口号3：端口号4的例程接受消息：端口号4的例程发送消息：端口为3的例程读取消息：四：实验总结通过本次试验，发现了自己在动手能力和自学能力方面的不足，我也进一步发现了自己在动手能力和自学能力方面的不足，然对本实验所涉及到的东西也算是有了不少兴趣，感觉越来越有意思然对本实验所涉及到的东西也算是有了不少兴趣，同时也对rs232串口的发送和接收信息有了进一步的了解，串口的发送和接收信息有了进一步的了解。
利用VB实现计算机串口通信实例
+,,+-.,
实践与经验
的是 (’ 对 !3<65 的串口通信方式，即通过采用 标准贺氏指令， 我们可以远程呼叫其他以拨号方式 上网的普通 (’ ， 从而具有相当的实用价值。
?
图 . (’ 与 (’ 间通信程序界面
(’ 与单片机间通信实例
在工业测控领域， 我们常采用 (’ 对单片机的
通信方式。通常以 (’ 机作为上位机发送指令到单 片机， 由单片机来完成现场数据采集、 电路控制等 工作， 然后数据返回 (’ 机进行高级处理。由于普 通 的 %=+?+ 串 口 方 式 数 据 传 送 距 离 短 （ .T 米 左 右） ， 如果经转换电路转换成 %=ULT 等其他串行方 式， 则传输距离可达 .,,, 米左右， 从而更加实用。 本例中， (’ 机上运行界面如图 + 所示的程序， 在发送数据栏中输入一个“ 之间的整数， 并 ,V+TT” 点击“ 发送” 按钮， 单片机将接收到这个数据并显示 该数据， 然后作除 + 处理， 结果再经串口返回到 (’ 机端。例如， 当发送数据 +UU 时， 单片机电路中数 码管上显示 +UU ，同时单片机对该数作除 + 处理， 得数 .++ 返送回 (’ 机。注意， 要通过 !=’355 控 件发送或接收二进制格式的数据，必须用 /:4@:;8 类型的变量对二进制 0W86 类型的变量进行转换。
从输入寄存器传回并移除字符， 即读端口。 E6F>=： 将一个字符串写入输出寄存器， 即写 ">=F>=： 端口。
%=N;C9N2@7：设置或传回引发 "6’233 事件中
接收事件的字符数，即引起接收事件的 “ 门槛阀 值” 。
基于VB的双串口通信
基于VB的双串口通信基于VB的双串口通信实验目的：利用VB编程，实现PC机双串口互相通信，掌握利用VB 实现通信的方法.实验仪器：PC机，vb软件实验原理：如果一台计算机有两个串口，可通过串口线将两个串口连接起来：COM1端口的TXD与COM2端口的RXD相连，COM1端口的RXD与COM2端口的TXD相连，COM1端口的GND与COM2端口的GND相连，如图6-6（a）所示，这是串口通信设备之间的最简单连接（即三线连接），图中的2号接收脚与3号发送脚交叉连接是因为在直连方式时，把通信双方都当作数据终端设备看待，双方都可以发送也可以接收。
如果一台计算机只有一个串行通信端口可以使用，那么将第2脚与第3管脚短路，如图6-6（b）所示，那么第3脚的输出信号就会被传送到第2脚，用以发送到同一串行端口的输入缓冲区，程序只要再由相同的串行端口上作读取的操作，即可将数据读入，一样可以形成一个测试环境。
串口设备最简单连接程序清单： ' 串口初始化' 串口1与串口2的通信参数应一致Private Sub Form_Load()mPort = 1 ' 设置通信端口号为COM1 MSComm1.Settings = "9600,n,8,1" ' 设置串口1参数MSComm1.InputMode = 0 ' 接收文本型数据MSComm1.PortOpen = True ' 打开通信端口1mPort = 2 ' 设置通信端口号为COM2 MSComm2.Settings = "9600,n,8,1" ' 设置串口2参数MSComm2.InputMode = 0 ' 接收文本型数据MSComm2.PortOpen = True ' 打开通信端口2End Sub' 把字符通过串口发送出去' 启动定时器Private Sub Cmdsend_Click()MSComm1.Output = Trim(Textsend.Text)Timer1.Enabled = TrueEnd Sub' 接收字符Private Sub Timer1_Timer()Dim buf$Timer1.Enabled = Falsebuf = Trim(MSComm2.Input) ' 将缓冲区内的数据读入buf变量中If Len(buf) = 0 Then ' 判断缓冲区内是否存在数据 TextReceive.Text = ""ElseTextReceive.Text = bufEnd IfEnd Sub' 停止程序运行Private Sub Cmdquit_Click()Unload MeEnd Sub' 关闭通信端口,Private Sub Form_Unload(Cancel As Integer)MSComm1.PortOpen = FalseMSComm2.PortOpen = FalseEnd Sub程序运行结果：心得体会：通过这次实验，让我们了解了如何用VB实现串口通信，同时对VB有了新的认识。
如何用VB编写串口程序
如何用VB编写串口程序VB控件MSComm功能介绍VB中的MSComm 控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。
MSComm控件在串口编程时非常方便，程序员不必去花时间去了解较为复杂的API函数，而且在VC、VB、Delphi 等语言中均可使用。
Microsoft Communications Control（以下简称MSComm）是Microsoft公司提供的简化Windows下串行通信编程的ActiveX控件，它为应用程序提供了通过串行接口收发数据的简便方法。
具体的来说，它提供了两种处理通信问题的方法：一是事件驱动(Event－driven)方法，一是查询法。
1.MSComm控件两种处理通讯的方式MSComm控件提供下列两种处理通讯的方式：事件驱动方式和查询方式。
1.1 事件驱动方式事件驱动通讯是处理串行端口交互作用的一种非常有效的方法。
在许多情况下，在事件发生时需要得到通知，例如，在串口接收缓冲区中有字符，或者 Carrier Detect (CD) 或 Request To Send (RTS) 线上一个字符到达或一个变化发生时。
在这些情况下，可以利用MSComm 控件的OnComm 事件捕获并处理这些通讯事件。
OnComm 事件还可以检查和处理通讯错误。
所有通讯事件和通讯错误的列表，参阅CommEvent 属性。
在编程过程中，就可以在OnComm事件处理函数中加入自己的处理代码。
这种方法的优点是程序响应及时，可靠性高。
每个MSComm 控件对应着一个串行端口。
如果应用程序需要访问多个串行端口，必须使用多个MSComm 控件。
1.2 查询方式查询方式实质上还是事件驱动，但在有些情况下，这种方式显得更为便捷。
在程序的每个关键功能之后，可以通过检查CommEvent 属性的值来查询事件和错误。
如果应用程序较小，并且是自保持的，这种方法可能是更可取的。
例如，如果写一个简单的电话拨号程序，则没有必要对每接收一个字符都产生事件，因为唯一等待接收的字符是调制解调器的“确定”响应。
vb串口通信
正在为单片机做上位机程序。
单片机连续发FF030A00000B441703069C33C0AA这样的字符串（以FF开头，AA结束，固定长度）。
请问接收程序如何写？收到的数据：FF 1 1 0 0 A4 3A 8 4B 41 8C 3B 18 0 2A 0 0 0 34 0 AA FF 1 1 0 0 A4 3A 8 4B 41 8C 3B 18 0 2A 0 0 0 34 0 AA FF 1 1 0 0 A4 3A 8 4B 41 8C 3B 18 0 2A 0 0 0 34 0 AA FF 1 1 0 0 A4 3A 8 4B 41 8C 3B 18 0 0 0 FF 1 4B 41 0 0 FF 1 4B 41 0 0 FF 1 4B 41 0 0 FF 1 4B 41 0 0 FF 1 4B 41 0 0 FF 1 4B 41 0 0 FF 1 4B 41 0 0 FF 1 4B 41 0 0 FF 1 4B 41 0 0 FF 1 4B 41 0 0 FF 1 4B 41 0 0开始的时候数据接收正常，但一会就变成上面这样了。
程序设置：Private Sub Form_Load()With MSComm1.CommPort = 1.Settings = "9600,N,8,1".InBufferSize = 1024 '原来为19.RThreshold = 1 '接收1字节触发oncomm事件.InputMode = comInputModeBinary.InputLen = 1 '输入长度为19.InBufferCount = 0 '清除接收缓冲区End With'打开端口If MSComm1.PortOpen = False ThenMSComm1.PortOpen = TrueIf Err ThenMsgBox (Err.Description)Exit SubEnd IfEnd IfEnd SubPrivate Sub MSComm1_OnComm()Dim S() As ByteDim SS(1024) As ByteStatic N As LongStatic T As VariantDim intInputLen As IntegerIf (mEvent = comEvReceive) ThenS = MSComm1.Input '只要有数据就收进来，哪怕只是一个T = TimerFor i = 0 To UBound(S)'一个数据包可能产生若干个oncomm事件If Check1.Value = 1 And Len(Text1.Text)> 2000 Then Text1.Text = ""Text1.Text = Text1.Text & Right(Hex(S(i)), 3) + " "SS(N + i) = S(i) '接收数据包缓存于SS()N = N + UBound(S)Next i' MSComm1.InBufferCount = 0End IfEnd Sub请各位高手指点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,我正在研究...通用办法Top回复人： jessezappy(晶晶) ( ) 信誉：98 2002-01-25 02:05:50Z 得分:0?最后借你一篇文章看,作者不是我,里面的不一定都对..'-----------------------------------------------------------VB Mscomm控件应用江苏戚墅堰机车车辆厂设计处(213011) 李秉璋--------------------------------------------------------------------------------Visual Basic 6.0(以下简称VB) 是一种功能强大、简单易学的程序设计语言。
使用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实现Modbus RTU串行通讯工程实例
用VB实现Modbus RTU串行通讯工程实例声明：网上看到的，觉得不错，稍微整理了一下分享给大家。
用VB实现Modbus RTU串行通讯在一些应用中可能需要使用诸如VB来进行上位机监控程序的开发，而Modbus 协议是这类应用中首选的通讯协议；Modbus协议以其简单易用，在工业领域里已广泛的为其他第三方设备所支持。
这里对VB和Twido PLC间的通讯进行说明。
对于大部分应用，Twido PLC作为从站，它不需要编制通讯程序，只要把通讯口的参数设置好即可，例如下图表示此Twido通过编程口和上位机连接，其站号地址为2；波特率、数据位、校验、停止位和上位机设置保持一致。
VB程序通过利用MSComm控件很容易就能够实现。
1．通讯口初始化：MSComm1.Settings = "9600,n,8,1"mPort = 1MSComm1.SThreshold = 0If Not MSComm1.PortOpen Then MSComm1.PortOpen = True2． CRC校验码的计算方法，如以下函数，可以得到字节数组变量cmdstring指向的字符串的CRC校验码。
Function crc16_1(ByRef cmdstring() As Byte, ByVal j As Integer)Dim data As IntegerDim i As IntegerAddressreg_crc = &HFFFFFor i = 0 To jAddressreg_crc = Addressreg_crc Xor cmdstring(i)For j = 0 To 7data = Addressreg_crc And &H1If data ThenAddressreg_crc = Int(Addressreg_crc / 2)Addressreg_crc = Addressreg_crc And &H7FFFAddressreg_crc = Addressreg_crc Xor &HA001ElseAddressreg_crc = Addressreg_crc / 2Addressreg_crc = Addressreg_crc And &H7FFFEnd IfNext jNext iIf Addressreg_crc < 0 ThenAddressreg_crc = Addressreg_crc - &HFFFF0000End IfHiByte = Addressreg_crc And &HFFLoByte = (Addressreg_crc And &HFF00) / &H100End Function3．读多个字的命令（本例是从2号站读%MW10起始的4个字）： Dim SendStr(7) As ByteDim RcvStr() As ByteSendStr(0) = 2 ,从站号是2SendStr(1) = &H3 ,读多个字的命令代码SendStr(2) = 0 ,起始地址高字节SendStr(3) = 10,起始地址低字节SendStr(4) = &H0,数据长度高字节SendStr(5) = 4 ,数据长度低字节Call crc16(SendStr(), 5) ,CRC计算SendStr(6) = HiByteSendStr(7) = LoByte,读命令发送后,当接收 5 + SendStr(5) * 2 个字节时产生中断 CmdLenth = 5 + SendStr(5) * 2MSComm1.RThreshold = CmdLenthMSComm1.Output = SendStr ,发送命令4．写多个字的命令（本例是写2号站%MW20起始的3个字）： Dim WriteStr() As Bytek = 6 ,写6个字节ReDim WriteStr(8 + k)WriteStr(0) = 2 ,从站号是2WriteStr(1) = &H10 ,写多个字的命令代码WriteStr(2) = 0 ,起始地址高字节WriteStr(3) = 20 ,起始地址低字节WriteStr(4) = &H0 ,数据长度高字节<字的个数>WriteStr(5) = k / 2 ,数据长度低字节<字的个数>WriteStr(6) = k ,数据长度<字节的个数> WriteStr(7) = &H12,写的第1个字的高字节 WriteStr(8) = &H34,写的第1个字的低字节 WriteStr(9) = &H56,写的第2个字的高字节 WriteStr(10) = &H78,写的第2个字的低字节WriteStr(11) = &H9A,写的第3个字的高字节 WriteStr(12) = &HBC,写的第3个字的低字节Call crc16(WriteStr(), 6 + k)WriteStr(9 + (k / 2 - 1) * 2) = HiByte WriteStr(10 + (k / 2 - 1) * 2) = LoByteMSComm1.InBufferCount = 0MSComm1.Output = WriteStr,写命令发送后,当接收到8个字节时中断 CmdLenth = 8MSComm1.RThreshold = CmdLenth5．通讯事件中断产生时的数据处理： Private Sub MSComm1_OnComm() Dim inx() As ByteSelect Case mEventCase comEvReceive ,判断为接收事件MSComm1.InputLen = CmdLenth ,接收数据的长度 inx = MSComm1.Input ,接收数据MSComm1.InBufferCount = 0For k = 3 To CmdLenth - 3tmpstr = tmpstr & "/" & Hex(inx(k))NextText1.Text = tmpstr ,以十六进制显示所接收长度的数据BeepEnd SelectEnd Sub。
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时，则输出寄存器将被清空。