[程序宝典]VB串口通讯实例 程序匠人 2005-9-22 14:23:00 阅读全文(3939) | 回复(0) | 引用(0) | 查看《匠人的百宝箱》代理商品 VB串口通讯实例 作者：liwenzhao 高精度电压表(24bit) VB源程序 Dim PortValue As Integer '端口号选择1-4 Dim value As Double '当前一次取值 Dim value2 As Double '要显示的值 Dim valueSum As Double '和 Dim numCount As Double '算平均值是的计数个数 Dim func As Integer '功能号标志1-4 Dim valueFlag As Integer /********************************************** ' Check1_Click()为控制Command1是否Enabled Private Sub Check1_Click() '自动刷新被选中则刷新按钮无效 If Check1.value Then Command1.Enabled = False Else Command1.Enabled = True Command1.SetFocus End If End Sub *********************************************/ /********************************************** Private Sub Command1_Click() '显示 Call display End Sub *********************************************/ Private Sub Command2_Click() '复位 valueSum = 0 '清计数和 numCount = 1 '清计数个数 Label6.Caption = Str(numCount - 1) '显示复位 value = 0 '当前一次取值 value2 = 0 '要显示的值 valueFlag = 0
VB6.0下用MSComm控件实现串口通信 MSComm控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能，以下先对其属性进行详细的说明后再举一个例子进行说明： 1基本属性 CommPort O https://www.doczj.com/doc/1a2463523.html,mPort[=value] Object为MSComm控件，value为整数值，标志端口号。 说明：该属性设置并返回通讯端口号，value的值可以设为1-16间的任意数(默认为1)。在打开端口之前必须先设置CommPort属性，当端口不存在时，如果用PortOpen属性打开它，MSComm控件会产生错误68(即设备无效的错误)。 Settings Objiect.Setting[=value] Object为MSComm控件，value为字符串类型，表示通讯端口的设置值。 说明：本属性用来设置并返回端口的波特率、奇偶校验位、数据位和停止位参数。当端口打开时，如果指定的value参数非法，则MSComm控件产生380号(非法属性值)错误。有效的value参数值由四个设置值组成，有如下格式：“BBBB,P,D,S”，其中BBBB为波特率，P为奇偶校验，D为数据位数，S为停止位数。Value的默认值为：“9600,N,8,1”，下面给出合法的波特率、奇偶校验位、数据位和停止位参数： 波特率：110，300，600，1200，2400，4800，9600(默认)，14400，19200，28800，38400，56000，57600，115200，128000，256000。 奇偶校验值：E(偶校验，Even)、M(标记，Mark)、N(默认，Default，None)、O(奇校验，Odd)、S(空格，Space)。 数据位值：4，5，6，7，8(默认)，9。 停止位值：1(默认)，1.5，2。 PortOpen O bject.PortOpen[=value] Object为MSComm控件。Value为布尔类型，表明通讯端口的状态。 说明：本属性用来设置或返回通讯端口的状态(开或关)。在设计时本属性无效。 设置PortOpen属性为True时端口将会被打开。设置为False时将关闭端口并清除接收和传输缓冲区中的数据。当应用程序终止时，SMComm控件自动关闭串行端口。 在打开端口之前，必须给CommPort属性设置一个合法的端口号。如果CommPort属性被设置成一个非法的端口号，则在打开端口时，MSComm控件将产生错误码为68(表示设备无效)的错误。另外，串行端口设备必须支持Settings属性的当前设置值。如果Settings属性包含硬件不支持的通讯设置值，则硬件可能不会正常工作。如果在端口打开之前，DTREnable 或RTSEnable属性被设置为True，则在关闭总线时，这些属性将被设置为False。否则DTR 和RTS线仍将保持其先前的状态。 Input Object.Input Object为MSComm控件。
界面如下： 代码如下： Private Sub Form_Load() If MSComm1.PortOpen = True Then MSComm1.PortOpen = False Else End If Combo1.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 = 2 Combo2.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" https://www.doczj.com/doc/1a2463523.html,mPort = Combo1.ListIndex + 1 MSComm1.Settings = "9600,n,8,1"
VB6.0串口操作 职业2010-12-22 11:30:58 阅读60 评论0 字号：大中小订阅 一直想通过计算机人机界面来控制单片机，感觉用软件控制硬件，即计算机控制是一件比较有意思的事情。 计算机与单片机的连接，是通过串口来实现的。如何实现，我想应该明白VB怎样来操作串口，实现VB 操作串口，就可以把单片机串口线接入计算机，从而实现真正的计算机控制单片机。 这其他是别人早已实现了的，我因为是刚接触，就写下来留作纪念吧。。。 开发软件：Visual Basic 6.0企业版（VB6） 新建一个工程：标准EXE。 接下来做Form界面。 代码： Private Sub Combo1_Click() If MSComm1.PortOpen = True Then '如果串口打开先关闭后再进行其他操作 MSComm1.PortOpen = False End If https://www.doczj.com/doc/1a2463523.html,mPort = Combo1.ListIndex + 1 End Sub Private Sub Command1_Click() Dim Temp(0) As Byte Dim strBuff As String If Option3.Value = True Then '如果显示16进制发送则进行16进制处理，这里只发送一个Temp(0) = "&H" & Text1 MSComm1.Output = Temp '发送一个16进制 Else strBuff = Text1 End If
If MSComm1.PortOpen = False Then MsgBox "请打开串口" End If On Error GoTo uerror MSComm1.Output = strBuff uerror: End Sub Private Sub Command2_Click() On Error GoTo uerror '发现错误跳转到错误处理 If Command2.Caption = "关闭串口" Then MSComm1.PortOpen = False Command2.Caption = "打开串口" '按钮文字改变 Shape1.FillColor = &HFFFFC0 '灯颜色改变Else MSComm1.PortOpen = True Command2.Caption = "关闭串口" Shape1.FillColor = &HFF End If Exit Sub uerror: msg$ = "无效端口号" '错误显示 Title$ = "串口调试助手" x = MsgBox(msg$, 48, Title$) '48标示显示警告图标 End Sub Private Sub Command3_Click() Text2.Text = "" End Sub Private Sub Command4_Click() Text1.Text = "" End Sub Private Sub Form_Load() If MSComm1.PortOpen = True Then MSComm1.PortOpen = False Else End If Combo1.AddItem "COM1" Combo1.AddItem "COM2" Combo1.AddItem "COM3"
VB 串口通信程序设计典型实例
利用 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 2 3 号 PC 或 IPC 串口通信线（三线制） Visual Basic 6.0 设计用软、硬件 名 称 数 2 1 1 量
6.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 相连。
vb串口通讯usb通讯,很有用哦 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 :布尔型、开关通信口。 InputLen :从接收缓冲区读取字符个数。
Input ，Output :读取接收缓冲区或写入发送缓冲区字符。 以上五种属性对串口完成基本的设置和操作，下面的三种属性是描述如何利用VB 提供的事件驱动机制来实现通 信。 CommEvent :返回通信过程中产生的错误信息及事件，了解通信状况。SThreshold :设置并返回不触发OnComm事件时发送缓冲区被允许的最少字符数。当缓冲区的字符少于设置的值时，则触发OnComm事件，并把CommEvent 设为MSCOMMM—EV—SEND。当SThreshold = 0 则禁止发送触发OnComm 事件，当SThreshold = 1 则发送缓冲区为空时就触发OnComm事件。利用这一属性，就可完成发送数据后的一系列操作。如:对刚发送的数据进行处理，当串口是和MODEM通信时，发送完数据后可进行拆除线路联接、挂机等操作。 RThreshold :设置并返回不触发OnComm事件时接收缓冲区被允许的最多字符数。当缓冲区的字符多于设置的值时，则触发OnComm 事件，并把CommEvent 设为MSCOMM—EV—RECEIVE，当RThreshold = 0 则禁止接收触发OnComm 事件，当RThreshold = 1 则接收缓冲区有一个或更多字符时就触发OnComm事件。利用这一属性，就可完成对串口接收数据的处理。 2、利用通信控件的实例 Sub Form1 —load () form1. show ′设置COM1 comm1. commport = 1 comm1. Setting = " 9600 ，o ，8 ，1" ′波特率:9600 奇校验，8位数据，1 位停止位 comm1. Inputlen = 0 ′读取接收缓冲区的所有字符
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 ：布尔型、开关通信口。 InputLen ：从接收缓冲区读取字符个数。 Input ，Output ：读取接收缓冲区或写入发送缓冲区字符。 以上五种属性对串口完成基本的设置和操作，下面的三种属性是描述如何利用VB 提供的事件驱动机制来实现通 信。 CommEvent ：返回通信过程中产生的错误信息及事件，了解通信状况。
VB编写上位机实例 用VB编写上位机实例 16:14:22 UTC+0800Sun Apr 1 2007 用VB6.0编写第一个串口通信上位机程序 Visual Basic6.0是一个可视化窗口环境的编程软件，目前使用Visual Basic6.0可以快速简单编写单片机中的串口通信上位机程序。电子制作HPOO 下面我们以一个完整的通信试验为例子完成如何用Visual Basic6.0编写单片机串口通信程序。 打开安装好后的Visual Basic6.0主程序界面。选择“标准EXE”。如图1显示，建立Visual Basic 的编程环境。 图1 在菜单的[工程]选项中选择[部件]，如图2。把Visual Basic的串口通信控件Microsoft Comm control 6.0调入工作菜单。 图2
在打开[部件]对话框中，选择Microsoft Comm control 6.0的选项框，点击[确定]。图3 图3 可以在图示3中可以看通信控件Microsoft Comm control 6.0的文件是在C:\WINNT\system32\MSCOMM32.OCX文件。 如果大家在首次调用通信控件Microsoft Comm control 6.0控件时无法在控件对话框中找到，请直接在系统目录中搜索名为MSCOMM32.OCX文件。然后通过浏览加入VB的工作界面中。添加完控件回到编程界面。如下图4。 图4 通过右边的菜单把一些必要的控件放在窗体中。然后点击窗体中的Timer控件按F4弹出属性窗口进行设置。其具体设置如下：
Timer定时器控件设置属性，（通过按F4键可弹出此窗口） Mscomm通信控件参数属性设置（通过单击控件的右键属性可弹出此窗口） 本文用到的其他控件：CommandButton控件和TextBox控件按默认属性设置不变。单片机编程器HPOO 以上设置完成，回到编程窗体区中，任意双击。会显示Visual Basic的程序窗体的Load事件程序。在代码窗口中输入：单片机编程器HPOO Private Sub Form_Load() MSComm1.PortOpen = True '窗体的加载时，就打开通信端口，通信端口的参数也可以在此指定 Timer1.Enabled = Timer1.Enabled '窗体的加载时，同时定时器控件事件 End Sub 这样设置目的是当程序在打开是，首先打开通信控件MSComm，注意这里的串口通信参数中的波特率设置是默认参数的。 即：波特率：9600bps；校验位：无；数据位：8位；停止位：1。电子元件邮购网 双击定时器控件Timer1同样在定时器窗体的事件程序中，输入相关代码： Private Sub Timer1_Timer() If MSComm1.InBufferCount > 0 Then '程序检查输入缓冲区中是否有数据，若有数据 Text1.Text = Text1.Text + MSComm1.Input
VB6.0环境下基于USB的虚拟串口通讯实现 摘要：以ftdi公司的ft232bl芯片为核心设计并实现了基于usb 接口的计算机与单片机之间的虚拟串口通讯。单片机采用philips 公司p89系列单片机，完成数据的存储。计算机在windows环境下利用mscomm通讯控件实现上位机与下位机之间的数据传输。在此提出了pc机对虚拟串口的自动识别方法，并提供了程序的源代码。实验结果表明，用虚拟串口实现计算机与单片机之间的usb通信，具有速度快，软件实现简单等优点。 关键词：vb6.0； usb口； ft232bl；虚拟串口 引言 数据传输是现代通讯过程中的一个重要环节，在数据传输过程中，不仅要求数据传输的准确率要高，而且要求速度快、连接方便。传统的rs 232串口通讯和并口通讯都存在传输速度低、扩展性差、安装麻烦等缺点，而基于usb接口的数据传输系统能够较好地解决这些问题。目前，usb接口以其传输速率高、即插即用、支持热插拔等优点，逐步成为pc机的标准接口。 本文中的数据传输系统采用了usb接口进行上位机与下位机之间的数据通讯。下位机采用philips 公司p89系列单片机，完成数据的存储。上位机通过vb6.0编程，实现上位机与下位机之间的数据传输。 1数据传输系统的总体设计
系统的硬件部分主要包括2部分：上位机端和下位机端。上位机采用pc机或笔记本电脑，操作系统为windows xp，实现上位机和下位机之间的数据传输、显示、处理、存储及查询功能。系统的下位机采用philips公司p89系列单片机，完成数据的存储。下位机为一个手持的数据存储仪，由usb转串口数据转换模块、ttl转rs 422总线模块、中央处理模块、显示模块、存储模块、电源模块等组成。上位机与下位机的连接利用pc机自带的usb接口，原理框图如图1所示。 图1数据传输系统原理框图把数据记录卡插入数据存储仪内，可把卡内数据转存到存储模块。数据存储仪通过usb口与pc机连接，把所存数据传输到上位机，上位机对数据进行显示、处理及存储。系统采用ftdi公司的ft232bl芯片作为usb转串口模块，可以和单片机的内置串口直接连接，使单片机通过usb口和pc机通讯。芯片一方面可以接收从pc机发来的usb数据，并将其转换为串行i/o数据格式发送给单片机串口；另一方面可把单片机从串口发出的数据转换为usb的数据格式传回pc机。与其他usb接口芯片相比，用ft232bl芯片进行usb外设开发，只需熟悉单片机编程及简单的vc或vb 编程，而无需考虑固件设计以及驱动程序的编写，从而能大大缩短usb外设产品的开发周期。 2硬件电路设计 2.1ft232bl芯片简介
https://www.doczj.com/doc/1a2463523.html,开发全功能串口调试助手（含完整工程） 小记：https://www.doczj.com/doc/1a2463523.html,的串口通信用了很长时间了，也只用Write和Read这样的方法，以前都是用这种方式做上位机软件，如此足矣。而前几天研究GSM模块时对串口返回的数据总是把握不好，参考开发板附送的例程，发现采用SerialPort 的DataReceived事件，可以实现中断触发式的数据接收。于是想到要自己做一个串口调试助手，在实现基本功能的前提下增加一些方便自己调试的功能。经过断断续续的编写，就做成了下面这个小软件： 这个软件能够实现串口调试助手的全部功能，经过通信测试，数据接收性能不亚于呼啸工作室的SComAssistant2.2，通过加大输入缓冲区，可以满足大量数据接收。
https://www.doczj.com/doc/1a2463523.html,的串口通信主要使用VS自带的SerialPort控件，而不是早先的MSComm，更具有兼容性，这也是很久以前就放弃VB改用.NET的直接原因。该控件的主要方法、属性如下（该数据来自VS的MSDN帮助库）：
想要通过串口收发数据，就需要对串口进行配置，包括设置端口、波特率、数据格式（如COM1端口、9600bps、8位数据位、无校验位、1位停止位）等属性，之后通过Open方法打开串口。打开串口可通过手动指定，也可以使用GetPortNames方法获取计算机中存在的串口。如果打开出错，则可能是串口不存在或者已被占用。下面是相应代码： Private Sub SerialPortOpen() On Error GoTo Err If SerialPort.IsOpen =True Then SerialPort.Close()'避免重复打开端口 SerialPort.Open() LabelCOMStatus.Text ="串口已打开" Exit Sub Err:MsgBox("串口不存在或已被占用！"+ vbNewLine + ErrorToString())'出现错误，显示错误信息 End Sub 如果想要在串口中支持中文字符收发，则可在初始化时设置串口控件的编码：SerialPort.Encoding = System.Text.Encoding.Default
VB串口通信 目前，Visual Basic （简称VB）已成为WINDOWS 系统开发的主要语言,以其高效、简单易学及功能强大的特点越来越为广大程序设计人员及用户所青睐。VB支持面向对象的 程序设计，具有结构化的事件驱动编程模式并可以使用无限扩增的控件。在VB应用程序可以方便地调用WINDOWS API函数，使得编程效率提高，应用功能增强。 利用VB提供的这些功能，我们可以有三种方法完成串口通信。一种是用VB提供的具有强大功能的通信控件；另一种方法是调用WINDOWS API函数，使用WINDOWS 提供的通信函数编写移植性强的应用程序；第三是利用文件的输入/输出完成，该方法简便易行，但有一定的局限性。 一、利用通信控件（MSCOMM）完成串口通信 VB提供了通信控件MSCOMM，文件名为MSCOMM. VBX。该控件可设置串行通信的数据发送和接收，对串口状态及串行通信的信息格式和协议进行设置。在通信过程中可以触 发On Comm 事件，在该事件过程进行数据检验处理及检错，还可以通过编程访问CommEvent属性来了解通信的情况，进行收发数据的处理。每个通信控件对应一个串口，如果要访问多个通信口，则要设计多个通信控件。 1、通信控件的事件及基本属性 （1）事件 On Comm :通信控件只提供了一个事件，该事件的触发可以对串口的通信事件及错误进行 处理。通过对CommEvent属性的判断可知当前的通信错误和事件，分别对每个CommEvent 值进行编程就完成了对各个错误和事件的处理。如：CommEvent = MSCOMM —EV—SEND表示发送事件。这些信息可从VB提供的常量文件CONSTANT. TXT中查出。
基于vb的半双工串口通信调试软件设计 一、任务 使用RS-485标准实现两台PC之间的半双工通信。 二、硬件概况 硬件设计如图1所示，由于目前多数电脑不带DB9通信接口，因此需要购买usb转R-S232转换头，并安装好相关驱动。此模块使用DB9接口的7脚（RTS端）作为485通信的数据收发控制端。 图1 使用max485和max232设计半双工通信硬件电路板 三、软件设计 1、界面设计 该程序有两个界面，主界面和设置界面。图2所示，是程序的主界面。图3所示，是通信参数设置界面。 图2 调试软件主界面
图3 设置界面2、变量及函数声明 Private tx As Integer ‘发送字符数 Private rx As Integer ‘接受字符数 Function addRx(X As Integer) rx = rx + X LabelRx.Caption = CStr(rx) End Function Function addTx(X As Integer) tx = tx + X LabelTx.Caption = CStr(tx) End Function Function clearRx() rx = 0 LabelRx.Caption = "0" End Function Function clearTx() tx = 0 LabelTx.Caption = "0" End Function 3、窗体加载与卸载 Private Sub Form_Load() 'MSComm1.PortOpen = True '打开串口 ' ss = False Combo1.Text = "COM1" With Combo1 .AddItem "COM1" .AddItem "COM2"
1 / 9 VB MSComm控件进行串口实时数据采集txt 本文介绍V B6.0利用MSComm通信控件，开发微机通过串口对工业仪表进行实时数据采集的编程技术。给出的程序代码具有通用性，并有详细的注释，可以直接或稍加改动后用于其他数据采集或实时控制程序中。 一台工业专用实时检测仪表，接高精度位移传感器，用于测量微小形变或微量位移，仪表测量精度为 0.01毫米，测量范围最大值为50毫米。该仪表带有一个9针的RS-232C串口，能与微机进行串口数据通信，实时传送检测数据，通过微机软件处理可实现工业实时监控。 该仪表的串口数据通信协议是： 数据传输速率为9600bps，1位开始位，8位数据位，1位停止位，无奇偶校验位。仪表每秒发送50帧检测数据，每帧数据由4个字节组成。第一个字节定义为二进制常数0F0H，是每帧数据开始的标志字节；后面连续2个字节为数据字节，采用压缩的BCD 码编码方式，高位在前，低位在后，即一个字节表示两位十进制数，则两个字节表示四位十进制数，小数点采用固定形式，定义在两字节中间；第四个字节为符号字节，该字节第八位为1，即：1 x x x x x x x则为负数；第八位为0，即：0 x x x x x x x则为正数。例如：0F0H 26H 87H 80H0F0H 34H 62H 00H表示- 26.8734.62。
通信传输速率为9600bps，则最快速度 1.04ms发送一个字节，仪表每秒发送50帧数据，每帧数据有4个字节，即每秒发送200个字节，平均 5.0ms发送一个字节，连续读取串口数据时要在程序中添加循环等待程序。 2 / 9 为了实现实时监测功能，接收数据的读取要尽可能的快速，则设置MSComm1的属性如下： RThreshold = 1接收缓冲区收到一个字节产生OnComm事件InputLen = 1每次充接收缓冲区读取一个字节 仪表每秒发送50帧数据，微机收到一帧完整数据至少需要20 ms 时间，然后再进行数据处理。如果微机在下一帧数据接收前即20ms内能将数据计算处理完毕，则接收缓冲区内只会保存有一帧数据，不会存有两帧以上数据，接收缓冲区的大小不会影响实时监测效果（接收缓冲区>4字节），这时完全可以实现实时监测或实时控制；如果微机在20ms内不能将数据计算处理完毕，接收缓冲区设置得又很大，在数据计算处理完毕前，接收缓冲区内就会保存有两帧以上数据，而且一次工作时间越长，缓冲区内滞留数据帧就越多，数据采集和数据处理之间产生逐渐增大的额外时间差，当接收缓冲区充满后，时间差不再增大，固定在某一值，部分数据因不能及时采集到接收缓冲区中，数据产生丢失现象，真实工作情况就会和微机处理结果产生较大的时间差，对实时监
用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" https://www.doczj.com/doc/1a2463523.html,mPort = 1 MSComm1.SThreshold = 0 If Not MSComm1.PortOpen Then MSComm1.PortOpen = True 2． CRC校验码的计算方法，如以下函数，可以得到字节数组变量cmdstring指向的字符串的CRC校验码。 Function crc16_1(ByRef cmdstring() As Byte, ByVal j As Integer) Dim data As Integer Dim i As Integer Addressreg_crc = &HFFFF For i = 0 To j Addressreg_crc = Addressreg_crc Xor cmdstring(i) For j = 0 To 7 data = Addressreg_crc And &H1
VB6 实时串口通信数据采集代码 介绍VB6.0利用MSComm通信控件，开发微机通过串口对工业仪表进行实时数据采集的编程技术。给出的程序代码具有通用性，并有详细的注释，可以直接或稍加改动后用于其他数据采集或实时控制程序中。 ----一台工业专用实时检测仪表，接高精度位移传感器，用于测量微小形变或微量位移，仪表测量精度为0.01毫米，测量范围最大值为50毫米。该仪表带有一个9针的RS-232C 串口，能与微机进行串口数据通信，实时传送检测数据，通过微机软件处理可实现工业实时监控。 ----该仪表的串口数据通信协议是：数据传输速率为9600bps，1位开始位，8位数据位，1位停止位，无奇偶校验位。仪表每秒发送50帧检测数据，每帧数据由4个字节组成。第一个字节定义为二进制常数0F0H，是每帧数据开始的标志字节；后面连续2个字节为数据字节，采用压缩的BCD码编码方式，高位在前，低位在后，即一个字节表示两位十进制数，则两个字节表示四位十进制数，小数点采用固定形式，定义在两字节中间；第四个字节为符号字节，该字节第八位为1，即：1 x x x x x x x 则为负数；第八位为0，即：0 x x x x x x x 则为正数。 ----例如：0F0H 26H 87H 80H 0F0H 34H 62H 00H 表示-26.87 34.62。 ----通信传输速率为9600bps，则最快速度1.04ms发送一帧数据。
9600bps = 1200Bps这样计算出来的结果相当于8bits/Frame，现在串口中协议是10bits/Frame，求解方程1200 * 8 = x * 10得到x = 960Frame/s。1000/960 = 1.04167Frame/ms。仪表每秒发送50帧数据，每帧数据有4个字节，即每秒发送200个字节，平均5.0ms 发送一个字节，连续读取串口数据时要在程序中添加循环等待程序。----为了实现实时监测功能，接收数据的读取要尽可能的快速，则设置MSComm1的属性如下： RThreshold = 1 接收缓冲区收到一个字节产生OnComm事件 InputLen = 1 每次读取一个字节 ----仪表每秒发送50帧数据，微机收到一帧完整数据至少需要20 ms 时间(1000/50=20)，然后再进行数据处理。①如果微机在下一帧数据接收前即20ms内能将数据计算处理完毕，则接收缓冲区内只会保存有一帧数据，不会存有两帧以上数据，接收缓冲区的大小不会影响实时监测效果（接收缓冲区>4字节），这时完全可以实现实时监测或实时控制；②如果微机在20ms内不能将数据计算处理完毕，接收缓冲区设置得又很大，在数据计算处理完毕前，接收缓冲区内就会保存有两帧以上数据，而且一次工作时间越长，缓冲区内滞留数据帧就越多，数据采集和数据处理之间产生逐渐增大的额外时间差，当接收缓冲区充满后，时间差不再增大，固定在某一值，部分数据因不能及时采集到接收缓冲区中，数据产生丢失现象，真实工作情况就会和微机处理结果产生较大的时间差，对实时监测和实时控制很不利，这种情
资料1 第一章VisualBasic6基本介绍 1. 菜单栏的使用 2. 属性窗口的使用 3. 创建工程 4.窗体的操作 5. 属性值的设定 6. 程序代码编写 7. 制作一个简单应用程序 8. 窗体属性(1) 9. 窗体属性(2) 10. 窗体事件 11. 方法 第二章VisualBasic6的数据类型与运算符表达式 12.数据类型(1) 13. 数据类型(2) 14. 运算符表达式(1) 15.运算符表达式(2) 16. 运算符表达式(3) 第三章VisualBasic6的内部函数 17.常用内部函数(1) 18.常用内部函数(2) 19. 常用内部函数(3) 20. 常用内部函数(4) 21. 常用内部函数(5) 22. 常用内部函数(6) 23. 常用内部函数(7) 24. 常用内部函数(8) 25. 常用内部函数(9) 26. 常用内部函数(10) 第四章VisualBasic6的基本语句 27.基本语句(1) 28. 基本语句(2) 29. 基本语句(3) 30. 基本语句(4) 、 31.基本语句(5) 32. 基本语句(6)
33. 基本语句(7) 34. 基本语句(8) 35. 基本语句(9) 36. 基本语句(10) 37. 基本语句(11) 38. 基本语句(12) 第五章VisualBasic6的数组 39.数组(1) 40.数组(2) 41. 数组(3) 42. 数组(4) 43. 数组(5) 44. 数组(6) 45. 数组(7) 46. 数组(8) 第六章VisualBasic6的过程 47.过程(1) 48.过程(2) 49. 过程(3) 50. 过程(4) 51. 过程(5) 52. 过程(6) 53. 过程(7) 54. 过程(8) 55. 过程(9) 56. 过程(10) 第七章VisualBasic6的标准控件 57. 1111标准控件(1) 58.标准控件(2) 59. 标准控件(3) 60. 标准控件(4) 61. 标准控件(5) 62. 标准控件(6) 63. 标准控件(7) 64. 标准控件(8) 65. 标准控件(9) 66. 标准控件(10) 67. 标准控件(11)
串口操作 职业2010-12-22 11:30:58 阅读60 评论0 字号：大中小订阅 一直想通过计算机人机界面来控制单片机，感觉用软件控制硬件，即计算机控制是一件比较有意思的事情。计算机与单片机的连接，是通过串口来实现的。如何实现，我想应该明白VB怎样来操作串口，实现VB操作串口，就可以把单片机串口线接入计算机，从而实现真正的计算机控制单片机。 这其他是别人早已实现了的，我因为是刚接触，就写下来留作纪念吧。。。 开发软件：Visual Basic 企业版（VB6） 新建一个工程：标准EXE。 接下来做Form界面。 代码： Private Sub Combo1_Click() If = True Then '如果串口打开先关闭后再进行其他操作 = False End If = + 1
End Sub Private Sub Command1_Click() Dim Temp(0) As Byte Dim strBuff As String If = True Then '如果显示16进制发送则进行16进制处理，这里只发送一个 Temp(0) = "&H" & Text1 = Temp '发送一个16进制 Else strBuff = Text1 End If If = False Then MsgBox "请打开串口" End If On Error GoTo uerror = strBuff uerror: End Sub Private Sub Command2_Click() On Error GoTo uerror '发现错误跳转到错误处理
If = "关闭串口" Then = False = "打开串口" '按钮文字改变 = &HFFFFC0 '灯颜色改变 Else = True = "关闭串口" = &HFF End If Exit Sub uerror: msg$ = "无效端口号" '错误显示 Title$ = "串口调试助手" x = MsgBox(msg$, 48, Title$) '48标示显示警告图标End Sub Private Sub Command3_Click()
vb中怎样用mscomm控件实现串口通信 本问分两部分均来自https://www.doczj.com/doc/1a2463523.html, 第一部分jessezappy（晶晶) ================================================================================== If MSComm1.PortOpen Then MSComm1.PortOpen = False https://www.doczj.com/doc/1a2463523.html,mPort = 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) Then instring = instring & InStringB AddText Text3, InStringB, False InStringB = "" End If End If END SUB