2

私は単純な Tic Tac Toe ゲームを構築していますが、問題が発生しました。ゲーム内でコンピューターが動き出すためのスクリプトを作成しようとしていますが、行き詰まりました。ここに問題があるコードの部分があります。

Public Class Form1
    Public Enum Buttons As Byte
        btn1 = 1
        btn2 = 2
        btn3 = 3
        btn4 = 4
        btn5 = 5
        btn6 = 6
        btn7 = 7
        btn8 = 8
        btn9 = 9
    End Enum

    Public Sub Computer(ByVal ButtonSelected As Button, ByVal Buttons As Buttons)
        Dim RandomNumberGenerator As New Random
        Dim RandomNumber As Integer
        RandomNumber = RandomNumberGenerator.Next(1, 9)
        If Buttons.RandomNumber Then

        End If


    End Sub

私が抱えている問題は、If ステートメントにあります。乱数を使用して Enum からボタンを選択したいのですが、方法がわかりません。誰か助けてくれませんか？

4

1 に答える 1

5

キャストを使用して整数を列挙型に変換するだけです。また、同じボタンが何度も表示されないように、Random クラス オブジェクトを 1 回だけ初期化してください。このような：

Dim RandomNumberGenerator As New Random

Public Sub Computer()
    Dim RandomNumber = RandomNumberGenerator.Next(0, 9)
    Dim RandomButton = CType(RandomNumber, Buttons)
    '' etc..
End Sub
于 2013-06-03T23:45:13.940 に答える