Van valakinek kódja a VB donut Shoppe projekthez?

VB Donut Shoppe projekt kódja:

``` vizuális alap

Explicit opció

Nyilvános osztályforma 1

Privát Sub Form1_Load (küldő mint objektum, e mint eseményargs) kezeli a MyBase.Load fájlt

"Inicializálja a donut shoppe készletváltozókat

Dim donuts_in_stock As Integer =100

Dim fánk_ár duplaként =2,50

„Jelenítse meg a készletszámot az lblInventoryCount címkében

lblInventoryCount.Text =fánkok_készleten

„Jelenítse meg a fánk árát az lblDonutPrice címkén

lblDonutPrice.Text =fánk_ár

Vége Sub

Privát Sub btnBuyDonut_Click(feladó mint objektum, e mint EventArgs) kezeli a btnBuyDonut.Click

„Csökkentse eggyel a raktáron lévő fánkok számát

fánkok_készleten =fánkok_készleten - 1

„Frissítse az lblInventoryCount címkét a frissített készletszámmal

lblInventoryCount.Text =fánkok_készleten

– Ellenőrizze, hogy az ügyfélnek van-e elég pénze fánk vásárlásához

Ha txtbxMoneyGiven.Text>=fánk_ár Akkor

„Üzenet megjelenítése, amely tájékoztatja a vásárlót, hogy a vásárlás sikeres volt

MessageBox.Show("Élvezd a fánkot!", "Sikeres vásárlás")

„Számítsa ki és jelenítse meg az ügyfélnek járó változást

Dim change_owed As Double =Val(txtbxMoneyGiven.Text) - fánk_ár

lblChangeOwed.Text =FormátumCurrency(változás_tartozás)

Más

„Üzenet megjelenítése, amely tájékoztatja az ügyfelet, hogy nincs elég pénze

MessageBox.Show("Sajnos nincs elég pénze fánk vásárlásához.", "Nincs elég pénz")

Vége Ha

Vége Sub

Vége az osztálynak

```

Ez a kód feltételezi az űrlap több vezérlőelemének meglétét, például az "lblInventoryCount" és "lblDonutPrice" címkéket, egy "txtbxMoneyGiven" nevű szövegdobozt az ügyfél által adott pénz beviteléhez, valamint egy "btnBuyDonut" nevű gombot a fánkvásárlás kezdeményezéséhez. . Előfordulhat, hogy módosítania kell a kódot, hogy megfeleljen a vezérlőelemek tényleges nevének és az űrlap elrendezésének.