作者jujuo (我是一双鱼~)
看板Visual_Basic
标题Re: [VB6 ] Timer问题
时间Sat May 26 21:50:26 2007
※ 引述《yantchen (球童Yanting)》之铭言：
: ※ 引述《jujuo (我是一双鱼~)》之铭言：
: : 写了一个条件判断式去延迟一段时间执行副程式
: : ===========================
: : '属性设定
: : 'Timer1.Enable = False
: : 'Timer1.Intervel = 0
: : ===========================
: : if xxxx then
: : Timer1.Enable = True
: : End if
: : -----------------------------
: : Private sub Timer1.timer
: : Timer.Intervel = (a/b - c*100)*1000
: : start '副程式
: : Timer.Enable = False
: : End sub
: : ------------------------------
: : 因为我想要延迟的时间是一段数学运算式
: : 而且此时间大於65秒
: : 请问要怎麽修改程式呢?@@
: : 请大家帮帮我Q_Q
: 不太懂你的意思
: 你现在是要让(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秒以後继续下面的程式
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.109.40.60