Ima li netko kod za VB donut Shoppe projekt?

Kôd projekta VB Donut Shoppe:

```visual basic

Opcija Eksplicitno

Obrazac za javni sat1

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

'Inicijaliziraj varijable inventara Donut Shoppe

Dim donuts_in_stock Kao cijeli broj =100

Dim donut_price As Double =2,50

'Prikaži broj inventara u oznaci lblInventoryCount

lblInventoryCount.Text =donuts_in_stock

'Prikaži cijenu krafne u oznaci lblDonutPrice

lblDonutPrice.Text =donut_price

End Sub

Private Sub btnBuyDonut_Click(sender As Object, e As EventArgs) Obrađuje btnBuyDonut.Click

'Smanjite broj krafni na zalihama za jednu

krafne_na_lageru =krafne_na_lageru - 1

'Ažurirajte oznaku lblInventoryCount s ažuriranim brojem inventara

lblInventoryCount.Text =donuts_in_stock

'Provjerite ima li kupac dovoljno novca da kupi krafnu

If txtbxMoneyGiven.Text>=donut_price Then

'Prikaži poruku koja obavještava kupca da je njegova kupnja bila uspješna

MessageBox.Show("Uživajte u svojoj krafni!", "Kupnja uspješna")

'Izračunajte i prikažite promjenu koja se duguje kupcu

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

lblChangeOwed.Text =FormatCurrency(change_owed)

Drugo

'Prikažite poruku koja obavještava kupca da nema dovoljno novca

MessageBox.Show("Žao nam je, nemate dovoljno novca da kupite krafnu.", "Nema dovoljno sredstava")

Kraj Ako

End Sub

Kraj razreda

```

Ovaj kod pretpostavlja postojanje nekoliko kontrola na vašem obrascu, kao što su oznake pod nazivom `lblInventoryCount` i `lblDonutPrice`, tekstualni okvir pod nazivom `txtbxMoneyGiven` za unos novca koji korisnik daje i gumb pod nazivom `btnBuyDonut` za pokretanje kupnje krafne . Možda ćete morati izmijeniti kod kako bi odgovarao stvarnim nazivima vaših kontrola i izgledu vašeg obrasca.