Ali ima kdo kodo za projekt VB donut Shoppe?

Koda projekta VB Donut Shoppe:

```visual basic

Možnost Eksplicitno

Obrazec javnega razreda1

Private Sub Form1_Load(sender As Object, e As EventArgs) obravnava MyBase.Load

'Inicializiraj spremenljivke inventarja trgovine s krofi

Dim donuts_in_stock Kot celo število =100

Dim donut_price Kot dvojno =2,50

'Prikaži število zalog v oznaki lblInventoryCount

lblInventoryCount.Text =krofi_na_zalogi

'Prikaži ceno krofa v oznaki lblDonutPrice

lblDonutPrice.Text =donut_price

End Sub

Private Sub btnBuyDonut_Click(sender As Object, e As EventArgs) Obravnava btnBuyDonut.Click

'Zmanjšajte število krofov na zalogi za enega

krofi_na_zalogi =krofi_na_zalogi - 1

'Posodobite oznako lblInventoryCount s posodobljenim številom inventarja

lblInventoryCount.Text =krofi_na_zalogi

'Preverite, ali ima stranka dovolj denarja za nakup krofa

Če txtbxMoneyGiven.Text>=donut_price Potem

'Prikaži sporočilo, ki stranko obvešča, da je bil njen nakup uspešen

MessageBox.Show("Uživajte v svojem krofu!", "Nakup uspešen")

„Izračunajte in prikažite spremembo, ki jo dolgujete stranki

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

lblChangeOwed.Text =FormatCurrency(change_owed)

drugače

'Prikaži sporočilo, ki stranko obvešča, da nima dovolj denarja

MessageBox.Show("Oprostite, nimate dovolj denarja za nakup krofa.", "Nezadostna sredstva")

Konec Če

End Sub

Končaj razred

```

Ta koda predvideva obstoj več kontrolnikov na vašem obrazcu, kot so oznake z imenom `lblInventoryCount` in `lblDonutPrice`, besedilno polje z imenom `txtbxMoneyGiven` za vnos denarja, ki ga stranka daje, in gumb z imenom `btnBuyDonut` za začetek nakupa krofov . Morda boste morali spremeniti kodo, da bo ustrezala dejanskim imenom vaših kontrolnikov in postavitvi obrazca.