１秒間隔にする仕方を教えてください。

VBマニア 2005-07-12 02:24:02 No: 90922

Public Sub Wait()
    For t = 1 To 400000
        DoEvents
    Next t
End Sub

っていうwaitメソッド作ったんですけど、うまく１秒間隔になりません。
たぶん、400000 の所の数を変えればいいとおもうんですが、どうすればいいでしょうか？どなたか教えてください。お願いします。

Say 2005-07-12 02:41:04 No: 90923

timeGetTimeあたりをキーワードに
過去ログ検索してみてください。

LESIA 2005-07-12 03:07:24 No: 90924

VBの関数だけで、それほど正確でなくていいなら
こんな感じ。

Dim t As Single

t = Timer
Do Until Timer - t > 1
DoEvents
Loop

いな 2005-07-12 04:09:57 No: 90925

Sleepでもヨサゲ

特攻隊長まるるう 2005-07-12 18:20:36 No: 90926

ループによる演算の繰り返しでＣＰＵ使用率100％になったら、過去ログ検索『使用率』
http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200505/05050046.txt
結局 Sleep 入れる事になりそうですが…。

papa 2005-07-21 03:35:54 No: 90927

話は終わっているようですが
これってとても危険ではないですか。

> Dim t As Single

> t = Timer
> Do Until Timer - t > 1
> DoEvents
> Loop

Dim t As Single

t = Timer
Do Until Timer - t > 1
If Timer < t Then Exit Do '日付が変わった時
DoEvents
Loop