Heeft iemand een code voor het VB donut Shoppe-project?

VB Donut Shoppe-projectcode:

```visuele basis

Optie Expliciet

Openbaar klasseformulier1

Private Sub Form1_Load (afzender als object, e als EventArgs) verwerkt MyBase.Load

'Initialiseer de inventarisvariabelen van Donut Shoppe

Dim donuts_in_stock als geheel getal =100

Dim donut_price Als Dubbel =2,50

'Geef de voorraadtelling weer in het lblInventoryCount-label

lblInventoryCount.Text =donuts_in_stock

'Geef de donutprijs weer in het lblDonutPrice-label

lblDonutPrice.Text =donut_prijs

Einde sub

Private Sub btnBuyDonut_Click (afzender als object, e als EventArgs) verwerkt btnBuyDonut.Click

'Verminder het aantal donuts in voorraad met één

donuts_in_stock =donuts_in_stock - 1

'Werk het lblInventoryCount-label bij met de bijgewerkte voorraadtelling

lblInventoryCount.Text =donuts_in_stock

'Controleer of de klant genoeg geld heeft om een ​​donut te kopen

Als txtbxMoneyGiven.Text>=donut_price Dan

'Geef een bericht weer waarin de klant wordt geïnformeerd dat zijn aankoop succesvol is geweest

MessageBox.Show("Geniet van uw donut!", "Aankoop geslaagd")

'Bereken en toon het wisselgeld dat je aan de klant verschuldigd bent

Dim change_owed As Double =Val(txtbxMoneyGiven.Text) - donut_price

lblChangeOwed.Text =FormatCurrency(change_owed)

Anders

'Toon een bericht waarin de klant wordt geïnformeerd dat hij niet genoeg geld heeft

MessageBox.Show("Sorry, u heeft niet genoeg geld om een ​​donut te kopen.", "Onvoldoende saldo")

Einde Als

Einde sub

Einde klasse

```

Deze code gaat ervan uit dat er verschillende besturingselementen op uw formulier aanwezig zijn, zoals labels met de naam 'lblInventoryCount' en 'lblDonutPrice', een tekstvak met de naam 'txtbxMoneyGiven' om het geld in te voeren dat de klant geeft, en een knop met de naam 'btnBuyDonut' om de aankoop van de donut te starten . Mogelijk moet u de code aanpassen zodat deze overeenkomt met de werkelijke namen van uw besturingselementen en de lay-out van uw formulier.