Някой има ли код за проект VB donut Shoppe?

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

```visual basic

Опция Изрично

Формуляр за публичен клас1

Private Sub Form1_Load(sender As Object, e As EventArgs) Обработва MyBase.Load

„Инициализиране на променливите на инвентара на магазина за понички

Dim donuts_in_stock Като цяло число =100

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

„Показване на броя на инвентара в етикета lblInventoryCount

lblInventoryCount.Text =понички_в_наличност

„Покажете цената на поничката в етикета lblDonutPrice

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

End Sub

Private Sub btnBuyDonut_Click(подател като обект, e като EventArgs) Обработва btnBuyDonut.Click

„Намалете броя на поничките в наличност с една

понички_в_наличност =понички_в_наличност - 1

„Актуализиране на етикета lblInventoryCount с актуализирания брой на инвентара

lblInventoryCount.Text =понички_в_наличност

„Проверете дали клиентът има достатъчно пари, за да си купи поничка

Ако txtbxMoneyGiven.Text>=donut_price Тогава

„Покажете съобщение, което информира клиента, че покупката му е успешна

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

„Изчислете и покажете промяната, дължима на клиента

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

lblChangeOwed.Text =FormatCurrency(change_owed)

Друго

„Покажете съобщение, което информира клиента, че няма достатъчно пари

MessageBox.Show("Съжаляваме, нямате достатъчно пари, за да си купите поничка.", "Недостатъчно средства")

Край Ако

End Sub

Край на класа

```

Този код предполага наличието на няколко контроли във вашия формуляр, като например етикети с име `lblInventoryCount` и `lblDonutPrice`, текстово поле с име `txtbxMoneyGiven` за въвеждане на парите, които клиентът дава, и бутон с име `btnBuyDonut` за иницииране на покупката на поничка . Може да се наложи да промените кода, за да съответства на действителните имена на вашите контроли и оформлението на вашия формуляр.