Simple Tic-tac-toe Game Logic

In this article I will discuss about a very simple game. Yes, it is a Tic-Tak-Toe game of 3X3 dimension. It is a very simple game and I believe each and every one knows the rules of this game. So I am not going to mention anything about the game rules here. This article also gives you an idea about AI (Artificial Inelegancy) used in computer game. It is like giving thinking ability to you PC.

In this game you can play against computer. That is man vs. computer. The game is developed in VB6.0 and coded in very easy way to make the algorithm easy to understand. There are comments for each chunk of code which acts like a particular AI or games rule. I hope anyone can understand what I am going to do seeing the codes and comments. I used some Matrix formula to calculate/ find next move after a Human move.

Here is the complete listing of source code.



Private Sub Command1_Click(Index As Integer)
If Command1(Index).Caption = "" Then
Command1(Index).Caption = "X"
Call computer
Call win
Else
Beep
End If
End Sub
Public Sub computer()
Dim i, numb1, numb0, cou1, cou2 As Integer
'************CALCULATE THE NUMBER OF "X"************
For i = 0 To 8
If Command1(i).Caption = "X" Then
numb1 = numb1 + 1
End If
Next i
'*****************WIN OPPERTUNITY************
If (Command1(0).Caption = "O" And Command1(1).Caption = "O" And Command1(2).Caption = "") Then
Command1(2).Caption = "O"
Exit Sub
End If

If (Command1(0).Caption = "O" And Command1(2).Caption = "O" And Command1(1).Caption = "") Then
Command1(1).Caption = "O"
Exit Sub
End If

If (Command1(0).Caption = "O" And Command1(3).Caption = "O" And Command1(6).Caption = "") Then
Command1(6).Caption = "O"
Exit Sub
End If

If (Command1(0).Caption = "O" And Command1(6).Caption = "O" And Command1(3).Caption = "") Then
Command1(3).Caption = "O"
Exit Sub
End If
'****************************************
If (Command1(8).Caption = "O" And Command1(5).Caption = "O" And Command1(2).Caption = "") Then
Command1(2).Caption = "O"
Exit Sub
End If

If (Command1(8).Caption = "O" And Command1(2).Caption = "O" And Command1(5).Caption = "") Then
Command1(5).Caption = "O"
Exit Sub
End If

If (Command1(8).Caption = "O" And Command1(7).Caption = "O" And Command1(6).Caption = "") Then
Command1(6).Caption = "O"
Exit Sub
End If

If (Command1(8).Caption = "O" And Command1(6).Caption = "O" And Command1(7).Caption = "") Then
Command1(7).Caption = "O"
Exit Sub
End If
'********************************
If (Command1(6).Caption = "O" And Command1(7).Caption = "O" And Command1(8).Caption = "") Then
Command1(8).Caption = "O"
Exit Sub
End If

If (Command1(6).Caption = "O" And Command1(3).Caption = "O" And Command1(0).Caption = "") Then
Command1(0).Caption = "O"
Exit Sub
End If
'*****************************************
If (Command1(2).Caption = "O" And Command1(1).Caption = "O" And Command1(0).Caption = "") Then
Command1(0).Caption = "O"
Exit Sub
End If

If (Command1(2).Caption = "O" And Command1(5).Caption = "O" And Command1(8).Caption = "") Then
Command1(8).Caption = "O"
Exit Sub
End If

'***************LOGICS IF THE CENTER BOX CONTAIN "O"***********
If Command1(4).Caption = "O" Then
'*********************CROSS(X) LOGICS*****************
For q = 0 To 8 Step 2
If q = 4 Then
GoTo 2
End If
If Command1(q).Caption = "O" Then
n = 4 * 2 - q
If Command1(n).Caption = "" Then
Command1(n).Caption = "O"
Exit Sub
End If
End If
2 Next q
'*********************PLUSE(+) LOGICS*****************
For w = 1 To 7 Step 2
If w = 4 Then
GoTo 4
End If
If Command1(w).Caption = "O" Then
n = 4 * 2 - w
If Command1(n).Caption = "" Then
Command1(n).Caption = "O"
Exit Sub
End If
End If
4 Next w
End If

'************************PROCTECT GAME***********************
If (Command1(0).Caption = "X" And Command1(1).Caption = "X" And Command1(2).Caption = "") Then
Command1(2).Caption = "O"
Exit Sub
End If

If (Command1(0).Caption = "X" And Command1(2).Caption = "X" And Command1(1).Caption = "") Then
Command1(1).Caption = "O"
Exit Sub
End If

If (Command1(0).Caption = "X" And Command1(3).Caption = "X" And Command1(6).Caption = "") Then
Command1(6).Caption = "O"
Exit Sub
End If

If (Command1(0).Caption = "X" And Command1(6).Caption = "X" And Command1(3).Caption = "") Then
Command1(3).Caption = "O"
Exit Sub
End If
'****************************************
If (Command1(8).Caption = "X" And Command1(5).Caption = "X" And Command1(2).Caption = "") Then
Command1(2).Caption = "O"
Exit Sub
End If

If (Command1(8).Caption = "X" And Command1(2).Caption = "X" And Command1(5).Caption = "") Then
Command1(5).Caption = "O"
Exit Sub
End If

If (Command1(8).Caption = "X" And Command1(7).Caption = "X" And Command1(6).Caption = "") Then
Command1(6).Caption = "O"
Exit Sub
End If

If (Command1(8).Caption = "X" And Command1(6).Caption = "X" And Command1(7).Caption = "") Then
Command1(7).Caption = "O"
Exit Sub
End If

If (Command1(1).Caption = "X" And Command1(2).Caption = "X" And Command1(0).Caption = "") Then
Command1(0).Caption = "O"
Exit Sub
End If

If (Command1(6).Caption = "X" And Command1(7).Caption = "X" And Command1(8).Caption = "") Then
Command1(8).Caption = "O"
Exit Sub
End If
If (Command1(2).Caption = "X" And Command1(5).Caption = "X" And Command1(8).Caption = "") Then
Command1(8).Caption = "O"
Exit Sub
End If

If (Command1(3).Caption = "X" And Command1(6).Caption = "X" And Command1(0).Caption = "") Then
Command1(0).Caption = "O"
Exit Sub
End If


'**************PUT "O" IN CENTER BOX IF BLANK****************
If (numb1 = 1 And Command1(4).Caption = "") Then
Command1(4).Caption = "O"
Exit Sub
End If
'***************LOGICS IF THE CENTER BOX CONTAIN "X"***********
If Command1(4).Caption = "X" Then

'*********************CROSS(X) LOGICS*****************
For q = 0 To 8 Step 2
If q = 4 Then
GoTo 5
End If
If Command1(q).Caption = "X" Then
n = 4 * 2 - q
If Command1(n).Caption = "" Then
Command1(n).Caption = "O"
Exit Sub
End If
End If
5 Next q
'*********************PLUSE(+) LOGICS*****************
For q = 1 To 7 Step 2
If q = 4 Then
GoTo 6
End If
If Command1(q).Caption = "X" Then
n = 4 * 2 - q
If Command1(n).Caption = "" Then
Command1(n).Caption = "O"
Exit Sub
End If
End If
6 Next q


If Command1(0).Caption = "" Then
Command1(0).Caption = "O"
Exit Sub
End If

If Command1(2).Caption = "" Then
Command1(2).Caption = "O"
Exit Sub
End If

If Command1(6).Caption = "" Then
Command1(6).Caption = "O"
Exit Sub
End If

If Command1(8).Caption = "" Then
Command1(8).Caption = "O"
Exit Sub
End If
End If

'*******************MASTER LOGICS(1)*********
If (Command1(3).Caption = "X" And Command1(1).Caption = "X") Then
If Command1(0).Caption = "" Then
Command1(0).Caption = "O"
Exit Sub
End If
End If

If (Command1(1).Caption = "X" And Command1(5).Caption = "X") Then
If Command1(2).Caption = "" Then
Command1(2).Caption = "O"
Exit Sub
End If
End If

If (Command1(5).Caption = "X" And Command1(7).Caption = "X") Then
If Command1(8).Caption = "" Then
Command1(8).Caption = "O"
Exit Sub
End If
End If

If (Command1(3).Caption = "X" And Command1(7).Caption = "X") Then
If Command1(6).Caption = "" Then
Command1(6).Caption = "O"
Exit Sub
End If
End If

'************************master logics(2)***************

If (Command1(3).Caption = "X") Then
If Command1(2).Caption = "X" And Command1(0).Caption = "" Then
Command1(0).Caption = "O"
Exit Sub
End If

If Command1(8).Caption = "X" And Command1(6).Caption = "" Then
Command1(6).Caption = "O"
Exit Sub
End If
End If

If (Command1(5).Caption = "X") Then
If Command1(0).Caption = "X" And Command1(2).Caption = "" Then
Command1(2).Caption = "O"
Exit Sub
End If

If Command1(6).Caption = "X" And Command1(8).Caption = "" Then
Command1(8).Caption = "O"
Exit Sub
End If
End If

If (Command1(7).Caption = "X") Then
If Command1(0).Caption = "X" And Command1(6).Caption = "" Then
Command1(6).Caption = "O"
Exit Sub
End If

If Command1(2).Caption = "X" And Command1(8).Caption = "" Then
Command1(8).Caption = "O"
Exit Sub
End If
End If

If (Command1(1).Caption = "X") Then
If Command1(6).Caption = "X" And Command1(0).Caption = "" Then
Command1(0).Caption = "O"
Exit Sub
End If
If Command1(8).Caption = "X" And Command1(2).Caption = "" Then
Command1(2).Caption = "O"
Exit Sub
End If

End If

'**********************************************
If (numb1 = 5) Then
MsgBox "*****Game over*****"
Call newer
GoTo 10
End If

'*************Master Logics(1)*****************
For K = 1 To 7 Step 2
If Command1(4).Caption = "O" And Command1(K).Caption = "" Then
Command1(K).Caption = "O"
Exit Sub
End If
Next K

8 cou1 = Int(Rnd * 9)
If Command1(cou1).Caption = "" Then
Command1(cou1).Caption = "O"
Else
GoTo 8
End If

10 End Sub

Private Sub exit_Click()
End
End Sub

Private Sub Form_Load()
Open "C:WIN.TXT" For Append As #1
Close #1
End Sub

Private Sub new_Click()
Call newer
End Sub
Public Sub win()
'**********************YOU WIN*************
If (Command1(1).Caption = "X" And Command1(0).Caption = "X" And Command1(2).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If

If (Command1(0).Caption = "X" And Command1(4).Caption = "X" And Command1(8).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If

If (Command1(0).Caption = "X" And Command1(3).Caption = "X" And Command1(6).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If

If (Command1(1).Caption = "X" And Command1(4).Caption = "X" And Command1(7).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If

If (Command1(2).Caption = "X" And Command1(5).Caption = "X" And Command1(8).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If

If (Command1(3).Caption = "X" And Command1(4).Caption = "X" And Command1(5).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If

If (Command1(6).Caption = "X" And Command1(7).Caption = "X" And Command1(8).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If


If (Command1(6).Caption = "X" And Command1(4).Caption = "X" And Command1(2).Caption = "X") Then
MsgBox "***You win***"
Call newer
End If



'*****************YOU LOST*************
If (Command1(1).Caption = "O" And Command1(0).Caption = "O" And Command1(2).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
If (Command1(4).Caption = "O" And Command1(0).Caption = "O" And Command1(8).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
If (Command1(3).Caption = "O" And Command1(0).Caption = "O" And Command1(6).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
If (Command1(1).Caption = "O" And Command1(4).Caption = "O" And Command1(7).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
If (Command1(2).Caption = "O" And Command1(5).Caption = "O" And Command1(8).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
If (Command1(3).Caption = "O" And Command1(4).Caption = "O" And Command1(5).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
If (Command1(6).Caption = "O" And Command1(7).Caption = "O" And Command1(8).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
If (Command1(6).Caption = "O" And Command1(4).Caption = "O" And Command1(2).Caption = "O") Then
MsgBox "***You loset***"
Call newer
End If
End Sub

Public Sub newer()
For i = 0 To 8
Command1(i).Caption = ""
Next i
End Sub




You can download full project from BD Experts site