您的位置：程序门 -> vb -> 基础类

定时检测数据的比较。。。。各位帮忙出个注意吧。。up有分

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

定时检测数据的比较。。。。各位帮忙出个注意吧。。up有分[已结贴,结贴人:qian21]

发表于：2007-08-27 15:59:28 楼主

dim a, b as integer
dim bufbound as integer
private sub timer1_timer（)
if a = b then
call cmd1_click
else
b = a
end if
end sub

sub mscomm（)
do
doevents
loop until mscomm1.inbuffercount > 0 '循环等待接收缓冲区> 0个字节
data = data & mscomm1.input
buffer = data
bufbound = ubound（buffer（)) 'bufbound值是变化的
a = bufbound
'不知道 b在这里如何赋值
end sub
我的问题是怎么来定时地检测a的数据变化，因为我的串口程序运行7-8小时就会没自己没数据传过来了，就是a的值不变了，所以我想加个定时检测，望各位帮个忙

发表于：2007-08-27 16:03:101楼得分:0

比如数据传过来了 a=120 如果一分钟之后 a=200 那么b=200进入下次检测，下次a=300那么b=300，如果一分种之后a还是等于300，就是说程序不执行了，那么我就执行call cmd1_click操作

发表于：2007-08-27 16:51:372楼得分:0

学习!

发表于：2007-08-27 16:54:363楼得分:0

楼上就学习啊
出个注意哇

发表于：2007-08-27 17:21:574楼得分:0

cmd1_click是干什么用的？

发表于：2007-08-28 08:42:335楼得分:100

b直接在form_load里随便赋个值就行了。。。比如b=0