Time Delay Function
It is method that delay time as much as time that designate. There is no problem even if use over midnight. With Sleep function, use and lowered CPU's use rate.
AI
สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ซอร์สโค้ด
Public Sub Delay(ByVal delayTime As Single)
Dim startTime As Single
Dim LoopTime As Single
startTime = Timer
Do
Call Sleep(50)
If Timer < startTime Then startTime = startTime - 86400
LoopTime = Timer - startTime
DoEvents
Loop Until delayTime < LoopTime
End Sub
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine