sleep的延時將全部程式都掛起了， 在VB6這個函式還把其他可能在運行中的sub也一起停掉了~
timegettime不會掛起程式而且非常精確, 延時的時候, 其他代碼還可以運行,
但是缺點也很明顯, 就是CPU占用太高~
我在VB6使用了timer函式, (Timer函式不是很精確計算時間但是CPU占用率很低~)
timer里面需要延時200毫秒和5000毫秒, 延時期間還有其他sub或者function在運行, 所以不能使用sleep函式
我使用了timegettime函式但是CPU占用率太高了~
請教各位老師, timer里面需要延時又不能使用sleep, 有什么方法可以延時但是CPU占用率相對較低呢?
uj5u.com熱心網友回復：
不要在函式內傻等延時，而是應該把運行狀態保存下來，直接結束函式。然后開啟一個定時器，到時間再次呼叫這個函式，函式從上次的狀態繼續向下執行。
uj5u.com熱心網友回復：
把Timer時間間隔調小比如private sub timer1_timer()
static c as long
c=(c+1) mod 10
select case c
case 1
...
case 5
...
case 8
...
end select
end sub
uj5u.com熱心網友回復：
方法很簡單timegettime+sleep
代碼
Public Function delay(T As Long)
Dim Savetime As Long
Savetime = timeGetTime '記下開始時的時間
While timeGetTime < Savetime + T '回圈等待
Sleep (10)
DoEvents '轉讓控制權
Wend
End Function
timegettime cpu占用高的原因是他不停的在回圈
sleep卡的原因是他不回應ui
結合起來就好了
這里sleep()里最好小于200,大于這個數還是會有點卡頓
最小可以為1,但是一般沒必要,實際精度達不到1ms.
可以結貼了
uj5u.com熱心網友回復：
這個方法好, 有點像中斷掛起. 局限性在于只能在自己純代碼的程序中實作, 要是中間呼叫到第三方的功能就無以為繼了.
另外就是VB的定時器實在是很弱雞,不夠準確, 還容易被高CPU的操作耽誤.
uj5u.com熱心網友回復：
我覺得有點像異步回呼,
但是有的時候運行狀態不好保存啊,
又是一大堆代碼.還要保證運行環境不變.
一行sleep有時候得用幾百行來替代.
uj5u.com熱心網友回復：
僅供參考：
Begin VB.Form MainForm
Begin VB.Timer TimerTest
Enabled = -1 'True
Interval = 1000
Left = 0
Top = 0
End
Begin VB.Timer TimerSleep
Enabled = 0 'False
Left = 0
Top = 0
End
End
Dim done1 As Boolean
Sub sleep1(ms)
done1 = False
TimerSleep.Interval = ms
TimerSleep.Enabled = True
Do
DoEvents
Loop Until done1
End Sub
Private Sub TimerSleep_Timer()
TimerSleep.Interval = 0
TimerSleep.Enabled = False
done1 = True
End Sub
Private Sub TimerTest_Timer()
Debug.Print "Test1"
sleep1 400
Debug.Print "Test2"
sleep1 800
Debug.Print "Test3"
End Sub
uj5u.com熱心網友回復：
是啊, 所以說有很多局限性, 畢竟VB不支持多執行緒. 你得像以前DOS下面編程那樣去考慮這個問題(當然,沒那么夸張)
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/81870.html
標籤：API