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

> タイマーコントロールの精度が悪いので、ゲームがうまく作れない。
> 精度の良い方法を教えてください。

Doを使います。
Doを使い、内部時計から、時差をわりだして、コードを実行します。
Timerは、０：００から、現在時刻までの時間を、Single型で、１秒単位で返します。

Dim Timers As Single '変数の宣言
Do
   If Timers < Timer - 0.1 Then 'Timersの値をしらべ、0.1秒ごとにコードを実行する。
   'ゲームのコードをここに入力
   Timers = Timer 'Timersに現在時刻を代入
   End If
DoEvents '他の入力イベントを発生させる。これは必須。
Loop

ただし、この方法だと、正しく時間を入力できるかわりに、０：００に、急に動作が止まってしまう、
可能性があるので。値をリセットするなどして、(普通、Timer < Timers になった場合)対処する必要があります。
また、イベントを終了させるには、Exit Doを使います。
（ちょっといいかげんなのでそれほどあてにはできませんが・・・）

> > タイマーコントロールの精度が悪いので、ゲームがうまく作れない。
> > 精度の良い方法を教えてください。
> 
> Doを使います。
> Doを使い、内部時計から、時差をわりだして、コードを実行します。
> Timerは、０：００から、現在時刻までの時間を、Single型で、１秒単位で返します。
> 
> Dim Timers As Single '変数の宣言
> Do
>    If Timers < Timer - 0.1 Then 'Timersの値をしらべ、0.1秒ごとにコードを実行する。
>    'ゲームのコードをここに入力
>    Timers = Timer 'Timersに現在時刻を代入
>    End If
> DoEvents '他の入力イベントを発生させる。これは必須。
> Loop
> 
> ただし、この方法だと、正しく時間を入力できるかわりに、０：００に、急に動作が止まってしまう、
> 可能性があるので。値をリセットするなどして、(普通、Timer < Timers になった場合)対処する必要があります。
> また、イベントを終了させるには、Exit Doを使います。
> （ちょっといいかげんなのでそれほどあてにはできませんが・・・）

すみませんが、もう一度お答えいただけないでしょうか。
Timerはどのぐらいの精度なのですか？シュミレーションのプログラムで、１０ミリ秒をでできうる限り正確に測りたいのです。
API等難しいことでもがんばってかくので、どうか教えてください。

> >    If Timers < Timer - 0.1 Then 'Timersの値をしらべ、0.1秒ごとにコードを実行する。
> >    Timers = Timer 'Timersに現在時刻を代入
Timerの代わりに GetTickCount API を使うと、1ms単位で時間がわかります。

> > ただし、この方法だと、正しく時間を入力できるかわりに、０：００に、急に動作が止まってしまう、
> > 可能性があるので。値をリセットするなどして、(普通、Timer < Timers になった場合)対処する必要があります。

GetTickCount APIは、Windows起動後経過時間を返すAPIなので、普通に使ってれば
0にはなりません。(49.7日経過すると0になるけど。)

もしくはマルチメディアタイマーを使う手もあります。

> すみませんが、もう一度お答えいただけないでしょうか。
> Timerはどのぐらいの精度なのですか？シュミレーションのプログラムで、１０ミリ秒をでできうる限り正確に測りたいのです。
> API等難しいことでもがんばってかくので、どうか教えてください。

えっとですね。Timerは、Singl型なので、１秒単位ですが、０．０１秒単位で表示されます。

Form_Load
に次のを入力してください。これで起動時の０：００時からの秒数が１０ミリ秒単位で表示されるはずです。
Me.Caption = Timer

APIとの差ですが、APIはそれほど詳しくないので、詳しいひとに聞いて見てください。
ただ、どちらも０．０１秒単位が限界だとすると、リセット不用なAPIのほうが便利でしょう。

しかし、俺のスペックの場合に誤差が、少なくて０．００８秒、多くて０．１秒と、結構誤差があります。
理屈で考えると、処理速度の速いコンピューターほど誤差は少なくなり、正確な時間が計れるはずです。

これが俺の考えられるかぎり正確なタイマー処理です。

> 
> えっとですね。Timerは、Singl型なので、１秒単位ですが、０．０１秒単位で表示されます。
> 
> Form_Load
> に次のを入力してください。これで起動時の０：００時からの秒数が１０ミリ秒単位で表示されるはずです。
> Me.Caption = Timer
> 
> APIとの差ですが、APIはそれほど詳しくないので、詳しいひとに聞いて見てください。
> ただ、どちらも０．０１秒単位が限界だとすると、リセット不用なAPIのほうが便利でしょう。
> 
> しかし、俺のスペックの場合に誤差が、少なくて０．００８秒、多くて０．１秒と、結構誤差があります。
> 理屈で考えると、処理速度の速いコンピューターほど誤差は少なくなり、正確な時間が計れるはずです。
> 
> これが俺の考えられるかぎり正確なタイマー処理です。

どうもありがとうございました。（＾＾）