作者JingTeng (愛恨惹是非)
看板Visual_Basic
標題Re: [VB6 ] Timer問題
時間Sat May 26 22:27:43 2007
※ 引述《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
參考看看...
=========================
'屬性設定
'Timer1.Enable = False
'Timer1.Interval = 1000 '設定為1秒
'另外再設個全域變數作Count_1用
'全域變數interval為你所要的延遲時間
=========================
If xxx then (xxx為條件成立)
interval = (a / b - c*100)
Count_1 = 0
Timer1.Enable = True
End If
Private sub Timer1.timer
Count_1 = Count_1 + 1
If (Count_1 > Interval)
Timer1.Enable = False
'副程式
End If
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.57.100.126
1F：→ JingTeng:不確定能不能用...請試試看... 05/26 22:30
※ 編輯: JingTeng 來自: 61.57.100.126 (05/26 22:41)
2F：→ JingTeng:剛剛試過...應該是OK 05/26 22:44
3F：推 jujuo:感謝你~~!! 05/27 00:11