Leren programmeren: dubbelglas

We gaan dit programma twee keer uitwerken: een keer met twee invoervakken en een uitvoervak, en een keer als Excel functie.

• Met een invoervak txtKostprijs. In dat geval ziet de code er zo uit:

Private Sub cmdBereken_Click()
Dim kostprijs As Single
Dim teruggave As Single
If Not IsNumeric(txtKostprijs.Text) Then Exit Sub
teruggave = kostprijs * 40/100
If teruggave > 600 Then teruggave = 600
lblTeruggave.Caption = "Je krijgt " & teruggave & " terug."
'in VB .NET: lblTeruggave.Caption

• Omdat er maar één parameter is, kan het ook als Excel functie. De code staat dan in een module ziet er zo uit:

Function teruggave(kostprijs As Single) As Single
teruggave = kostprijs * 40 / 100
If teruggave > 600 Then teruggave = 600
End Function