有问题的随机数生成器VB.NET

Question

我正在构建一个简单的井字游戏，我遇到了一个问题。我试着写一个脚本，让电脑在游戏中移动，我被卡住了。这是我遇到麻烦的代码的一部分。

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语句。我想使用随机数从枚举中选择一个按钮，但我不知道如何。有人能帮帮我吗?

Answer 1

使用强制类型转换将整型转换为enum。另外，请确保只初始化Random类对象一次，这样您就不会一次又一次地得到相同的按钮。这样的:

Dim RandomNumberGenerator As New Random
Public Sub Computer()
    Dim RandomNumber = RandomNumberGenerator.Next(0, 9)
    Dim RandomButton = CType(RandomNumber, Buttons)
    '' etc..
End Sub