7485
社区成员
- 全部
100分请教.用vb后遇到的最匪夷所思的问题,请各位高手帮忙!
这段程序是在MSComm_OnComm事件中校验重串口接收的数据的代码,接到的数据前41位(0——40)为信息,第42位order(41)为校验和，即前41位的加和转换为16进制后取后两位。现在是每次接收到信息，如果在1、2、3行中任意一处设断点的话，程序执行正常。否则的话校验和计算错误。而且接收到的数据相同的情况下，每次得到的结果都不同。
为什么同一段代码，设断点和不设断点得到的结果不同呢？
'检查效验和
1 sum = 0
For I = 0 To (40)
sum = sum + order(I)
Next I
2 I = 0
3 sum = Hex(sum And 255)
If Not Hex(order(41)) = sum Then
MessageBox 0&, "校验和错,退出", "IDMS", &H0&
exit sub
End If
下面是接收到的数据的例子
E7 A0 43 EE AA 11 10 00 20 00 01 00 01 01 12 22 01 12 34 56 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 77
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
other870 2002-12-07
你的这段代码是放在MSComm_OnComm的哪一个事件中？你的42位数据中间间隔多久发另一串的？另外你的这种情况象是数据没有接收完全或是接收出错了，你试试用TIMER定时器来接收数据。
darkmoon 2002-12-06
以前碰到过因为触发不同事件或是时间延迟导致设断点和不设断点结果不一致
建议用Debug.Print 来查看数据，不要设断点
建议用Debug.Print 来查看数据，不要设断点
zhangwh6882 2002-12-06
但是order数组的内容是什么，变量的类型是什么，详细点
inbyte()字节数组,将输入缓存区的内容读入到数组
order()字节数组,存储inbyte(_)读出的数据直到命令完整读出.
sum 是Variant型
我觉得原因不应该是数据类型的问题呀,因为单步执行的话一点问题都没有,不知道有没有朋友遇到过类似的情况
inbyte()字节数组,将输入缓存区的内容读入到数组
order()字节数组,存储inbyte(_)读出的数据直到命令完整读出.
sum 是Variant型
我觉得原因不应该是数据类型的问题呀,因为单步执行的话一点问题都没有,不知道有没有朋友遇到过类似的情况
zhangwh6882 2002-12-06
of123()
命令不一定会一直是42个字节，其他类型的命令长度不定呀
MSComm.CommPort = 1
MSComm.RThreshold = 1
MSComm.InputLen = 0
MSComm.PortOpen = True
MSComm.InBufferCount = 0
这是我打开串口的代码
命令不一定会一直是42个字节，其他类型的命令长度不定呀
MSComm.CommPort = 1
MSComm.RThreshold = 1
MSComm.InputLen = 0
MSComm.PortOpen = True
MSComm.InBufferCount = 0
这是我打开串口的代码
zhangwh6882 2002-12-06
'一条命令42字节，分几次读入，命令的开头&He7,第二位&Ha0或者&ha1.
Private Sub MSComm_OnComm()
Dim max As Variant
Dim foo As Variant
Dim serial As Variant '当前包号
Dim sum As Variant
'On Error GoTo Mscomm2Error
InByte = MSComm2.Input
'屏蔽空信号
If UBound(InByte) = -1 Then
Exit Sub
End If
If readstart = True Then '判断是否命令的开头
If Not InByte(0) = &HE7 Then '检验起使位是否为E7
'放弃
MessageBox 0&, "前导码错,退出", "IDMS", &H0&
Call Cancel1
Exit Sub
End If
If Not (InByte(1) = &HA0 Or InByte(1) = &HA1) Then '检验数据流向位是否为A0或A1
'放弃
MessageBox 0&, "数据流向错,退出", "IDMS", &H0&
Call Cancel1
Exit Sub
End If
max = UBound(InByte)
ReDim order(0 To max)
order = InByte
readstart = False
Else
'合并数组order（）与inbyte（）
foo = UBound(order)
max = foo + UBound(InByte) + 1
ReDim Preserve order(max)
For I = LBound(InByte) To UBound(InByte)
order(foo + 1 + I) = InByte(I)
Next I
If UBound(order) >= 41 Then '命令完整读入
'检查效验和
sum = 0
For I = 0 To (40)
sum = sum + order(I)
Next I
I = 0
sum = Hex(sum And 255)
If Not Hex(order(41)) = sum Then
'需要扩充放弃
MessageBox 0&, "校验和错,退出", "IDMS", &H0&
Call Cancel1
End If
readstart = True
serial = order(11) * 16 * 16 + order(12)
If Not serial = Num + 1 Then
'放弃
MessageBox 0&, "包号不连续,退出", "IDMS", &H0&
Call Cancel1
End If
Num = serial
'调用命令处理过程
Call Perform(order)
End If
Private Sub MSComm_OnComm()
Dim max As Variant
Dim foo As Variant
Dim serial As Variant '当前包号
Dim sum As Variant
'On Error GoTo Mscomm2Error
InByte = MSComm2.Input
'屏蔽空信号
If UBound(InByte) = -1 Then
Exit Sub
End If
If readstart = True Then '判断是否命令的开头
If Not InByte(0) = &HE7 Then '检验起使位是否为E7
'放弃
MessageBox 0&, "前导码错,退出", "IDMS", &H0&
Call Cancel1
Exit Sub
End If
If Not (InByte(1) = &HA0 Or InByte(1) = &HA1) Then '检验数据流向位是否为A0或A1
'放弃
MessageBox 0&, "数据流向错,退出", "IDMS", &H0&
Call Cancel1
Exit Sub
End If
max = UBound(InByte)
ReDim order(0 To max)
order = InByte
readstart = False
Else
'合并数组order（）与inbyte（）
foo = UBound(order)
max = foo + UBound(InByte) + 1
ReDim Preserve order(max)
For I = LBound(InByte) To UBound(InByte)
order(foo + 1 + I) = InByte(I)
Next I
If UBound(order) >= 41 Then '命令完整读入
'检查效验和
sum = 0
For I = 0 To (40)
sum = sum + order(I)
Next I
I = 0
sum = Hex(sum And 255)
If Not Hex(order(41)) = sum Then
'需要扩充放弃
MessageBox 0&, "校验和错,退出", "IDMS", &H0&
Call Cancel1
End If
readstart = True
serial = order(11) * 16 * 16 + order(12)
If Not serial = Num + 1 Then
'放弃
MessageBox 0&, "包号不连续,退出", "IDMS", &H0&
Call Cancel1
End If
Num = serial
'调用命令处理过程
Call Perform(order)
End If
of123 2002-12-06
MSComm1.RThreshold = 42
使数据全部到达后再开始校验。
使数据全部到达后再开始校验。
blue风儿 2002-12-06
看到源代码了，但是order数组的内容是什么，变量的类型是什么，详细点
blue风儿 2002-12-06
给出源代码
C语言--视频精讲 C语言作为被长期使用的编程语言，可以被运用到各种操作系统，游戏，开发中。本课程作为互联网上首家使用C99录制的C语言教程，展现了全面、专业。标准的C语言教程。可以帮助学员从基础开始一点点的深刻理解C语言。 a:0:{}
Java基础核心技术：面向对象编程(day05-day07) 本套Java视频完全针对初级学员，课堂实录，自发布以来，好评如潮！Java视频中注重与学生互动，讲授幽默诙谐、细致入微，覆盖Java基础所有核心知识点，同类Java视频中也是代码量大、案例多、实战性强的。同时，本Java视频教程注重技术原理剖析，深入JDK源码，辅以代码实战贯穿始终，用实践驱动理论，并辅以必要的代码练习。 通过20的课程学习，使学员掌握java核心语法、面向对象思想编程、异常处理、IO流、集合类、多线程、网络编程等。
EXCEL VBA编程（excel办公高手必经之路） 宏基础
VBA编程基础
常用语句（分支、循环语句的基础及应用）
VBA结合工作表的函数功能的应用等 如果您会了所有的excel技能都不能解决工作的数据问题。那请选择VBA技术完成。本季主要讲解关于VBA的基础知识。为走向更高阶的excel技术打下基础。为更高效的办公打下基础。
QRegExp的详细解析 引言
正则表达式（regular expression）就是用一个“字符串”来描述一个特征，然后去验证另一个“字符串”是否符合这个特征。比如 表达式“ab+” 描述的特征是“一个 'a' 和 任意个 'b' ”，那么 'ab', 'abb', 'abbbbbbbbbb' 都符合这个特征。 正则表达式可以用来：（1）验证字符串是否符合指定特征，比如验证是否是合法的邮件地址。（2）用来查找字符串，从一个长的文本中查找符合指定特征的字符串，比查找固定字符串更加灵活方便。（3）用来替换，比普通的替换更强大。
WPF中用于嵌入其他进程窗口的自定义控件（AppContainer） WPF中用于嵌入其他进程窗口的自定义控件（AppContainer）
具体见博文：http://blog.csdn.net/zzzwwwppp11199988899/article/details/78131292
打通Linux脉络系列：进程、线程和调度 本课程分成4个组成部分，每次课60分钟，每次课后留下3-4个练习题，可以在Linuxer公众号留言讨论答案和做题心得。
第一部分：深入彻底搞清楚进程生命周期，进程生命周期创建、退出、停止、以及僵尸是个什么意思；
第二部分：深入分析进程创建的写时拷贝技术、以及Linux的线程究竟是怎么回事（为什么称为轻量级进程），此部分也会搞清楚进程0、进程1和托孤，以及睡眠时的等待队列；
第三部分：搞清楚Linux进程调度算法，不同的调度策略，实时性，完全公平调度算法；
第四部分：讲解Linux多核下CPU、中断、软负载均衡、cgroups调度算法以及Linux为什么不是一个实时操作系统。 掌握Linux脉络知识：进程、线程和调度。
PDB符号文件查看工具 symview,pdbxtract PDB符号文件查看工具, 包含2个工具symview 和pdbxtract
symview可查看文件所有原始信息
pdbxtract 可方便查看结构体等信息, 可导出头文件或xml
Java之优雅编程之道 《Java之优雅编程之道》主要是针对有一定基础的Java学员。本课程主要是围绕着如何编写整洁的Java代码，如何实现Java代码重构，以及如何提高Java代码性能而展开的一系列课程。本课程结合自身的真实工作经验，从常用的注释，名字，集合，数组，方法等等开始讲起，由浅到深，层层深入。通过本课程的学习，可以帮助Java学员编写出整洁，规范，高效的代码。 《Java之优雅编程之道》通过本人在银行3年的工作经验总结，帮助Java开发工程师编写出规范，整洁，以及高性能的Java代码，让学员把这些工作经验运用到真实项目当中，提高学员的编程水平。
Node.js进阶教程第一步(基础篇) 本课程从Node.js的安装配置开始，包括函数调用，模块调用，路由，文件操作，异常处理，参数接收，正则表达式，连接数据库，事件等内容，使学员通过十六课时，学习Node.js的基础知识，掌握JS开发服务端的编写方法，了解Node.js的运行机制，为深入学习后期各类框架打好基础。 学习Node.js的基础知识，掌握JS开发服务端的编写方法，了解Node.js的运行机制，为深入学习后期各类框架打好基础。
Java学习指南（网站开发） 本篇介绍使用Java进行网站开发的各环节的基本技术。
所采用的开发环境IDE为MyEclipse 10, 服务器为Tomcat7.x。
（第1版，2016/4，已完结） 网站开发的各项基础技术，这是网站开发的根本。
Winfrom通用权限管理系统 Winfrom框架，动态生成菜单界面，附带数据库。纯手写，仅供学习参考，希望.net 程序员越来越好。
博客地址：https://blog.csdn.net/zzzzzzzert 有问题留言，互相学习交流
