Untitled

Public Class emilsbondesjakk


    Dim nummer As Integer = 1
    Dim antall As Integer = 0
    Dim vinner As Integer = 0


    Private Sub begynn_på_ny()
        a.Text = ""
        b.Text = ""
        c.Text = ""
        d.Text = ""
        e.Text = ""
        f.Text = ""
        g.Text = ""
        h.Text = ""
        i.Text = ""
        antall = 0
        nummer = 1
        spiller.Text = "Spiller 1 sin tur"
    End Sub

    Private Sub sjekk_vinner()


        'Her sjekker vi om spiller 1 vinner...

        'Vannrett
        If a.Text.Equals("X") And b.Text.Equals("X") And c.Text.Equals("X") Then
            vinner = 1
        End If
        If d.Text.Equals("X") And e.Text.Equals("X") And f.Text.Equals("X") Then
            vinner = 1
        End If
        If g.Text.Equals("X") And h.Text.Equals("X") And i.Text.Equals("X") Then
            vinner = 1
        End If

        'Horiosontalt
        If a.Text.Equals("X") And d.Text.Equals("X") And g.Text.Equals("X") Then
            vinner = 1
        End If
        If b.Text.Equals("X") And e.Text.Equals("X") And h.Text.Equals("X") Then
            vinner = 1
        End If
        If c.Text.Equals("X") And f.Text.Equals("X") And i.Text.Equals("X") Then
            vinner = 1
        End If

        'Diagonalt
        If a.Text.Equals("X") And e.Text.Equals("X") And i.Text.Equals("X") Then
            vinner = 1
        End If
        If g.Text.Equals("X") And e.Text.Equals("X") And c.Text.Equals("X") Then
            vinner = 1
        End If

        'Her sjekker vi om spiller 2 vinner...

        'vannrett
        If a.Text.Equals("O") And b.Text.Equals("O") And c.Text.Equals("O") Then
            vinner = 2
        End If
        If d.Text.Equals("O") And e.Text.Equals("O") And f.Text.Equals("O") Then
            vinner = 2
        End If
        If g.Text.Equals("O") And h.Text.Equals("O") And i.Text.Equals("O") Then
            vinner = 2
        End If

        'Horiosontalt
        If a.Text.Equals("O") And d.Text.Equals("O") And g.Text.Equals("O") Then
            vinner = 2
        End If
        If b.Text.Equals("O") And e.Text.Equals("O") And h.Text.Equals("O") Then
            vinner = 2
        End If
        If c.Text.Equals("O") And f.Text.Equals("O") And i.Text.Equals("O") Then
            vinner = 2
        End If

        'Diagonalt
        If a.Text.Equals("O") And e.Text.Equals("O") And i.Text.Equals("O") Then
            vinner = 1
        End If
        If g.Text.Equals("O") And e.Text.Equals("O") And c.Text.Equals("O") Then
            vinner = 1
        End If
    End Sub

    Private Sub forandre_spiller()
        antall = antall + 1

        sjekk_vinner()

        If vinner.Equals(0) Then
        Else
            MsgBox("Spiller " + vinner.ToString + " vant!", MsgBoxStyle.Information, "Vi har en vinner!")
            begynn_på_ny()
            vinner = 0
            Return
        End If


        If antall.Equals(9) Then
            MsgBox("Idioter begge to...", MsgBoxStyle.Information, "Idioter")
            begynn_på_ny()
            Return
        End If

        If nummer.Equals(1) Then
            nummer = 2
        ElseIf nummer.Equals(2) Then
            nummer = 1
        End If

        spiller.Text = "Spiller " + nummer.ToString + " sin tur"
    End Sub

    Private Sub a_p_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles a_p.Click
        If nummer.Equals(1) Then
            a.Text = "X"
        ElseIf nummer.Equals(2) Then
            a.Text = "O"
        End If
        forandre_spiller()
    End Sub

    Private Sub b_p_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_p.Click
        If nummer.Equals(1) Then
            b.Text = "X"
        ElseIf nummer.Equals(2) Then
            b.Text = "O"
        End If
        forandre_spiller()
    End Sub
    Private Sub c_p_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c_p.Click
        If nummer.Equals(1) Then
            c.Text = "X"
        ElseIf nummer.Equals(2) Then
            c.Text = "O"
        End If
        forandre_spiller()
    End Sub
    Private Sub d_p_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles d_p.Click
        If nummer.Equals(1) Then
            d.Text = "X"
        ElseIf nummer.Equals(2) Then
            d.Text = "O"
        End If
        forandre_spiller()
    End Sub
    Private Sub e_p_Click(ByVal sender As System.Object, ByVal et As System.EventArgs) Handles e_p.Click
        If nummer.Equals(1) Then
            e.Text = "X"
        ElseIf nummer.Equals(2) Then
            e.Text = "O"
        End If
        forandre_spiller()
    End Sub
    Private Sub f_p_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles f_p.Click
        If nummer.Equals(1) Then
            f.Text = "X"
        ElseIf nummer.Equals(2) Then
            f.Text = "O"
        End If
        forandre_spiller()
    End Sub
    Private Sub g_p_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles g_p.Click
        If nummer.Equals(1) Then
            g.Text = "X"
        ElseIf nummer.Equals(2) Then
            g.Text = "O"
        End If
        forandre_spiller()
    End Sub
    Private Sub h_p_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h_p.Click
        If nummer.Equals(1) Then
            h.Text = "X"
        ElseIf nummer.Equals(2) Then
            h.Text = "O"
        End If
        forandre_spiller()
    End Sub
    Private Sub i_p_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles i_p.Click
        If nummer.Equals(1) Then
            i.Text = "X"
        ElseIf nummer.Equals(2) Then
            i.Text = "O"
        End If
        forandre_spiller()
    End Sub

    Private Sub ny_start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ny_start.Click
        begynn_på_ny()
    End Sub

    Private Sub avslutt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles avslutt.Click
        Me.Dispose()
    End Sub


    'OnHover
    Private Sub a_p_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles a_p.MouseHover
        If a.Text.Equals("") Then
            a_p.BackColor = Color.DarkGray
        End If
    End Sub

    Private Sub a_p_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles a_p.MouseLeave
        a_p.BackColor = Color.Empty
    End Sub

    Private Sub b_p_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_p.MouseHover
        If b.Text.Equals("") Then
            b_p.BackColor = Color.DarkGray
        End If
    End Sub

    Private Sub b_p_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_p.MouseLeave
        b_p.BackColor = Color.Empty
    End Sub

    Private Sub c_p_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c_p.MouseHover
        If c.Text.Equals("") Then
            c_p.BackColor = Color.DarkGray
        End If
    End Sub

    Private Sub c_p_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c_p.MouseLeave
        c_p.BackColor = Color.Empty
    End Sub

    Private Sub d_p_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles d_p.MouseHover
        If d.Text.Equals("") Then
            d_p.BackColor = Color.DarkGray
        End If
    End Sub

    Private Sub d_p_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles d_p.MouseLeave
        d_p.BackColor = Color.Empty
    End Sub


    Private Sub e_p_MouseHover(ByVal sender As System.Object, ByVal ef As System.EventArgs) Handles e_p.MouseHover
        If e.Text.Equals("") Then
            e_p.BackColor = Color.DarkGray
        End If
    End Sub

    Private Sub e_p_MouseLeave(ByVal sender As System.Object, ByVal ef As System.EventArgs) Handles e_p.MouseLeave
        e_p.BackColor = Color.Empty
    End Sub

    Private Sub f_p_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles f_p.MouseHover
        If f.Text.Equals("") Then
            f_p.BackColor = Color.DarkGray
        End If
    End Sub

    Private Sub f_p_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles f_p.MouseLeave
        f_p.BackColor = Color.Empty
    End Sub
    Private Sub g_p_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles g_p.MouseHover
        If g.Text.Equals("") Then
            g_p.BackColor = Color.DarkGray
        End If
    End Sub

    Private Sub g_p_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles g_p.MouseLeave
        g_p.BackColor = Color.Empty
    End Sub

    Private Sub h_p_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h_p.MouseHover
        If h.Text.Equals("") Then
            h_p.BackColor = Color.DarkGray
        End If
    End Sub

    Private Sub h_p_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h_p.MouseLeave
        h_p.BackColor = Color.Empty
    End Sub
    Private Sub i_p_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles i_p.MouseHover
        If i.Text.Equals("") Then
            i_p.BackColor = Color.DarkGray
        End If
    End Sub

    Private Sub i_p_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles i_p.MouseLeave
        i_p.BackColor = Color.Empty
    End Sub
End Class