Does anyone have a code for VB donut Shoppe project?

Here is a sample code for a VB Donut Shoppe project:

VB Donut Shoppe Project Code:

```visual basic

Option Explicit

Public Class Form1

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

'Initialize donut shoppe inventory variables

Dim donuts_in_stock As Integer = 100

Dim donut_price As Double = 2.50

'Display the inventory count in the lblInventoryCount label

lblInventoryCount.Text = donuts_in_stock

'Display the donut price in the lblDonutPrice label

lblDonutPrice.Text = donut_price

End Sub

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

'Reduce the number of donuts in stock by one

donuts_in_stock = donuts_in_stock - 1

'Update the lblInventoryCount label with the updated inventory count

lblInventoryCount.Text = donuts_in_stock

'Check if the customer has enough money to buy a donut

If txtbxMoneyGiven.Text >= donut_price Then

'Display a message informing the customer that their purchase was successful

MessageBox.Show("Enjoy your donut!", "Purchase Successful")

'Calculate and display the change owed to the customer

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

lblChangeOwed.Text = FormatCurrency(change_owed)

Else

'Display a message informing the customer that they do not have enough money

MessageBox.Show("Sorry, you don't have enough money to buy a donut.", "Insufficient Funds")

End If

End Sub

End Class

```

This code assumes the existence of several controls on your form, such as labels named `lblInventoryCount` and `lblDonutPrice`, a textbox named `txtbxMoneyGiven` to input the money the customer gives, and a button named `btnBuyDonut` to initiate the donut purchase. You may need to modify the code to match the actual names of your controls and the layout of your form.