lyne

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Spillerliste(0) = New Spiller
        Spillerliste(0).Navn = "Spiller 1"

        Spillerliste(1) = New Spiller
        Spillerliste(1).Navn = "Spiller 2"

        Spillerliste(2) = New Spiller
        Spillerliste(2).Navn = "Spiller 3"

        Spillerliste(3) = New Spiller
        Spillerliste(3).Navn = "Spiller 4"

        Spillerliste(4) = New Spiller
        Spillerliste(4).Navn = "Spiller 5"

        NuværendeSpiller = Spillerliste(0)

        txtSpillerTur.Text = NuværendeSpiller.Navn
    End Sub

    Public Sub OpdaterPointListe()
        If Spillerliste(0).PointBlok.EnereSat Then
            txtSpiller1Enere.Text = Spillerliste(0).PointBlok.Enere
        End If
        If Spillerliste(1).PointBlok.EnereSat Then
            txtSpiller2Enere.Text = Spillerliste(1).PointBlok.Enere
        End If
        If Spillerliste(2).PointBlok.EnereSat Then
            txtSpiller3Enere.Text = Spillerliste(2).PointBlok.Enere
        End If
        If Spillerliste(3).PointBlok.EnereSat Then
            txtSpiller4Enere.Text = Spillerliste(3).PointBlok.Enere
        End If
        If Spillerliste(4).PointBlok.EnereSat Then
            txtSpiller5Enere.Text = Spillerliste(4).PointBlok.Enere
        End If


        If Spillerliste(0).PointBlok.ToereSat Then
            txtSpiller1Toere.Text = Spillerliste(0).PointBlok.Toere
        End If
        If Spillerliste(1).PointBlok.ToereSat Then
            txtSpiller2Toere.Text = Spillerliste(1).PointBlok.Toere
        End If
        If Spillerliste(2).PointBlok.ToereSat Then
            txtSpiller3Toere.Text = Spillerliste(2).PointBlok.Toere
        End If
        If Spillerliste(3).PointBlok.ToereSat Then
            txtSpiller4Toere.Text = Spillerliste(3).PointBlok.Toere
        End If
        If Spillerliste(4).PointBlok.ToereSat Then
            txtSpiller5Toere.Text = Spillerliste(4).PointBlok.Toere
        End If


        If Spillerliste(0).PointBlok.TreereSat Then
            txtSpiller1Treere.Text = Spillerliste(0).PointBlok.Treere
        End If
        If Spillerliste(1).PointBlok.TreereSat Then
            txtSpiller2Treere.Text = Spillerliste(1).PointBlok.Treere
        End If
        If Spillerliste(2).PointBlok.TreereSat Then
            txtSpiller3Treere.Text = Spillerliste(2).PointBlok.Treere
        End If
        If Spillerliste(3).PointBlok.TreereSat Then
            txtSpiller4Treere.Text = Spillerliste(3).PointBlok.Treere
        End If
        If Spillerliste(4).PointBlok.TreereSat Then
            txtSpiller5Treere.Text = Spillerliste(4).PointBlok.Treere
        End If


        If Spillerliste(0).PointBlok.FirereSat Then
            txtSpiller1Firere.Text = Spillerliste(0).PointBlok.Firere
        End If
        If Spillerliste(1).PointBlok.FirereSat Then
            txtSpiller2Firere.Text = Spillerliste(1).PointBlok.Firere
        End If
        If Spillerliste(2).PointBlok.FirereSat Then
            txtSpiller3Firere.Text = Spillerliste(2).PointBlok.Firere
        End If
        If Spillerliste(3).PointBlok.FirereSat Then
            txtSpiller4Firere.Text = Spillerliste(3).PointBlok.Firere
        End If
        If Spillerliste(4).PointBlok.FirereSat Then
            txtSpiller5Firere.Text = Spillerliste(4).PointBlok.Firere
        End If


        If Spillerliste(0).PointBlok.FemmereSat Then
            txtSpiller1Femmere.Text = Spillerliste(0).PointBlok.Femmere
        End If
        If Spillerliste(1).PointBlok.FemmereSat Then
            txtSpiller2Femmere.Text = Spillerliste(1).PointBlok.Femmere
        End If
        If Spillerliste(2).PointBlok.FemmereSat Then
            txtSpiller3Femmere.Text = Spillerliste(2).PointBlok.Femmere
        End If
        If Spillerliste(3).PointBlok.FemmereSat Then
            txtSpiller4Femmere.Text = Spillerliste(3).PointBlok.Femmere
        End If
        If Spillerliste(4).PointBlok.FemmereSat Then
            txtSpiller5Femmere.Text = Spillerliste(4).PointBlok.Femmere
        End If


        If Spillerliste(0).PointBlok.SeksereSat Then
            txtSpiller1Seksere.Text = Spillerliste(0).PointBlok.Seksere
        End If
        If Spillerliste(1).PointBlok.SeksereSat Then
            txtSpiller2Seksere.Text = Spillerliste(1).PointBlok.Seksere
        End If
        If Spillerliste(2).PointBlok.SeksereSat Then
            txtSpiller3Seksere.Text = Spillerliste(2).PointBlok.Seksere
        End If
        If Spillerliste(3).PointBlok.SeksereSat Then
            txtSpiller4Seksere.Text = Spillerliste(3).PointBlok.Seksere
        End If
        If Spillerliste(4).PointBlok.SeksereSat Then
            txtSpiller5Seksere.Text = Spillerliste(4).PointBlok.Seksere
        End If


        'Nedenstående metoder tjekker, om der er mere end 63 øjne i Enere - Seksere hos hver spiller.
        If NuværendeSpillerNummer = 0 Then
            txtSpiller1Sum.Text = CIntOr0(txtSpiller1Enere.Text) + CIntOr0(txtSpiller1Toere.Text) + CIntOr0(txtSpiller1Treere.Text) + CIntOr0(txtSpiller1Firere.Text) + CIntOr0(txtSpiller1Femmere.Text) + CIntOr0(txtSpiller1Seksere.Text)
            Dim total As Integer = PointBlok.GetTotal(txtSpiller1Enere, txtSpiller1Toere, txtSpiller1Treere, txtSpiller1Firere, txtSpiller1Femmere, txtSpiller1Seksere)
            If total > 63 Then
                txtSpiller1Bonus.Text = "50"
                txtSpiller1Bonus.BackColor = Color.LimeGreen
            Else txtSpiller1Bonus.Text = 0
            End If
        End If

        If NuværendeSpillerNummer = 1 Then
            txtSpiller2Sum.Text = CIntOr0(txtSpiller2Enere.Text) + CIntOr0(txtSpiller2Toere.Text) + CIntOr0(txtSpiller2Treere.Text) + CIntOr0(txtSpiller2Firere.Text) + CIntOr0(txtSpiller2Femmere.Text) + CIntOr0(txtSpiller2Seksere.Text)
            Dim total As Integer = PointBlok.GetTotal(txtSpiller2Enere, txtSpiller2Toere, txtSpiller2Treere, txtSpiller2Firere, txtSpiller2Femmere, txtSpiller2Seksere)
            If total > 63 Then
                txtSpiller2Bonus.Text = "50"
                txtSpiller2Bonus.BackColor = Color.LimeGreen
            Else txtSpiller2Bonus.Text = 0
            End If
        End If

        If NuværendeSpillerNummer = 2 Then
            txtSpiller3Sum.Text = CIntOr0(txtSpiller3Enere.Text) + CIntOr0(txtSpiller3Toere.Text) + CIntOr0(txtSpiller3Treere.Text) + CIntOr0(txtSpiller3Firere.Text) + CIntOr0(txtSpiller3Femmere.Text) + CIntOr0(txtSpiller3Seksere.Text)
            Dim total As Integer = PointBlok.GetTotal(txtSpiller3Enere, txtSpiller3Toere, txtSpiller3Treere, txtSpiller3Firere, txtSpiller3Femmere, txtSpiller3Seksere)
            If total > 63 Then
                txtSpiller3Bonus.Text = "50"
                txtSpiller3Bonus.BackColor = Color.LimeGreen
            Else txtSpiller3Bonus.Text = 0
            End If
        End If

        If NuværendeSpillerNummer = 3 Then
            txtSpiller4Sum.Text = CIntOr0(txtSpiller4Enere.Text) + CIntOr0(txtSpiller4Toere.Text) + CIntOr0(txtSpiller4Treere.Text) + CIntOr0(txtSpiller4Firere.Text) + CIntOr0(txtSpiller4Femmere.Text) + CIntOr0(txtSpiller4Seksere.Text)
            Dim total As Integer = PointBlok.GetTotal(txtSpiller4Enere, txtSpiller4Toere, txtSpiller4Treere, txtSpiller4Firere, txtSpiller4Femmere, txtSpiller4Seksere)
            If total > 63 Then
                txtSpiller4Bonus.Text = "50"
                txtSpiller4Bonus.BackColor = Color.LimeGreen
            Else txtSpiller4Bonus.Text = 0
            End If
        End If

        If NuværendeSpillerNummer = 4 Then
            txtSpiller5Sum.Text = CIntOr0(txtSpiller5Enere.Text) + CIntOr0(txtSpiller5Toere.Text) + CIntOr0(txtSpiller5Treere.Text) + CIntOr0(txtSpiller5Firere.Text) + CIntOr0(txtSpiller5Femmere.Text) + CIntOr0(txtSpiller5Seksere.Text)
            Dim total As Integer = PointBlok.GetTotal(txtSpiller5Enere, txtSpiller5Toere, txtSpiller5Treere, txtSpiller5Firere, txtSpiller5Femmere, txtSpiller5Seksere)
            If total > 63 Then
                txtSpiller5Bonus.Text = "50"
                txtSpiller5Bonus.BackColor = Color.LimeGreen
            Else txtSpiller5Bonus.Text = 0
            End If
        End If


        If Spillerliste(0).PointBlok.EtParSat Then
            txtSpiller1EtPar.Text = Spillerliste(0).PointBlok.EtPar
        End If
        If Spillerliste(1).PointBlok.EtParSat Then
            txtSpiller2EtPar.Text = Spillerliste(1).PointBlok.EtPar
        End If
        If Spillerliste(2).PointBlok.EtParSat Then
            txtSpiller3EtPar.Text = Spillerliste(2).PointBlok.EtPar
        End If
        If Spillerliste(3).PointBlok.EtParSat Then
            txtSpiller4EtPar.Text = Spillerliste(3).PointBlok.EtPar
        End If
        If Spillerliste(4).PointBlok.EtParSat Then
            txtSpiller5EtPar.Text = Spillerliste(4).PointBlok.EtPar
        End If



        If Spillerliste(0).PointBlok.ToParSat Then
            txtSpiller1ToPar.Text = Spillerliste(0).PointBlok.ToPar
        End If
        If Spillerliste(1).PointBlok.ToParSat Then
            txtSpiller2ToPar.Text = Spillerliste(1).PointBlok.ToPar
        End If
        If Spillerliste(2).PointBlok.ToParSat Then
            txtSpiller3ToPar.Text = Spillerliste(2).PointBlok.ToPar
        End If
        If Spillerliste(3).PointBlok.ToParSat Then
            txtSpiller4ToPar.Text = Spillerliste(3).PointBlok.ToPar
        End If
        If Spillerliste(4).PointBlok.ToParSat Then
            txtSpiller5ToPar.Text = Spillerliste(4).PointBlok.ToPar
        End If



        If Spillerliste(0).PointBlok.TreEnsSat Then
            txtSpiller1TreEns.Text = Spillerliste(0).PointBlok.TreEns
        End If
        If Spillerliste(1).PointBlok.TreEnsSat Then
            txtSpiller2TreEns.Text = Spillerliste(1).PointBlok.TreEns
        End If
        If Spillerliste(2).PointBlok.TreEnsSat Then
            txtSpiller3TreEns.Text = Spillerliste(2).PointBlok.TreEns
        End If
        If Spillerliste(3).PointBlok.TreEnsSat Then
            txtSpiller4TreEns.Text = Spillerliste(3).PointBlok.TreEns
        End If
        If Spillerliste(4).PointBlok.TreEnsSat Then
            txtSpiller5TreEns.Text = Spillerliste(4).PointBlok.TreEns
        End If



        If Spillerliste(0).PointBlok.FireEnsSat Then
            txtSpiller1FireEns.Text = Spillerliste(0).PointBlok.FireEns
        End If
        If Spillerliste(1).PointBlok.FireEnsSat Then
            txtSpiller2FireEns.Text = Spillerliste(1).PointBlok.FireEns
        End If
        If Spillerliste(2).PointBlok.FireEnsSat Then
            txtSpiller3FireEns.Text = Spillerliste(2).PointBlok.FireEns
        End If
        If Spillerliste(3).PointBlok.FireEnsSat Then
            txtSpiller4FireEns.Text = Spillerliste(3).PointBlok.FireEns
        End If
        If Spillerliste(4).PointBlok.FireEnsSat Then
            txtSpiller5FireEns.Text = Spillerliste(4).PointBlok.FireEns
        End If



        If Spillerliste(0).PointBlok.LilleStraightSat Then
            txtSpiller1LilleStraight.Text = Spillerliste(0).PointBlok.LilleStraight
        End If
        If Spillerliste(1).PointBlok.LilleStraightSat Then
            txtSpiller2LilleStraight.Text = Spillerliste(1).PointBlok.LilleStraight
        End If
        If Spillerliste(2).PointBlok.LilleStraightSat Then
            txtSpiller3LilleStraight.Text = Spillerliste(2).PointBlok.LilleStraight
        End If
        If Spillerliste(3).PointBlok.LilleStraightSat Then
            txtSpiller4LilleStraight.Text = Spillerliste(3).PointBlok.LilleStraight
        End If
        If Spillerliste(4).PointBlok.LilleStraightSat Then
            txtSpiller5LilleStraight.Text = Spillerliste(4).PointBlok.LilleStraight
        End If



        If Spillerliste(0).PointBlok.StorStraightSat Then
            txtSpiller1StorStraight.Text = Spillerliste(0).PointBlok.StorStraight
        End If
        If Spillerliste(1).PointBlok.StorStraightSat Then
            txtSpiller2StorStraight.Text = Spillerliste(1).PointBlok.StorStraight
        End If
        If Spillerliste(2).PointBlok.StorStraightSat Then
            txtSpiller3StorStraight.Text = Spillerliste(2).PointBlok.StorStraight
        End If
        If Spillerliste(3).PointBlok.StorStraightSat Then
            txtSpiller4StorStraight.Text = Spillerliste(3).PointBlok.StorStraight
        End If
        If Spillerliste(4).PointBlok.StorStraightSat Then
            txtSpiller5StorStraight.Text = Spillerliste(4).PointBlok.StorStraight
        End If


        If Spillerliste(0).PointBlok.HusSat Then
            txtSpiller1Hus.Text = Spillerliste(0).PointBlok.Hus
        End If
        If Spillerliste(1).PointBlok.HusSat Then
            txtSpiller2Hus.Text = Spillerliste(1).PointBlok.Hus
        End If
        If Spillerliste(2).PointBlok.HusSat Then
            txtSpiller3Hus.Text = Spillerliste(2).PointBlok.Hus
        End If
        If Spillerliste(3).PointBlok.HusSat Then
            txtSpiller4Hus.Text = Spillerliste(3).PointBlok.Hus
        End If
        If Spillerliste(4).PointBlok.HusSat Then
            txtSpiller5Hus.Text = Spillerliste(4).PointBlok.Hus
        End If


        If Spillerliste(0).PointBlok.ChanceSat Then
            txtSpiller1Chance.Text = Spillerliste(0).PointBlok.Chance
        End If
        If Spillerliste(1).PointBlok.ChanceSat Then
            txtSpiller2Chance.Text = Spillerliste(1).PointBlok.Chance
        End If
        If Spillerliste(2).PointBlok.ChanceSat Then
            txtSpiller3Chance.Text = Spillerliste(2).PointBlok.Chance
        End If
        If Spillerliste(3).PointBlok.ChanceSat Then
            txtSpiller4Chance.Text = Spillerliste(3).PointBlok.Chance
        End If
        If Spillerliste(4).PointBlok.ChanceSat Then
            txtSpiller5Chance.Text = Spillerliste(4).PointBlok.Chance
        End If



        If Spillerliste(0).PointBlok.YatzySat Then
            txtSpiller1Yatzy.Text = Spillerliste(0).PointBlok.Yatzy
        End If
        If Spillerliste(1).PointBlok.YatzySat Then
            txtSpiller2Yatzy.Text = Spillerliste(1).PointBlok.Yatzy
        End If
        If Spillerliste(2).PointBlok.YatzySat Then
            txtSpiller3Yatzy.Text = Spillerliste(2).PointBlok.Yatzy
        End If
        If Spillerliste(3).PointBlok.YatzySat Then
            txtSpiller4Yatzy.Text = Spillerliste(3).PointBlok.Yatzy
        End If
        If Spillerliste(4).PointBlok.YatzySat Then
            txtSpiller5Yatzy.Text = Spillerliste(4).PointBlok.Yatzy
        End If

        'Kalder på metoden, der initierer en opdatering på "Total" for alle spillere i bunden af pointblok
        OpdaterTotalStarter()

    End Sub

    Public Function CIntOr0(text As String)
        Dim result As Integer
        If (Integer.TryParse(text, result)) Then
            Return result
        End If

        Return 0
    End Function


    Private Baeger As New Baeger
    Private PointBlok As New PointBlok
    Private Spillernr As Integer

    'Her defineres alle variable - de skal være her for at de kan bruges over det hele

    'antallet er 5, går fra 0 til 4
    Dim Spillerliste(5) As Spiller
    Dim NuværendeSpiller As Spiller
    Dim NuværendeSpillerNummer As Integer = 0
    Dim SkiftSpiller1Tæller As Integer = 1
    Dim AntalKast As Integer = 0


    Public Sub btnKast_Click(sender As Object, e As EventArgs) Handles btnKast.Click
        AntalKast += 1
        If AntalKast > 3 Then
            MessageBox.Show("Øv øv! Du har ikke flere kast - det er næste spillers tur.", "Skift spiller")
        Else
            'Her kaldes på "HoldTerning"-metoden i Baeger classen. I parentesen sender den to typer indhold, opdelt af kommaer:
            '"1/2/3/4/5" bruges, så metoden kan kende forskel på, om der arbejdes med "chkTerning1/2/3/4/5"
            '"chkTerning1.Checked" sender en besked til metoden, der hedder "chkTerning1.Checked = true or false". Inde i metoden arbejder den med true/false informationen.
            Baeger.HoldTerning(1, chkTerning1.Checked)
            Baeger.HoldTerning(2, chkTerning2.Checked)
            Baeger.HoldTerning(3, chkTerning3.Checked)
            Baeger.HoldTerning(4, chkTerning4.Checked)
            Baeger.HoldTerning(5, chkTerning5.Checked)

            Baeger.Ryst()

            txtTerning1.Text = Baeger.Terning1.Øjne
            txtTerning2.Text = Baeger.Terning2.Øjne
            txtTerning3.Text = Baeger.Terning3.Øjne
            txtTerning4.Text = Baeger.Terning4.Øjne
            txtTerning5.Text = Baeger.Terning5.Øjne
            btnEnere.Text = Baeger.Antalnr(1)
            btnToere.Text = Baeger.Antalnr(2)
            btnTreere.Text = Baeger.Antalnr(3)
            btnFirere.Text = Baeger.Antalnr(4)
            btnFemmere.Text = Baeger.Antalnr(5)
            btnSeksere.Text = Baeger.Antalnr(6)

            btnEtPar.Text = Baeger.CheckEtPar
            btnToPar.Text = Baeger.CheckToPar

            btnTreEns.Text = Baeger.CheckTreEns
            btnFireEns.Text = Baeger.CheckFireEns

            btnLilleStraight.Text = Baeger.CheckLilleStraight
            btnStorStraight.Text = Baeger.CheckStorStraight

            CheckHus()
            checkChancen()
            checkYatzy()



        End If
    End Sub


    Public Sub checkYatzy()
        If Baeger.Antalnr(1) = 5 * 1 Or Baeger.Antalnr(2) = 5 * 2 Or Baeger.Antalnr(3) = 5 * 3 Or Baeger.Antalnr(4) = 5 * 4 Or Baeger.Antalnr(5) = 5 * 5 Or Baeger.Antalnr(6) = 5 * 6 Then
            btnYatzy.Text = 50
        Else
            btnYatzy.Text = 0
        End If
    End Sub

    Public Sub checkChancen()
        btnChance.Text = CInt(Baeger.Terning1.Øjne) + CInt(Baeger.Terning2.Øjne) + CInt(Baeger.Terning3.Øjne) + CInt(Baeger.Terning4.Øjne) + CInt(Baeger.Terning5.Øjne)
    End Sub

    Public Sub CheckHus()
        If btnFireEns.Text = 0 Then
            btnHus.Text = CInt(btnTreEns.Text) + CInt(btnEtPar.Text)
        Else btnHus.Text = 0
        End If
    End Sub





    'Kører "SkiftSpiller" metoden nedenunder
    Private Sub btnSkiftSpiller_Click(sender As Object, e As EventArgs) Handles btnSkiftSpiller.Click
        SkiftSpiller()
        ResetTerninger()
    End Sub

    Public Sub SkiftSpiller()
        ' vi skal have spillerliste(tallet) til at stige med en hver gang, men det kan vi ikke gøre direkte, fordi det er en string
        'derfor skal det laves om til en integer

        'nuværendespillernummer = nuværendespillernummer +1
        'TODO: Hver gang nuværendespillernummer=1 skal det tælles og ligges i dim NuværendeSpiller1Tæller

        NuværendeSpillerNummer += 1
        If NuværendeSpillerNummer = 5 Then
            NuværendeSpillerNummer = 0
            'Her laver vi en tæller, som tæller op, hver gang at der skiftes til spiller 1, denne bruges til at finde ud af, hvornår vinderen skal udregnes
            SkiftSpiller1Tæller += 1
            CheckVinder()
        End If

        NuværendeSpiller = Spillerliste(NuværendeSpillerNummer)
        txtSpillerTur.Text = NuværendeSpiller.Navn

        AntalKast = 0

    End Sub

    Public Sub CheckVinder()
        'Det tjekkes kun, når det er spiller 1 16. tur, fordi så er alle felter udfyldt.
        If SkiftSpiller1Tæller = 16 Then
            'Her laves en variabel som er den spiller med højeste total, og den bliver altid sat til at være spiller 1,
            'og så skal vi så tjekke om der er nogen af de andre spillere, som har over spiller 1.
            ' og så laves et loop, hvor alle de andre tjekkes.
            'Ved pointlighed: Laveste spillernummer vinder altid - dvs. hvis 1 og 5 har samme pointantal så vinder 1
            Dim SpillerMedHøjesteTotal = 0
            For Spiller = 1 To 4
                If Spillerliste(Spiller).PointBlok.TotalScore > Spillerliste(SpillerMedHøjesteTotal).PointBlok.TotalScore Then
                    SpillerMedHøjesteTotal = Spiller
                End If
            Next

            Dim andreVindere As New List(Of Integer)
            For spiller = SpillerMedHøjesteTotal + 1 To 4
                If Spillerliste(spiller).PointBlok.TotalScore = Spillerliste(SpillerMedHøjesteTotal).PointBlok.TotalScore Then
                    andreVindere.Add(spiller + 1)
                End If
            Next

            If andreVindere.Count > 0 Then
                spillerMedHøjesteTotal += 1
                MessageBox.Show("Spillet blev uafgjort mellem spiller " + SpillerMedHøjesteTotal.ToString + " og " + String.Join(" og ", andreVindere))
            Else
                spillerMedHøjesteTotal += 1
                MessageBox.Show("Spiller " + spillerMedHøjesteTotal.ToString + " vinder spillet! Tillykke!", "Spillet er slut")
            End If
        End If
    End Sub
    Private Sub btnNytSpil_Click(sender As Object, e As EventArgs) Handles btnNytSpil.Click
        If MsgBox("Er du virkelig sikker på, at du vil afslutte?", MsgBoxStyle.YesNo, "Nyt spil?") = MsgBoxResult.Yes Then
            Application.Restart()
        End If
    End Sub

    Public Sub ResetTerninger()
        chkTerning1.Checked = False
        chkTerning2.Checked = False
        chkTerning3.Checked = False
        chkTerning4.Checked = False
        chkTerning5.Checked = False

        txtTerning1.Text = ""
        txtTerning2.Text = ""
        txtTerning3.Text = ""
        txtTerning4.Text = ""
        txtTerning5.Text = ""

        btnEnere.Text = ""
        btnToere.Text = ""
        btnTreere.Text = ""
        btnFirere.Text = ""
        btnFemmere.Text = ""
        btnSeksere.Text = ""

        btnEtPar.Text = ""
        btnToPar.Text = ""
        btnTreEns.Text = ""
        btnFireEns.Text = ""
        btnLilleStraight.Text = ""
        btnStorStraight.Text = ""
        btnHus.Text = ""
        btnChance.Text = ""
        btnYatzy.Text = ""
    End Sub

    Private Sub btnEnere_Click(sender As Object, e As EventArgs) Handles btnEnere.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.EnereSat Then
            If (Integer.TryParse(btnEnere.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.Enere = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub

    Private Sub btnToere_Click(sender As Object, e As EventArgs) Handles btnToere.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.ToereSat Then
            If (Integer.TryParse(btnToere.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.Toere = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub

    Private Sub btnTreere_Click(sender As Object, e As EventArgs) Handles btnTreere.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.TreereSat Then
            If (Integer.TryParse(btnTreere.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.Treere = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub

    Private Sub btnFirere_Click(sender As Object, e As EventArgs) Handles btnFirere.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.FirereSat Then
            If (Integer.TryParse(btnFirere.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.Firere = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub

    Private Sub btnFemmere_Click(sender As Object, e As EventArgs) Handles btnFemmere.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.FemmereSat Then
            If (Integer.TryParse(btnFemmere.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.Femmere = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub

    Private Sub btnSeksere_Click(sender As Object, e As EventArgs) Handles btnSeksere.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.SeksereSat Then
            If (Integer.TryParse(btnSeksere.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.Seksere = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub


    Private Sub btnEtPar_Click(sender As Object, e As EventArgs) Handles btnEtPar.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.EtParSat Then
            If (Integer.TryParse(btnEtPar.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.EtPar = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub

    Private Sub btnToPar_Click(sender As Object, e As EventArgs) Handles btnToPar.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.ToParSat Then
            If (Integer.TryParse(btnToPar.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.ToPar = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub




    Private Sub btnTreEns_Click(sender As Object, e As EventArgs) Handles btnTreEns.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.TreEnsSat Then
            If (Integer.TryParse(btnTreEns.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.TreEns = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub


    Private Sub btnFireEns_Click(sender As Object, e As EventArgs) Handles btnFireEns.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.FireEnsSat Then
            If (Integer.TryParse(btnFireEns.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.FireEns = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub


    Private Sub btnLilleStraight_Click(sender As Object, e As EventArgs) Handles btnLilleStraight.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.LilleStraightSat Then
            If (Integer.TryParse(btnLilleStraight.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.LilleStraight = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub


    Private Sub btnStorStraight_Click(sender As Object, e As EventArgs) Handles btnStorStraight.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.StorStraightSat Then
            If (Integer.TryParse(btnStorStraight.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.StorStraight = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub


    Private Sub btnHus_Click(sender As Object, e As EventArgs) Handles btnHus.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.HusSat Then
            If (Integer.TryParse(btnHus.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.Hus = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub


    Private Sub btnChance_Click(sender As Object, e As EventArgs) Handles btnChance.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.ChanceSat Then
            If (Integer.TryParse(btnChance.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.Chance = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub

    Private Sub btnYatzy_Click(sender As Object, e As EventArgs) Handles btnYatzy.Click
        Dim Vaerdi As Integer
        If Not NuværendeSpiller.PointBlok.YatzySat Then
            If (Integer.TryParse(btnYatzy.Text, Vaerdi)) Then
                NuværendeSpiller.PointBlok.Yatzy = Vaerdi
                OpdaterPointListe()
                ResetTerninger()
                SkiftSpiller()
            End If
        End If
    End Sub




    Private Sub MyButtons_Click(sender As Object, e As EventArgs) _
    Handles btnEnere.Click, btnToere.Click, btnTreere.Click, btnFirere.Click, btnFemmere.Click, btnSeksere.Click, btnEtPar.Click, btnToPar.Click, btnTreEns.Click, btnFireEns.Click, btnLilleStraight.Click, btnStorStraight.Click, btnHus.Click, btnChance.Click, btnYatzy.Click
        'OpdaterTotalMetode(NuværendeSpillerNummer)
    End Sub

    Public Sub OpdaterTotalStarter()

        'Kalder metode og sender info om nuværende spiller
        OpdaterTotalMetode(NuværendeSpillerNummer)

        txtSpiller1Total.Text = Spillerliste(0).PointBlok.TotalScore
        txtSpiller2Total.Text = Spillerliste(1).PointBlok.TotalScore
        txtSpiller3Total.Text = Spillerliste(2).PointBlok.TotalScore
        txtSpiller4Total.Text = Spillerliste(3).PointBlok.TotalScore
        txtSpiller5Total.Text = Spillerliste(4).PointBlok.TotalScore


    End Sub

    Public Sub OpdaterTotalMetode(OpdaterTotalSpillerNr As Integer)

        Spillerliste(OpdaterTotalSpillerNr).PointBlok.TotalScore = Spillerliste(OpdaterTotalSpillerNr).PointBlok.Enere + Spillerliste(OpdaterTotalSpillerNr).PointBlok.Toere + Spillerliste(OpdaterTotalSpillerNr).PointBlok.Treere + Spillerliste(OpdaterTotalSpillerNr).PointBlok.Firere + Spillerliste(OpdaterTotalSpillerNr).PointBlok.Femmere + Spillerliste(OpdaterTotalSpillerNr).PointBlok.Seksere + Spillerliste(OpdaterTotalSpillerNr).PointBlok.SUM + Spillerliste(OpdaterTotalSpillerNr).PointBlok.EtPar + Spillerliste(OpdaterTotalSpillerNr).PointBlok.ToPar + Spillerliste(OpdaterTotalSpillerNr).PointBlok.TreEns + Spillerliste(OpdaterTotalSpillerNr).PointBlok.FireEns + Spillerliste(OpdaterTotalSpillerNr).PointBlok.LilleStraight + Spillerliste(OpdaterTotalSpillerNr).PointBlok.StorStraight + Spillerliste(OpdaterTotalSpillerNr).PointBlok.Hus + Spillerliste(OpdaterTotalSpillerNr).PointBlok.Chance + Spillerliste(OpdaterTotalSpillerNr).PointBlok.Yatzy


    End Sub

End Class