Er det noen som har en kode for VB smultring Shoppe-prosjektet?

VB Donut Shoppe-prosjektkode:

```visuell grunnleggende

Alternativ eksplisitt

Offentlig klasseskjema1

Private Sub Form1_Load(sender As Object, e As EventArgs) Håndterer MyBase.Load

'Initialiser beholdningsvariabler for smultringshoppe

Dim donuts_in_stock Som heltall =100

Dim donut_price As Double =2,50

'Vis lagertellingen i lblInventoryCount-etiketten

lblInventoryCount.Text =donuts_in_stock

'Vis smultringprisen i lblDonutPrice-etiketten

lblDonutPrice.Text =smultringpris

End Sub

Private Sub btnBuyDonut_Click(sender As Object, e As EventArgs) Håndterer btnBuyDonut.Click

Reduser antallet smultringer på lager med én

donuts_in_stock =donuts_in_stock - 1

'Oppdater lblInventoryCount-etiketten med det oppdaterte beholdningsantallet

lblInventoryCount.Text =donuts_in_stock

«Sjekk om kunden har nok penger til å kjøpe en smultring

Hvis txtbxMoneyGiven.Text>=donut_price Deretter

'Vis en melding som informerer kunden om at kjøpet var vellykket

MessageBox.Show("Nyt smultringen din!", "Kjøpet var vellykket")

'Beregn og vis endringen som skylder kunden

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

lblChangeOwed.Text =FormatCurrency(change_owed)

Ellers

«Vis en melding som informerer kunden om at de ikke har nok penger

MessageBox.Show("Beklager, du har ikke nok penger til å kjøpe en smultring.", "Utilstrekkelig midler")

Avslutt If

End Sub

Slutt klasse

```

Denne koden forutsetter at det finnes flere kontroller på skjemaet ditt, for eksempel etiketter kalt `lblInventoryCount` og `lblDonutPrice`, en tekstboks kalt `txtbxMoneyGiven` for å legge inn pengene kunden gir, og en knapp kalt `btnBuyDonut` for å starte smultringkjøpet . Det kan hende du må endre koden slik at den samsvarer med de faktiske navnene på kontrollene og utformingen av skjemaet.