作者yantchen (球童Yanting)
看板Visual_Basic
标题Re: [VB6 ] Timer问题
时间Sun May 27 12:54:32 2007
※ 引述《jujuo (我是一双鱼~)》之铭言：
: ※ 引述《yantchen (球童Yanting)》之铭言：
: : 不太懂你的意思
: : 你现在是要让(a/b-c*100)*1000=65吗?
: 不是耶~是这一段延迟时间是个变数
: 也就是非固定的 他的变数值来自於上面那段数学式子
: 但我知道Timer的Intervel最多只能设到65536约65秒
: 可是我的延迟时间经由数学式子算出大於65秒
: 所以想问问看是否有解决的办法
: : 如果你要延迟的话
: : 不用timer物件 用timer函数就好
: 是说不必放Timer物件上去吗?(小时钟那个)
: 那如果没放 怎麽设定此Timer函数的开关?
: 因为我的程式流程是
: 条件判断->True->启动Timer->延迟时间启动副程式->关闭Timer(如此循环)
: 感谢解惑!!
: : t=timer '纪录现在时间
: : do
: : doevents '让VB跑其他物件的程式码
: : loop until timer>t+65
: : '延迟65秒以後继续下面的程式
延迟的话不建议使用timer物件
因为他不是太准
条件判断->True->启动Timer->延迟时间启动副程式->关闭Timer(如此循环)
你可以改成
条件判断->True->呼叫延迟副程式->启动原本副程式
sub delay(s as integer)
t=timer
do
doevents
loop until timer>t+s
start '呼叫你原本的副程式
end sub
我个人是不太喜欢用timer物件啦
像是你把timer设定1000启动一次 显示现在时间
有时候他会大於1000才启动 12:21:22 直接变成 12:21:24 (有lag的感觉)
参考看看两种解法吧
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.167.38.216
1F：推 jujuo:谢谢^^ 05/27 13:15