スロットマシーンの番号表示について

解決

螺旋 2007-06-20 10:25:24 No: 136768

今、スロットの作成をしています。
それで、スロットに表示させる番号を乱数表示で動作させることはできたんですが、0から9の順番に表示させ、これに加えＸが含まれるようにを表示させるには、どうすればいいんでしょうか？
また、ストップボタンを押してから、ゆっくりとスロットが止まるように見えるようにするには、どうすればいいんでしょうか？
よろしくお願いします。
以下にコードを付けておきます。
Public Class Form1
    Dim F1 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Timer2.Enabled = True
        Timer3.Enabled = True
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer2.Enabled = False
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Timer3.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        F1 = CStr(Int(Rnd() * 10))
        Label1.Text = F1
    End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        F1 = CStr(Int(Rnd() * 10))
        Label2.Text = F1
    End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        F1 = CStr(Int(Rnd() * 10))
        Label3.Text = F1
    End Sub
End Class

(報告) 2007-06-20 19:16:35 No: 136769

マルチポストについて
http://www.ippo.ne.jp/g/53.html

http://hpcgi1.nifty.com/rucio/mb1/mb1.cgi

通ってみた 2007-06-20 19:20:02 No: 136770

これはスロットではなく、乱数表示ですねぇ・・・
どっちかというとサイコロみたいな

スロットのようにしたいのなら、配列変数に絵柄(数値)を代入しておき切り替えて表示させるのが一般的でしょう

ささき 2007-06-20 23:27:31 No: 136771

>配列変数に絵柄(数値)を代入しておき切り替えて表示させるのが

そして、配列のインデックスを切り替えるスピード(Sleepなどさせる時間)
を徐々に増やしていけば結果的に画面上はゆっくり切り替わるように見えますね。

螺旋 2007-06-21 00:26:24 No: 136772

みなさんにご迷惑おかけて本当にすみません。
ちゃんと規則を見ておくべきでした。みなさんの指摘を参考にさせてもらいがんばってみます！
もし、また困ったことがあれば、その時はよろしくお願いします！