• Home
 · 
• Games
 · 
• A Tic Tac Game

A Tic Tac Game

A Tic Tac Game

API Declarations


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
End Function




Rate A Tic Tac Game

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

End
End Sub

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