串口通信报告(vb)

vb程序实现串口通信,将接到的数据动态保存,并可以图表绘制曲线(X：时间,Y：数据)

vb程序实现串口通信，将接到的数据动态保存，并可以图表绘制曲线（X：时间，Y：数据）将接到的数据赋值于全局变量,通过ADO数据控件连接数据库及表,用以下代码保存数据: Private Sub Timer1_Timer()If Label1.Caption <> CStr(Time$) ThenLabel1.Caption = Time$sum_zj = sum_zj + 1Text3 = sum_zj'校准If sum_zj >= 3 Thensum_zj1 = sum_zj1 + 1sum_zj = sum_zj - 3Text4 = sum_zj1Adodc1.Recordset.AddNew '每3秒记录一组数据Adodc1.Recordset(0) = shiY AnHAdodc1.Recordset(1) = Mid(Time$, 1, 2) & Mid(Time$, 4, 2) & Mid(Time$, 7, 2) '记录time Adodc1.Recordset(2) = record_jm(0) '记录数据Adodc1.Recordset(3) = record_jm(1) '记录数据Adodc1.Recordset(4) = record_jm(2) '记录数据Adodc1.Recordset(5) = record_jm(3) '记录数据Adodc1.Recordset(6) = record_jm(4) '记录数据Adodc1.Recordset(7) = record_jm(5) '记录数据Adodc1.Recordset(8) = record_jm(6) '记录数据Adodc1.Recordset(9) = record_jm(7) '记录数据Adodc1.Recordset(10) = record_jm(8) '记录数据Adodc1.Recordset(11) = record_jm(9) '记录数据Adodc1.Recordset(12) = record_jm(10) '记录数据Adodc1.Recordset(13) = record_jm(11) '记录数据Adodc1.Recordset.UpdateEnd IfEnd IfEnd SubPrivate Sub Timer2_Timer()Picture4.DrawStyle = 0以下代码绘制实时曲线(6点):Picture4.DrawWidth = 3 ' = dashPicture4.Line (sum_z1 * 18 + 500, record_jm(0) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(2) * -150 + 7900), vbRed ', BFPicture4.Line (sum_z1 * 18 + 500, record_jm(1) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(3) * -150 + 7900), vbCyan ', BFPicture4.Line (sum_z1 * 18 + 500, record_jm(2) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(4) * -150 + 7900), vbBlack ', BFPicture4.Line (sum_z1 * 18 + 500, record_jm(3) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(5) * -150 + 7900), vbMagenta ', BFPicture4.Line (sum_z1 * 18 + 500, record_jm(4) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(6) * -150 + 7900), vbGreen ', BFPicture4.Line (sum_z1 * 18 + 500, record_jm(5) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(7) * -150 + 7900), vbBlue ', BFEnd SubPrivate Sub Timer3_Timer()If Label32 <> CStr(Time$) Then 'Label1.CaptionLabel32.Caption = Time$sum_z = sum_z + 1Text31 = sum_z'校准If sum_z >= 5 Thensum_z = sum_z - 5sum_z1 = sum_z1 + 1Text30 = sum_z1End IfEnd IfEnd Sub以下代码绘制曲线的坐标:Private Sub Form_Load()With Adodc1Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\kongtiao\cartemp.mdb;Persist Security Info=False"Adodc1.RecordSource = "select * form car_bm"End WithText1 = ""Text2 = "": Text3 = "": Text4 = "":Text5 = "": Text6 = "": Text7 = "": Text12 = ""Text8 = "": Text9 = "": Text10 = "": Text11 = ""Text13 = "": Text14 = "": Text15 = "": Text16 = ""'Load frmMaincolvb = vbBlackxx = 100yy = 150txt = "℃"wp = xp(colvb, xx, yy, txt)xx = 200yy = 350txt = "50"wp = xp(colvb, xx, yy, txt)xx = 200yy = 1850wp = xp(colvb, xx, yy, txt) yy = 3350xx = 200txt = "30"wp = xp(colvb, xx, yy, txt) xx = 200yy = 4850txt = "20"wp = xp(colvb, xx, yy, txt) xx = 200yy = 6350txt = "10"wp = xp(colvb, xx, yy, txt) 'Time坐标colvb = vbRedyy = 6500xx = 400txt = "0"wp = xp(colvb, xx, yy, txt) xx = 1480txt = "5"wp = xp(colvb, xx, yy, txt) xx = 2560txt = "10"wp = xp(colvb, xx, yy, txt) xx = 3640txt = "15"wp = xp(colvb, xx, yy, txt) xx = 4720txt = "20"wp = xp(colvb, xx, yy, txt) xx = 5800txt = "25 min"wp = xp(colvb, xx, yy, txt) xx = 6880txt = "30"wp = xp(colvb, xx, yy, txt) xx = 7960txt = "35"wp = xp(colvb, xx, yy, txt) xx = 9040txt = "40"wp = xp(colvb, xx, yy, txt)txt = "45"wp = xp(colvb, xx, yy, txt)xx = 11200txt = "50"wp = xp(colvb, xx, yy, txt)'画格Picture1.DrawWidth = 1 ' = dashPicture1.DrawStyle = 0Picture1.ForeColor = vbCyanFor i = 0 To 39Picture4.Line (450, 550 + i * 150)-(500, 550 + i * 150) NextPicture4.DrawStyle = 2For i = 0 To 8Picture4.Line (450, 400 + i * 750)-(11300, 400 + i * 750) NextFor i = 0 To 15Picture4.Line (450, 1000 + i * 300)-(500, 1000 + i * 300) NextFor i = 0 To 10Picture4.Line (500 + i * 1080, 400)-(500 + i * 1080, 6400) NextPicture4.DrawStyle = 0End Sub。

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实现串口通讯目前，Visual Basic （简称VB）已成为WINDOWS 系统开发的主要语言，以其高效、简单易学及功能强大的特点越来越为广大程序设计人员及用户所青睐。

VB 支持面向对象的程序设计，具有结构化的事件驱动编程模式并可以使用无限扩增的控件。

在VB 应用程序中可以方便地调用WINDOWS API函数，使得编程效率提高，应用功能增强。

利用VB 提供的这些功能，我们可以有三种方法完成串口通信。

一种是用VB 提供的具有强大功能的通信控件;另一种方法是调用WINDOWS API 函数，使用WINDOWS 提供的通信函数编写移植性强的应用程序;第三是利用文件的输入/ 输出完成，该方法简便易行，但有一定的局限性。

一、利用通信控件（MSCOMM）完成串口通信VB 提供了通信控件MSCOMM，文件名为MSCOMM. VBX。

该控件可设置串行通信的数据发送和接收，对串口状态及串行通信的信息格式和协议进行设置。

在通信过程中可以触发OnComm事件，在该事件过程进行数据检验处理及检错，还可以通过编程访问CommEvent 属性来了解通信的情况，进行收发数据的处理。

每个通信控件对应一个串口，如果要访问多个通信口，则要设计多个通信控件。

1、通信控件的事件及基本属性（1）事件OnComm：通信控件只提供了一个事件，该事件的触发可以对串口的通信事件及错误进行处理。

通过对CommEvent 属性的判断可知当前的通信错误和事件，分别对每个CommEvent 值进行编程就完成了对各个错误和事件的处理。

如：CommEvent = MSCOMM—EV—SEND 表示发送事件。

这些信息可从VB 提供的常量文件CONSTANT. TXT中查出。

（2）属性CommPort ：设置通信控件与哪个串口相连接，设置并返回通信口号。

Setting ：设置通信的信息格式，为字符型。

顺序为：波特率、校验、数据位、停止位。

PortOpen ：布尔型、开关通信口。

利用VB如何进行串口读写

利用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(方法向串口写入数据。

串口通讯及其在VB平台下的实现

串口通讯及其在VB平台下的实现摘要：本文首先介绍串行通讯的基础知识，然后结合示例剖析在VB平台下的串口通讯的编程技巧。

随着计算机系统的普及与外围设备技术的发展，计算机与外围设备之间的通讯就显得越来越重要了。

由于串行通信是在一根传输线上一位一位的传送信息，所用的传输线少，并且可以借助现成的电话网进行信息传送，因此，特别适合于远距离传输。

对于那些与计算机相距不远的人－机交换设备和串行存储的外部设备如终端、打印机、逻辑分析仪、磁盘等，采用串行方式交换数据也很普遍。

在实时控制和管理方面，采用多台微机处理机组成分级分布控制系统中，各CPU之间的通信一般都是串行方式。

所以串行接口是微机应用系统常用的接口，而相应的应用程序也成为今年来研究的热点。

本文旨在阐述一般的穿口通讯的原理及其程序设计，希望借此能够抛砖引玉，为更深入的研究打下一定的基础。

一、串行通讯的基本原理所谓"串行通信"是指外设和计算机间使用一根数据信号线,数据在一根数据信号线上按位进行传输，每一位数据都占据一个固定的时间长度。

这种通信方式使用的数据线少，在远距离通信中可以节约通信成本，当然，其传输速度比并行传输慢。

相比之下，由于高速率的要求，处于计算机内部的CPU与串口之间的通讯仍然采用并行的通讯方式，所以串行口的本质就是实现CPU与外围数据设备的数据格式转换（或者称为串并转换器），即当数据从外围设备输入计算机时，数据格式由位(bit)转化为字节数据；反之，当计算机发送下行数据到外围设备时，串口又将字节数据转化为位数据。

二、串口通讯的程序设计原理前面介绍了串行通讯的基本原理，那么如何在程序设计中实现它呢？事实上，这个过程并不复杂，一般有两种实现途径：其一就是使用MSCOMM控件，此控件提供很多方便操作的属性和方法，利用它们可以很方便地实现你的目的；另外一种途径就是使用Windows API，微软为开发者提供了很多相关的串行操作的编程接口，使用这些接口，可以很完成更为强大的功能。

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串口实验报告

VB串口实验报告一：实验任务设计远程控制系统，要求通过局域网完成远程测控任务。

远程测控节点通过串口采集RM4040模块和STD100无纸记录仪的数据。

二：主要内容（1）熟悉VB环境，练习文本框、标签、定时器等常用控件的使用方法。

（2）检查RS232连接情况，并使用串口调试助手测试通信情况，进行串口通信编程（3）针对RM4040模块，编写串口通信程序（无校验）、完成通讯错误处理、超时处理（4）编写带有校验协议的处理程序，读取STD100模块的数据（5）对读取的数据采用不同的滤波算法进行处理（6）***试编写程序模拟RM4040模块的通讯功能（7）编写简单的网络通信程序，实现远程计算机控制（8）编写权限控制，优化程序，完善设计。

三：实验程序及分析Dim a, b, c, d, e, f, g, h, i, z As Integer ‘定义变量名，类型Dim aa(10), bb(10), cc(10) As Double ‘定义数组名，类型Private Sub Command1_Click()Text1.Text = "@01R" ‘在Text1中写入需要发送的端口代码MSComm1.Output = Text1.TextTimer2.Enabled = TrueEnd SubPrivate Sub Command2_Click()If Timer1.Enabled = False ThenTimer1.Enabled = TrueCommand2.Caption = "结束自动发送" ‘控制是否进行自动发送ElseIf Timer1.Enabled = True ThenTimer1.Enabled = FalseCommand2.Caption = "自动发送"End IfEnd SubPrivate Sub Command3_Click() ‘通过MSComm1.RThreshold字符串的长度控制选择的是无纸记录仪还是数字输出模块If MSComm1.RThreshold = 39 ThenMSComm1.RThreshold = 22Command3.Caption = "无纸记录仪"ElseIf MSComm1.RThreshold = 22 ThenMSComm1.RThreshold = 39Command3.Caption = "数字输出模块"End IfEnd SubPrivate Sub Form_Load()z = 1mPort = 1 ‘选择端口号If MSComm1.PortOpen = False ThenMSComm1.PortOpen = True ‘打开串口End IfEnd SubPrivate Sub MSComm1_OnComm()Text2.Text = MSComm1.InputIf Command3.Caption = "无纸记录仪" Then ‘无纸输出记录仪b = Mid(Text2.Text, 8, 1)c = Mid(Text2.Text, 13, 1)d = Mid(Text2.Text, 18, 1)e = Mid(Text2.Text, 4, 4)f = Mid(Text2.Text, 9, 4)g = Mid(Text2.Text, 14, 4)Text3.Text = e * 10 ^ (-b)Text4.Text = f * 10 ^ (-c)Text5.Text = g * 10 ^ (-d) ‘显示压力温度流量Text6.Text = Mid(Text2.Text, 19, 2)'校验，个个位相互异或得出的结果，想与发送过来的效验值进行比较h = 0For i = 2 To 18h = h Xor Asc(Mid(Text2.Text, i, 1))Next iText7.Text = h'滤波，采用算术平均滤波法，连续采样10次求平均。

R232串口通信实验报告1

R232串口通信实验——基于VB语言实验报告RS232串口通信实验一、实验题目:1．设计一个简单的基于串口通信的信息发送和接受界面（或者是一个简单的聊天软件小的*.EXE可执行程序）, 可以是两台PC机之间的通信, 也可以是一台PC上的。

二、实验目的:1. 实现PC机通过RS232串口进行数据的收发。

2. 熟悉并掌握RS232串口标准及通信原理。

3．熟悉VB语言编写程序的环境, 掌握基本的VB语言编程技巧, 了解面向对象的程序设计语言。

二、实验设备PC机一台（装有VB6.9.或者7.X以上的VB编程语言）, RS232串口通信线（9针或25针的都可以）一条, 跳线一个（短路用的, 如果是一台PC实验, 将其中的2和3短接）三、实验内容1. 设计窗体主界面界面内容:（1）串口的打开与关闭控制（串口打开, 串口关闭）（2）信息发送区: 信息编辑区, 发送按钮（3）信息接受区: 信息显示区, 接收按钮（4）文件传送区：文件发送(发送文件的选择路径, 发送按钮)文件接收(接收文件存放路径选择, 和接收按钮)VB6.9下的主界面的设计软件编辑:然后双击各个控件, 编辑其代码：主窗体的代码:Private Sub Form1_load()MSComm1.PortOpen = Trueabc = 0blnshowflag = TrueMain.Height = 7000intinbuffersize = 4096intOutBufferSize = 2048 "设置串口"intCommflag = 0 " 初始系统状态"momDialog1.Flags = &H200000 Or &H2 "初始化标准对话框"momDialog1.CancelError = TurebinFileTransFlag = FalselReceive.Text = "" "信息显示初始化" intArrayCount = 0End Sub其他的代码:Private Sub Command1_Click()MSComm1.Output = Text1.TextText1.Text="发送完毕"End SubPrivate Sub Command2_Click()Dim buf$buf = MSComm1.InputSheet1.Range("c2") = UCase(Sheet1.Range("c2"))If Len(buf) = 0 ThenText2.Text = "empty"ElseText2.Text = bufEnd IfEnd SubPrivate Sub Command3_Click()MSComm1.PortOpen = FalseEndEnd SubPrivate Sub Command4_Click()If MSComm1.PortOpen = True ThenMSComm1.PortOpen = FalseEnd IfMSComm1.Settings = "9600,N,8,1"MSComm1.RThreshold = 1MSComm1.PortOpen = TrueMSComm1.InputLen = 0End Sub然后生成R232.EXE可执行文件:调试:（1）将9针RS232串口通信线与PC台式接, 并用跳线将RS232串口通信线另一端2（RXD）与3(TXD)短接。

利用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串口通信实验1．实验要求：设计一个串口通信程序，用于信息的接收和发送2．实验目的：2.1熟悉并掌握串口标准及原理；2.2实现PC机与PC机之间通过串口进行数据的收发；3.3熟悉VB语言编写程序的环境，用VB开发串口通信程序3．实验步骤：3.1运行VB程序，出现“新建工程”对话框，选择“标准EXE”，单击“打开”命令按钮，进入VB工程集成开发环境；3.2 添加串口通信控件MSComm到工具箱中；3.3界面设计（1）添加两个文本框控件：Text1 和Text2，用于输入要发送的字符和显示要接收的字符；（2）添加两个标签控件：Label1和Label2，作为发送和接收字符区的标签；（3）添加一个按钮控件：Command1执行发送字符命令；（4）添加一个MSComm控件。

3.4属性设置3.5程序代码设计Private Sub Form_Load()mPort = 1MSComm1.Settings = "9600,n,8,1" MSComm1.InputMode = 0MSComm1.RThreshold = 1MSComm1.PortOpen = TrueEnd SubPrivate Sub Cmdsend_Click()If Textsend.Text = "" Thenpp = MsgBox("发送的数据不能为空！", 16) Exit SubEnd IfMSComm1.Output = Trim(Textsend.Text)End SubPrivate Sub MSComm1_OnComm()Dim buf$Select Case mEventCase comEvCDCase comEvCTSCase comEvDSRCase comEvReceivebuf = Trim(MSComm1.Input)Case comEvSend。

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(11)第五章串口通信方法与实现1

(9) InBufferSize 属性语法： MSComm1.InBufferSize [= Value] 设置或返回接收缓冲区大小。作用：设置或返回接收缓冲区大小。类型：Integer型型接收缓冲区的字节数，取值：接收缓冲区的字节数，默认值为 1024字节。字节。字节 InBufferSize 属性的最大值为：32767 属性的最大值为：字节。字节。说明： InBufferSize 值应根据需要选取。
(10) InputMode属性属性语法： MSComm1.InputMode [=Value] 设置或返回接收数据的数据类型。作用：设置或返回接收数据的数据类型。类型：Integer型型接收文本型数据；取值：0 - 接收文本型数据； 1 - 接收二进制数据。接收二进制数据。说明：InputMode 属性决定 Input 属性取回数据的格式是字符串还是二进制数据的数组。数组。
1 0 00110001 接收速度 0 1 0 0 1 1 1 0 原始信号发送速度
2. 数据的传送单位（数据包含的位数）数据的传送单位（数据包含的位数）例如：个起始位例如：1个起始位 + 8个数据位 + 0个校验个数据位个校验位 + 1个停止位个停止位数据格式共有10位所以通信中最小的传数据格式共有位，所以通信中最小的传输单位是10位。输单位是位每秒钟传输的字节数（波特率为9600bps, 每秒钟传输的字节数（波特率为 , 采用十位数据格式，采用十位数据格式，则： 9600/10 = 960（字节秒）（字节/秒传输1M字节的数据，需要的时间为：字节的数据，传输字节的数据需要的时间为： 1000000/960 ≈ 17（分）（因此，因此，串口通信通常用在数据量不是很大的场合。的场合。

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。

VB串口通信详解

VB串口通信目前，Visual Basic （简称VB）已成为WINDOWS 系统开发得主要语言，以其高效、简单易学及功能强大得特点越来越为广大程序设计人员及用户所青睐。

VB 支持面向对象得程序设计，具有结构化得事件驱动编程模式并可以使用无限扩增得控件。

在VB 应用程序可以方便地调用WINDOWS API函数，使得编程效率提高，应用功能增强。

利用VB 提供得这些功能，我们可以有三种方法完成串口通信。

一种就是用VB 提供得具有强大功能得通信控件;另一种方法就是调用WINDOWS API 函数，使用WINDOWS 提供得通信函数编写移植性强得应用程序;第三就是利用文件得输入/ 输出完成，该方法简便易行，但有一定得局限性。

一、利用通信控件（MSCOMM）完成串口通信VB 提供了通信控件MSCOMM，文件名为MSCOMM、VBX。

该控件可设置串行通信得数据发送与接收，对串口状态及串行通信得信息格式与协议进行设置。

在通信过程中可以触发OnComm事件，在该事件过程进行数据检验处理及检错，还可以通过编程访问CommEvent 属性来了解通信得情况，进行收发数据得处理。

每个通信控件对应一个串口，如果要访问多个通信口，则要设计多个通信控件。

1、通信控件得事件及基本属性（1）事件OnComm：通信控件只提供了一个事件，该事件得触发可以对串口得通信事件及错误进行处理。

通过对CommEvent 属性得判断可知当前得通信错误与事件，分别对每个CommEvent 值进行编程就完成了对各个错误与事件得处理。

如：CommEvent = MSCOMM—EV—SEND 表示发送事件。

这些信息可从VB 提供得常量文件CONSTANT、TXT中查出。

（2）属性CommPort ：设置通信控件与哪个串口相连接，设置并返回通信口号。

Setting ：设置通信得信息格式，为字符型。

顺序为：波特率、校验、数据位、停止位。

PortOpen ：布尔型、开关通信口。

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串口通信.txt年轻的时候拍下许多照片，摆在客厅给别人看;等到老了，才明白照片事拍给自己看的。

当大部分的人都在关注你飞得高不高时，只有少部分人关心你飞得累不累，这就是友情！正在为单片机做上位机程序。

单片机连续发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程序实现串口通信,将接到的数据动态保存,并可以图表绘制曲线(X：时间,Y：数据)

VB串口通信(附图教程)

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

VB实现串口通讯

利用VB如何进行串口读写

串口通讯及其在VB平台下的实现

vb串口通信

VB串口实验报告

R232串口通信实验报告1

利用VB实现串口通信

串口通信实验报告

VB串口通讯

VB(11)第五章 串口通信方法与实现1

VB串口通讯详解

VB串口通信详解

vb串口通信编程

vb串口通信

VB(11)第五章串口通信方法与实现1