Een tennisclub vraagt 100 € lidgeld per familie. Er wordt 25 € korting gegeven als ten minste één van de familieleden ouder is dan 60 jaar. Er wordt 12.5 € korting gegeven per kind, met een maximum van 50 €. En tenslotte wordt er 25 € korting gegeven als de familie al meer dan 20 jaar lid is.
We voorzien tekstvakken voor de invoer van de leeftijd van het oudste familielid, het aantal kinderen en het aantal jaren dat men lid is. We voorzien een label om de te betalen prijs weer te geven
Private
Sub cmdBereken_Click()
Dim leeftijdoudste As Integer
Dim aantalkinderen As Integer
Dim aantaljarenlid As Integer
Dim prijs As Single
prijs = 100
If Not IsNumeric(txtOudste.Text) Then Exit Sub
leeftijdoudste = CInt(txtOudste.Text)
If Not IsNumeric(txtAantal.Text) Then Exit Sub
aantalkinderen = CInt(txtAantal.Text)
If Not IsNumeric(txtJaren.Text) Then Exit Sub
aantaljarenlid = CInt(txtJaren.Text)
If leeftijdoudste > 60 Then prijs = prijs - 25
Dim kortingkinderen As Integer
kortingkinderen = aantalkinderen * 12.5
If kortingkinderen > 50 Then kortingkinderen = 50
prijs = prijs - kortingkinderen
If aantaljarenlid >= 20 Then prijs = prijs - 20
lblPrijs.Caption = prijs & " €"
End Sub
[VB Web] - [Leren programmeren] - [hlrnet] - [copyright]