Opgave :
De leerlingen van een school beslissen op weekend te gaan maar houden een kleine stemming omtrent de bestemming. Via een inputbox laten ze de leerlingen hun stem registreren. De keuzemogelijkheden zijn de Ardennen, de Kempen, de Kust of Geen Mening. Uiteraard bepalen jullie via een procedure hoeveel leerlingen voor elke bestemming gekozen hebben. Het resultaat van de stemming wordt na de berekening afgedrukt in venster direct. Kies een gebruiksvriendelijke manier om je resultaat weer te geven. Denk aan je lay-out!
Code:
Dim intArdennen as integer
Dim intDe_Kempen as integer
Dim intDe_kust as integer
Dim intGeen_mening as integer
intArdennen = 0
intDe_kempen = 0
intDe_kust = 0
intGeen_mening = 0
If inputbox = "Ardennen" then
intArdennen = intArdennen + 1
elseif inputbox = "De_kempen" then
intDe_kempen = intDe_kempen + 1
elseif inputbox = "De_kust" then
intDe_kust = intDe_kust + 1
elseif inputbox = "Geen_mening" then
intGeen_mening = intGeen_mening + 1
end if
Debug.Print "Aantal leerlingen Ardennen"& intArdennen
Debug.Print "Aantal leerlingen De Kempen"& intDe_Kempen
Debug.Print "Aantal leerlingen De Kust"& intDe_Kust
Debug.Print "Aantal leerlingen Geen Mening"& intGeen_Mening
Kan iemand mij helpen want ik zit volledigg blok.
De leerlingen van een school beslissen op weekend te gaan maar houden een kleine stemming omtrent de bestemming. Via een inputbox laten ze de leerlingen hun stem registreren. De keuzemogelijkheden zijn de Ardennen, de Kempen, de Kust of Geen Mening. Uiteraard bepalen jullie via een procedure hoeveel leerlingen voor elke bestemming gekozen hebben. Het resultaat van de stemming wordt na de berekening afgedrukt in venster direct. Kies een gebruiksvriendelijke manier om je resultaat weer te geven. Denk aan je lay-out!
Code:
Dim intArdennen as integer
Dim intDe_Kempen as integer
Dim intDe_kust as integer
Dim intGeen_mening as integer
intArdennen = 0
intDe_kempen = 0
intDe_kust = 0
intGeen_mening = 0
If inputbox = "Ardennen" then
intArdennen = intArdennen + 1
elseif inputbox = "De_kempen" then
intDe_kempen = intDe_kempen + 1
elseif inputbox = "De_kust" then
intDe_kust = intDe_kust + 1
elseif inputbox = "Geen_mening" then
intGeen_mening = intGeen_mening + 1
end if
Debug.Print "Aantal leerlingen Ardennen"& intArdennen
Debug.Print "Aantal leerlingen De Kempen"& intDe_Kempen
Debug.Print "Aantal leerlingen De Kust"& intDe_Kust
Debug.Print "Aantal leerlingen Geen Mening"& intGeen_Mening
Kan iemand mij helpen want ik zit volledigg blok.