Ar kas nors turi VB donut Shoppe projekto kodą?

VB Donut Shoppe projekto kodas:

``` vizualinis pagrindas

Parinktis Aiški

Viešosios klasės 1 forma

Privati ​​antrinė forma1_Load(siuntėjas kaip objektas, el. kaip įvykio žymės) tvarko MyBase.Load

„Inicijuoti donut shoppe atsargų kintamuosius

Dim donuts_in_stock Kaip sveikasis skaičius =100

Dim donut_price As Double =2,50

Rodykite atsargų skaičių etiketėje lblInventoryCount

lblInventoryCount.Text =spurgos_sandėlyje

„Parodykite spurgos kainą etiketėje „lblDonutPrice“.

lblDonutPrice.Text =spurgos_kaina

Pabaigos sub

Privatus sub btnBuyDonut_Click(siuntėjas kaip objektas, el. kaip EventArgs) tvarko btnBuyDonut.Click

„Sumažinkite spurgų skaičių sandėlyje vienu

spurgos_in_stock =spurgos_in_stock - 1

„Atnaujinkite lblInventoryCount etiketę su atnaujintu atsargų skaičiumi

lblInventoryCount.Text =spurgos_sandėlyje

„Patikrinkite, ar klientas turi pakankamai pinigų spurgai nusipirkti

Jei txtbxMoneyGiven.Text>=donut_price Tada

„Rodyti pranešimą, informuojantį klientą, kad pirkimas buvo sėkmingas

MessageBox.Show("Mėgaukitės spurgu!", "Pirkimas sėkmingas")

„Apskaičiuokite ir parodykite klientui mokėtiną pakeitimą

Dim change_oed_oed As Double =Val(txtbxMoneyGiven.Text) – spurgos_kaina

lblChangeOwed.Text =FormatCurrency(pakeitimas_skolingas)

Kitaip

„Parodykite pranešimą, informuojantį klientą, kad jis neturi pakankamai pinigų

MessageBox.Show („Atsiprašome, jūs neturite pakankamai pinigų spurgai nusipirkti“, „Nepakanka lėšų“)

Pabaiga Jei

Pabaigos sub

Pabaigos klasė

```

Šis kodas daro prielaidą, kad formoje yra keli valdikliai, pvz., etiketės pavadinimu „lblInventoryCount“ ir „lblDonutPrice“, teksto laukelis „txtbxMoneyGiven“, skirtas įvesti kliento duodamus pinigus, ir mygtukas „btnBuyDonut“, skirtas spurgos pirkimui pradėti. . Gali tekti pakeisti kodą, kad jis atitiktų tikrus valdiklių pavadinimus ir formos išdėstymą.