TicTacToe 2018
Public Class Form1
Dim btn(8) As Button
Dim v As Integer
Dim g(8) As Integer
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
btn(0) = Button1
btn(1) = Button2
btn(2) = Button3
btn(3) = Button4
btn(4) = Button5
btn(5) = Button6
btn(6) = Button7
btn(7) = Button8
btn(8) = Button9
v = 0
Dim i As Integer
For i = 0 To 8
With btn(i)
.Height = btn(i).Width
.Left = (i Mod 3) * btn(0).Width + 30
.Top = (i \ 3) * btn(0).Height + 30
.Text = ""
.Font = New System.Drawing.Font("Arial", 38)
End With
Next
v = 0
For i = 0 To 8
g(i) = 0
Next
Dim p As Integer
p = 4
btn(p).Enabled = False
btn(p).Text = "○"
g(p) = -1
End Sub
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click
Dim p As Integer
v = v + 1
p = Microsoft.VisualBasic.Right((CType(sender, Button).Name), 1)
Select Case v
Case 1
Select Case p - 1
Case 0
btn(0).Enabled = False
btn(0).Text = "※"
g(0) = 1
Label1.Text = "0"
btn(2).Enabled = False
btn(2).Text = "○"
g(2) = -1
Case 2
btn(0).Enabled = False
btn(0).Text = "※"
g(0) = 1
Label1.Text = "0"
btn(2).Enabled = False
btn(2).Text = "○"
g(2) = -1
Case 6
btn(0).Enabled = False
btn(0).Text = "※"
g(0) = 1
Label1.Text = "0"
btn(2).Enabled = False
btn(2).Text = "○"
g(2) = -1
Case 8
btn(0).Enabled = False
btn(0).Text = "※"
g(0) = 1
Label1.Text = "0"
btn(2).Enabled = False
btn(2).Text = "○"
g(2) = -1
Case 1
btn(1).Enabled = False
btn(1).Text = "※"
g(1) = 1
Label1.Text = "1"
btn(2).Enabled = False
btn(2).Text = "○"
g(2) = -1
Case 3
btn(1).Enabled = False
btn(1).Text = "※"
g(1) = 1
Label1.Text = "1"
btn(2).Enabled = False
btn(2).Text = "○"
g(2) = -1
Case 5
btn(1).Enabled = False
btn(1).Text = "※"
g(1) = 1
Label1.Text = "1"
btn(2).Enabled = False
btn(2).Text = "○"
g(2) = -1
Case 7
btn(1).Enabled = False
btn(1).Text = "※"
g(1) = 1
Label1.Text = "1"
btn(2).Enabled = False
btn(2).Text = "○"
g(2) = -1
End Select
Case 2
Select Case Val(Label1.Text)
Case 0
Select Case p - 1
Case 1
btn(1).Enabled = False
btn(1).Text = "※"
g(1) = 1
btn(6).Enabled = False
btn(6).Text = "○"
g(6) = -1
MsgBox("○1stWIN!!!")
Label1.Text = ""
End
Case 3
btn(3).Enabled = False
btn(3).Text = "※"
g(3) = 1
btn(6).Enabled = False
btn(6).Text = "○"
g(6) = -1
MsgBox("○1stWIN!!!")
Label1.Text = ""
End
Case 5
btn(5).Enabled = False
btn(5).Text = "※"
g(5) = 1
btn(6).Enabled = False
btn(6).Text = "○"
g(6) = -1
Label1.Text = ""
MsgBox("○1stWIN!!!")
End
Case 7
btn(7).Enabled = False
btn(7).Text = "※"
g(7) = 1
btn(6).Enabled = False
btn(6).Text = "○"
g(6) = -1
Label1.Text = ""
MsgBox("○1stWIN!!!")
End
Case 8
btn(8).Enabled = False
btn(8).Text = "※"
g(8) = 1
btn(6).Enabled = False
btn(6).Text = "○"
g(6) = -1
Label1.Text = ""
MsgBox("○1stWIN!!!")
End
Case 6
btn(6).Enabled = False
btn(6).Text = "※"
g(6) = 1
Label1.Text = "36"
btn(3).Enabled = False
btn(3).Text = "○"
g(3) = 1
End Select
Case 1
Select Case p - 1
Case 0
btn(0).Enabled = False
btn(0).Text = "※"
g(0) = 1
btn(6).Enabled = False
btn(6).Text = "○"
g(6) = -1
Label1.Text = ""
MsgBox("○1st WIN!!")
End
Case 3
btn(3).Enabled = False
btn(3).Text = "※"
g(3) = 1
btn(6).Enabled = False
btn(6).Text = "○"
g(6) = -1
Label1.Text = ""
MsgBox("○1st WIN!!")
End
Case 5
btn(5).Enabled = False
btn(5).Text = "※"
g(5) = 1
btn(6).Enabled = False
btn(6).Text = "○"
g(6) = -1
Label1.Text = ""
MsgBox("○1st WIN!!")
End
Case 7
btn(7).Enabled = False
btn(7).Text = "※"
g(7) = 1
btn(6).Enabled = False
btn(6).Text = "○"
g(6) = -1
Label1.Text = ""
MsgBox("○1st WIN!!")
End
Case 8
btn(8).Enabled = False
btn(8).Text = "※"
g(8) = 1
btn(6).Enabled = False
btn(6).Text = "○"
g(6) = -1
Label1.Text = ""
MsgBox("○1st WIN!!")
End
Case 6
Label1.Text = "236"
btn(6).Enabled = False
btn(6).Text = "※"
g(6) = 1
btn(8).Enabled = False
btn(8).Text = "○"
g(8) = -1
End Select
End Select
Case 3
Select Case Val(Label1.Text)
Case 36
Select Case p - 1
Case 1
btn(1).Enabled = False
btn(1).Text = "※"
g(1) = 1
btn(5).Enabled = False
btn(5).Text = "○"
g(5) = -1
Label1.Text = ""
MsgBox("○1stWin!!!")
End
Case 7
btn(7).Enabled = False
btn(7).Text = "※"
g(7) = 1
btn(5).Enabled = False
btn(5).Text = "○"
g(5) = -1
Label1.Text = ""
MsgBox("○1stWin!!!")
End
Case 8
btn(8).Enabled = False
btn(8).Text = "※"
g(8) = 1
btn(5).Enabled = False
btn(5).Text = "○"
g(5) = -1
Label1.Text = ""
MsgBox("○1stWin!!!")
End
Case 5
btn(5).Enabled = False
btn(5).Text = "※"
g(5) = 1
btn(8).Enabled = False
btn(8).Text = "○"
g(8) = -1
Label1.Text = ""
MsgBox("Draw")
End
End Select
Case 236
Select Case p - 1
Case 0
btn(0).Enabled = False
btn(0).Text = "※"
g(0) = 1
btn(5).Enabled = False
btn(5).Text = "○"
g(5) = -1
Label1.Text = ""
MsgBox("○1stWin!!!")
End
Case 3
btn(3).Enabled = False
btn(3).Text = "※"
g(3) = 1
btn(5).Enabled = False
btn(5).Text = "○"
g(5) = -1
Label1.Text = ""
MsgBox("○1stWin!!!")
End
Case 7
btn(7).Enabled = False
btn(7).Text = "※"
g(7) = 1
btn(5).Enabled = False
btn(5).Text = "○"
g(5) = -1
Label1.Text = ""
MsgBox("○1stWin!!!")
End
Case 5
btn(5).Enabled = False
btn(5).Text = "※"
g(5) = 1
btn(0).Enabled = False
btn(0).Text = "○"
g(0) = -1
Label1.Text = ""
MsgBox("Draw")
End
End Select
End Select
End Select
End Sub
End Class