Má niekto kód pre projekt VB donut Shoppe?

Kód projektu VB Donut Shoppe:

```Vizuálny základ

Možnosť Explicitná

Formulár verejnej triedy1

Private Sub Form1_Load(odosielateľ ako objekt, e ako EventArgs) spracováva MyBase.Load

'Inicializujte premenné zásob donut shoppe

Dim donuts_in_stock As Integer =100

Dim donut_price As Double =2,50

'Zobraziť počet zásob v štítku lblInventoryCount

lblInventoryCount.Text =šišky_na sklade

'Cenu šišky zobrazte na štítku lblDonutPrice

lblDonutPrice.Text =donut_price

End Sub

Private Sub btnBuyDonut_Click(odosielateľ ako objekt, e As EventArgs) Rukoväte btnBuyDonut.Click

„Znížte počet donutov na sklade o jednu

donuts_in_stock =donuts_in_stock - 1

Aktualizujte štítok lblInventoryCount s aktualizovaným počtom zásob

lblInventoryCount.Text =šišky_na sklade

„Skontrolujte, či má zákazník dostatok peňazí na kúpu šišky

Ak txtbxMoneyGiven.Text>=donut_price Potom

„Zobrazte správu informujúcu zákazníka, že jeho nákup bol úspešný

MessageBox.Show("Užite si šišku!", "Nákup bol úspešný")

„Vypočítajte a zobrazte zmenu dlžnú zákazníkovi

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

lblChangeOwed.Text =FormatCurrency(change_owed)

Inak

„Zobrazte správu informujúcu zákazníka, že nemá dostatok peňazí

MessageBox.Show("Prepáčte, nemáte dosť peňazí na kúpu šišky.", "Nedostatok prostriedkov")

End If

End Sub

Koniec triedy

```

Tento kód predpokladá existenciu niekoľkých ovládacích prvkov vo vašom formulári, ako sú štítky s názvom `lblInventoryCount` a `lblDonutPrice`, textové pole s názvom `txtbxMoneyGiven` na zadanie peňazí, ktoré zákazník dáva, a tlačidlo s názvom `btnBuyDonut` na spustenie nákupu šišiek. . Možno budete musieť upraviť kód tak, aby sa zhodoval so skutočnými názvami vašich ovládacích prvkov a rozložením formulára.