等待延遲函數
mySecond | Variant | 16 | 必須 | (無) | 可以使用實數秒數,直接用秒比較習慣 |
bDoEvents | Boolean | 2 | 可省略 | True | 是否允許 CPU 處理其他事件,允許時會呼叫 MyDoEvents |
dwMilliseconds | Long | 4 | 可省略 | 0 | 呼叫 Sleep 函數時,睡眠毫秒數。 |
傳回實際等待秒數
For i = 1 To 10 Debug.Print MyWait(0.00001, False) Next 1.03719229961778E-05 1.00996704311054E-05 1.01869778632339E-05 1.02596229785164E-05 1.01419912092746E-05 1.04169096501371E-05 1.03769215132844E-05 1.01943090216569E-05 1.03242704664283E-05 1.02742852953624E-05 For i = 1 To 10 Debug.Print MyWait(0.001) Next 0.001002172688769 1.00071545441519E-03 1.00023826264875E-03 1.00125296162139E-03 1.00120031057453E-03 1.00142790972012E-03 1.00207771694397E-03 1.00173281926362E-03 1.00215536057636E-03 1.00205505699976E-03
本函數為精確計時。以誤差小於 5 % 為基準時,不允許 CPU 處理其他事件時,最小等待時間解析度小於 0.01 ms ,允許 CPU 處理其他事件時,最小等待時間解析度小於 1 ms,最大有效時距大於 244,951 年。
Visual Basic 4 以後 | modTime.bas
|