井字游戏AI [英] Tic Tac Toe AI

问题描述

我需要以下代码的ai，有人可以帮助我吗?

i need and ai for the following code can anyone help me?

Public Class Form1
    Dim lock1, lock2, lock3, lock4, lock5, lock6, lock7, lock8, lock9 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If lock1 = 0 Then
            If RadioButton1.Checked Then
                Button1.Text = "X"
            ElseIf RadioButton2.Checked Then
                Button1.Text = "O"
            End If
        End If
        joe()
        lock1 = 1
    End Sub
    Private Sub resetButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetButton.Click
        Button1.Text = ""
        Button2.Text = ""
        Button3.Text = ""
        Button4.Text = ""
        Button5.Text = ""
        Button6.Text = ""
        Button7.Text = ""
        Button8.Text = ""
        Button9.Text = ""
        Label1.Text = ""
        lock1 = 0
        lock2 = 0
        lock3 = 0
        lock4 = 0
        lock5 = 0
        lock6 = 0
        lock7 = 0
        lock8 = 0
        lock9 = 0
    End Sub
    Private Sub exitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitButton.Click
        Me.Close()
    End Sub
    Private Sub joe()
        Select Case True
            Case Button1.Text = "X" And Button2.Text = "X" And Button3.Text = "X"
                Label1.Text = "Player X wins"

            Case Button4.Text = "X" And Button5.Text = "X" And Button6.Text = "X"
                Label1.Text = "Player X wins"

            Case Button7.Text = "X" And Button8.Text = "X" And Button9.Text = "X"
                Label1.Text = "Player X wins"

            Case Button1.Text = "X" And Button4.Text = "X" And Button7.Text = "X"
                Label1.Text = "Player X wins"

            Case Button2.Text = "X" And Button5.Text = "X" And Button8.Text = "X"
                Label1.Text = "Player X wins"

            Case Button3.Text = "X" And Button6.Text = "X" And Button9.Text = "X"
                Label1.Text = "Player X wins"

            Case Button1.Text = "X" And Button5.Text = "X" And Button9.Text = "X"
                Label1.Text = "Player X wins"

            Case Button3.Text = "X" And Button5.Text = "X" And Button7.Text = "X"
                Label1.Text = "Player X wins"

            Case Button1.Text = "O" And Button2.Text = "O" And Button3.Text = "O"
                Label1.Text = "Player O wins"

            Case Button4.Text = "O" And Button5.Text = "O" And Button6.Text = "O"
                Label1.Text = "Player O wins"

            Case Button7.Text = "O" And Button8.Text = "O" And Button9.Text = "O"
                Label1.Text = "Player O wins"

            Case Button1.Text = "O" And Button4.Text = "O" And Button7.Text = "O"
                Label1.Text = "Player O wins"

            Case Button2.Text = "O" And Button5.Text = "O" And Button8.Text = "O"
                Label1.Text = "Player O wins"

            Case Button3.Text = "O" And Button6.Text = "O" And Button9.Text = "O"
                Label1.Text = "Player O wins"

            Case Button1.Text = "O" And Button5.Text = "O" And Button9.Text = "O"
                Label1.Text = "Player O wins"

            Case Button3.Text = "O" And Button5.Text = "O" And Button7.Text = "O"
                Label1.Text = "Player O wins"
            Case Button1.Text > "" And Button2.Text > "" And Button3.Text > "" And _
            Button4.Text > "" And Button5.Text > "" And Button6.Text > "" And _
            Button7.Text > "" And Button8.Text > "" And Button9.Text > ""
                Label1.Text = "DRAW"
        End Select
    End Sub
End Class

推荐答案

此链接包含已在VB中编程的整个井字游戏: http://visualbasic.about.com /od/usingvbnet/l/aa093002a.htm [ ^ ]

This link has an entire tic tac toe game already programmed in VB: http://visualbasic.about.com/od/usingvbnet/l/aa093002a.htm[^]

这篇关于井字游戏AI的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！