時間を待たせるには (ID:88390)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 １、CPUにあまり負担をかけない。 ２、スレッドを止めない。 ３、ある程度精度がある。 ４、オーバーフローがない。 この４項目をクリアーするには Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const maxTime = 2 ^ 32 '**************************** '* 指定時間Waiteする関数 * '**************************** Private Sub timeWaitTime(ByVal waitTime As Double) Dim BackTime As Double BackTime = timeGetTime '計測開始時間 Do If timeGetTime - BackTime < 0 Then 'オーバーフォロー処理 waitTime = waitTime - (maxTime - BackTime) BackTime = 0 End If Sleep (1) DoEvents Loop While (timeGetTime - BackTime < waitTime) End Sub こんなことをすればいいのかな。