Qualcuno ha un codice per il progetto VB donut Shoppe?

Codice progetto VB Donut Shoppe:

"Visual Basic".

Opzione esplicita

Modulo di classe pubblica1

Private Sub Form1_Load (mittente come oggetto, e come EventArgs) gestisce MyBase.Load

'Inizializza le variabili di inventario di Donut Shoppe

Dim donuts_in_stock come numero intero =100

Dim donut_price As Double =2,50

'Visualizza il conteggio dell'inventario nell'etichetta lblInventoryCount

lblInventoryCount.Text =ciambelle_in_stock

'Visualizza il prezzo della ciambella nell'etichetta lblDonutPrice

lblDonutPrice.Text =ciambella_prezzo

Fine sott

Sub privato btnBuyDonut_Click(mittente As Object, e As EventArgs) Gestisce btnBuyDonut.Click

'Riduci di uno il numero di ciambelle in stock

ciambelle_in_magazzino =ciambelle_in_magazzino - 1

'Aggiorna l'etichetta lblInventoryCount con il conteggio dell'inventario aggiornato

lblInventoryCount.Text =ciambelle_in_stock

'Controlla se il cliente ha abbastanza soldi per comprare una ciambella

Se txtbxMoneyGiven.Text>=donut_price Allora

'Visualizza un messaggio che informa il cliente che il suo acquisto è andato a buon fine

MessageBox.Show("Goditi la tua ciambella!", "Acquisto riuscito")

'Calcola e visualizza il resto dovuto al cliente

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

lblChangeOwed.Text =FormatCurrency(change_owed)

Altro

'Visualizza un messaggio che informa il cliente che non ha abbastanza soldi

MessageBox.Show("Spiacenti, non hai abbastanza soldi per comprare una ciambella.", "Fondi insufficienti")

Fine se

Fine sott

Fine lezione

```

Questo codice presuppone l'esistenza di diversi controlli nel modulo, come etichette denominate "lblInventoryCount" e "lblDonutPrice", una casella di testo denominata "txtbxMoneyGiven" per inserire il denaro donato dal cliente e un pulsante denominato "btnBuyDonut" per avviare l'acquisto della ciambella . Potrebbe essere necessario modificare il codice in modo che corrisponda ai nomi effettivi dei controlli e al layout del modulo.