Czy ma ktoś kod do projektu VB Donut Shoppe?

Kod projektu VB Donut Shoppe:

```podstawowy wizualny

Opcja jawna

Formularz zajęć publicznych 1

Prywatny subform1_Load (nadawca jako obiekt, e jako EventArgs) Obsługuje MyBase.Load

„Zainicjuj zmienne asortymentowe sklepu z pączkami

Dim donuts_in_stock Jako liczba całkowita =100

Dim Donut_price As Double =2,50

'Wyświetl stan zapasów na etykiecie lblInventoryCount

lblInventoryCount.Text =pączki_w_magazach

'Wyświetl cenę pączka na etykiecie lblDonutPrice

lblDonutPrice.Text =cena_pączka

Zakończ sub

Private Sub btnBuyDonut_Click (nadawca jako obiekt, e jako EventArgs) Obsługuje btnBuyDonut.Click

'Zmniejsz ilość pączków w magazynie o jeden

pączki_w_stocku =pączki_w_stocku - 1

'Zaktualizuj etykietę lblInventoryCount o zaktualizowany stan zapasów

lblInventoryCount.Text =pączki_w_magazach

„Sprawdź, czy klient ma dość pieniędzy, aby kupić pączka

Jeśli txtbxMoneyGiven.Text>=cena_pączka Wtedy

'Wyświetl komunikat informujący klienta, że ​​zakup się powiódł

MessageBox.Show("Smacznego pączka!", "Zakup udany")

'Oblicz i wyświetl resztę należną klientowi

Zmiana dim_owed As Double =Val(txtbxMoneyGiven.Text) - cena_pączka

lblChangeOwed.Text =FormatCurrency(change_owed)

W przeciwnym razie

'Wyświetl komunikat informujący klienta, że ​​nie ma wystarczającej ilości pieniędzy

MessageBox.Show("Niestety, nie masz dość pieniędzy, aby kupić pączka.", "Niewystarczające środki")

Zakończ jeśli

Zakończ sub

Koniec zajęć

```

Ten kod zakłada istnienie kilku elementów sterujących w formularzu, takich jak etykiety o nazwach „lblInventoryCount” i „lblDonutPrice”, pole tekstowe o nazwie „txtbxMoneyGiven” do wprowadzania pieniędzy przekazywanych przez klienta oraz przycisk o nazwie „btnBuyDonut” umożliwiający zainicjowanie zakupu pączka . Może być konieczne zmodyfikowanie kodu, aby dopasować go do rzeczywistych nazw kontrolek i układu formularza.