Onko kenelläkään koodia VB donut Shoppe -projektille?

VB Donut Shoppe -projektin koodi:

``` visuaalinen perus

Vaihtoehto Explicit

Julkinen luokkalomake 1

Yksityinen alilomake1_Load(lähettäjä objektina, e tapahtumaargumenttina) käsittelee MyBase.Load

"Alusta donitsikaupan varastomuuttujat

Dim donuts_in_stock Kokonaisluku =100

Dim donitsi_hinta As Double =2,50

'Näytä varastomäärä lblInventoryCount-tunnisteessa

lblInventoryCount.Text =donitsit_varastossa

'Näytä donitsin hinta lblDonutPrice-tarrassa

lblDonutPrice.Text =donitsihinta

Lopeta ala

Yksityinen Sub btnBuyDonut_Click(lähettäjä objektina, e EventArgs) Käsittelee btnBuyDonut.Click

'Vähennä varastossa olevien munkkien määrää yhdellä

munkkeja_varastossa =munkkeja_varastossa - 1

Päivitä lblInventoryCount-tunniste päivitetyllä varastomäärällä

lblInventoryCount.Text =donitsit_varastossa

'Tarkista, onko asiakkaalla tarpeeksi rahaa donitsien ostamiseen

Jos txtbxMoneyGiven.Text>=donitsihinta Sitten

'Näytä viesti, joka ilmoittaa asiakkaalle oston onnistumisesta

MessageBox.Show("Nauti donitsistasi!", "Osto onnistui")

Laske ja näytä asiakkaalle maksettava muutos

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

lblChangeOwed.Text =MuotoValuutta(muutos_velka)

Muu

'Näytä viesti, jossa kerrotaan asiakkaalle, että heillä ei ole tarpeeksi rahaa

MessageBox.Show("Anteeksi, sinulla ei ole tarpeeksi rahaa donitsien ostamiseen.", "Riittämättömät varat")

Lopeta jos

Lopeta ala

Loppuluokka

```

Tämä koodi olettaa, että lomakkeellasi on useita ohjaimia, kuten tunnisteet nimeltä "lblInventoryCount" ja "lblDonutPrice", tekstilaatikko "txtbxMoneyGiven" asiakkaan antaman rahan syöttämiseen ja "btnBuyDonut"-painike donitsien oston aloittamiseksi. . Saatat joutua muokkaamaan koodia vastaamaan säätimien todellisia nimiä ja lomakkeen asettelua.