Global player As Byte //kto aktualnie ma ruch
Global pola(4, 4) As Byte //które pola są zajęte
Global ruch As Integer //ile ruchów zostało wykonane

Public Function czysc()
Dim a, b As Byte
For a = 0 To 3
For b = 0 To 3
modul.pola(a, b) = 0
Next b
Next a
p11.Caption = ""
p12.Caption = ""
p13.Caption = ""
p21.Caption = ""
p22.Caption = ""
p23.Caption = ""
p31.Caption = ""
p32.Caption = ""
p33.Caption = ""
modul.ruch = 0
modul.player = 1
End Function

Public Function comp()
Dim a, b, x, y As Byte
If modul.ruch >= 9 Or modul.ruch = 0 Then
Call czysc
Else //sprawdzenie czy gracz nie ma 2 zaznaczonych w jednej linii
a = 0
If modul.pola(1, 1) = 2 And modul.pola(1, 2) = 2 Then
If modul.pola(1, 3) = 0 And a = 0 Then
p13.Caption = "O"
modul.pola(1, 3) = 2
a = 1
End If
End If
If modul.pola(1, 1) = 2 And modul.pola(1, 3) = 2 Then
If modul.pola(1, 2) = 0 And a = 0 Then
p12.Caption = "O"
modul.pola(1, 2) = 2
a = 1
End If
End If
If modul.pola(1, 2) = 2 And modul.pola(1, 3) = 2 Then
If modul.pola(1, 1) = 0 And a = 0 Then
p11.Caption = "O"
modul.pola(1, 1) = 2
a = 1
End If
End If

If modul.pola(2, 1) = 2 And modul.pola(2, 2) = 2 Then
If modul.pola(2, 3) = 0 And a = 0 Then
p23.Caption = "O"
modul.pola(2, 3) = 2
a = 1
End If
End If
If modul.pola(2, 1) = 2 And modul.pola(2, 3) = 2 Then
If modul.pola(2, 2) = 0 And a = 0 Then
p22.Caption = "O"
modul.pola(2, 2) = 2
a = 1
End If
End If
If modul.pola(2, 2) = 2 And modul.pola(2, 3) = 2 Then
If modul.pola(2, 1) = 0 And a = 0 Then
p21.Caption = "O"
modul.pola(2, 1) = 2
a = 1
End If
End If

If modul.pola(3, 1) = 2 And modul.pola(3, 2) = 2 Then
If modul.pola(3, 3) = 0 And a = 0 Then
p33.Caption = "O"
modul.pola(3, 3) = 2
a = 1
End If
End If
If modul.pola(3, 1) = 2 And modul.pola(3, 3) = 2 Then
If modul.pola(3, 2) = 0 And a = 0 Then
p32.Caption = "O"
modul.pola(3, 2) = 2
a = 1
End If
End If
If modul.pola(3, 2) = 2 And modul.pola(3, 3) = 2 Then
If modul.pola(3, 1) = 0 And a = 0 Then
p31.Caption = "O"
modul.pola(3, 1) = 2
a = 1
End If
End If

If modul.pola(1, 1) = 2 And modul.pola(2, 1) = 2 Then
If modul.pola(3, 1) = 0 And a = 0 Then
p31.Caption = "O"
modul.pola(3, 1) = 2
a = 1
End If
End If
If modul.pola(1, 1) = 2 And modul.pola(3, 1) = 2 Then
If modul.pola(2, 1) = 0 And a = 0 Then
p21.Caption = "O"
modul.pola(2, 1) = 2
a = 1
End If
End If
If modul.pola(2, 1) = 2 And modul.pola(3, 1) = 2 Then
If modul.pola(1, 1) = 0 And a = 0 Then
p11.Caption = "O"
modul.pola(1, 1) = 2
a = 1
End If
End If

If modul.pola(1, 2) = 2 And modul.pola(2, 2) = 2 Then
If modul.pola(3, 2) = 0 And a = 0 Then
p32.Caption = "O"
modul.pola(3, 2) = 2
a = 1
End If
End If
If modul.pola(1, 2) = 2 And modul.pola(3, 2) = 2 Then
If modul.pola(2, 2) = 0 And a = 0 Then
p22.Caption = "O"
modul.pola(2, 2) = 2
a = 1
End If
End If
If modul.pola(2, 2) = 2 And modul.pola(3, 2) = 2 Then
If modul.pola(1, 2) = 0 And a = 0 Then
p12.Caption = "O"
modul.pola(1, 2) = 2
a = 1
End If
End If

If modul.pola(1, 3) = 2 And modul.pola(2, 3) = 2 Then
If modul.pola(3, 3) = 0 And a = 0 Then
p33.Caption = "O"
modul.pola(3, 3) = 2
a = 1
End If
End If
If modul.pola(1, 3) = 2 And modul.pola(3, 3) = 2 Then
If modul.pola(2, 3) = 0 And a = 0 Then
p23.Caption = "O"
modul.pola(2, 3) = 2
a = 1
End If
End If
If modul.pola(2, 3) = 2 And modul.pola(3, 3) = 2 Then
If modul.pola(1, 3) = 0 And a = 0 Then
p13.Caption = "O"
modul.pola(1, 3) = 2
a = 1
End If
End If

If modul.pola(1, 1) = 2 And modul.pola(2, 2) = 2 Then
If modul.pola(3, 3) = 0 And a = 0 Then
p33.Caption = "O"
modul.pola(3, 3) = 2
a = 1
End If
End If
If modul.pola(1, 1) = 2 And modul.pola(3, 3) = 2 Then
If modul.pola(2, 2) = 0 And a = 0 Then
p22.Caption = "O"
modul.pola(2, 2) = 2
a = 1
End If
End If
If modul.pola(2, 2) = 2 And modul.pola(3, 3) = 2 Then
If modul.pola(1, 1) = 0 And a = 0 Then
p11.Caption = "O"
modul.pola(1, 1) = 2
a = 1
End If
End If

If modul.pola(1, 3) = 2 And modul.pola(2, 2) = 2 Then
If modul.pola(3, 1) = 0 And a = 0 Then
p31.Caption = "O"
modul.pola(3, 1) = 2
a = 1
End If
End If
If modul.pola(1, 3) = 2 And modul.pola(3, 1) = 2 Then
If modul.pola(2, 2) = 0 And a = 0 Then
p22.Caption = "O"
modul.pola(2, 2) = 2
a = 1
End If
End If
If modul.pola(2, 2) = 2 And modul.pola(3, 1) = 2 Then
If modul.pola(1, 3) = 0 And a = 0 Then
p13.Caption = "O"
modul.pola(1, 3) = 2
a = 1
End If
End If

If modul.pola(1, 1) = 1 And modul.pola(1, 2) = 1 Then
If modul.pola(1, 3) = 0 And a = 0 Then
p13.Caption = "O"
modul.pola(1, 3) = 2
a = 1
End If
End If
If modul.pola(1, 1) = 1 And modul.pola(1, 3) = 1 Then
If modul.pola(1, 2) = 0 And a = 0 Then
p12.Caption = "O"
modul.pola(1, 2) = 2
a = 1
End If
End If
If modul.pola(1, 2) = 1 And modul.pola(1, 3) = 1 Then
If modul.pola(1, 1) = 0 And a = 0 Then
p11.Caption = "O"
modul.pola(1, 1) = 2
a = 1
End If
End If

If modul.pola(2, 1) = 1 And modul.pola(2, 2) = 1 Then
If modul.pola(2, 3) = 0 And a = 0 Then
p23.Caption = "O"
modul.pola(2, 3) = 2
a = 1
End If
End If
If modul.pola(2, 1) = 1 And modul.pola(2, 3) = 1 Then
If modul.pola(2, 2) = 0 And a = 0 Then
p22.Caption = "O"
modul.pola(2, 2) = 2
a = 1
End If
End If
If modul.pola(2, 2) = 1 And modul.pola(2, 3) = 1 Then
If modul.pola(2, 1) = 0 And a = 0 Then
p21.Caption = "O"
modul.pola(2, 1) = 2
a = 1
End If
End If

If modul.pola(3, 1) = 1 And modul.pola(3, 2) = 1 Then
If modul.pola(3, 3) = 0 And a = 0 Then
p33.Caption = "O"
modul.pola(3, 3) = 2
a = 1
End If
End If
If modul.pola(3, 1) = 1 And modul.pola(3, 3) = 1 Then
If modul.pola(3, 2) = 0 And a = 0 Then
p32.Caption = "O"
modul.pola(3, 2) = 2
a = 1
End If
End If
If modul.pola(3, 2) = 1 And modul.pola(3, 3) = 1 Then
If modul.pola(3, 1) = 0 And a = 0 Then
p31.Caption = "O"
modul.pola(3, 1) = 2
a = 1
End If
End If

If modul.pola(1, 1) = 1 And modul.pola(2, 1) = 1 Then
If modul.pola(3, 1) = 0 And a = 0 Then
p31.Caption = "O"
modul.pola(3, 1) = 2
a = 1
End If
End If
If modul.pola(1, 1) = 1 And modul.pola(3, 1) = 1 Then
If modul.pola(2, 1) = 0 And a = 0 Then
p21.Caption = "O"
modul.pola(2, 1) = 2
a = 1
End If
End If
If modul.pola(2, 1) = 1 And modul.pola(3, 1) = 1 Then
If modul.pola(1, 1) = 0 And a = 0 Then
p11.Caption = "O"
modul.pola(1, 1) = 2
a = 1
End If
End If

If modul.pola(1, 2) = 1 And modul.pola(2, 2) = 1 Then
If modul.pola(3, 2) = 0 And a = 0 Then
p32.Caption = "O"
modul.pola(3, 2) = 2
a = 1
End If
End If
If modul.pola(1, 2) = 1 And modul.pola(3, 2) = 1 Then
If modul.pola(2, 2) = 0 And a = 0 Then
p22.Caption = "O"
modul.pola(2, 2) = 2
a = 1
End If
End If
If modul.pola(2, 2) = 1 And modul.pola(3, 2) = 1 Then
If modul.pola(1, 2) = 0 And a = 0 Then
p12.Caption = "O"
modul.pola(1, 2) = 2
a = 1
End If
End If

If modul.pola(1, 3) = 1 And modul.pola(2, 3) = 1 Then
If modul.pola(3, 3) = 0 And a = 0 Then
p33.Caption = "O"
modul.pola(3, 3) = 2
a = 1
End If
End If
If modul.pola(1, 3) = 1 And modul.pola(3, 3) = 1 Then
If modul.pola(2, 3) = 0 And a = 0 Then
p23.Caption = "O"
modul.pola(2, 3) = 2
a = 1
End If
End If
If modul.pola(2, 3) = 1 And modul.pola(3, 3) = 1 Then
If modul.pola(1, 3) = 0 And a = 0 Then
p13.Caption = "O"
modul.pola(1, 3) = 2
a = 1
End If
End If

If modul.pola(1, 1) = 1 And modul.pola(2, 2) = 1 Then
If modul.pola(3, 3) = 0 And a = 0 Then
p33.Caption = "O"
modul.pola(3, 3) = 2
a = 1
End If
End If
If modul.pola(1, 1) = 1 And modul.pola(3, 3) = 1 Then
If modul.pola(2, 2) = 0 And a = 0 Then
p22.Caption = "O"
modul.pola(2, 2) = 2
a = 1
End If
End If
If modul.pola(2, 2) = 1 And modul.pola(3, 3) = 1 Then
If modul.pola(1, 1) = 0 And a = 0 Then
p11.Caption = "O"
modul.pola(1, 1) = 2
a = 1
End If
End If

If modul.pola(1, 3) = 1 And modul.pola(2, 2) = 1 Then
If modul.pola(3, 1) = 0 And a = 0 Then
p31.Caption = "O"
modul.pola(3, 1) = 2
a = 1
End If
End If
If modul.pola(1, 3) = 1 And modul.pola(3, 1) = 1 Then
If modul.pola(2, 2) = 0 And a = 0 Then
p22.Caption = "O"
modul.pola(2, 2) = 2
a = 1
End If
End If
If modul.pola(2, 2) = 1 And modul.pola(3, 1) = 1 Then
If modul.pola(1, 3) = 0 And a = 0 Then
p13.Caption = "O"
modul.pola(1, 3) = 2
a = 1
End If
End If



If a = 0 Then //wykonanie ruchu jeśli nie ma "zagrożenia"
Do While b = 0
Randomize
x = Int(Rnd * (3) + 1)
y = Int(Rnd * (3) + 1)
If modul.pola(x, y) = 0 Then
If x = 1 And y = 1 Then
p11.Caption = "O"
End If
If x = 1 And y = 2 Then
p12.Caption = "O"
End If
If x = 1 And y = 3 Then
p13.Caption = "O"
End If
If x = 2 And y = 1 Then
p21.Caption = "O"
End If
If x = 2 And y = 2 Then
p22.Caption = "O"
End If
If x = 2 And y = 3 Then
p23.Caption = "O"
End If
If x = 3 And y = 1 Then
p31.Caption = "O"
End If
If x = 3 And y = 2 Then
p32.Caption = "O"
End If
If x = 3 And y = 3 Then
p33.Caption = "O"
End If
modul.pola(x, y) = 2
b = 1
a = 1
End If
Loop
End If

modul.ruch = modul.ruch + 1
Call wygrana
If modul.ruch >= 9 Then
Call czysc
End If
modul.player = 1
End If
End Function

Public Function wygrana()
Dim a, b As Byte
For a = 0 To 3
If modul.pola(1, a) = 1 And modul.pola(2, a) = 1 And modul.pola(3, a) = 1 Then
b = MsgBox("Wygrał gracz", vbOKOnly, "Winer")
Call czysc
End If
If modul.pola(a, 1) = 1 And modul.pola(a, 2) = 1 And modul.pola(a, 3) = 1 Then
b = MsgBox("Wygrał gracz", vbOKOnly, "Winer")
Call czysc
End If
Next a
If modul.pola(1, 1) = 1 And modul.pola(2, 2) = 1 And modul.pola(3, 3) = 1 Then
b = MsgBox("Wygrał gracz", vbOKOnly, "Winer")
Call czysc
End If
If modul.pola(3, 1) = 1 And modul.pola(2, 2) = 1 And modul.pola(1, 3) = 1 Then
b = MsgBox("Wygrał gracz", vbOKOnly, "Winer")
Call czysc
End If

For a = 0 To 3
If modul.pola(1, a) = 2 And modul.pola(2, a) = 2 And modul.pola(3, a) = 2 Then
b = MsgBox("Wygrał komputer", vbOKOnly, "Winer")
Call czysc
End If
If modul.pola(a, 1) = 2 And modul.pola(a, 2) = 2 And modul.pola(a, 3) = 2 Then
b = MsgBox("Wygrał komputer", vbOKOnly, "Winer")
Call czysc
End If
Next a
If modul.pola(1, 1) = 2 And modul.pola(2, 2) = 2 And modul.pola(3, 3) = 2 Then
b = MsgBox("Wygrał komputer", vbOKOnly, "Winer")
Call czysc
End If
If modul.pola(3, 1) = 2 And modul.pola(2, 2) = 2 And modul.pola(1, 3) = 2 Then
b = MsgBox("Wygrał komputer", vbOKOnly, "Winer")
Call czysc
End If
End Function

Private Sub p11_Click()
Dim a As Byte
If modul.pola(1, 1) = 0 Then //sprawdzenie czy pole wolne
If modul.player = 1 Then //sprawdzenie czyj ruch
p11.Caption = "X" //przypisanie znaku do buttona
modul.pola(1, 1) = 1
modul.player = 2 //zmiana gracza
Call wygrana //sprawdzenie czy ruch niedawał zwycięstwa
modul.ruch = modul.ruch + 1 //dodanie ruchu
Call comp
End If
Else
a = MsgBox("Pole jest już zajęte", vbOKOnly, "Błąd")
End If
If modul.ruch >= 9 Then
Call czysc
End If
End Sub