Hat jemand einen Code für das VB-Donut-Shoppe-Projekt?

VB Donut Shoppe-Projektcode:

„Visual Basic

Option explizit

Öffentliches Klassenformular1

Private Sub Form1_Load(Sender als Objekt, e als EventArgs) behandelt MyBase.Load

„Donut-Shoppe-Inventarvariablen initialisieren.“

Dimmen Sie donuts_in_stock als Ganzzahl =100

Dim donut_price As Double =2,50

'Zeigen Sie die Bestandsanzahl im Label lblInventoryCount an

lblInventoryCount.Text =donuts_in_stock

'Zeigen Sie den Donut-Preis im lblDonutPrice-Label an

lblDonutPrice.Text =donut_price

Sub beenden

Private Sub btnBuyDonut_Click(sender As Object, e As EventArgs) Behandelt btnBuyDonut.Click

„Reduzieren Sie die Anzahl der Donuts auf Lager um eins.“

donuts_in_stock =donuts_in_stock - 1

'Aktualisieren Sie das lblInventoryCount-Label mit der aktualisierten Inventaranzahl

lblInventoryCount.Text =donuts_in_stock

„Überprüfen Sie, ob der Kunde genug Geld hat, um einen Donut zu kaufen.“

Wenn txtbxMoneyGiven.Text>=donut_price Dann

„Zeigen Sie eine Nachricht an, die den Kunden darüber informiert, dass sein Kauf erfolgreich war.“

MessageBox.Show("Viel Spaß mit Ihrem Donut!", "Kauf erfolgreich")

„Berechnen Sie das dem Kunden geschuldete Wechselgeld und zeigen Sie es an.“

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

lblChangeOwed.Text =FormatCurrency(change_owed)

Anders

„Zeigen Sie eine Nachricht an, die den Kunden darüber informiert, dass er nicht genug Geld hat.“

MessageBox.Show("Entschuldigung, Sie haben nicht genug Geld, um einen Donut zu kaufen.", "Unzureichende Mittel")

Ende wenn

Sub beenden

Unterricht beenden

„

Dieser Code geht davon aus, dass in Ihrem Formular mehrere Steuerelemente vorhanden sind, z. B. Beschriftungen mit den Namen „lblInventoryCount“ und „lblDonutPrice“, ein Textfeld mit dem Namen „txtbxMoneyGiven“ zur Eingabe des vom Kunden gegebenen Geldes und eine Schaltfläche mit dem Namen „btnBuyDonut“, um den Donut-Kauf zu starten . Möglicherweise müssen Sie den Code ändern, um ihn an die tatsächlichen Namen Ihrer Steuerelemente und das Layout Ihres Formulars anzupassen.