• Home
 · 
• Games
 · 
• This creates a Tic Tac toe game

This creates a Tic Tac toe game

This creates a Tic Tac toe game

API Declarations


'Name the Form frmTic
'Create Module Toe




Rate This creates a Tic Tac toe game

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub cmdTac1_Click()
intButton = "cmdTac1"
Remove (Tic)
End Sub

Private Sub cmdTac2_Click()
intButton = "cmdTac2"
Remove (Tic)
End Sub

Private Sub cmdTac3_Click()
intButton = "cmdTac3"
Remove (Tic)
End Sub

Private Sub cmdTac4_Click()
intButton = "cmdTac4"
Remove (Tic)
End Sub

Private Sub cmdTac5_Click()
intButton = "cmdTac5"
Remove (Tic)
End Sub

Private Sub cmdTac6_Click()
intButton = "cmdTac6"
Remove (Tic)
End Sub

Private Sub cmdTac7_Click()
intButton = "cmdTac7"
Remove (Tic)
End Sub

Private Sub cmdTac8_Click()
intButton = "cmdTac8"
Remove (Tic)
End Sub

Private Sub cmdTac9_Click()
intButton = "cmdTac9"
Remove (Tic)
End Sub

Private Sub Form_Load()
MsgBox ("X will go fist")
intCounter = 1
End Sub

' Code for the module
Public intCounter As Integer
Public intButton
Public Caption
Public intCat As Integer


Function Remove(Tic)


If intCounter = 1 Then
    frmTic(intButton).Caption = "X"
    intCounter = 0
    frmTic(intButton).Enabled = False
    intCat = intCat + 1
    GoTo ERC
End If

If intCounter = 0 Then
    frmTic(intButton).Caption = "O"
    intCounter = 1
    frmTic(intButton).Enabled = False
    intCat = intCat + 1
    GoTo ERC

End If

ERC:

If frmTic.cmdTac1.Caption = "X" And frmTic.cmdTac2.Caption = "X" And frmTic.cmdTac3.Caption = "X" Or frmTic.cmdTac1.Caption = "X" And frmTic.cmdTac4.Caption = "X" And frmTic.cmdTac7.Caption = "X" Or frmTic.cmdTac1.Caption = "X" And frmTic.cmdTac5.Caption = "X" And frmTic.cmdTac9.Caption = "X" Then
    MsgBox ("Congratulations X you won")
End If

If frmTic.cmdTac4.Caption = "X" And frmTic.cmdTac5.Caption = "X" And frmTic.cmdTac6.Caption = "X" Then
    MsgBox ("Congratulations X you won")
End If

If frmTic.cmdTac7.Caption = "X" And frmTic.cmdTac8.Caption = "X" And frmTic.cmdTac9.Caption = "X" Or frmTic.cmdTac2.Caption = "X" And frmTic.cmdTac5.Caption = "X" And frmTic.cmdTac8.Caption = "X" Or frmTic.cmdTac3.Caption = "X" And frmTic.cmdTac6.Caption = "X" And frmTic.cmdTac9.Caption = "X" Then
    MsgBox ("Congratulations X you won")
End If

If frmTic.cmdTac1.Caption = "O" And frmTic.cmdTac2.Caption = "O" And frmTic.cmdTac3.Caption = "O" Or frmTic.cmdTac1.Caption = "O" And frmTic.cmdTac4.Caption = "O" And frmTic.cmdTac7.Caption = "O" Or frmTic.cmdTac1.Caption = "O" And frmTic.cmdTac5.Caption = "O" And frmTic.cmdTac9.Caption = "O" Then
    MsgBox ("Congratulations O you won")
End If

If frmTic.cmdTac4.Caption = "O" And frmTic.cmdTac5.Caption = "O" And frmTic.cmdTac6.Caption = "O" Then
    MsgBox ("Congratulations O you won")
End If

If frmTic.cmdTac7.Caption = "O" And frmTic.cmdTac8.Caption = "O" And frmTic.cmdTac9.Caption = "O" Or frmTic.cmdTac2.Caption = "O" And frmTic.cmdTac5.Caption = "O" And frmTic.cmdTac8.Caption = "O" Or frmTic.cmdTac3.Caption = "O" And frmTic.cmdTac6.Caption = "O" And frmTic.cmdTac9.Caption = "O" Then
    MsgBox ("Congratulations O you won")
End If

If intCat = 9 Then
    MsgBox ("Sorry its a cats game")
End If
End Function