|
Private Sub
CommandButton1_Click()
Dim buffer As String
Dim verbruik As
Single
Dim personen As
Integer
Dim gratisverbruik
As Single
Dim betaaldverbruik
As Single
Dim kostprijs As
Single
buffer =
InputBox("Geef het verbruik in kWh")
Loop Until
IsNumeric(buffer)
verbruik =
CSng(buffer)
Do
buffer = InputBox("Geef
het aantal personen in het gezin")
Loop Until
IsNumeric(buffer)
personen =
CSng(buffer)
gratisverbruik = (personen
+ 1) * 100
betaaldverbruik =
verbruik - gratis
kostprijs =
betaaldverbruik * 0.13 'prijs
kostprijs =
kostprijs * 1.21 'btw in
MsgBox "De kostprijs
van het verbruik is " & kostprijs
End Sub |
Private Sub
CommandButton1_Click()
Dim verbruik As
Single
Dim personen As
Integer
Dim gratisverbruik
As Single
Dim betaaldverbruik
As Single
Dim kostprijs As
Single
If Not IsNumeric(txtVerbruik.Text) Then Exit Sub
verbruik = CSng(txtVerbruik.Text)
IsNumeric(txtPersonen.Text) Then Exit Sub
personen =
CSng(txtPersonen.Text)
gratisverbruik =
(personen + 1) * 100
betaaldverbruik =
verbruik - gratis
kostprijs =
betaaldverbruik * 0.13 'prijs
kostprijs =
kostprijs * 1.21 'btw in
MsgBox "De kostprijs
van het verbruik is " & kostprijs
‘of in een label
lblResultaat
‘lblResultaat.Caption="De kostprijs van het verbruik is " & kostprijs
‘in.NET:
lblResultaat.Text="De kostprijs van het verbruik is " & kostprijs
End Sub |