Achter elke knop zit de nodige code. Ik maak gebruik van globale variabelen. Toch kent hij de waarden van mijn variabelen niet meer wanneer ik op mijn 2e knop druk. Het gaat wel goed wanneer ik vanuit de 1e macro de 2e aanroep (dit staat in onderstaande code als commentaar). Dezelfde code in VBA (excel) werkt wel. Waar zou het probleem kunnen zitten?
Hieronder de code:
Code: Selecteer alles
Option Explicit
' naam programma: afrekening leerling in refter
' onderwerp: afrekenen van de warme maaltijden op het einde van de week
' onderdeel leerplan: sequentie voorbeeldoefening
' globale variabelen delcareren
Dim AantalSpaghetti As Integer
Dim AantalMacaroni As Integer
Dim AantalKoninginnenhapje As Integer
Dim AantalLasagne As Integer
Dim Totaal As Single
Sub VraagAantalMaaltijden()
'aantal maaltijden ingeven
AantalSpaghetti = InputBox("Aantal spaghetti: ")
AantalMacaroni = InputBox("Aantal macaroni: ")
AantalKoninginnenhapje = InputBox("Aantal koninginnenhapje: ")
AantalLasagne = InputBox("Aantal lasagne: ")
'BerekenPrijs() --> als ik dit gebruik lukt het wel
End Sub
Sub BerekenPrijs()
' prijs bereken
' lokale variabelen declareren
Dim PrijsSpaghetti As Single
Dim PrijsMacaroni As Single
Dim PrijsKoninginnenhapje As Single
Dim PrijsLasagne As Single
PrijsSpaghetti = 5.5 * AantalSpaghetti
PrijsMacaroni = 6 * AantalMacaroni
PrijsKoninginnenhapje = 7 * AantalKoninginnenhapje
PrijsLasagne = 6 * AantalLasagne
Totaal = PrijsSpaghetti + PrijsMacaroni + PrijsKoninginnenhapje + PrijsLasagne
MsgBox "De leerling moet " & Totaal & "euro betalen"
End Sub