Má někdo kód pro projekt VB donut Shoppe?

Kód projektu VB Donut Shoppe:

```vizuální základ

Možnost Explicitní

Formulář veřejné třídy1

Private Sub Form1_Load(odesílatel jako objekt, e jako EventArgs) zpracovává MyBase.Load

'Inicializovat proměnné inventáře donut shoppe

Dim donuts_in_stock As Integer =100

Dim donut_price As Double =2,50

'Zobrazte počet zásob na štítku lblInventoryCount

lblInventoryCount.Text =donuts_in_stock

'Cenu koblihy zobrazte na štítku lblDonutPrice

lblDonutPrice.Text =donut_price

End Sub

Private Sub btnBuyDonut_Click (odesílatel jako objekt, e jako EventArgs) zpracovává btnBuyDonut.Click

„Snižte počet koblih na skladě o jednu

donuts_in_stock =donuts_in_stock - 1

'Aktualizujte štítek lblInventoryCount s aktualizovaným počtem zásob

lblInventoryCount.Text =donuts_in_stock

„Zkontrolujte, zda má zákazník dost peněz na to, aby si koupil koblihu

If txtbxMoneyGiven.Text>=donut_price Then

„Zobrazte zprávu informující zákazníka, že jeho nákup byl úspěšný

MessageBox.Show("Užijte si koblihu!", "Nákup byl úspěšný")

„Vypočítejte a zobrazte změnu dlužnou zákazníkovi

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

lblChangeOwed.Text =FormatCurrency(change_owed)

Jiný

„Zobrazte zprávu informující zákazníka, že nemá dost peněz

MessageBox.Show("Litujeme, nemáte dost peněz na nákup koblihy.", "Nedostatečné prostředky")

End If

End Sub

Konec třídy

```

Tento kód předpokládá existenci několika ovládacích prvků na vašem formuláři, jako jsou štítky s názvem `lblInventoryCount` a `lblDonutPrice`, textové pole s názvem `txtbxMoneyGiven` pro zadání peněz, které zákazník dává, a tlačítko s názvem `btnBuyDonut` pro zahájení nákupu koblih. . Možná budete muset upravit kód tak, aby odpovídal skutečným názvům ovládacích prvků a rozložení formuláře.