daily pastebin goal
52%
SHARE
TWEET

Untitled

a guest Dec 15th, 2018 62 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class voetbalinkomsten
  2.  
  3.     Private Sub btnWissen_Click(sender As System.Object, e As System.EventArgs) Handles btnWissen.Click
  4.         REM Wissen van de gegevens
  5.         txtprijsbusinessseats.Text = " "
  6.         txtprijsbusinessdinner.Text = " "
  7.         txtprijszitplaatsenmidden.Text = " "
  8.         txtprijszitplaatsenachterdoel.Text = " "
  9.         txtprijsstaanplaatsenmidden.Text = " "
  10.         txtprijsstaanplaatsenachterdoel.Text = " "
  11.  
  12.         txtaantalbusinessseats.Text = " "
  13.         txtaantalbusinessdinner.Text = " "
  14.         txtaantalzitplaatsenmidden.Text = " "
  15.         txtaantalzitplaatsenachterdoel.Text = " "
  16.         txtaantalstaanplaatsenmidden.Text = " "
  17.         txtaantalstaanplaatsenachterdoel.Text = " "
  18.  
  19.         txttotaalbusinessseats.Text = " "
  20.         txttotaalbusinessdinner.Text = " "
  21.         txttotaalzitplaatsenmidden.Text = " "
  22.         txttotaalzitplaatsenachterdoel.Text = " "
  23.         txttotaalstaanplaatsenmidden.Text = " "
  24.         txttotaalstaanplaatsenachterdoel.Text = " "
  25.  
  26.         txttotaalsupporters.Text = " "
  27.         txtopbrengstspeeldag.Text = " "
  28.         txttotaalabonnementen.Text = " "
  29.  
  30.     End Sub
  31.  
  32.     Private Sub btnBereken_Click(sender As System.Object, e As System.EventArgs) Handles btnBereken.Click
  33.         REM Declareren
  34.         Dim decprijsbusinessseats, decprijsbusinessdinner, decprijszitplaatsenmidden,
  35.             decprijszitplaatsenachterdoel, decprijsstaanplaatsenmidden, decprijsstaanplaatsenachterdoel,
  36.             decaantalbusinessseats, decaantalbusinessdinner, decaantalzitplaatsenmidden,
  37.             decaantalzitplaatsenachterdoel, decaantalstaanplaatsenmidden, decaantalstaanplaatsenachterdoel,
  38.             dectotaalbusinessseats, dectotaalbusinessdinner, dectotaalzitplaatsenmidden,
  39.             dectotaalzitplaatsenachterdoel, dectotaalstaanplaatsenmidden, dectotaalstaanplaatsenachterdoel, dectotaalsupporters,
  40.             decopbrengstspeeldag, decaantalabonnementen As Decimal
  41.  
  42.         decprijsbusinessseats = txtprijsbusinessseats.Text
  43.         decprijsbusinessdinner = txtprijsbusinessdinner.Text
  44.         decprijszitplaatsenmidden = txtprijszitplaatsenmidden.Text
  45.         decprijszitplaatsenachterdoel = txtprijszitplaatsenachterdoel.Text
  46.         decprijsstaanplaatsenmidden = txtprijsstaanplaatsenmidden.Text
  47.         decprijsstaanplaatsenachterdoel = txtprijsstaanplaatsenachterdoel.Text
  48.  
  49.         decaantalbusinessseats = txtaantalbusinessseats.Text
  50.         decaantalbusinessdinner = txtaantalbusinessdinner.Text
  51.         decaantalzitplaatsenmidden = txtaantalzitplaatsenmidden.Text
  52.         decaantalzitplaatsenachterdoel = txtaantalzitplaatsenachterdoel.Text
  53.         decaantalstaanplaatsenmidden = txtaantalstaanplaatsenmidden.Text
  54.         decaantalstaanplaatsenachterdoel = txtaantalstaanplaatsenachterdoel.Text
  55.  
  56.         dectotaalbusinessseats = decprijsbusinessseats * decaantalbusinessseats
  57.         dectotaalbusinessdinner = decprijsbusinessdinner * decaantalbusinessdinner
  58.         dectotaalzitplaatsenmidden = decprijszitplaatsenmidden * decaantalzitplaatsenmidden
  59.         dectotaalzitplaatsenachterdoel = decprijszitplaatsenachterdoel * decaantalzitplaatsenachterdoel
  60.         dectotaalstaanplaatsenmidden = decprijsstaanplaatsenmidden * decaantalstaanplaatsenmidden
  61.         dectotaalstaanplaatsenachterdoel = decprijsstaanplaatsenachterdoel * decaantalstaanplaatsenachterdoel
  62.  
  63.         REM berekenen
  64.         decaantalabonnementen = txtaantalabonnementen.Text
  65.         dectotaalsupporters = decaantalbusinessseats + decaantalbusinessdinner + decaantalzitplaatsenmidden + decaantalzitplaatsenachterdoel + decaantalstaanplaatsenmidden + decaantalstaanplaatsenachterdoel + decaantalabonnementen
  66.         decopbrengstspeeldag = dectotaalbusinessseats + dectotaalbusinessdinner + dectotaalzitplaatsenmidden + dectotaalzitplaatsenachterdoel + dectotaalstaanplaatsenmidden + dectotaalstaanplaatsenachterdoel
  67.  
  68.         REM uitvoer
  69.         txttotaalsupporters.Text = dectotaalsupporters.ToString
  70.         txtopbrengstspeeldag.Text = decopbrengstspeeldag.ToString
  71.  
  72.         txttotaalbusinessseats.Text = dectotaalbusinessseats.ToString
  73.         txttotaalbusinessdinner.Text = dectotaalbusinessdinner.ToString
  74.         txttotaalzitplaatsenmidden.Text = dectotaalzitplaatsenmidden.ToString
  75.         txttotaalzitplaatsenachterdoel.Text = dectotaalzitplaatsenachterdoel.ToString
  76.         txttotaalstaanplaatsenmidden.Text = dectotaalstaanplaatsenmidden.ToString
  77.         txttotaalstaanplaatsenachterdoel.Text = dectotaalstaanplaatsenachterdoel.ToString
  78.  
  79.  
  80.     End Sub
  81.  
  82.     Private Sub btnSluiten_Click(sender As System.Object, e As System.EventArgs) Handles btnSluiten.Click
  83.         Me.Close()
  84.     End Sub
  85. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top