• Home
 · 
• Games
 · 
• IT'S A SIMPLE TIC-TAE-TOE GAME, I DID IT IN 15 MIN WHILE I WAS ON BREAK. ALL YOU NEED JUST A LABEL

IT'S A SIMPLE TIC-TAE-TOE GAME, I DID IT IN 15 MIN WHILE I WAS ON BREAK. ALL YOU NEED JUST A LABEL

IT'S A SIMPLE TIC-TAE-TOE GAME, I DID IT IN 15 MIN WHILE I WAS ON BREAK. ALL YOU NEED JUST A LABEL ARRAY FROM 0 TO 8 .I CALLED IT lblXY. and

Rate IT'S A SIMPLE TIC-TAE-TOE GAME, I DID IT IN 15 MIN WHILE I WAS ON BREAK. ALL YOU NEED JUST A LABEL

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

End Sub


Private Sub cmdNew_Click()
NEWGAME
End Sub

Private Sub lblXY_Click(Index As Integer)
Static HIT As Integer
Dim Rhit As Integer
If InStr(lblRes.Caption, "WINS") > 0 Then Exit Sub
If lblXY(Index).Caption <> "" Then Exit Sub
If HIT = 0 Then
    lblXY(Index).Caption = UCase("X")
    HIT = 1
Else
    lblXY(Index).Caption = UCase("O")
    HIT = 0
End If
If lblXY(Index).Caption = UCase("X") Then
    lblXY(Index).ForeColor = &HFF&
Else
    lblXY(Index).ForeColor = &HFF0000
End If
CHECKX
CHECKY
End Sub

Public Sub CHECKX()
Dim XY As Integer
Dim COMB As Integer
'FOR X WIN
If lblXY(0).Caption = UCase("X") And lblXY(1).Caption = UCase("X") And lblXY(2).Caption = UCase("X") Then
    lblRes.Caption = "X WINS"
ElseIf lblXY(3).Caption = UCase("X") And lblXY(4).Caption = UCase("X") And lblXY(5).Caption = UCase("X") Then
    lblRes.Caption = "X WINS"
ElseIf lblXY(6).Caption = UCase("X") And lblXY(7).Caption = UCase("X") And lblXY(8).Caption = UCase("X") Then
    lblRes.Caption = "X WINS"
ElseIf lblXY(0).Caption = UCase("X") And lblXY(4).Caption = UCase("X") And lblXY(8).Caption = UCase("X") Then
    lblRes.Caption = "X WINS"
ElseIf lblXY(2).Caption = UCase("X") And lblXY(4).Caption = UCase("X") And lblXY(6).Caption = UCase("X") Then
    lblRes.Caption = "X WINS"
ElseIf lblXY(1).Caption = UCase("X") And lblXY(4).Caption = UCase("X") And lblXY(7).Caption = UCase("X") Then
    lblRes.Caption = "X WINS"
ElseIf lblXY(0).Caption = UCase("X") And lblXY(3).Caption = UCase("X") And lblXY(6).Caption = UCase("X") Then
    lblRes.Caption = "X WINS"
ElseIf lblXY(1).Caption = UCase("X") And lblXY(4).Caption = UCase("X") And lblXY(7).Caption = UCase("X") Then
    lblRes.Caption = "X WINS"
ElseIf lblXY(2).Caption = UCase("X") And lblXY(5).Caption = UCase("X") And lblXY(8).Caption = UCase("X") Then
    lblRes.Caption = "X WINS"
End If
End Sub

Public Sub NEWGAME()
Dim XY As Integer
For XY = 0 To 8
   lblXY(XY).Caption = ""
Next
lblRes.Caption = ""
End Sub

Public Sub CHECKY()
'FOR Y WIN
If lblXY(0).Caption = UCase("O") And lblXY(1).Caption = UCase("O") And lblXY(2).Caption = UCase("O") Then
    lblRes.Caption = "O WINS"
ElseIf lblXY(3).Caption = UCase("O") And lblXY(4).Caption = UCase("O") And lblXY(5).Caption = UCase("O") Then
    lblRes.Caption = "O WINS"
ElseIf lblXY(6).Caption = UCase("O") And lblXY(7).Caption = UCase("O") And lblXY(8).Caption = UCase("O") Then
    lblRes.Caption = "O WINS"
ElseIf lblXY(0).Caption = UCase("O") And lblXY(4).Caption = UCase("O") And lblXY(8).Caption = UCase("O") Then
    lblRes.Caption = "O WINS"
ElseIf lblXY(2).Caption = UCase("O") And lblXY(4).Caption = UCase("O") And lblXY(6).Caption = UCase("O") Then
    lblRes.Caption = "O WINS"
ElseIf lblXY(1).Caption = UCase("O") And lblXY(4).Caption = UCase("O") And lblXY(7).Caption = UCase("O") Then
    lblRes.Caption = "O WINS"
ElseIf lblXY(0).Caption = UCase("O") And lblXY(3).Caption = UCase("O") And lblXY(6).Caption = UCase("O") Then
    lblRes.Caption = "O WINS"
ElseIf lblXY(1).Caption = UCase("O") And lblXY(4).Caption = UCase("O") And lblXY(7).Caption = UCase("O") Then
    lblRes.Caption = "O WINS"
ElseIf lblXY(2).Caption = UCase("O") And lblXY(5).Caption = UCase("O") And lblXY(8).Caption = UCase("O") Then
    lblRes.Caption = "O WINS"
End If
End Sub