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

解決


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

今、スロットの作成をしています。 
それで、スロットに表示させる番号を乱数表示で動作させることはできたんですが、0から9の順番に表示させ、これに加えXが含まれるようにを表示させるには、どうすればいいんでしょうか? 
また、ストップボタンを押してから、ゆっくりとスロットが止まるように見えるようにするには、どうすればいいんでしょうか? 
よろしくお願いします。 
以下にコードを付けておきます。 
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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加