VB关于串口操作

xwylpsy 2010-03-02 02:58:54
用VB做一个小程序,发送和读取串口中的数据,发送数据没有问题,在读取数据时有时会出错,串口设备中它每次都会发送一条指令出来,而且是以“#”作为开结符,以“0D+0A”(回车换行)作为结束符,但有时缓存区内有些不是符合的命令,现在怎样从缓存区里一条一条地读取出来?现在我只能把缓存里面的全部数据都一起拿出来,但其中有很多不是我想要,而且不单是一条数据!

dim com_string '存储读取数据
Dim t1 As Long, com_String As String
t1 = Timer
Select Case MSComm1.CommEvent
Case comEvReceive '收到 RThreshold定义的字符数1字节
Do
DoEvents
Loop While Timer - t1 < 0.05
com_String = MSComm1.Input
End Select
...全文
84 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
chennan89 2012-02-25
  • 打赏
  • 举报
回复
读串口数据,真是想了好久,太不熟练
现在还是人类 2010-03-02
  • 打赏
  • 举报
回复
每一次串口事件产生的时候,就收数据就行啦,
即使数据量不够,也没关系,放到指定内存里自己缓冲不就可以了
比如

Dim com_String As String
Private Sub MSComm1_OnComm()
Dim rd As Long
Dim CommandStr As String
If MSComm1.CommEvent = comEvReceive Then

com_String = com_String & MSComm1.Input
rd = InStr(1, com_String, vbCrLf)
If rd <> 0 Then
'已经完整的收到数据
If rd = Len(com_String) - 2 Then
'正好收完一条命令
ExecCommand:
CommandStr = com_String
Select Case UCase(CommandStr)
Case "COMMAND1": ExecuteYourCommand1
'...
End Select
com_String = ""
Else
'同时收到了下一条命令的部分
CommandStr = Left(com_String, rd)
rd = rd + 2
com_String = Right(com_String, Len(com_String) - rd)
GoTo ExecCommand
End If
End If
End If
End Sub

切忌不要在 OnComm 事件里用 Do...Loop 来想等待系统把数据放多点到缓冲区,
这样不出问题才怪,VB可是单线程的东西呀。
zdingyun 2010-03-02
  • 打赏
  • 举报
回复
固执己见的LZ,无语了.
xwylpsy 2010-03-02
  • 打赏
  • 举报
回复
现在我遇到这样一个问题,我用串口调试工具接收数据时能准确地接收到数据,而我用自己写的代码做的时候就会有一些不同的数据发送过来(如:空格等)

dim com_string '存储读取数据
Dim t1 As Long, com_String As String
t1 = Timer
Select Case MSComm1.CommEvent
Case comEvReceive '收到 RThreshold定义的字符数1字节
Do
DoEvents
Loop While Timer - t1 < 0.05
com_String = MSComm1.Input
End Select


除了上面这种接收数据方法还有没有其他的方法进行接收数据!
现在还是人类 2010-03-02
  • 打赏
  • 举报
回复
你应该这么看所谓的缓冲区内容,是根据什么来决定内容应该是多少的呢?
如果下位机发过来的是不定大小的数据,如图像或其他的什么数据,难道你
认为系统能识别下位机发的数据大小是多少,然后一次缓冲到一个地方后再
触发事件让你一次接收吗?
这是不现实的,一定要靠基本的协议和多次接收累计传输的数据的过程来处
理。搞开发的就是做这些麻烦的事,如果不麻烦,也就不用开发了。
贝隆 2010-03-02
  • 打赏
  • 举报
回复
楼主可以根据通信协议来拆分你所收到的字符串,比如你收到:#.....0D0A#...
那么你可以使用Instr来读取2个#的位置,取其中的字符串即可。

楼主可以参考一下这个代码:
http://download.csdn.net/source/1262066
zdingyun 2010-03-02
  • 打赏
  • 举报
回复
引用 2 楼 xwylpsy 的回复:
对了,还有一个问题,怎样才能把缓存区里的全部数据拿出来,就是我取出一个数据后然后再处理,但可能串口设备这时会发过一个数据过来,但处理完之后又有一个数据发送过来,这时怎样取出中间那个数据!
            If Mid(com_string, 1, 1) = "#" And Right(com_string, 2) = vbCrLf Then
'在此写数据处理代码
Debug.Print com_string
com_string = ""
End If
chinaboyzyq 2010-03-02
  • 打赏
  • 举报
回复
引用 2 楼 xwylpsy 的回复:
对了,还有一个问题,怎样才能把缓存区里的全部数据拿出来,就是我取出一个数据后然后再处理,但可能串口设备这时会发过一个数据过来,但处理完之后又有一个数据发送过来,这时怎样取出中间那个数据!

MSComm1.InputLen = 0
'为 0 时,使用 Input 将使 MSComm 控件读取接收缓冲区中全部的内容。
xwylpsy 2010-03-02
  • 打赏
  • 举报
回复
对了,还有一个问题,怎样才能把缓存区里的全部数据拿出来,就是我取出一个数据后然后再处理,但可能串口设备这时会发过一个数据过来,但处理完之后又有一个数据发送过来,这时怎样取出中间那个数据!
zdingyun 2010-03-02
  • 打赏
  • 举报
回复
Option Explicit
Dim com_string As String

Private Sub Form_Load()
MSComm1.InputMode = comInputModeText
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
com_string = com_string & MSComm1.Input
If Mid(com_string, 1, 1) = "#" And Right(com_string, 2) = vbCrLf Then
Debug.Print com_string
com_string = ""
End If
End Select
End Sub
001、VB串口通讯视频教程源码41个 002、Visual Basic串口通信工程开发实例导航随书源码7个 003、Visual Basic串口通信与测控应用技术实战详解 源代码(15个全) 004、GE PLC串口通讯,VB编制,读取内存单元 005、PC机与51单片机之间的串口通讯,VB编的,分PC和单片机两部分 006、VB6的串口通信程序,还有crc校验 007、VB Modbus RTU源码,其中协议部分已生成DLL,可直接调用 008、VB.net开发的串口调试程序 009、VB.net实现串口编程,希望大家有用 010、VB串口调试程序,包含VB源码及安装文件,适合调试串口 011、VB编程RS232串口控制DA数模转换 012、VB编程实现的串口调试工具源码 013、VB编写的RS232串口通信测试程序,以txt格式接受,可定义发送字符 014、VB编写的SouthStar串口测试与51串口烧写器V1.0版 015、VB编写的串口调试助手1.0的源码 016、VB编写的串口短信发送程序,需要数据线支持 017、VB编写的串口通信程序,实现多机通信 018、VB编写的串口通信程序,主要用于上位机与下位机间的通信 019、VB编写的串口通信程序界面参考网上的程序较简单 020、VB编写的串口通讯界面,主要面向51单片机的串口通信 021、VB编写的单片机和PC串口通信的调试程序 022、VB编写的仿真实电子琴操作界面,包含与FPGA串口通信的功能 023、VB串口API通讯,附带BAS文件全部源码,实现与饭卡读卡器通讯 024、VB串口编程,关于上位机的应用,特别适合初级学习VB的学员 025、VB串口编程调试精灵源码 026、VB串口编程实现完整的多费率电表读数软件 027、VB串口程序,,是一个串口使用例程,对初学者有用,特别是工控类的 028、VB串口传输文本,实现2台PC间的通信,类似简单的聊天工具 029、VB串口的一个电子称的项目 030、VB串口调试程序,用于通过串口控制松下空调测试 031、VB串口调试程序及源码 032、VB串口调试软件源代码,可以参考修改为其它通讯程序 033、VB串口调试软件源文件 034、VB串口控制步进电机程序完整源码 035、VB串口通信 6路10位AD转换数据采集源程序 036、VB串口通信,API串口通信模块源码 037、VB串口通信,适用简单,适合初学者 038、VB串口通信操作界面,进行数据采集,画实时曲线 039、VB串口通信程序,可以读取串口并显示保存数据,且能显示数据曲线 040、VB串口通信的源码,学习的好资料 041、VB串口通信调试器的源码程序 042、VB串口通信设计视频演示源码 043、VB串口通信示例 044、VB串口通信数据源码 045、VB串口通信之串口接收程序 046、VB串口通讯测试源代码,有文本和图形两种端口数据观察方式 047、VB串口通讯程序,用来跟单片机通讯 048、VB串口通讯代码(部分) 049、VB串口通讯的参考源程序 050、VB串口通讯实例 高精度电压表(24bit) VB源程序 051、vb串口通讯示例 052、VB串口与伺服电机DSP2407通讯完整代码源程序 053、VB串口源码,动力电池检测数据采集,内含电导巡检模块通讯报文,可,读写,保存,备份数据 054、VB串口字节通信程序,包括:1字节发送子程序,n字节接收子程序 055、VB串行口通信测试示例 056、VB串行通信试验程序 057、VB的MODEM通信源代码,智能化水电远端数据读取系统 058、VB串口源程序,包括串口的配置界面,接收功能和发送功能 059、VB访问串口,并读取电子秤上显示的数据 060、VB和西门子S7-300 PLC串口通讯程序能实现读写功能 061、VB检测串口工作状态 062、VB简单的串口短信收发功能,使用短信猫测试通过 063、VB开发串口通信,关于生物医学工程专业的血氧饱和度的设计 064、VB开发串口通信软件,利用按钮控件控制高清晰数字展示台 065、VB开发的RS232串口图像处理器驱动(摄像头驱动) 066、VB开发的串口通信源码 067、VB开发的串口与三菱FX PLC通讯源码 068、VB控制串口232通讯,对飞利浦M1卡内数据进行处理,支持密码修改等 069、VB利用Mscomm控件编写的通讯终端,可做串口通讯编程参考示例 070、VB平台单片机与PC机串口通信的PC端程序。小巧易用,功能丰富 071、VB嵌入式串口通讯波形分析显示软件 072、VB实现串口调试LED信息显示屏设备主要代码 073、VB实现串口调试工具的完整源码 074、vb实现串口通信 文件传送系统,用vb以及mscomm控件实现 075、VB实现串口通信,发送命令从而接收相应数据 076、VB使用mscom控件实现PC机与单片机串口通信 077、VB通过COM串口读取条形码设备 078、VB通过串口控制单片机读写24C02源代码 079、VB通讯程序,连接串口可在电脑显示来电号码 080、VB下的串口发短信程序,可选择端口,设置短信中心号码 081、VB写的串口通信,发送和接收实例 082、VB写的串口通信分析程序源码 083、VB写的串口通讯,通过串口对单片机进行控制 084、VB写的串口通讯软件,简单易学,适合初学者 085、VB写的通过串口与考勤机连接通讯的程序 086、vb用控件的写的串口程序,是vb的经典之作 087、VB与USB转串口的通讯完整程序,有详细说明,不需要安装驱动 088、vb串口通信的关于回路测试的小程序很实用 089、vb语言开发的串口通信,可实现拨号传送文件等 090、VB串口事件处理函数的示例 091、VB中的串口通讯,串口通讯作为一种古老而又灵活的通讯方式,被广泛地应用 092、VB自动枚举系统串口加摄象头图象采集,坐标系变换 093、Visual Basic2005与自动化系统监控(串并行控制)光盘
VB串口通信UART程序实例源码200个合集: GE PLC串口通讯,VB编制,读取内存单元.rar PC机与51单片机之间的串口通讯,VB编的,分PC和单片机两部分.rar VB Modbus RTU源码,其中协议部分已生成DLL,可直接调用.rar VB.net实现串口编程,希望大家有用.rar VB.net开发的串口调试程序.rar VB6的串口通信程序,还有crc校验.rar VB下的串口发短信程序,可选择端口,设置短信中心号码.rar VB与USB转串口的通讯完整程序,有详细说明,不需要安装驱动.rar vb串口通信的关于回路测试的小程序很实用.rar VB与欧姆龙PLC通过RS-232串口通讯的上位机程序,焦作中州炭素有限公司自动配料系统.rar VB串口事件处理函数的示例.rar VB中的串口通讯,串口通讯作为一种古老而又灵活的通讯方式,被广泛地应用.rar VB串口API通讯,附带BAS文件全部源码,实现与饭卡读卡器通讯.rar VB串口与伺服电机DSP2407通讯完整代码源程序.rar VB串口传输文本,实现2台PC间的通信,类似简单的聊天工具.rar VB串口字节通信程序,包括:1字节发送子程序,n字节接收子程序.rar VB串口控制步进电机程序完整源码.rar VB串口源码,动力电池检测数据采集,内含电导巡检模块通讯报文,可,读写,保存,备份数据.rar VB串口的一个电子称的项目.rar VB串口程序,,是一个串口使用例程,对初学者有用,特别是工控类的.rar VB串口编程,关于上位机的应用,特别适合初级学习VB的学员.rar VB串口编程实现完整的多费率电表读数软件.rar VB串口编程调试精灵源码.rar VB串口调试程序,用于通过串口控制松下空调测试.rar VB串口调试程序及源码.rar VB串口调试软件源代码,可以参考修改为其它通讯程序.rar VB串口调试软件源文件.rar VB串口通信 6路10位AD转换数据采集源程序.rar VB串口通信,API串口通信模块源码.rar VB串口通信,适用简单,适合初学者 VB串口通信,适用简单,适合初学者.rar VB串口通信之串口接收程序.rar VB串口通信操作界面,进行数据采集,画实时曲线.rar VB串口通信数据源码.rar VB串口通信的源码,学习的好资料.rar VB串口通信示例.rar VB串口通信程序,可以读取串口并显示保存数据,且能显示数据曲线.rar VB串口通信设计视频演示源码.rar VB串口通信调试器的源码程序.rar VB串口通讯代码(部分).rar VB串口通讯实例 高精度电压表(24bit) VB源程序.rar VB串口通讯测试源代码,有文本和图形两种端口数据观察方式.rar VB串口通讯的参考源程序.rar vb串口通讯示例.rar VB串口通讯程序,用来跟单片机通讯.rar VB串口通讯视频教程源码41个 VB串行口通信测试示例.rar VB串行通信试验程序.rar VB使用mscom控件实现PC机与单片机串口通信.rar VB写的串口通信分析程序源码.rar VB写的串口通信,发送和接收实例.rar VB写的串口通讯,通过串口对单片机进行控制.rar VB写的串口通讯软件,简单易学,适合初学者.rar VB写的通过串口与考勤机连接通讯的程序.rar VB利用Mscomm控件编写的通讯终端,可做串口通讯编程参考示例.rar VB和西门子S7-300 PLC串口通讯程序能实现读写功能.rar VB实现串口调试LED信息显示屏设备主要代码.rar VB实现串口调试工具的完整源码.rar vb实现串口通信 文件传送系统,用vb以及mscomm控件实现.rar VB实现串口通信,发送命令从而接收相应数据.rar VB嵌入式串口通讯波形分析显示软件.rar VB平台单片机与PC机串口通信的PC端程序。小巧易用,功能丰富.rar VB开发串口通信,关于生物医学工程专业的血氧饱和度的设计.rar VB开发串口通信软件,利用按钮控件控制高清晰数字展示台.rar VB开发的RS232串口图像处理器驱动(摄像头驱动).rar VB开发的串口与三菱FX PLC通讯源码.rar VB开发的串口通信源码.rar VB控制串口232通讯,对飞利浦M1卡内数据进行处理,支持密码修改等.rar VB检测串口工作状态.rar VB串口调试程序,包含VB源码及安装文件,适合调试串口.rar vb用控件的写的串口程序,是vb的经典之作.rar VB的MODEM通信源代码,智能化水电远端数据读取系统.rar VB串口源程序,包括串口的配置界面,接收功能和发送功能.rar VB简单的串口短信收发功能,使用短信猫测试通过.rar VB编写的RS232串

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧