C# と VB.NET の質問掲示板

１〜５０までの数が格子状に並んでいて、その中からいくつかの数字を選び、
スタートボタンを押すとランダムにマスが点滅し、最後に止まったマス（数字）
と選んだ数字が同じ場合に当たりというプログラムを作っています。

ほぼ希望通りにできたのですが、ランダムにマスを点滅させるときに続けて同じマスが
点滅することがあります。

同じマスが何回か点滅しても構わないのですが、続けての点滅は無しにしたいのです。

点滅の方法としては１〜５０までのラベルを貼り付け、タイマーにより乱数１〜５０まで
の乱数を発生させ、その数値のラベルの背景色を変えています。

しかしその時に同じ数値が続けて発生することがあります。

重複なしの乱数の発生のさせ方はWEBに載っているのですが、同じ数値を連続させない方法が
見つかりませんでした。

直前の数値と違う乱数の出し方をご存知の方がいらっしゃいましたら教えていただけないでしょうか？

自分が書いた乱数を発生させラベルを点滅させる部分のプログラムを以下の通りです。


    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        If i < 30 Then

            i += 1

            If selected = True Then
                Me.Controls(ControlName).BackColor = Color.Aquamarine
            Else
                Me.Controls(ControlName).BackColor = Color.Empty
            End If

            Randomize()
            ControlName = "label" & Rand.Next(1, 50)


            If Me.Controls(ControlName).BackColor = Color.Aquamarine Then
                selected = True
                Me.Controls(ControlName).BackColor = Color.Yellow
            Else
                selected = False
                Me.Controls(ControlName).BackColor = Color.Aqua
            End If

            System.Console.Beep(1000, 50)
        End If

    End Sub


よろしくお願いします。

■No81559 (よっしー さん) に返信
> 直前の数値と違う乱数の出し方をご存知の方がいらっしゃいましたら教えていただけないでしょうか？

そういう風に自分で作れば良いというのが、プログラムの世界です。
考え方としては、「前回の数値を覚えておく（変数を作る）」と「前回と同じだったら数値を変える」です。

前回の数値を覚えておく方法としては「メンバー変数を作ること」です。

Private previousValue As Integer = -1


    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'略
            Dim currentValue As Integer = Rand.Next(1, 50)
            ControlName = "label" & currentValue
            previousValue = currentValue

こうすれば、previousValue に今回出した数値が入り、次の Timer1_Tick の時に見ることができるようになります。


次に数値を変える方法ですが、いくつかアプローチがあります。

１．前回と同じ数値が出たらまた Rand.Next を呼び出す（While ループなど）
２．前回の数値があれば、1 〜 49 を求めるようにしておき、同じ数値になったら 1 を足す


１の方法は While という条件が同じ場合に繰り返すというループとなると思います。

currentValue = Rand.Next(1, 50)
While (currentValue = previousValue)
    currentValue = Rand.Next(1, 50)
End While


２の方法はこんな感じですかね。

Dim randomMax = 50
If (0 <= previousValue) Then
    randomMax = 49
End If

currentValue = Rand.Next(1, randomMax)

If (currentValue = previousValue) Then
    currentValue = currentValue + 1
End If