Er der nogen, der har en kode til VB donut Shoppe-projektet?

VB Donut Shoppe-projektkode:

```visuel grundlæggende

Mulighed Eksplicit

Offentlig klasseformular 1

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

'Initialiser donut shoppe-beholdningsvariabler

Dim donuts_in_stock Som heltal =100

Dim donut_price As Double =2,50

'Vis beholdningsantallet i etiketten lblInventoryCount

lblInventoryCount.Text =donuts_in_stock

'Vis donutprisen i lblDonutPrice-etiketten

lblDonutPrice.Text =donut_price

Slut Sub

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

'Reducer antallet af donuts på lager med én

donuts_in_stock =donuts_in_stock - 1

'Opdater etiketten lblInventoryCount med den opdaterede beholdningstælling

lblInventoryCount.Text =donuts_in_stock

'Tjek, om kunden har penge nok til at købe en doughnut

Hvis txtbxMoneyGiven.Text>=donut_price Så

'Vis en besked, der informerer kunden om, at deres køb var vellykket

MessageBox.Show("Nyd din donut!", "Købet lykkedes")

'Beregn og vis ændringen, som kunden skylder

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

lblChangeOwed.Text =FormatCurrency(change_owed)

Andet

'Vis en besked, der informerer kunden om, at de ikke har penge nok

MessageBox.Show("Beklager, du har ikke penge nok til at købe en doughnut.", "Utilstrækkelige midler")

Afslut hvis

Slut Sub

Slut klasse

```

Denne kode antager eksistensen af ​​flere kontrolelementer på din formular, såsom etiketter med navnet `lblInventoryCount` og `lblDonutPrice`, en tekstboks med navnet `txtbxMoneyGiven` til at indtaste de penge, kunden giver, og en knap med navnet `btnBuyDonut` for at starte donutkøbet . Du skal muligvis ændre koden, så den matcher de faktiske navne på dine kontroller og layoutet af din formular.