Hoi allemaal,
Ik ben een havo 5 leerling uit Gelderland en ik moet een opdracht maken voor school. Het gaat namelijk om een Frisdrankautomaat. Ik heb nu al een code, maar die geld maar voor 1 drankje. (bv alleen cola)
Ik moet 3 verschillende soorten drankjes doen. Kan iemand mij op weg helpen hoe ik die onderscheid moet maken?
Ik ben een havo 5 leerling uit Gelderland en ik moet een opdracht maken voor school. Het gaat namelijk om een Frisdrankautomaat. Ik heb nu al een code, maar die geld maar voor 1 drankje. (bv alleen cola)
Ik moet 3 verschillende soorten drankjes doen. Kan iemand mij op weg helpen hoe ik die onderscheid moet maken?
Code:
Dim blik_voorraad As Integer
Dim blik_gekocht As Integer
Dim prijs_start As Double
Dim prijs_fin As Double
Dim invoer_hoeveelheid As Double
Dim invoer_weergave As String
Private Sub AcceptKnop_Click()
check_bedrag
End Sub
'Deze subroutine maakt de textboxenleeg en zet de waarde van de invoer op 0 en laat de blikvoorraad zien.
Private Sub Clear()
invoer.Caption = ""
invoer_hoeveelheid = 0
label_voorraad.Caption = blik_voorraad
invoer_weergave = ""
End Sub
Private Sub AfzegKnop_Click()
Clear
End Sub
Private Sub knop_nummer_0_Click()
invoer_weergave = "0"
verander_invoer
End Sub
Private Sub knop_nummer_1_Click()
invoer_weergave = "1"
verander_invoer
End Sub
Private Sub knop_nummer_2_Click()
invoer_weergave = "2"
verander_invoer
End Sub
Private Sub knop_nummer_3_Click()
invoer_weergave = "3"
verander_invoer
End Sub
Private Sub knop_nummer_4_Click()
invoer_weergave = "4"
verander_invoer
End Sub
Private Sub knop_nummer_5_Click()
invoer_weergave = "5"
verander_invoer
End Sub
Private Sub knop_nummer_6_Click()
invoer_weergave = "6"
verander_invoer
End Sub
Private Sub knop_nummer_7_Click()
invoer_weergave = "7"
verander_invoer
End Sub
Private Sub knop_nummer_8_Click()
invoer_weergave = "8"
verander_invoer
End Sub
Private Sub knop_nummer_9_Click()
invoer_weergave = "9"
verander_invoer
End Sub
Private Sub UserForm_activate()
blik_voorraad = 200
label_totaalprijs = 0
label_voorraad.Caption = blik_voorraad
End Sub
'Deze subroutine maakt van het invoer_hoeveelheid vakje een getal dat gebruikt kan worden om te rekenen.
Private Sub verander_invoer()
invoer.Caption = invoer.Caption + invoer_weergave
invoer_weergave = ""
invoer_hoeveelheid = Val(invoer.Caption)
End Sub
Private Sub check_bedrag()
If (invoer_hoeveelheid = 0) Then
Clear
Exit Sub
End If
If (invoer_hoeveelheid > blik_voorraad) Then
'Als de ingevoerde hoeveelheid groter is dan het aantal blikjes in voorraad dan geeft het programma een foutmelding.
M = MsgBox("Kan niet" + Str(invoer_hoeveelheid) + " blikjes kopen want er zijn er maar" + Str(blik_voorraad) + " in de voorraad. Wilt u opnieuw beginnen en de voorraad aanvullen tot 200?", vbYesNo)
'Als er ja wordt geantwoord dan zal het programma de blikvoorraad weer aanvullen tot 200 en de totaalprijs resetten.
If (M = vbYes) Then
label_totaalprijs = 0
blik_voorraad = 200
Else
End If
Else
'Nieuwe blikvoorraad berekenen.
blik_voorraad = blik_voorraad - invoer_hoeveelheid
label_voorraad.Caption = blik_voorraad
'De prijs uitrekenen.
prijs_start = 0.95 * invoer_hoeveelheid
'Controleren of de ingevoerde hoeveelheid groter of gelijk is aan 3.
If (invoer_hoeveelheid >= 3) Then
'Als de ingevoerde hoeveelheid groter of gelijk is aan 3, dan korting toepassen.
prijs_fin = prijs_start * 0.9
label_totaalprijs.Caption = Str(Round(prijs_fin, 2))
Else
label_totaalprijs.Caption = Str(Round(prijs_start, 2))
End If
End If
Clear
End Sub
