VB初心者友の会 - Q&A掲示板過去ログ

うーん。タイマーを使って一定時間ごとにシステム時間（？パソコンの時間）
を取得すればいいんじゃないかと思いますが・・・。
違ってたらごめんなさい。(^^;

>一定時間ごとにシステム時間を取得すればいいんじゃないかと・・・

おぎさん、早速のレスありがとうございます。

確かに、それも考えたのですが・・・。
やりたいことはSliderを1秒なり、0.1秒なりの単位で確実に動かすことです。
システム時間と、このことを連結させる方法が思いつきませんで。
「システム時間（パソコンの時計）が1秒進んだら・・・」ということは可能でしょうか？

せっかくのお答えに、さらに質問を返して申し訳ありません。

> >一定時間ごとにシステム時間を取得すればいいんじゃないかと・・・
> 
> おぎさん、早速のレスありがとうございます。
> 
> 確かに、それも考えたのですが・・・。
> やりたいことはSliderを1秒なり、0.1秒なりの単位で確実に動かすことです。
> システム時間と、このことを連結させる方法が思いつきませんで。
> 「システム時間（パソコンの時計）が1秒進んだら・・・」ということは可能でしょうか？
> 
> せっかくのお答えに、さらに質問を返して申し訳ありません。

タイマーイベントは、前回のタイマーイベントの終了から Interval プロパティ値の経過後に
次のイベントが発生します。

つまり、Interval = 1500 のタイマーコントロールの、Timer イベントに 700ms の処理を
記述すると、約2200ms おきにイベントが発生します。
もし処理時間が、500〜1000ms で不規則であるならば、2000〜2500msおきに発生します。

ですので、正確な時間間隔で処理したいのならば、Interval プロパティ値を小さくし、前回の
処理時間からの経過時間を過ぎていたら処理を実行するという手法が必要です。

> 正確な時間間隔で処理したいのならば、Interval プロパティ値を小さくし、前回の
> 処理時間からの経過時間を過ぎていたら処理を実行するという手法が必要です。

ろってんまいあさん、レス有り難うございます。

なるほど、Timerがずれてくる理由がよく分かりました。
しかし、上記の手法はどのように行えば良いのでしょう？
ヒントだけでも、御教授願えないでしょうか？

初心者ゆえ、度重なる質問をご容赦ください。

tani です。

> Timerを確実に決めたIntervalで動かすにはどうすれば良いのでしょう？

「Timerを確実に動かす」というのとは違ってしまいますが、
逆に、処理から処理までの時間を、指定の時間まで止めてしまってはどうでしょう。

timeGetTime API 関数(Windows 起動からの経過時間を取得)を使用して以下のようにすると、
「処理」とかかれた処理が終了すると、指定の時間間隔まで待っていて、
次のループに移るというようになっています。

Dim NextTime As Long
Dim lnCnt As Long
For lnCnt = 1 To 10
    NextTime = timeGetTime() + 100 ' １ループ100ミリ秒
    
    ' 処理
    ・・・

    ' NextTime の時間になるまで待機
    Do
        DoEvents
    Loop While timeGetTime < NextTime
Next lnCnt

> なるほど、Timerがずれてくる理由がよく分かりました。
> しかし、上記の手法はどのように行えば良いのでしょう？
> ヒントだけでも、御教授願えないでしょうか？
> 
> 初心者ゆえ、度重なる質問をご容赦ください。


あくまでも一例です。

Private Sub Form_Load()
    ' インターバル値設定
    ' 　例えば、Interval=300 なら理論最大300ms の誤差となる
    ' 　小さくしすぎると誤差は小さくなるが、遅いマシンでの負荷が上がる
    Timer1.Interval = 300
End Sub

Private Sub Timer1_Timer()
    Static LastTime As Date
    Dim NowTime As Date

    NowTime = Now
    If Second(NowTime) = 0 Or DateDiff("s", LastTime, NowTime) > 60 Then
        ' 秒がゼロ又は、前回の実行時から60秒以上経過していたら実行
        Call SubProc
        LastTime = NowTime
    End If
End Sub