Leren programmeren: korting

Om te bepalen of je recht hebt op korting, moet je je leeftijd opgeven en aanduiden of je een studentenkaart hebben. De leeftijd laten we invoeren in een tekstvak, en we voorzien optievakken voor het aanduiden of de gebruiker een studentenkaart heeft.

Omdat we geen knop gaan voorzien maar de controle gaan uitvoeren van zodra er een leeftijd wordt ingevoerd of een optie wordt aangekuist, zetten we standaard Neen aan.

Sub korting()
If Not IsNumeric(txtLeeftijd.Text) Then Exit Sub
If CInt(txtLeeftijd.Text) < 26 And Me.optWelStudentenkaart.Value = True Then
    lblResultaat.Caption = "Je hebt recht op korting"
    Else
    lblResultaat.Caption = "Je hebt geen recht op korting"
    End If
End Sub

Private Sub optGeenStudentenkaart_Click()
korting
End Sub

Private Sub optWelStudentenkaart_Click()
korting
End Sub

Private Sub txtLeeftijd_Change()
korting
End Sub