Public Class voetbalinkomsten

    Private Sub btnWissen_Click(sender As System.Object, e As System.EventArgs) Handles btnWissen.Click
        REM Wissen van de gegevens
        txtprijsbusinessseats.Text = " "
        txtprijsbusinessdinner.Text = " "
        txtprijszitplaatsenmidden.Text = " "
        txtprijszitplaatsenachterdoel.Text = " "
        txtprijsstaanplaatsenmidden.Text = " "
        txtprijsstaanplaatsenachterdoel.Text = " "

        txtaantalbusinessseats.Text = " "
        txtaantalbusinessdinner.Text = " "
        txtaantalzitplaatsenmidden.Text = " "
        txtaantalzitplaatsenachterdoel.Text = " "
        txtaantalstaanplaatsenmidden.Text = " "
        txtaantalstaanplaatsenachterdoel.Text = " "

        txttotaalbusinessseats.Text = " "
        txttotaalbusinessdinner.Text = " "
        txttotaalzitplaatsenmidden.Text = " "
        txttotaalzitplaatsenachterdoel.Text = " "
        txttotaalstaanplaatsenmidden.Text = " "
        txttotaalstaanplaatsenachterdoel.Text = " "

        txttotaalsupporters.Text = " "
        txtopbrengstspeeldag.Text = " "
        txttotaalabonnementen.Text = " "

    End Sub

    Private Sub btnBereken_Click(sender As System.Object, e As System.EventArgs) Handles btnBereken.Click
        REM Declareren
        Dim decprijsbusinessseats, decprijsbusinessdinner, decprijszitplaatsenmidden,
            decprijszitplaatsenachterdoel, decprijsstaanplaatsenmidden, decprijsstaanplaatsenachterdoel,
            decaantalbusinessseats, decaantalbusinessdinner, decaantalzitplaatsenmidden,
            decaantalzitplaatsenachterdoel, decaantalstaanplaatsenmidden, decaantalstaanplaatsenachterdoel,
            dectotaalbusinessseats, dectotaalbusinessdinner, dectotaalzitplaatsenmidden,
            dectotaalzitplaatsenachterdoel, dectotaalstaanplaatsenmidden, dectotaalstaanplaatsenachterdoel, dectotaalsupporters,
            decopbrengstspeeldag, decaantalabonnementen As Decimal

        decprijsbusinessseats = txtprijsbusinessseats.Text
        decprijsbusinessdinner = txtprijsbusinessdinner.Text
        decprijszitplaatsenmidden = txtprijszitplaatsenmidden.Text
        decprijszitplaatsenachterdoel = txtprijszitplaatsenachterdoel.Text
        decprijsstaanplaatsenmidden = txtprijsstaanplaatsenmidden.Text
        decprijsstaanplaatsenachterdoel = txtprijsstaanplaatsenachterdoel.Text

        decaantalbusinessseats = txtaantalbusinessseats.Text
        decaantalbusinessdinner = txtaantalbusinessdinner.Text
        decaantalzitplaatsenmidden = txtaantalzitplaatsenmidden.Text
        decaantalzitplaatsenachterdoel = txtaantalzitplaatsenachterdoel.Text
        decaantalstaanplaatsenmidden = txtaantalstaanplaatsenmidden.Text
        decaantalstaanplaatsenachterdoel = txtaantalstaanplaatsenachterdoel.Text

        dectotaalbusinessseats = decprijsbusinessseats * decaantalbusinessseats
        dectotaalbusinessdinner = decprijsbusinessdinner * decaantalbusinessdinner
        dectotaalzitplaatsenmidden = decprijszitplaatsenmidden * decaantalzitplaatsenmidden
        dectotaalzitplaatsenachterdoel = decprijszitplaatsenachterdoel * decaantalzitplaatsenachterdoel
        dectotaalstaanplaatsenmidden = decprijsstaanplaatsenmidden * decaantalstaanplaatsenmidden
        dectotaalstaanplaatsenachterdoel = decprijsstaanplaatsenachterdoel * decaantalstaanplaatsenachterdoel

        REM berekenen
        decaantalabonnementen = txtaantalabonnementen.Text
        dectotaalsupporters = decaantalbusinessseats + decaantalbusinessdinner + decaantalzitplaatsenmidden + decaantalzitplaatsenachterdoel + decaantalstaanplaatsenmidden + decaantalstaanplaatsenachterdoel + decaantalabonnementen
        decopbrengstspeeldag = dectotaalbusinessseats + dectotaalbusinessdinner + dectotaalzitplaatsenmidden + dectotaalzitplaatsenachterdoel + dectotaalstaanplaatsenmidden + dectotaalstaanplaatsenachterdoel

        REM uitvoer
        txttotaalsupporters.Text = dectotaalsupporters.ToString
        txtopbrengstspeeldag.Text = decopbrengstspeeldag.ToString

        txttotaalbusinessseats.Text = dectotaalbusinessseats.ToString
        txttotaalbusinessdinner.Text = dectotaalbusinessdinner.ToString
        txttotaalzitplaatsenmidden.Text = dectotaalzitplaatsenmidden.ToString
        txttotaalzitplaatsenachterdoel.Text = dectotaalzitplaatsenachterdoel.ToString
        txttotaalstaanplaatsenmidden.Text = dectotaalstaanplaatsenmidden.ToString
        txttotaalstaanplaatsenachterdoel.Text = dectotaalstaanplaatsenachterdoel.ToString


    End Sub

    Private Sub btnSluiten_Click(sender As System.Object, e As System.EventArgs) Handles btnSluiten.Click
        Me.Close()
    End Sub
End Class