スロットゲームのプログラミング

Question

お世話になります。
先日からスロットゲームに関して、質問しているものなのですが、リールが止まる時のタイミングについて質問です。
ボタンをクリックすると、回転し自然に止まるスロットなのですが、絵柄を用意してパラパラ漫画の要領で回転を再現してます。
各リール用にタイマーを設置して、1リール目が止まると、２リールのインターバルを0にして、止める構造に
してあるのですが、1～3リールとも同じタイミングで止まってしまいます。
タイマーウェイト処理も停止絵柄の前で止まり、ウェイト後にカックンと止まる始末。
自然にポン、ポン、ポンと止まるように処理するには
どうしたら用意でしょうか。
またご指導のほどよろしくお願いします。

Caryo_t · Accepted Answer

VB6のタイマーは，はっきり言って使えません。
と言うのは，タイマーイベントはWindows上で動くので，
どうしても他のアプリケーションやタスクの影響を受けるからです。

それでは，どうやって正確な時間を測るかですが，
これにはWindowsAPIのTimeGetTimeを使います。
使い方は，検索エンジンでTimeGetTimeって引けば出てきます。

簡単に紹介すると，TimeGetTimeはシステムが起動してからの
時間を測るためのものです。これを使うには，まず

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

を一番上の欄外でグローバル変数として宣言する必要があります。
つぎに，たとえばある一定の時間待つようなSubルーチンを作るなら，
Private Sub Wait(WaitTime As Long)
    Dim TimeStart As Long
    StartTime = timeGetTime
    Do
        DoEvents
    Loop While (timeGetTime - StartTime < WaitTime)
End Sub
のようにします。

これを応用して，リールの止まる際にランダムでウェイト時間を
足して行けば，ゆっくり回転するようになります。
もちろん，ランダムで数字を加えますので，
同時に止まることはありません。
解りにくい場合は，また補足します。

naktak · Answer

基本的に、TimerコントロールはＰＣのスペックにより
何故か速さが異なります（早くまわそうとすればするほど）。
確認済みかもしれませんが・・・。
だからどうすれば良いか、という事まではちょっと思いつきません・・・。
WindowsAPIのSleep()でもそれだけではどうにも出来ませんし・・・。

60でまわし、止まるにつれて回転は遅くなるはずです。
実機でも。
ピタッとは止まらないでしょう。
そういうスロットは見た事ありませんが・・・＾＾；

止まる時は60から、インターバルを徐々に上げる事により
速度低下を図る方法ではダメですか？
終了インターバルが1000でダメなら800、600などではどうでしょうか？

naktak · Answer

インターバルが1000になるまで100ずつ加算し、
1000になったら0にする、とかでゆっくり止まり、
別々に止まるのでは？
現在、Timer1のインターバルが0になった途端に
Timer2のインターバルが0になり、
その途端にTimer3のインターバルが0になっているので、
同時に止まってしまうのではないでしょうか。

勘で言っているので、見当違いでしたら失礼。

スロットゲームのプログラミング

VB6のタイマーは，はっきり言って使えません。

この回答への補足

基本的に、TimerコントロールはＰＣのスペックにより

インターバルが1000になるまで100ずつ加算し、

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング