Alguém tem um código para o projeto VB donut Shoppe?

Aqui está um exemplo de código para um projeto VB Donut Shoppe:

Código do projeto VB Donut Shoppe:

```visual básico
Opção Explícita

Formulário de aula pública1
Private Sub Form1_Load (remetente como objeto, e como EventArgs) manipula MyBase.Load
'Inicializar variáveis ​​de inventário da loja de donuts
Dim donuts_in_stock como inteiro =100
Dim donut_price como duplo =2,50

'Exibe a contagem do inventário no rótulo lblInventoryCount
lblInventoryCount.Text =donuts_in_stock

'Exibe o preço do donut no rótulo lblDonutPrice
lblDonutPrice.Text =donut_price

Finalizar sub

Sub privado btnBuyDonut_Click (remetente como objeto, e como EventArgs) manipula btnBuyDonut.Click
'Reduzir o número de donuts em estoque em um
donuts_in_stock =donuts_in_stock - 1

'Atualize o rótulo lblInventoryCount com a contagem de inventário atualizada
lblInventoryCount.Text =donuts_in_stock

'Verifique se o cliente tem dinheiro suficiente para comprar um donut
Se txtbxMoneyGiven.Text>=donut_price Então
'Exibir uma mensagem informando ao cliente que sua compra foi realizada com sucesso
MessageBox.Show("Aproveite seu donut!", "Compra bem-sucedida")

'Calcular e exibir o troco devido ao cliente
Dim change_owed As Double =Val(txtbxMoneyGiven.Text) - donut_price
lblChangeOwed.Text =FormatCurrency(change_owed)
Outro
'Exibir uma mensagem informando ao cliente que ele não tem dinheiro suficiente
MessageBox.Show("Desculpe, você não tem dinheiro suficiente para comprar um donut.", "Fundos insuficientes")
Terminar se

Finalizar sub

Fim da aula
```

Este código assume a existência de vários controles em seu formulário, como rótulos chamados `lblInventoryCount` e `lblDonutPrice`, uma caixa de texto chamada `txtbxMoneyGiven` para inserir o dinheiro que o cliente dá e um botão chamado `btnBuyDonut` para iniciar a compra do donut . Talvez seja necessário modificar o código para corresponder aos nomes reais dos seus controles e ao layout do seu formulário.