Есть ли у кого-нибудь код для проекта VB donut Shoppe?

Код проекта VB Donut Shoppe:

```визуальный базовый

Опция явная

Форма публичного класса1

Частная подформа 1_Load (отправитель как объект, e как EventArgs) обрабатывает MyBase.Load

'Инициализируем переменные инвентаря магазина пончиков

Dim donuts_in_stock Как целое число =100

Dim donut_price как двойной =2,50

'Отображать количество инвентаря в метке lblInventoryCount

lblInventoryCount.Text =donuts_in_stock

'Отображать цену пончика в метке lblDonutPrice

lblDonutPrice.Text =цена_пончика

Конец субтитра

Частный Sub btnBuyDonut_Click (отправитель как объект, e как EventArgs) обрабатывает btnBuyDonut.Click

'Уменьшите количество пончиков на складе на один

donuts_in_stock =donuts_in_stock - 1

'Обновляем метку lblInventoryCount с обновленным количеством инвентаря

lblInventoryCount.Text =donuts_in_stock

'Проверьте, есть ли у клиента достаточно денег, чтобы купить пончик

Если txtbxMoneyGiven.Text>=donut_price Тогда

'Отобразить сообщение, информирующее клиента о том, что его покупка прошла успешно.

MessageBox.Show("Наслаждайтесь пончиком!", "Покупка успешна")

'Рассчитать и отобразить сдачу, причитающуюся клиенту

Dimchange_owed As Double =Val(txtbxMoneyGiven.Text) - donut_price

lblChangeOwed.Text =FormatCurrency(change_owed)

Еще

'Отобразить сообщение, информирующее клиента о том, что у него недостаточно денег

MessageBox.Show("К сожалению, у вас недостаточно денег, чтобы купить пончик", "Недостаточно средств")

Конец, если

Конец субтитра

Конечный класс

```

Этот код предполагает наличие нескольких элементов управления в вашей форме, таких как метки с именами lblInventoryCount и lblDonutPrice, текстовое поле с именем txtbxMoneyGiven для ввода денег, которые дает клиент, и кнопка с именем btnBuyDonut для инициации покупки пончиков. . Возможно, вам придется изменить код, чтобы он соответствовал фактическим именам ваших элементов управления и макету вашей формы.