VB6 实时串口通信数据采集代码

合集下载

VB6.0下MSComm控件实现串口通信

VB6.0下用MSComm控件实现串口通信MSComm控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能，以下先对其属性进行详细的说明后再举一个例子进行说明：1基本属性CommPortO mPort[=value]Object为MSComm控件，value为整数值，标志端口号。

说明：该属性设置并返回通讯端口号，value的值可以设为1-16间的任意数(默认为1)。

在打开端口之前必须先设置CommPort属性，当端口不存在时，如果用PortOpen属性打开它，MSComm控件会产生错误68(即设备无效的错误)。

SettingsObjiect.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。

PortOpenO bject.PortOpen[=value]Object为MSComm控件。

Value为布尔类型，表明通讯端口的状态。

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。

VB6使用API实现串口通信

需要和客户的产品通讯，但波特率是非常规的，MScomm无法实现，原有的软件框架和条件又不能转用VC开发底层，于是用VB6调用API实现了这个通讯功能，虽然在VB6下这个程序还是单进程的，但实现了异步非阻塞的通信，性能相当稳定，下面是测试程序代码Private Sub cmdSend_Click()Sub cmdSend_Click()'定义文件读写属性结构Dim sa As SECURITY_ATTRIBUTES'定义串口状态结构Dim typCommStat As COMSTAT'定义串口状态错误Dim lngError As Long'********打开串口********Dim hCF As LonghCF = CreateFile("COM4", _GENERIC_READ Or GENERIC_WRITE, 0, sa, _OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL Or FILE_FLAG_OVER LAPPED, 0)Debug.Print "打开串口：" & hCF'********获取出错信息********Dim errNum As LongerrNum = GetLastError()Debug.Print "出错信息：" & errNum'定义标志值Dim flag As Long'定义设备控制块Dim typDCB As DCB'********获取设备控制块********flag = GetCommState(hCF, typDCB)Debug.Print "获取串口DCB：" & flagtypDCB.BaudRate = 2500 '定义波特率typDCB.Parity = NOPARITY '无校验位typDCB.ByteSize = 8 '数据位typDCB.StopBits = 0 '停止位0/1/2 = 1/1.5/2'********设置串口参数********flag = SetCommState(hCF, typDCB)Debug.Print "设置串口参数：" & flag'********设置缓冲区大小********flag = SetupComm(hCF, 1024, 1024)'Debug.Print "设置缓冲区：" & flag'********清空读写缓冲区********flag = PurgeComm(hCF, PURGE_RXABORT Or PURGE_RXCLEAR Or PURGE_T XABORT Or PURGE_TXCLEAR)'Debug.Print "强制清空缓冲区：" & flag'定义超时结构体Dim typCommTimeouts As COMMTIMEOUTStypCommTimeouts.ReadIntervalTimeout = 0 '相邻两字节读取最大时间间隔（为0表示不使用该超时间隔）typCommTimeouts.ReadTotalTimeoutMultiplier = 0 '一个读操作的时间常数typCommTimeouts.ReadTotalTimeoutConstant = 0 '读超时常数typCommTimeouts.WriteTotalTimeoutMultiplier = 0 '一个写操作的时间常数（为0表示不使用该超时间隔）typCommTimeouts.WriteTotalTimeoutConstant = 0 '写超时常数（为0表示不使用该超时间隔）'********超时设置********flag = SetCommTimeouts(hCF, typCommTimeouts)'Debug.Print "超时设置：" & flag'********发送数据********'定义要发送字节数Dim lngNumberofBytesToWrite As Long'定义实际发送字节数Dim lngNumberofBytesToWritten As Long'定义重叠结构体Dim typOverLapped As OVERLAPPED'定义发送数据Dim arrbytTest(0 To 23) As Byte'载波收发器同步头arrbytTest(0) = CByte(&H53) arrbytTest(1) = CByte(&H4E) arrbytTest(2) = CByte(&H44)'后续数据包长度arrbytTest(3) = CByte(&H14)'载波表预同步头arrbytTest(4) = CByte(&HFF) arrbytTest(5) = CByte(&HFF) arrbytTest(6) = CByte(&HFF) arrbytTest(7) = CByte(&HFF) arrbytTest(8) = CByte(&HFF) arrbytTest(9) = CByte(&HFF)'载波表帧同步头arrbytTest(10) = CByte(&H9) arrbytTest(11) = CByte(&HAF)'载波表地址arrbytTest(12) = CByte(&H59) arrbytTest(13) = CByte(&H20) arrbytTest(14) = CByte(&H0)'控制码arrbytTest(15) = CByte(&H1)'数据长度arrbytTest(16) = CByte(&H5)'功能码arrbytTest(17) = CByte(&H10)arrbytTest(18) = CByte(&H90)'集中器地址arrbytTest(19) = CByte(&HBB)arrbytTest(20) = CByte(&HBB)arrbytTest(21) = CByte(&HBB)'校验和arrbytTest(22) = CByte(&H50)arrbytTest(23) = CByte(&H3)'获取要发送字节数lngNumberofBytesToWrite = UBound(arrbytTest) + 1'声明等待开始时间、结束时间值Dim writeStarTime, writeEndTime As LongwriteStarTime = GetTickCount()Debug.Print "发送开始时间：" & writeStarTime'定义发送循环步长值Dim i As Integer'定义累计发送字节数Dim intTotalNumberOfBytesToWritten As Integer'定义发送间隔时间（毫秒）Dim intIntervalTime As IntegerintIntervalTime = 0'发送数据For i = 0 To UBound(arrbytTest)flag = WriteFile(hCF, arrbytTest(i), 1, lngNumberofBytesToWritten, typOverLappe d)'获取出错码errNum = GetLastError()'Debug.Print "发送操作出错码：" & errNum'若返回值不是IO异步操作未决，则关闭串口If (errNum <> ERROR_IO_PENDING) And (errNum <> 0) Then GoTo closeCo mm'异步IO事件获取（返回值为0 表示出错）flag = WaitForSingleObject(typOverLapped.hEvent, 0)'Debug.Print "异步IO事件获取：" & flag'判断异步IO事件获取是否成功If flag <> 0 Then'异步IO操作结果获取(等待标记值，必须为true ，否则需要事件激活返回结果) flag = GetOverlappedResult(hCF, typOverLapped, lngNumberofBytesToWritten, 1)'Debug.Print "异步IO操作获取：" & flag'判断异步IO操作结果获取是否成功If flag <> 0 ThenintTotalNumberOfBytesToWritten = intTotalNumberOfBytesToWritten + _lngNumberofBytesToWrittenEnd IfEnd If'间隔时间（用于需要设定每字节间间隔时间的发送协议）Sleep (intIntervalTime)NextwriteEndTime = GetTickCount()Debug.Print "发送结束时间：" & writeEndTimeDebug.Print "发送总时间：" & (writeEndTime - writeStarTime)Debug.Print "串口发送操作：" & flagDebug.Print "实际发送字节数：" & intTotalNumberOfBytesToWritten'********清空缓冲区等待数据接收********flag = FlushFileBuffers(hCF)'Debug.Print "清空缓冲区：" & flag'********设置串口事件********'监听数据接收事件' flag = SetCommMask(hCF, EV_ERR Or EV_RXCHAR) ' Debug.Print "监听事件设置：" & flagflag = SetCommMask(hCF, 0)Debug.Print "监听事件设置：" & flag'********等待串口接收事件********'声明等待开始时间、结束时间值Dim sngStarTime, sngEndTime As Long'事件掩码Dim lngEventMask As Long'定义接收字节数变量Dim tempReceive As LongtempReceive = 0Debug.Print "监听开始"'生成开始时间sngStarTime = GetTickCount()Debug.Print "开始监听时间：" & sngStarTime'定义等待步骤参数Dim n As Integern = 1' '监听串口事件' flag = WaitCommEvent(hCF, lngEventMask, typOverLapped)' Debug.Print "监听操作：" & flag' '获取出错码' errNum = GetLastError()' Debug.Print "监听操作出错码：" & errNum'' '若返回值不是IO异步操作未决，则关闭串口' If (errNum <> ERROR_IO_PENDING) And (errNum <> 0) Then GoTo closeCom m'定义读取间隔时间(毫秒)Dim intReadIntervalTime As IntegerintReadIntervalTime = 1Do' '异步IO事件获取（返回值为0 表示出错）' flag = WaitForSingleObject(typOverLapped.hEvent, 0)' Debug.Print "异步IO事件获取：" & flag' '获取出错码' errNum = GetLastError()' Debug.Print "IO事件获取出错码：" & errNum'清除错误标志函数，获取串口设备状态flag = ClearCommError(hCF, lngError, typCommStat)Debug.Print "获取串口设备状态：" & flag'若获取状态成功If (flag <> 0) And (typCommStat.cbInQue > 0) Then Debug.Print "已接收字节数：" & typCommStat.cbInQue'判断接收缓冲区内的数据是否等于需要接收的字节数If typCommStat.cbInQue >= 22 Then'跳出循环Debug.Print "跳出循环"Exit DoEnd IfEnd If'生成结束时间sngEndTime = GetTickCount()Debug.Print "第" & n & "次监听事件时间：" & sngEndTime n = n + 1'读时间间隔Sleep (intReadIntervalTime)Loop Until (sngEndTime - sngStarTime) > 1000'生成结束时间sngEndTime = GetTickCount()Debug.Print "结束监听时间：" & sngEndTimeDebug.Print "监听结束"Debug.Print "总接收时间：" & (sngEndTime - sngStarTime)'********接收数据********'定义接收数组Dim arrbytReceive(0 To 22) As Byte'定义实际接收字节数Dim lngNBR As Long'重叠结构置0typOverLapped.hEvent = 0typOverLapped.Internal = 0typOverLapped.InternalHigh = 0typOverLapped.offset = 0typOverLapped.OffsetHigh = 0'接收数据flag = ReadFile(hCF, arrbytReceive(0), 23, lngNBR, typOverLapped) Debug.Print "串口接收操作：" & flagDebug.Print "实际接收字节数：" & lngNBR Debug.Print arrbytReceive(0)Debug.Print arrbytReceive(21)Debug.Print arrbytReceive(22) closeComm:'********关闭所有串口事件********flag = SetCommMask(hCF, 0)'Debug.Print "关闭串口事件：" & flag'********关闭串口********Dim closeFlag As LongcloseFlag = CloseHandle(hCF)Debug.Print "关闭串口：" & closeFlagEnd Sub。

VB串口通信程序代码

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

基于VB6.0的上位机与PLC实时通信技术

基于VB6.0的上位机与PLC实时通信技术一、引言随着自动化技术的不断发展，PLC（可编程逻辑控制器）已经成为自动化领域中不可或缺的设备。

PLC通常用于控制工业生产线上的设备和机器，而上位机则是用来监控和管理PLC系统的设备。

众所周知，实时通信是保证PLC系统正常运行的重要因素之一。

在这篇文章中，我们将重点介绍基于VB6.0的上位机与PLC实时通信技术。

二、VB6.0简介VB6.0是微软公司于1998年发布的一款集成开发环境（IDE），它是一种编程语言，被广泛用于开发Windows平台下的应用程序。

VB6.0具有简单易学、功能丰富、开发效率高等特点，因此在工业领域得到了广泛应用。

考虑到VB6.0的这些优势，我们可以利用它来开发上位机程序，并实现与PLC的实时通信。

三、PLC实时通信技术1. 串口通信PLC通常通过串口与上位机进行通信。

在VB6.0中，我们可以利用MSCOMM控件来实现串口通信。

通过在VB6.0的界面中添加MSCOMM控件，并设置相应的串口参数（如波特率、数据位、校验位、停止位等），就可以实现与PLC的串口通信。

2. Modbus通信Modbus是一种通信协议，被广泛用于工业控制领域。

通过Modbus协议，我们可以实现上位机与PLC之间的实时通信。

在VB6.0中，我们可以使用第三方的Modbus通信库来实现Modbus通信，例如Modbus ActiveX控件等。

通过这些控件，我们可以轻松地实现Modbus通信，从而实现上位机与PLC的实时数据交换。

3. Socket通信1. 配置MSCOMM控件接下来，我们需要编写VB6.0代码，实现与PLC的串口通信。

您可以编写相应的串口通信代码，例如打开串口、发送数据、接收数据等。

示例代码如下：Private Sub Form_Load()mPort = 1 ' 串口号MSComm1.Settings = "9600,n,8,1" ' 波特率、校验位、数据位、停止位MSComm1.PortOpen = True ' 打开串口End SubPrivate Sub Command1_Click()MSComm1.Output = "010*********FF01" ' 发送数据End Sub3. 运行程序并测试您可以运行程序，并测试与PLC的串口通信是否正常。

VB6_0串口通信数据采集设计

XU Jun-feng，MA Chun-cao，LIU Chang
（ Jiangsu Automation Research Institute，Lianyungang 222006，China）
Abstract： Based on serial communication principles and the MSComm control in VB6．0，the regular communica-
串行通信是计算机与其他设备进行数据交换时的常用方法，因其通信线路简单、使用灵活方便，而广泛应用于工业监控、数据采集和实时监控等领域。利用 VB6． 0 提供的标准 MSComm 控件，开发者只需知道 MSComm 控件的属性和事件的用法，就能非常方便地实现串口通信。本设计基于串口通信和 VB6．0 中的 MSComm 控件原理，实现计算机与自动化设备（ GPS 接收模块，场强仪）之间的通信并进行定时数据采集。它具有良好的人机交互界面，操作者可以进行数据采集模式设置、串口设置等，将数据保存入数据库并对数
添加 ADO 控件后，需对其属性进行设置，如表 2 所示。
表 2 ADO 控件属性设置
属性
设置
说明
名称
data_scan
设置 ADO 控件名称
Align
2
பைடு நூலகம்
设置 ADO 布局
ConnectionString
Provider = Microsoft． Jet． OLEDB． 3． 51； Persist Security Info = False； Data Source = D： \ data． mdb
据进行处理。
1 系统设计

VB6.0环境下利用Mscomm控件实现串行通信

VB6.0环境下利用Mscomm控件实现串行通信Use Mscomm Control Component to Implement Serial Communication under Visual Basic摘要: 本文简要介绍了VB6.0中Mscomm通信控件的属性和使用方法，并结合具体实例给出了基本的通信程序。

主题词：串行通信Visual Basic Mscomm .vbx控件Abstract: This paper briefly introduces the principle and method of Mscomm object of Visual basic 6.0, and with a real example basic program codes are given.Key Words：Serial Communication; Visual Basic; Mscomm .vbx control component随着计算机技术的飞速发展及其广泛应用，远程控制以及数据采集系统多采用上位机和下位机的主从工作方式，由于串行通信具有高效可靠、价格便宜，遵循统一的标准等特点，因而成为主要的通信手段。

微机的分析处理能力较强，有很好的人机界面和大容量的多种存储方式，所以上位机一般采用微机。

而单片机具有价格低，功能强，抗干扰能力好，温限宽和面向控制等特点，所以下位机采用单片机来构成主从式多机工作模式。

在需要对采集的数据进行分析处理或在远程需要对控制对象的控制过程进行统计或有条件控制时，采用数据库访问技术能有效地解决这类问题。

Visual Basic 6.0以其强大的功能、使用简单、能在短时间内开发出高效的通信程序而成为Windows系统开发的主要编程语言。

首先表现在VB可直接使用户自定义控件VBX或OCX文件；其次表现在VB可通过调用动态链接库（DLL，dynamic link library）来加快应用程序关键部分的执行速度。

VB串口通信数据采集

VB串口通信数据采集2009-05-12 18:40前两天受人之托写的一个程序，发上来共享，从中可以看到串口通信的常用处理方式，希望对大家有所帮助。

一、系统需求：使用三线制串口，利用vb与dsp通信，采集数据并存储为文本文件。

二、通信协议1. RS232串行通信的波特率设为9600，8位数据位，一位停止位，无校验位。

2. 每组数据包含T1（16位）和T2（16位），将每个数据分成2个8位的数据，先是低8位，然后是高8位。

数据为无符号整型。

先发T1，然后发T2，然后是下一组T1、T2。

T1以头数据0x0A(16进制，10进制位10)为头字节，然后是T1的低8位，T1的高8位。

T2以头数据0xA0(16进制，10进制位160)为头字节，然后是T2的低8位，T2的高8位。

发送时序举例：0x0A, t1低8位，t1高8位，0xA0, t2低8位，t2高8位……将收到的数据T1、T2的高低8位合并，转换成10进制数，以每行T1 T2的形式存储到txt文本文件中。

三、要点说明0. 如果通信协议没有考虑周全就着手开始做，可能会经受无比的痛苦1. 文本框textbox的大小限制为32k，不符合大量数据的需要，因此使用richtextbox2. 换行符为Chr(&HD) + Chr(&HA)3. 需要用状态栏给出必要的信息4. 保存文件的默认名字为当前日期5. 收到comm事件后，需要关闭com事件接收，避免再次触发事件Dim av As VariantDim datacount As LongPrivate Sub cmdClear_Click()txtData.Text = ""End SubPrivate Sub cmdStop_Click()'关闭端口If MSComm.PortOpen = True ThenMSComm.InBufferCount = 0 '清空缓冲区MSComm.PortOpen = FalseEnd IfcmdReceive.Enabled = TruelblStatus.Caption = "停止接收，空闲"End SubPrivate Sub cmdReceive_Click()'串口设置With MSComm.CommPort = 1.Settings = "9600,N,8,1".RThreshold = 1 '接收1字节触发oncomm事件.InputMode = comInputModeBinary.InputLen = 1 '输入长度为1.InBufferCount = 0 '清除接收缓冲区End With'打开端口If MSComm.PortOpen = False ThenMSComm.PortOpen = TrueIf Err ThenMsgBox (Err.Description)Exit SubEnd IfEnd IflblStatus.Caption = "打开端口，等待接收" datacount = 0cmdReceive.Enabled = FalseEnd SubPrivate Sub cmdSave_Click()Dim outfn As StringMsgBox ("接收了" + CStr(datacount) + "组数据") lblStatus.Caption = "接收完成，请选择输出文件"cmdReceive.Enabled = True'选择输出文件CommonDialog1.FileName = CStr(Date) + ".txt"CommonDialog1.Filter = "Text Files|*.txt"CommonDialog1.Flags = CommonDialog1.Flags Or cdlOFNOverwritePrompt CommonDialog1.CancelError = TrueOn Error GoTo errhandlerCommonDialog1.ShowSaveoutfn = CommonDialog1.FileNameOpen outfn For Output As #1Print #1, txtData.TextClose #1'txtData.SaveFile outfnlblStatus.Caption = "输出完成，空闲"errhandler:Exit SubEnd SubPrivate Sub Form_Load()lblStatus.Caption = "空闲"End SubPrivate Sub Form_Unload(Cancel As Integer)'关闭端口If MSComm.PortOpen = True ThenMSComm.InBufferCount = 0 '清空缓冲区MSComm.PortOpen = FalseEnd IfEnd SubPrivate Sub MSComm_OnComm()Dim T1, T2 As LongSelect Case mEventCase comEvReceive '收到Rthreshold个字节产生的接收事件MSComm.RThreshold = 0 '关闭OnComm事件接收lblStatus.Caption = "接收"av = MSComm.Input '读取一个接收字节dataframe(1) = av(0) '转换为字节If dataframe(1) = &HA Then '接收到T1DoDoEventsLoop Until MSComm.InBufferCount >= 2 '循环等待接收缓冲区>=2个字节av = MSComm.Inputdataframe(2) = av(0)av = MSComm.Inputdataframe(3) = av(0) '接收T1T1 = dataframe(2) + CLng(dataframe(3)) * 256 '计算T1End IfDoDoEventsLoop Until MSComm.InBufferCount >= 1 '循环等待接收缓冲区>=1个字节av = MSComm.Input '读取一个接收字节dataframe(4) = av(0) '转换为字节'接收到T2If dataframe(4) = &HA0 Then'MSComm.RThreshold = 0 '关闭OnComm事件接收'循环等待接收缓冲区>=2个字节DoDoEventsLoop Until MSComm.InBufferCount >= 2av = MSComm.Inputdataframe(5) = av(0)av = MSComm.Inputdataframe(6) = av(0) '接收T2T2 = dataframe(5) + CLng(dataframe(6)) * 256 '计算T2'显示T1 T2 entertxtData.Text = txtData.Text + CStr(T1) + " " + CStr(T2) + Chr(&HD) + Chr(&HA)datacount = datacount + 1 '数据组数+1End IfMSComm.RThreshold = 1 '打开OnComm事件接收Case ElseEnd SelectEnd Sub。

用VB6实现仪器串口通信及检测功能

1 设计用户界面首先新建一个“标准EXE”工程，然后选择“工程/部件”菜单项，在“部件”对话框中选择Microsoft Comm Control6.0即可添加MsComm控件；再在窗体中依次布置如下控件并设置其属性。

控件名称name属性Caption属性Form form1空Frame1frame1空Frame2frame2空Frame3frame3空Command1comd1确定Command2comd2退出Command3comd3确定Command4comd4退出Command5comd5做完退出MSComm msc1空Label 1lab1RS-232接口功能检测Label 2lab2请输入被检仪器程控码控制仪器功能Label 3lab3请输入被检仪器程控码读取仪器数据Text1txt1空Text2txt2空完成后的界面如图1所示图1 用户界面2 编写程序代码编写的程序代码如下：PriV ate Sub Form_Load（）mPort=1 ’ 使用串行口1’波特率9600，偶校验，8个数据位，1个停止位Msc 1.Settings=“9600，E，8，1”’当使用Msc 1.Input时，每次从接收缓冲区取一个字节。

Msc1.InputLen=0 ’读取整个接收缓冲区内码或消除Msc1.Portopen=True ’ 打开串行口End SubPrivate Sub Comd1_Click（）On Error Resume Next ’简单的错误处理If Txt1.Text = "" Thenx = MsgBox（"被检仪器程控码不能为空值", 16）Exit SubEnd IfMSC1.Output = Txt1.Text + Chr$（13）’发送程控码For i = 1 To 20000000NextEnd SubPrivate Sub Comd2_Click（）Txt1.Text = ""Txt1.SetFocusEnd SubPrivate Sub Comd3_Click（）Dim instring As stringinstring = MSC1.InputMSC1.Output = Txt2.Text + Chr$（13）DoDoEventsLoop Until MSC1.InBufferCount >= 20instring = MSC1.Input ’ 从接收队列中读入字符串Txt2.Text = ""Txt2.Text = instring ’ 显示读入的字符串End SubPrivate Sub Comd4_Click（）Txt2.Text = ""Txt2.SetFocusEnd SubPrivate Sub Comd5_Click（）MSC1.PortOpen = False ’ 关闭串行口EndEnd Sub3 程序简要说明上述程序设置的端口通信协议为：9600波特率，偶校验，8个数据位，1个停止位。

vb串口通讯代码

严重同意ZZJ1382的观点，可是在wincc里使用VBS还是还是很困难，不知道哪位能说明白一点。

下面是我在VB里的代码，已经测试过，可以读取串口数据，希望有一位高手帮忙研究在wincc中使用，谢谢！Dim SMSType As IntegerDim Senddata() As ByteDim Readsmsno As ByteSub opentestnote()wrap$ = Chr$(13) & Chr$(10)CommonDialog1.Filter = "text filer (*.txt)|*.txt"CommonDialog1.FileName = ""CommonDialog1.ShowOpen '使用通用对话框对象提示用户输入路径名'If Err = cdlCancel Then Exit SubIf CommonDialog1.FileName <> "" ThenForm1.MousePointer = 11Open CommonDialog1.FileName For Input As #1 '打开用户所指定的输入文件（Open...For Input）On Error GoTo toobig ' 处理所有可能发生的错误Do Until EOF(1) '复制过程直至达到文件尾（EOF）或者字符串空间全部被占满为止Line Input #1, lineoftext$ '将文件逐行复制到名为AllText$的字符串中（Line Input）alltext$ = alltext$ & lineoftext$ & wrap$ '在文本框中显示AllText$字符串，并提供滚动条'LoopClose #1Form1.MousePointer = 0Text3.Text = alltext$End IfGoTo nextfiletoobig:nextfile:End SubSub savetestnote()wrap$ = Chr$(13) & Chr$(10)CommonDialog1.Filter = "text filer (*.txt)|*.txt"CommonDialog1.ShowSave '使用通用对话框对象提示用户输入路径名If CommonDialog1.FileName <> "" ThenOpen CommonDialog1.FileName For Output As #3 'COPY到记录Print #3, Text1.TextClose #3End IfEnd SubSub cleartestnote()Form1.Text1.Text = ""End SubFunction ASCNUM(TXT As String) As Bytei = Asc(TXT)Select Case Asc(TXT)Case 48 ASCNUM = 0 Case 49 ASCNUM = 1 Case 50 ASCNUM = 2 Case 51 ASCNUM = 3 Case 52 ASCNUM = 4 Case 53 ASCNUM = 5 Case 54 ASCNUM = 6 Case 55 ASCNUM = 7 Case 56 ASCNUM = 8 Case 57 ASCNUM = 9Case 65ASCNUM = 10Case 66ASCNUM = 11Case 67ASCNUM = 12Case 68ASCNUM = 13Case 69ASCNUM = 14Case 70ASCNUM = 15Case ElseASCNUM = 16End SelectEnd FunctionPrivate Sub Cls_Click() frmProperties.Show vbModal End SubPrivate Sub Print_Click() Form1.Text1 = bufferEnd SubPrivate Sub Init_Click()sign = 0mPort = 1If MSComm1.PortOpen = False ThenMSComm1.Settings = "9600,n,8,1"MSComm1.PortOpen = TrueEnd IfMSComm1.OutBufferCount = 0MSComm1.InBufferCount = 0MSComm1.Output = Chr$(2) & Chr$(27) & "]R" & Chr$(3) MSComm1.Output = Chr$(2) & Chr$(27) & "ZB1" & Chr$(3)buffer = ""End SubPrivate Sub Form_Load()'设置串口Settings = GetSetting(App.Title, "属性", "设置", "") ' frmTerminal.MSComm1.Settings] If Settings <> "" Then MSComm1.Settings = SettingsIf Err ThenMsgBox Error$, 48Exit SubEnd IfElseMSComm1.Settings = "2400,N,8,1"End IfCommPort = GetSetting(App.Title, "属性", "通信端口", "") ' mPortIf CommPort <> "" ThenmPort = CommPortElsemPort = 1End IfHandshaking = GetSetting(App.Title, "属性", "握手", "") 'frmTerminal.MSComm1.HandshakingIf Handshaking <> "" ThenMSComm1.Handshaking = HandshakingIf Err ThenMsgBox Error$, 48Exit SubEnd IfElseMSComm1.Handshaking = 0End IfTHESMSTYPE = GetSetting(App.Title, "属性", "SMS", "") ' mPortIf THESMSTYPE <> "" ThenSMSType = Val(THESMSTYPE)ElseSMSType = 1End IfTHENUMBER = GetSetting(App.Title, "属性", "NUMBER", "") ' mPortIf THENUMBER <> "" ThenEnd IfReadsmsno = 1'显示状态栏With Form1.StatusBar1.Panels.Item(1).Text = "串口状态：" & "COM" & mPort & " Set=" & Form1.MSComm1.Settings & " " & Form1.MSComm1.PortOpenEnd WithEnd SubPrivate Sub mnuclear_Click()cleartestnoteEnd SubPrivate Sub mnuclrdistxt_Click()Form1.Text1.Text = ""End SubPrivate Sub mnucommopen_Click()MSComm1.PortOpen = Not MSComm1.PortOpenmnucommopen.Checked = MSComm1.PortOpenWith Form1.StatusBar1.Panels.Item(1).Text = "串口状态：" & "COM" & mPort & " Set=" & Form1.MSComm1.Settings & " " & Form1.MSComm1.PortOpenEnd WithEnd SubPrivate Sub mnucommseting_Click()frmProperties.Show vbModalEnd SubPrivate Sub mnuexit_Click()Unload MeEnd SubPrivate Sub mnuopen_Click()opentestnoteEnd SubPrivate Sub mnusave_Click()savetestnoteEnd SubPrivate Sub MSComm1_OnComm()Dim buffer() As ByteDim Bufferlength As IntegerSelect Case mEvent' Handle each event or error by placing' code below each case statement' 错误Case comEventBreak ' 收到Break。

串口测试软件 VB代码

串口测试软件 VB代码部分代码如下：Dim Port 'COM端口检测Dim p 'COM端口检测Dim s(255) As Integer '端口1-255Dim s1(255) '端口1-255Dim str '奇偶校验传递符Dim portstr As StringPrivate Sub Command1_Click()On Error Resume Next'---------------端口参数设置--------------- If Command1.Caption = "打开串口(&O)" Then Command1.Caption = "关闭串口(&C)"Command2.Enabled = TrueIf Combo3.Text = "无" Thenstr = "n"End IfIf Combo3.Text = "奇校验" Thenstr = "o"End IfIf Combo3.Text = "偶校验" Thenstr = "e"End IfIf Combo3.Text = "空格" Thenstr = "s"End IfIf Combo3.Text = "标记" Thenstr = "s"End If'---------------端口识别---------------For Port = 1 To 255s1(Port) = "COM" & PortIf Combo5.Text = s1(Port) ThenmPort = PortMSComm1.PortOpen = TrueIf MSComm1.PortOpen = True ThenRichTextBox2 = "COM" & Port & "已成功打开。

vb串口通信源代码

Private Declare Function ShellExecute Lib"shell32.dll"Alias "ShellExecuteA"(ByVal hwnd As Long,ByVal lpOperation As String,ByVal lpFile As String,ByVal lpParameters As String,ByVal lpDirectory As String,ByVal nShowCmd As Long)As LongPrivate Sub Combo1_Click()If MSComm1.PortOpen=True Then'如果串口打开先关闭后再进行其他操作MSComm1.PortOpen=FalseEnd IfmPort=Combo1.ListIndex+1'读取com口号End SubPrivate Sub Command1_Click()'发送到窗口现在时间time1=Timedate1=Datenow1=NowText1.Text=Hour(Time)&"时"&Minute(Time)&"分"& Second(Time)&"秒"&vbNewLine&Year(Date)&"年"& Month(Date)&"月"&Day(Date)&"日"End SubPrivate Sub Command2_Click()Text1.Text="详情参考"&vbNewLine&"淘宝店铺：/"'说明内容输出End SubPrivate Sub Command3_Click()'清空文本内容Text1.Text=""'接收窗口End SubPrivate Sub Command4_Click()'清空文本内容Text2.Text=""'发送窗口End SubPrivate Sub Command5_Click()On Error GoTo uerror'发现错误跳转到错误处理If Command5.Caption="关闭串口"ThenMSComm1.PortOpen=FalseCommand5.Caption="打开串口"'按钮文字改变Shape1.FillColor=&HFFFFC0'灯颜色改变ElseMSComm1.PortOpen=TrueCommand5.Caption="关闭串口"Shape1.FillColor=&HFFEnd IfExit Subuerror:msg$="无效端口号"'错误显示Title$="串口调试助手"x=MsgBox(msg$,48,Title$)'48标示显示警告图标End SubPrivate Sub Command6_Click()Dim Temp(0)As ByteDim strBuff As StringIf Option5.Value=True Then'如果显示16进制发送则进行16进制处理，这里只发送一个Temp(0)="&H"&Text2MSComm1.Output=Temp'发送一个16进制ElsestrBuff=Text2End IfIf MSComm1.PortOpen=False ThenMsgBox"请打开串口"End IfOn Error GoTo uerrorMSComm1.Output=strBuffLabel11.Caption=Label11.Caption+Len(strBuff)'发送计数uerror:End SubPrivate Sub Command7_Click()'自动发送If Command7.Caption="自动发送"Then Command7.Caption="关闭自动发送"Timer2.Interval=Text3.TextTimer2.Enabled=TrueElseCommand7.Caption="自动发送"Timer2.Enabled=FalseEnd IfEnd SubPrivate Sub Command8_Click()'清零计数器Label10.Caption=0Label11.Caption=0End SubPrivate Sub Form_Load()If MSComm1.PortOpen=True ThenMSComm1.PortOpen=FalseElseEnd 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=0mPort=Combo1.ListIndex+1MSComm1.Settings="9600,n,8,1"Command5.Caption="打开串口"Shape1.FillColor=&HFFFFC0Option2.Value=TrueOption3.Value=TrueCombo2.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"End SubPrivate Sub Label12_Click()ShellExecute Me.hwnd,"open","",0,0,5End SubPrivate Sub Label13_Click()ShellExecute Me.hwnd,"open","", 0,0,SW_SHOWMAXIMIZEDEnd SubPrivate Sub MSComm1_OnComm()Dim BytReceived()As ByteDim strBuff As StringDim i As IntegerSelect Case mEvent'事件发生Case2ClsMSComm1.InputLen=0'读入缓冲区全部内容strBuff=MSComm1.Input'读入到缓冲区Label10.Caption=Label10.Caption+Len(strBuff)'接收计数If MSComm1.InputMode=comInputModeBinary Then BytReceived()=strBuff'如果是二进制接收模式则进行数据处理，否则直接显示字符串For i=0To UBound(BytReceived)If Len(Hex(BytReceived(i)))=1ThenstrData=strData&"0"& Hex(BytReceived(i))&""'如果只有一个字符，则前补0，如F显示0F，最后补空格Else'方便显示观察如：000F FEstrData=strData&Hex(BytReceived(i))&" "End IfNextText1=Text1&strDatastrData=""ElseText1=Text1&strBuffEnd IfEnd SelectEnd SubPrivate Sub Option1_Click()MSComm1.InputMode=comInputModeBinary'选择接收方式End SubPrivate Sub Option2_Click()MSComm1.InputMode=comInputModeTextEnd SubPrivate Sub Text3_Change()'Timer2.Interval=Text3.TextEnd SubPrivate Sub Timer1_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 Timer2_Timer()Call Command6_Click'定时调用手动发送End Sub。

基于VB6_0与单片机串行通信的数据采集系统设计 (1)

用这两个特殊功能寄存器来控制串行口的工作方式（方式 (）和波特率（ @ E&& F 6 ;） 9 根据一定的通信协议，可以将缓冲区的数据传送到上位机。
单片机的 !+3 9
& 3& 3(
3,
3’
3.
3-
3E
3?
(
止位
图$
串行通信的数据格式
自动化与仪表
!""#$%&
!"
计算机应用
!
!"#
数据采集系统的程序设计
下位机的软件设计下位机采用查询方式发送数据主要程序如下：
发送数据段的初始地址
[JJ : ?STTMJ 5GJ N : ; !G 9 JM_MNZMAKJ : [JJ\N]
L 转换为二进制数并送入相应数组
!M‘K;I!M‘K : !M‘K;I!M‘K a JM_MNZMJAKJ a QIQ 1M‘K N .OY #MXM_K .OY #S?
L 在接收文本
框中显示
!"# $ %&’ ()!" * +(,!,-,((".## ； %&’ %&’ "/* #345* +(,!,-0.12 "/2
发送长度寄存器初始化发送长度串口初始化
%&’ #6&1 * +/782 %&’ )6&1* +9782 %&’ !%&( * +<782 %&’ %&’ 0;$ !8;* !0;* +75(82 +75(82
［晋明武，王平 I%6#b/; 单片机原理及实用技术［ ; ］张振荣， %］ I 北更新数据单元循环直到结束；京：人民邮电出版社 *<777I ［齐燕杰，宋文超 I’NAS[X 3[AN_ 串口通信工程开发实例导 < ］仵浩，航［人民邮电出版社 *<77cI %］ I 北京：［ c ］伊崇信 * 赵颖 I 利用 ’NAS[X 3[AN_ 实现串行通信技术［ C］ I 齐齐哈尔大学学报， <77< ， ;9 \c]$V9b/;I 等待发送

基于VB6.0开发的PC与FANUC机床实时通讯监控实例+源代码

基于VB6.0开发的PC与FANUC机床实时通讯监控实例+源代码1,实时监控截图：（双工作区FANUC系统机床，实时加工状态截图）（单工作区FANUC系统机床，实时加工状态截图）2,具体实现详细步骤及源代码；⑴,开发语言环境：VB6.0⑵,针对对象：FANUC(0i/16i/18i/31i等)⑶,实现目的:通过以太网实现实时网络监控，读取当前运行的程序名，刀具T号，以及运行的Cycle Time如图所示:⑷,实现的方法及源代码：1，百度下载或者从我这里获得正版的“Fwlib32.dll/Fwlib32.lib/Fwlibe1.dll”文件2，新建*.bas类模块，定义相应所需的特殊结构体及声明相关的函数：（由于需要定义的特殊结构体太多，我这里有自己花费不少时间写好的源代码）3，界面窗体的制作：这个大家可以按照自己的喜好去制作，自己需要监控多少台机床，就设计一个自己喜欢的界面即可：（我的界面供大家参考）4，接下来就是具体函数的调用了，其实挺简单的：我给大家演示一个最基本的网络连接函数：PC如何连接FANUC机床？使用函数：cnc_allclibhndl3即就是刚我们在.bas模块中定义的FOCAS库函数Private Sub Connect_Click(Index As Integer)For i = 0 To 15mand1(i).Enabled = Truemand2(i).Enabled = TrueSelect Case iCase 3, 5j = cnc_allclibhndl3(ip(i), 8194, 1, FlibHndl) Case Else此处红色即为连接机床的函数：IP（i）：机床IP地址；8193/8194：机床端口号；j为返回值，若返回0即为连接上j = cnc_allclibhndl3(ip(i), 8193, 1, FlibHndl) End SelectIf j <> 0 ThenAnchor.Frame2(i).BackColor = RGB(100, 100, 100)mand1(i).BackColor = RGB(255, 0, 0)mand2(i).BackColor = RGB(255, 0, 0)mand1(i).Caption = "Net Break"mand2(i).Caption = "Net Break"ElseAnchor.Frame2(i).BackColor = RGB(0, 255, 0)Handl(i) = FlibHndlEnd IfNext iEnd Sub其他函数也是类似的调用！希望对爱好数控的你能有所帮助！！若您在阅读了个人拥有自主知识产权的文档后，觉得比较感兴趣，可以加我微信或者QQ：[QQ：852266205 微信:Hgl_Lch ]，给小弟一点激励！因为我自己研究出这个也花费了不少功夫，就差点被自己夫人赶去跪键盘了！大家只需要给小弟我发个20块钱的红包就OK了，承诺将由本人自己开发的小软件[可在线读取机床上的所有系统变量及用户宏变量，在线分析单一每把刀具加工的时间，机床报警信息，切削程序，产出及Cycle Time等]及所有源代码回赠给您, 包您搞定你们的小日本机床。

用VB6.0实现计算机间串口通信

用ＶＢ６．０实现计算机间串口通信作者：李永胜来源：《电脑知识与技术·学术交流》2008年第08期摘要：本文主要介绍利用VB6.0串行通信编程的方法，利用MSComm控件实现计算机与计算机间的串口通信。

关键词：串口通信；VB6.0；MSCOMM控件中图分类号：TP393文献标识码：A文章编号：1009-3044(2008)08-10ppp-0c随着互联网的不断发展,计算机间的相互通信已非常普遍,只要通过计算机的串行口就可以实现。

而对于串口通信的编程软件，微软公司的Visual Basic 6.0（简称VB6.0）以其友好的开发界面、简单易用、实用性强等优点已在国内外得到广泛应用。

VB6.0提供了许多供用户选择的控件，这些控件以.OCX为文件后缀名，其中MSComm.OCX即是用于串行通信的控件。

如果需要使用该控件,可将控件添加到工具箱内,这样就可以利用该控件进行串行通信程序的设计。

下面这个例子，说明如何进行串行通信程序设计，该程序在Windows98环境下已调试通过。

在调试程序时，很难做到一个人同时占有两台计算机。

为此，可通过直接短接串口的2、3两个脚，即将串行口的2、3脚连接在一起，从而使发送的信息直接被本机接收。

这样，就可以在一台计算机上调试程序。

1 MSComm控件常用属性Commport 设置并返回通信端口号。

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

PortOpen设置并返回通信端口的状态，也可以打开和关闭端口。

InBufferSize 设置并返回接收缓冲区的字符数。

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

InputLen设置并返回Input属性从缓冲区读取的字符数。

OutBufferSize以字符形式设置并返回传输缓冲区的大小。

Output向传输缓冲区写数据。

2 用户界面设计首先新建一个“标准EXE”工程，然后选择“工程/部件”菜单项，在“部件”对话框中选择Microsoft Comm Control6。

VB串口调试助手源代码

VB串口调试助手源代码Dim OutputAscii As BooleanDim InputString As StringDim OutputString As String'============================================================================== =======' 变量定义'============================================================================== =======Option Explicit ’强制显式声明Dim ComSwitch As Boolean ’串口开关状态判断Dim FileData As String ’要发送的文件暂存Dim SendCount As Long ’发送数据字节计数器Dim ReceiveCount As Long ’接收数据字节计数器Dim InputSignal As String ’接收缓冲暂存Dim OutputSignal As String ’发送数据暂存Dim DisplaySwitch As Boolean ’显示开关Dim ModeSend As Boolean ’发送方式判断Dim Savetime As Single ’时间数据暂存延时用Dim SaveTextPath As String ’保存文本路径' 网页超链接申明Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub CloseCom() '关闭串口On Error GoTo ErrIf MSComm.PortOpen = True ThenMSComm.PortOpen = False’先判断串口是否打开，如果打开则先关闭txtstatus.Text = "STATUS：COM Port Cloced" ’串口状态显示mnuconnect.Caption = "断开串口"cmdswitch.Caption = "打开串口"'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口调试软件\图片\guan.jpg") ' 显示串口已经关闭的图标ImgSwitchoff.Visible = TrueImgSwitchon.Visible = FalseErr:End SubPrivate Sub UpdateStatus()If MSComm.PortOpen ThenStatusBar1.Panels(1).Text = "Connected"mnuautosend.Caption = "自动发送"mnuconnect.Caption = "断开串口"ElseStatusBar1.Panels(1).Text = "断开串口"mnuautosend.Caption = "disautosend"mnuconnect.Caption = "打开串口"End IfStatusBar1.Panels(2).Text = "COM" & mPortStatusBar1.Panels(3).Text = MSComm.SettingsIf (OutputAscii) ThenStatusBar1.Panels(4) = "ASCII"ElseStatusBar1.Panels(4) = "HEX"End If'On Error GoTo ErrIf ChkAutoSend.Value = 1 Then ’如果有效则，自动发送If MSComm.PortOpen = True Then ’串口状态判断mnuautosend.Caption = "Dis&autosend"TmrAutoSend.Interval = Val(TxtAutoSendTime) ’设置自动发送时间TmrAutoSend.Enabled = True ’打开自动发送定时器Elsemnuautosend.Caption = "autosend"ChkAutoSend.Value = 0 ’串口没有打开去掉自动发送MsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口End IfElseIf ChkAutoSend.Value = 0 Then ’如果无效，不发送mnuautosend.Caption = "autosend"TmrAutoSend.Enabled = False ’关闭自动发送定时器End IfErr:End SubPrivate Sub CmdSendFile_Click() '发送文件On Error GoTo ErrIf MSComm.PortOpen = True Then ’如果串口打开了，则可以发送数据If FileData = "" Then ’判断发送数据是否为空MsgBox "发送的文件为空", 16, "串口调试助手" ’发送数据为空则提示ElseIf ChkHexReceive.Value = 1 Then ’如果按十六进制接收时，按二进制发送，否则按文本发送MSComm.InputMode = comInputModeBinary ’二进制发送ElseMSComm.InputMode = comInputModeText ’文本发送End IfMSComm.Output = Trim(FileData) ’发送数据ModeSend = True ’设置文本发送方式End IfElseMsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口End IfErr:End SubPrivate Sub Comm_initial(Port As Byte, BaudRate As String, ParityBit As String, DataBit As Integer, StopBit As Integer)On Error GoTo ErrorTrap ' 错误则跳往错误处理If MSComm.PortOpen = True Then MSComm.PortOpen = False’先判断串口是否打开，如果打开则先关闭mPort = Port ’设定端口MSComm.Settings = BaudRate & "," & ParityBit & "," & DataBit & "," & StopBit ' 设置波特率，无校验，8位数据位，1位停止位MSComm.InBufferSize = 1024 ’设置接收缓冲区为1024字节MSComm.OutBufferSize = 4096 ’设置发送缓冲区为4096字节MSComm.InBufferCount = 0 ’清空输入缓冲区MSComm.OutBufferCount = 0 ’清空输出缓冲区MSComm.SThreshold = 1 ’发送缓冲区空触发发送事件MSComm.RThreshold = 1 ’每X个字符到接收缓冲区引起触发接收事件MSComm.OutBufferCount = 0 ’清空发送缓冲区MSComm.InBufferCount = 0 ’滑空接收缓冲MSComm.PortOpen = True ’打开串口If MSComm.PortOpen = True Thentxtstatus.Text = "STATUS：" & cbocom.Text & " OPEND，" & cbobaudrate.Text & "," &Left(cboparitybit.Text, 1) & "," & cbodatabit.Text & "," & cbostopbit.TextElsetxtstatus.Text = "STATUS：COM Port Cloced" ’串口没打开时，提示串口关闭状态End IfExit SubErrorTrap: ’错误处理Select Case Err.NumberCase comPortAlreadyOpen ’如果串口已经打开，则提示MsgBox "没有发现此串口或被占用", 49, "串口调试助手"CloseComCase ElseMsgBox "没有发现此串口或被占用", 49, "串口调试助手"CloseComEnd SelectErr.ClearEnd SubPrivate Sub Comm_reSet(Port As Byte, BaudRate As String, ParityBit As String, DataBit As Integer, StopBit As Integer)On Error GoTo ErrorHint ’错误则跳往错误处理If MSComm.PortOpen = True Then MSComm.PortOpen = False’先判断串口是否打开，如果打开则先关闭mPort = Port ’设定端口MSComm.Settings = BaudRate & "," & ParityBit & "," & DataBit & "," & StopBit ' 设置波特率，无校验，8位数据位，1位停止位MSComm.PortOpen = True ’打开串口If MSComm.PortOpen = True Thencmdswitch.Caption = "关闭串口"'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口调试软件\图片\kai.jpg") ' 显示串口已经打开的图标ImgSwitchoff.Visible = Falsemnuconnect.Caption = "disconnect"ImgSwitchon.Visible = Truetxtstatus.Text = "STATUS：" & cbocom.Text & " OPEND，" & cbobaudrate.Text & "," &Left(cboparitybit.Text, 1) & "," & cbodatabit.Text & "," & cbostopbit.TextElsecmdswitch.Caption = "打开串口"'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口调试软件\图片\guan.jpg") ' 显示串口已经关闭的图标ImgSwitchon.Visible = FalseImgSwitchoff.Visible = Truetxtstatus.Text = "STATUS：COM Port Cloced"End IfExit SubErrorHint: ’错误处理Select Case Err.NumberCase comPortAlreadyOpen ’如果串口已经打开，则提示MsgBox "没有成功，请重试", vbExclamation, "串口调试助手"CloseCom ’调用关闭串口函数Case ElseMsgBox "没有成功，请重试", vbExclamation, "串口调试助手"CloseCom ’调用关闭串口函数End SelectErr.Clear ’清除Err 对象的属性End SubPrivate Sub Command1_Click()End SubPrivate Sub cbobaudrate_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1), cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub cbocom_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1), cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub cbodatabit_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1), cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub cboparitybit_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1), cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub cbostopbit_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1), cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub chkautosend_Click()On Error GoTo ErrIf ChkAutoSend.Value = 1 Then ’如果有效则，自动发送If MSComm.PortOpen = True Then ’串口状态判断mnuautosend.Caption = "取消自动发送"TmrAutoSend.Interval = Val(TxtAutoSendTime) ’设置自动发送时间TmrAutoSend.Enabled = True ’打开自动发送定时器ElseChkAutoSend.Value = 0 ’串口没有打开去掉自动发送MsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口End IfElseIf ChkAutoSend.Value = 0 Then ’如果无效，不发送mnuautosend.Caption = "自动发送数据"TmrAutoSend.Enabled = False ’关闭自动发送定时器End IfErr:End SubPrivate Sub cmdamend_Click()Dim spShell As Object ’定义存放引用对象的变量Dim spFolder As Object ’定义存放引用对象的变量Dim spFolderItem As Object ’定义存放引用对象的变量Dim spPath As String ’定义存放的变量On Error GoTo Err ’错误处理，防止取消打开文件夹时报错Const WINDOW_HANDLE = 0Const NO_OPTIONS = 0Set spShell = CreateObject("Shell.Application")Set spFolder = spShell.BrowseForFolder(WINDOW_HANDLE, "选择目录:", NO_OPTIONS,"C:\Scripts")Set spFolderItem = spFolder.SelfspPath = spFolderItem.PathspPath = Replace(spPath, "\", "\") ’ Replace函数的返回值是一个字符串txtsavepath.Text = spPath ’把文件夹路径显示在标签上SaveTextPath = txtsavepath.Text ’路径暂存Err:End SubPrivate Sub CmdClearCounter_Click()On Error GoTo ErrSendCount = 0 ’发送计数器清零ReceiveCount = 0 ’接收计数器清零txtRXcount.Text = "RX:" & 0 ’接收计数txtTXcount.Text = "TX:" & 0 ’发送计数Err:End SubPrivate Sub cmdclearrecieve_Click()TxtReceive.Text = ""End SubPrivate Sub cmdclearsend_Click()txtsend.Text = ""End SubPrivate Sub CmdHelp_Click()FrmHelp.ShowEnd SubPrivate Sub CmdQuit_Click()If MSComm.PortOpen = True Then MSComm.PortOpen = False’先判断串口是否打开，如果打开则先关闭Unload Me ’卸载窗体，并退出程序EndEnd SubPrivate Sub cmdsavedisp_Click()On Error GoTo Err ’错误处理SaveTextPath = txtsavepath ’路径暂存Open txtsavepath & "\1.txt" For Output As #1 ’打开文件’不存在的话会创建文件,如已存在会覆盖’ output 改为append 为追加’改为input 则只读Print #1, Year(Date) & "年" & Month(Date) & "月" & Day(Date) & _"日" & Hour(Time) & "时" & Minute(Time) & "分" & Second(Time) & _"秒" & vbCrLf & TxtReceive.Text + vbCrLf ’把接收区的文本保存文本前加上保存时间（0000年00月00日00时00分00秒）’ vbcrlf 为回车换行Close #1 ’关闭文件txtsavepath = "OK,1.txt Save" ’提示保存成功cmdsavedisp.Enabled = FalseSavetime = Timer ’记下开始的时间While Timer < Savetime + 5 ’循环等待5 - 要延时的时间DoEvents ’转让控制权，以便让操作系统处理其它的事件。