¿Alguien tiene un código para el proyecto VB donut Shoppe?

Código del proyecto VB Donut Shoppe:

```visual básico

Opción explícita

Formulario de clase pública1

Private Sub Form1_Load (remitente como objeto, e como EventArgs) maneja MyBase.Load

'Inicializar variables de inventario de tienda de donas

Dim donuts_in_stock Como entero =100

Dim donut_price Como Doble =2,50

'Mostrar el recuento de inventario en la etiqueta lblInventoryCount

lblInventoryCount.Text =donuts_in_stock

'Muestra el precio del donut en la etiqueta lblDonutPrice

lblDonutPrice.Text =precio_donut

Subtítulo final

Sub privado btnBuyDonut_Click (remitente como objeto, e como EventArgs) maneja btnBuyDonut.Click

'Reducir en uno el número de donas en stock

donas_en_existencia =donas_en_existencia - 1

'Actualice la etiqueta lblInventoryCount con el recuento de inventario actualizado

lblInventoryCount.Text =donuts_in_stock

'Compruebe si el cliente tiene suficiente dinero para comprar un donut

Si txtbxMoneyGiven.Text>=donut_price Entonces

'Mostrar un mensaje informando al cliente que su compra fue exitosa

MessageBox.Show ("¡Disfruta tu dona!", "Compra exitosa")

'Calcular y mostrar el cambio adeudado al cliente

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

lblChangeOwed.Text =FormatCurrency(cambio_debido)

Demás

'Mostrar un mensaje informando al cliente que no tiene suficiente dinero

MessageBox.Show("Lo sentimos, no tienes suficiente dinero para comprar un donut.", "Fondos insuficientes")

Terminar si

Subtítulo final

Fin de clase

```

Este código asume la existencia de varios controles en su formulario, como etiquetas llamadas `lblInventoryCount` y `lblDonutPrice`, un cuadro de texto llamado `txtbxMoneyGiven` para ingresar el dinero que da el cliente y un botón llamado `btnBuyDonut` para iniciar la compra de donas. . Es posible que deba modificar el código para que coincida con los nombres reales de sus controles y el diseño de su formulario.