Private Sub MakeMove(row As Integer, col As Integer, player As String) board(row, col) = player Dim btn As Button = GetButton(row, col) btn.Text = player btn.Enabled = False
If emptyCells.Count > 0 Then Dim rnd As New Random() Dim move = emptyCells(rnd.Next(emptyCells.Count)) MakeMove(move.Item1, move.Item2, "O") End If End Sub visual basic projects with source code
Private Function CheckWin(player As String) As Boolean ' Check rows, columns, diagonals For i = 0 To 2 If board(i, 0) = player AndAlso board(i, 1) = player AndAlso board(i, 2) = player Then Return True If board(0, i) = player AndAlso board(1, i) = player AndAlso board(2, i) = player Then Return True Next If board(0, 0) = player AndAlso board(1, 1) = player AndAlso board(2, 2) = player Then Return True If board(0, 2) = player AndAlso board(1, 1) = player AndAlso board(2, 0) = player Then Return True Return False End Function Private Sub MakeMove(row As Integer, col As Integer,
Public Class TicTacToe Dim board(2, 2) As String ' "X", "O", or "" Dim currentPlayer As String = "X" Dim gameActive As Boolean = True Private Sub Button_Click(sender As Object, e As EventArgs) Handles btn00.Click, btn01.Click, btn02.Click, btn10.Click, btn11.Click, btn12.Click, btn20.Click, btn21.Click, btn22.Click Dim btn As Button = CType(sender, Button) Dim row As Integer = CInt(btn.Tag.ToString().Substring(0, 1)) Dim col As Integer = CInt(btn.Tag.ToString().Substring(1, 1)) Private Sub MakeMove(row As Integer