Basit Bir Cafe Ödeme Hesaplama

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Cafede bulunan birkaç çeşit yiyecek ve içeceği hesaplayacak, eğer ödemeyi yapanın bir üyeyse %20 indirimden yararlanacağı bir program yapalım.

Kullanacağımız nesneleri resmimizde görebiliyorsunuz.

RadioButton1_Click Olayına:

 If CheckBox1.Checked = True Then
a = 2

End If
If CheckBox2.Checked = True Then
b = 3

End If
If CheckBox3.Checked = True Then
c = 2.5

End If
If CheckBox4.Checked = True Then
d = 1.5

End If
If CheckBox5.Checked = True Then
f = 0.5

End If
TextBox1.Text = (a + b + c + d + f) * 0.8

RadioButton2_Click Olayına

 If CheckBox1.Checked = True Then
a = 2

End If
If CheckBox2.Checked = True Then
b = 3

End If
If CheckBox3.Checked = True Then
c = 2.5

End If
If CheckBox4.Checked = True Then
d = 1.5

End If
If CheckBox5.Checked = True Then
f = 0.5

End If
TextBox1.Text = (a + b + c + d + f)

Değişkenlerimizi tanımlıyoruz:

Dim a, b, c, d, f As Double

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .

 

[Karcemackers]

Paylasım icin tesekkurler.

 

[ßyMesMes]

Rica ederim.

 

[umit99]

Eline sağlık.