Public Partial Class MainForm
	
	Dim parzysty As New Boolean 
	Dim suma As New integer
	
	Public Sub New()
		Me.InitializeComponent()
		panel1.Enabled= false
	End Sub

	
	Sub Button1Click(sender As Object, e As EventArgs)
		''Odblokowuje nasz panel w przypadku ponownej rozgrywki
		panel1.Enabled= True
		
		''Losuje kto będzie zaczynał gre
		Dim zaczyna As New Random()
		Dim zacz As Integer = zaczyna.Next(0,2)
		
		If zacz = 0 Then
			parzysty = True
			label1.Text = "krzyżyk"
		Else
			parzysty = False
			label1.Text = "kółko"
		End If
		
		''Zerujemy pola przed kolejną grą
		l11.Text=""
		l12.Text=""
		l13.Text=""
		l21.Text=""
		l22.Text=""
		l23.Text=""
		l31.Text=""
		l32.Text=""
		l33.Text=""
		
		suma = 0
	End Sub
	
	Private Function kolkoczykrzyzyk(ByVal lab As System.Object)
		If lab.text ="" then
		If parzysty = True Then
			lab.Text = "X"
			parzysty = False
			wygrana("X")
		Else 
			lab.Text = "O"
			parzysty = True
			wygrana("O")
		End If
		Else
			MsgBox("pole jest zajęte")
		end if
		
	End Function
	
	Private Function wygrana(ByVal znaczek As String)
		If znaczek="X" Then
			suma +=1
			If l11.text+l12.Text+l13.Text="XXX" Then
				suma -=1 
				System.Windows.Forms.MessageBox.Show("wygrał krzyżyk")
				panel1.Enabled= False
				
			Else If l21.text+l22.Text+l23.Text="XXX" Then
				suma -=1
				System.Windows.Forms.MessageBox.Show("wygrał krzyżyk")
				panel1.Enabled= False
			else If l31.text+l32.Text+l33.Text="XXX" Then
				System.Windows.Forms.MessageBox.Show("wygrał krzyżyk")
				panel1.Enabled= False
				suma -=1
			else If l11.text+l22.Text+l33.Text="XXX" Then
				System.Windows.Forms.MessageBox.Show("wygrał krzyżyk")
				panel1.Enabled= False
				suma -=1
			else If l13.text+l22.Text+l31.Text="XXX" Then
				System.Windows.Forms.MessageBox.Show("wygrał krzyżyk")
				panel1.Enabled= False
				suma -=1
			else If l11.text+l21.Text+l31.Text="XXX" Then
				System.Windows.Forms.MessageBox.Show("wygrał krzyżyk")
				panel1.Enabled= False
				suma -=1
			else If l12.text+l22.Text+l32.Text="XXX" Then
				System.Windows.Forms.MessageBox.Show("wygrał krzyżyk")
				panel1.Enabled= False
				suma -=1
			else If l13.text+l23.Text+l33.Text="XXX" Then
				System.Windows.Forms.MessageBox.Show("wygrał krzyżyk")
				panel1.Enabled= False
				suma -=1
			Else If suma=9 Then
				System.Windows.Forms.MessageBox.Show("pass")
				panel1.Enabled= False
			End If
		Else If znaczek ="O"
			suma +=1
			If l11.text+l12.Text+l13.Text="OOO" Then
				System.Windows.Forms.MessageBox.Show("wygrał KÓŁKO")
				panel1.Enabled= False
				suma -=1
			else If l21.text+l22.Text+l23.Text="OOO" Then
				System.Windows.Forms.MessageBox.Show("wygrał KÓŁKO")
				panel1.Enabled= False
				suma -=1
			else If l31.text+l32.Text+l33.Text="OOO" Then
				System.Windows.Forms.MessageBox.Show("wygrał KÓŁKO")
				panel1.Enabled= False
				suma -=1
			else If l11.text+l22.Text+l33.Text="OOO" Then
				System.Windows.Forms.MessageBox.Show("wygrał KÓŁKO")
				panel1.Enabled= False
				suma -=1
			else If l13.text+l22.Text+l31.Text="OOO" Then
				System.Windows.Forms.MessageBox.Show("wygrał KÓŁKO")
				panel1.Enabled= False
				suma -=1
			else If l11.text+l21.Text+l31.Text="OOO" Then
				System.Windows.Forms.MessageBox.Show("wygrał KÓŁKO")
				panel1.Enabled= False
				suma -=1
			else If l12.text+l22.Text+l32.Text="OOO" Then
				System.Windows.Forms.MessageBox.Show("wygrał KÓŁKO")
				panel1.Enabled= False
				suma -=1
			else If l13.text+l23.Text+l33.Text="OOO" Then
				System.Windows.Forms.MessageBox.Show("wygrał KÓŁKO")
				panel1.Enabled= False
				suma -=1
			Else If suma=9 Then
				System.Windows.Forms.MessageBox.Show("pass")
				panel1.Enabled= False
			End If
		End If
	End Function

    Sub L11Click(sender As Object, e As EventArgs)
	       kolkoczykrzyzyk(l11)
	End Sub
	Sub L12Click(sender As Object, e As EventArgs)
	       kolkoczykrzyzyk(l12)
	End Sub
	Sub L13Click(sender As Object, e As EventArgs)
	       kolkoczykrzyzyk(l13)
	End Sub
	Sub L21Click(sender As Object, e As EventArgs)
	       kolkoczykrzyzyk(l21)
	End Sub
	Sub L22Click(sender As Object, e As EventArgs)
	       kolkoczykrzyzyk(l22)
	End Sub
	Sub L23Click(sender As Object, e As EventArgs)
	       kolkoczykrzyzyk(l23)
	End Sub
	Sub L31Click(sender As Object, e As EventArgs)
	       kolkoczykrzyzyk(l31)
	End Sub
	Sub L32Click(sender As Object, e As EventArgs)
	       kolkoczykrzyzyk(l32)
	End Sub
	Sub L33Click(sender As Object, e As EventArgs)
	       kolkoczykrzyzyk(l33)
	End Sub
	
	
	Sub LinkLabel1LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
		Process.Start("http://visualmonsters.cba.pl")
	End Sub
End Class