タイトル : Re^2: timeSetEventでタイマー処理 投稿日 : 2017/06/01(Thu) 04:12 投稿者 : 年金生活
> timeBeginPeriod および timeEndPeriod による分解能の変更は即時には行われません。 > 変更されるまでに幾許かの時間を要します(変更に必要な時間は一定ではありません)。 なるほど、一回捨てれば良いと理解しましたので、以下のように変更しました。 1mSecで"0.00"が返ってこなくなり、満足のいく結果となりました。 ありがとうございました。 1mSec: 2.82 -92.66 0.95 0.98 0.97 0.99 1.02 0.96 0.98 0.99 0.98 0.99 1.00 0.97 0.99 0.99 0.99 0.99 > timeBeginPeriod と timeEndPeriod の引数には、同じ値を指定してください。 そのように変更します、ありがとうございます。 ================================================== ' <<<< タイマの起動 >>>> Public Sub TimerStart(ByVal mSec As Integer) Call timeBeginPeriod(1) proc = AddressOf TimerProc gIntTimerID = timeSetEvent(mSec, 1, proc, 0, 0) System.Threading.Thread.Sleep(100) Console.Write("-") gIntTimerID = timeSetEvent(mSec, 1, proc, 0, 1) End Sub ===================================================== |