timesetevent内でWinsockを使うには？ (ID:126699)

名前

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

本文 生兵法は.....と言うこともあるので。 タイマーの基本は、 １、CPUにあまり負担をかけない、出来れば通常多くとも１％以下。 ２、正確である。 この２点かな。 たとえば、目標時間に近づくとSleepを短くする方法が思いつくが。 Option Explicit Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() timeWaiteTime Val(Text1.Text) End Sub Private Sub timeWaiteTime(ByVal timeWaite) Dim timeBack As Long, timeSleep As Long, timeRest As Long timeSleep = 10 timeBack = timeGetTime '押された時間 timeRest = 1 '残された時間 とりあえず１ Do While (timeRest > 0) timeRest = timeWaite - (timeGetTime - timeBack) '残された時間 timeSleep = Abs(timeRest \ 10) 'Sleep時間の設定 If timeSleep > 1000 Then timeSleep = 1000 '最低でも１秒に一回割り込みを許可 Label1.Caption = CStr(timeGetTime - timeBack) 'とりあえず表示 Sleep (timeSleep) '居眠り DoEvents '割り込み許可 Loop End Sub *テキストには待ち時間がmmSecondで設定されている。