Quelqu'un a-t-il un code pour le projet VB donut Shoppe ?

Code du projet VB Donut Shoppe :

```visuel basique

Option explicite

Formulaire de classe publique1

Le sous-formulaire privé Form1_Load (expéditeur en tant qu'objet, et en tant qu'EventArgs) gère MyBase.Load

'Initialiser les variables d'inventaire du magasin de beignets

Dim donuts_in_stock Comme entier =100

Dim donut_price Comme Double =2,50

'Afficher l'inventaire dans l'étiquette lblInventoryCount

lblInventoryCount.Text =donuts_in_stock

'Afficher le prix du beignet dans l'étiquette lblDonutPrice

lblDonutPrice.Text =donut_price

Fin du sous-marin

Le sous-privé btnBuyDonut_Click (expéditeur en tant qu'objet, et en tant qu'EventArgs) gère btnBuyDonut.Click

'Réduire d'un le nombre de beignets en stock

beignets_in_stock =beignets_in_stock - 1

'Mettre à jour l'étiquette lblInventoryCount avec le décompte d'inventaire mis à jour

lblInventoryCount.Text =donuts_in_stock

'Vérifiez si le client a assez d'argent pour acheter un beignet

Si txtbxMoneyGiven.Text>=donut_price Alors

'Afficher un message informant le client que son achat a réussi

MessageBox.Show("Profitez de votre beignet !", "Achat réussi")

'Calculer et afficher la monnaie due au client

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

lblChangeOwed.Text =FormatCurrency(change_owed)

Autre

'Afficher un message informant le client qu'il n'a pas assez d'argent

MessageBox.Show("Désolé, vous n'avez pas assez d'argent pour acheter un beignet.", "Fonds insuffisants")

Fin si

Fin du sous-marin

Fin du cours

```

Ce code suppose l'existence de plusieurs contrôles sur votre formulaire, tels que des étiquettes nommées « lblInventoryCount » et « lblDonutPrice », une zone de texte nommée « txtbxMoneyGiven » pour saisir l'argent donné par le client et un bouton nommé « btnBuyDonut » pour lancer l'achat du beignet. . Vous devrez peut-être modifier le code pour qu'il corresponde aux noms réels de vos contrôles et à la disposition de votre formulaire.