Re: [VB6 ] Timer問題

看板Visual_Basic作者JingTeng (愛恨惹是非)時間18年前 (2007/05/26 22:27)推噓1(1推 0噓 2→)

留言3則, 2人參與討論串4/5 (看更多)

※ 引述《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

→

JingTeng

05/26 22:30, , 1^F

05/26 22:30, 1^F

※ 編輯: JingTeng 來自: 61.57.100.126 (05/26 22:41)

→

JingTeng

05/26 22:44, , 2^F

05/26 22:44, 2^F

推

jujuo

05/27 00:11, , 3^F