VB donut Shoppe projesi için kodu olan var mı?

VB Donut Shoppe Proje Kodu:

```görsel temel

Seçenek Açık

Herkese Açık Sınıf Formu1

Özel Alt Form1_Load(gönderen As Object, e As EventArgs) MyBase.Load'u yönetir

'Donut shoppe envanter değişkenlerini başlat

Tamsayı =100 olarak donuts_in_stock'u karartın

Dim donut_price Çift Olarak =2,50

'Envanter sayısını lblInventoryCount etiketinde görüntüle

lblInventoryCount.Text =donuts_in_stock

'Donut fiyatını lblDonutPrice etiketinde göster

lblDonutPrice.Text =donut_price

Son Alt

Özel Alt btnBuyDonut_Click(nesne olarak gönderen, EventArgs olarak gönderen) btnBuyDonut.Click'i yönetir

'Stokta bulunan donut sayısını bir azaltın'

donuts_in_stock =donuts_in_stock - 1

'lblInventoryCount etiketini güncellenmiş envanter sayısıyla güncelleyin

lblInventoryCount.Text =donuts_in_stock

'Müşterinin çörek almaya yetecek kadar parası olup olmadığını kontrol edin

If txtbxMoneyGiven.Text>=donut_price O zaman

'Müşteriye satın alma işleminin başarılı olduğunu bildiren bir mesaj görüntüle

messageBox.Show("Çöreğinizin tadını çıkarın!", "Satın Alma Başarılı")

'Müşteriye borçlu olunan değişikliği hesaplayın ve görüntüleyin

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

lblChangeOwed.Text =FormatCurrency(change_owed)

Başka

'Müşteriye yeterli parası olmadığını bildiren bir mesaj görüntüle

messageBox.Show("Üzgünüz, donut almaya yetecek kadar paranız yok.", "Para Yetersiz")

Eğer Sonlandır

Son Alt

Sınıfı Sonlandır

''''

Bu kod, formunuzda "lblInventoryCount" ve "lblDonutPrice" adlı etiketler, müşterinin verdiği parayı girmek için "txtbxMoneyGiven" adlı bir metin kutusu ve çörek satın alımını başlatmak için "btnBuyDonut" adlı bir düğme gibi çeşitli denetimlerin varlığını varsayar. . Kodu, kontrollerinizin gerçek adlarıyla ve formunuzun düzeniyle eşleşecek şekilde değiştirmeniz gerekebilir.