Har någon en kod för VB donut Shoppe-projektet?

VB Donut Shoppe-projektkod:

``` Visual Basic

Alternativ Explicit

Offentlig klassformulär1

Private Sub Form1_Load(sender As Object, e As EventArgs) Hanterar MyBase.Load

'Initiera lagervariabler för donut shoppe

Dim donuts_in_stock Som heltal =100

Dim donut_price As Double =2,50

'Visa lagerantalet i etiketten lblInventoryCount

lblInventoryCount.Text =munkar_i_lager

'Visa munkpriset i lblDonutPrice-etiketten

lblDonutPrice.Text =donut_price

Avsluta Sub

Private Sub btnBuyDonut_Click(sender As Object, e As EventArgs) Hanterar btnBuyDonut.Click

'Minska antalet munkar i lager med en

munkar_i_lager =munkar_i_lager - 1

'Uppdatera etiketten lblInventoryCount med det uppdaterade lagerantalet

lblInventoryCount.Text =munkar_i_lager

"Kontrollera om kunden har tillräckligt med pengar för att köpa en munk

Om txtbxMoneyGiven.Text>=donut_price Då

"Visa ett meddelande som informerar kunden om att deras köp lyckades

MessageBox.Show("Njut av din munk!", "Köpet lyckades")

'Beräkna och visa ändringen som är skyldig kunden

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

lblChangeOwed.Text =FormatCurrency(change_owed)

Annan

'Visa ett meddelande som informerar kunden om att de inte har tillräckligt med pengar

MessageBox.Show("Tyvärr, du har inte tillräckligt med pengar för att köpa en munk.", "Otillräckliga medel")

Avsluta om

Avsluta Sub

Slutklass

```

Den här koden förutsätter att det finns flera kontroller på ditt formulär, till exempel etiketter som heter `lblInventoryCount` och `lblDonutPrice`, en textruta som heter `txtbxMoneyGiven` för att mata in pengarna som kunden ger, och en knapp som heter `btnBuyDonut` för att initiera munkköpet . Du kan behöva ändra koden för att matcha de faktiska namnen på dina kontroller och layouten på ditt formulär.