我需要帮助来制作一个tic tac toe程序 [英] I need help to make a tic tac toe program

问题描述

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RadioButton1.Checked = True
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True Then
            Button1.Text = "X"
        Else
            Button1.Text = "O"
        End If
        Button1.Enabled = False
        If Button1.Text = "X" And Button2.Text = "X" And Button3.Text = "X" Then
            MsgBox("You win Player")
            Label3.Text += 1
            Button1.Text = ""
            Button2.Text = ""
            Button3.Text = ""
            Button1.Enabled = True
            Button2.Enabled = True
            Button3.Enabled = True
        End If
        If Button1.Text = "X" And Button4.Text = "X" And Button7.Text = "X" Then
            MsgBox("EDERES PLAYER !!!")
            Label3.Text += 1
            Button1.Text = ""
            Button4.Text = ""
            Button7.Text = ""
            Button1.Enabled = True
            Button4.Enabled = True
            Button7.Enabled = True
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If RadioButton1.Checked = True Then
            Button2.Text = "X"
        Else
            Button1.Text = "O"
        End If
        Button2.Enabled = False
        If Button1.Text = "X" And Button2.Text = "X" And Button3.Text = "X" Then
            MsgBox("You win Player")
            Label3.Text += 1
            Button1.Text = ""
            Button2.Text = ""
            Button3.Text = ""
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False

        End If

        If RadioButton1.Checked = True Then
            Button2.Text = "X"
        Else
            Button5.Text = "O"

        End If
        Button1.Enabled = False
        If Button2.Text = "X" And Button5.Text = "X" And Button8.Text = "X" Then
            MsgBox("EDERES PLAYER !!!")
            Label3.Text += 1
            Button2.Text = ""
            Button5.Text = ""
            Button8.Text = ""
            Button2.Enabled = True
            Button5.Enabled = True
            Button8.Enabled = True
        End If

    End Sub

    Private Sub RESTARTToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Button1.Text = ""
        Button2.Text = ""
        Button3.Text = ""
        Button4.Text = ""
        Button5.Text = ""
        Button8.Text = ""
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
        Button4.Enabled = True
        Button5.Enabled = True
        Button8.Enabled = True



    End Sub

    Private Sub PINKPATNTHERToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PINKPATNTHERToolStripMenuItem.Click
        ' Me.BackgroundImage = Image.FromFile(Path)
        ' Me.BackgroundImage.Size = BackgroundImageLayout.Stretch()
        ' Button1.BackColor =

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If RadioButton1.Checked = True Then
            Button3.Text = "X"
        Else
            Button3.Text = "O"
        End If
        Button3.Enabled = False
        If Button1.Text = "X" And Button2.Text = "X" And Button3.Text = "X" Then
            MsgBox("EDERES PLAYER !!!")
            Button1.Text = ""
            Button2.Text = ""
            Button3.Text = ""
            Button1.Enabled = True
            Button2.Enabled = True
            Button3.Enabled = True
            Label3.Text += 1
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If RadioButton1.Checked = True Then
            Button4.Text = "X"
        Else
            Button4.Text = "O"
        End If
        Button4.Enabled = False
        If Button1.Text = "X" And Button4.Text = "X" And Button7.Text = "X" Then
            MsgBox("EDERES PLAYER !!!")
            Label3.Text += 1
            Button2.Text = ""
            Button4.Text = ""
            Button7.Text = ""
            Button1.Enabled = False
            Button4.Enabled = False
            Button7.Enabled = False

        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If RadioButton1.Checked = True Then
            Button7.Text = "X"
        Else
            Button7.Text = "O"
        End If
        Button1.Enabled = False
        If Button1.Text = "X" And Button4.Text = "X" And Button7.Text = "X" Then
            MsgBox("EDERES PLAYER !!!")
            Label3.Text += 1
            Button1.Text = ""
            Button4.Text = ""
            Button7.Text = ""
            Button1.Enabled = True
            Button4.Enabled = True
            Button7.Enabled = True
        End If
    End Sub

    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Me.Close()

    End Sub

    Private Sub HELPToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HELPToolStripMenuItem.Click

    End Sub

    Private Sub ABOUTToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ABOUTToolStripMenuItem.Click
        MsgBox("Tic Tac Toe V1.0")
    End Sub

    Private Sub HELPToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HELPToolStripMenuItem1.Click
        MsgBox("O kathe xristis prepei na feri 3 X h 3 O gia na kerdisi")

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If RadioButton1.Checked = True Then
            Button5.Text = "X"
        Else
            Button5.Text = "O"
        End If
        Button5.Enabled = False
        If Button2.Text = "X" And Button5.Text = "X" And Button8.Text = "X" Then
            MsgBox(" you win PLAYER !!!")
            Label3.Text += 1
            Button2.Text = ""
            Button5.Text = ""
            Button8.Text = ""
            Button2.Enabled = False
            Button5.Enabled = False
            Button8.Enabled = False


        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If RadioButton1.Checked = True Then
            Button8.Text = "X"
        Else
            Button8.Text = "O"
        End If
        Button1.Enabled = False
        If Button2.Text = "X" And Button5.Text = "X" And Button8.Text = "X" Then
            MsgBox(" you win PLAYER !!!")
            Label3.Text += 1
            Button2.Text = ""
            Button4.Text = ""
            Button7.Text = ""
            Button1.Enabled = True
            Button4.Enabled = True
            Button7.Enabled = True
        End If
    End Sub
End Class

我在这个游戏中有两个玩家的问题我想要一个基本的tic tac toe感谢andvance !!

这个程序将以不在控制台中的形式制作..

the problem with i have two player in this game i want a make a basic tic tac toe thanks in andvance!!
this programme will be made in form not in console..

推荐答案

请删除此帖子thxs！

please delete this posts thxs!

这篇关于我需要帮助来制作一个tic tac toe程序的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！