タイマーについて

質問

又お世話になります。
ルーレットをプログラムした際、ストップボタンを押すと止まりますが、パチスロのように直ぐに止まらずに、パチンコのリーチがかかったような止まり方をしたいのですが、タイマー？を使ってプログラムすると出来るそうですが、よくわからないので・・。
すみませんがよろしくお願いします。

回答No.3

MovingWalk · ベストアンサー

countの意味を理解されていないようですね。

countはSTOPのあとに「Doループ」を何回繰り返すかを数えるカウンタです。
この行
　If stop_flag = True Then count = count - 1
をDoループの中のForループに入れるのはおかしいですよね。

下記の部分もおかしいですね。
count = 5
Do
a = 1
count = 5　 ←こんなところに入れてはいけません。この行は削除。
・・・・

次のように修正してください。
・上記の後のほうのcount = 5を削除

・Forループ内にある下記の行を変更
　If stop_flag = True Then count = count - 1
　↓
　If stop_flag = True Then Exit For

・下記の部分を修正
　If count = 0 Then Exit Do
　Next b
　Loop
　↓
　Next b
　If count < 0 Then Exit Do 　←　Loop　の直前です。　「<」の修正も
　Loop

回答No.2

MovingWalk

QNo.673135ですね。

>押した後で直ぐに止まらずに数回まわってから止まらないか

ループ(DO)の手前で、count=○　←ご希望の値にします。
if stop_flag=true then count=count-1　に変更します。
Loop の手前の行に、if count=0 then exit do をいれます。

これでいかがでしょうか？

お礼

すみません。お礼の欄に書かせていただきました。
補足がおかしいのに気づいて書き直しました。
ループする内容がよくわからない内容ですみませんでした。
ａ１で０～８まで表示して８が出たら、ｂ１で８～０まで出ます。そしてａ１で・・。というLOOPで、ストップすると、少しまわって終わる(押してから、２～３個後に止まる）内容にしたいのですが・・。

For i = 0 To 7
Range("a1") = a
If stop_flag = True Then count = count - 1
For n = 0 To 2000
DoEvents
Next n
a = a + 1
If count = 0 Then Exit Do
Next i

a = 7
For b = 0 To 7
Range("b1") = a
If stop_flag = True Then count = count - 1
For n = 0 To 2000
DoEvents
Next n
a = a - 1

If count = 0 Then Exit Do
Next b
Loop

すみませんがよろしくお願いします。

補足

いつも回答有難うございます。
早速入力してみましたが・・駄目でした・・。
動くのですが、LOOPからぬけてくれません。

Private Sub CommandButton1_Click()
Dim i As Integer, n As Integer, b As Integer, a As Integer, m As Integer, count As Integer
Static f As Boolean
stop_flag = False
count = 5
Do
a = 1
count = 5

For i = 0 To 7
Range("a1") = a
If stop_flag = True Then count = count - 1
For n = 0 To 500
DoEvents
Next n
a = a + 1
If count = 0 Then Exit Do
Next i

a = 2
For b = 0 To 7
Range("b1") = a
If stop_flag = True Then count = count - 1
For n = 0 To 500
DoEvents
Next n
a = a * 2

If count = 0 Then Exit Do
Next b
Loop

End Sub

使いまわしですが、これでよかったのでしょうか？

回答No.1

gatyan

ルーレットが回っているように見せるために何らかの方法でループさせていると思います。
ストップボタンを押す＝ループ終了の場合、すぐにとまりますが、ストップボタンを押したときにあと何コマ回して終了するかを決めてそのコマ数分進んだらループを終了するようにすればいいのでは？
たとえば、あと何コマ変数＜０は回り続ける,＝０なら終了,＞０ならー１してループ継続とか。
タイマーは適当なタイミングを取ってループさせる手段の１つと思います。（ロジックでループさせるよりプログラムがすっきりすると思います。）

補足

回答有難うございます。ＤＯ～ＬＯＯＰで回転させてます。ストップボタンを押して抜けていたのですが、そのままＳＴＯＰ！なので・・。どうしたら、押した後で直ぐに止まらずに数回まわってから止まらないか・・。私の質問の内容がきちんとしていなくてすみませんでした。
if stop_flag=true then exit do
でＬＯＯＰから抜けているのですが・・。