Έχει κανείς κωδικό για το έργο VB donut Shoppe;

Κωδικός έργου VB Donut Shoppe:

`` Visual Basic

Επιλογή ρητή

Έντυπο δημόσιας τάξης 1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

«Αρχικοποιήστε τις μεταβλητές αποθέματος donut shoppe

Dim donuts_in_stock Ως ακέραιος =100

Dim donut_price As Double =2,50

«Εμφανίστε τον αριθμό αποθεμάτων στην ετικέτα lblInventoryCount

lblInventoryCount.Text =donuts_in_stock

«Εμφανίστε την τιμή του ντόνατ στην ετικέτα lblDonutPrice

lblDonutPrice.Text =donut_price

End Sub

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

«Μειώστε τον αριθμό των ντόνατς στο απόθεμα κατά ένα

donuts_in_stock =donuts_in_stock - 1

«Ενημερώστε την ετικέτα lblInventoryCount με τον ενημερωμένο αριθμό αποθεμάτων

lblInventoryCount.Text =donuts_in_stock

«Ελέγξτε αν ο πελάτης έχει αρκετά χρήματα για να αγοράσει ένα ντόνατ

Αν txtbxMoneyGiven.Text>=donut_price Τότε

«Εμφανίστε ένα μήνυμα που ενημερώνει τον πελάτη ότι η αγορά του ήταν επιτυχής

MessageBox.Show ("Απολαύστε το ντόνατ σας!", "Η αγορά επιτυχής")

«Υπολογίστε και εμφανίστε την αλλαγή που οφείλεται στον πελάτη

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

lblChangeOwed.Text =FormatCurrency(change_owed)

Αλλού

«Εμφανίστε ένα μήνυμα που ενημερώνει τον πελάτη ότι δεν έχει αρκετά χρήματα

MessageBox.Show ("Λυπούμαστε, δεν έχετε αρκετά χρήματα για να αγοράσετε ένα ντόνατ.", "Ανεπαρκή κεφάλαια")

Τέλος Αν

End Sub

Τελική τάξη

```

Αυτός ο κωδικός προϋποθέτει την ύπαρξη πολλών στοιχείων ελέγχου στη φόρμα σας, όπως ετικέτες με το όνομα "lblInventoryCount" και "lblDonutPrice", ένα πλαίσιο κειμένου με το όνομα "txtbxMoneyGiven" για την εισαγωγή των χρημάτων που δίνει ο πελάτης και ένα κουμπί με το όνομα "btnBuyDonut" για την έναρξη της αγοράς ντόνατ . Ίσως χρειαστεί να τροποποιήσετε τον κώδικα ώστε να ταιριάζει με τα πραγματικά ονόματα των στοιχείων ελέγχου και τη διάταξη της φόρμας σας.