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:
RadioButton2_Click Olayına
Değişkenlerimizi tanımlıyoruz:
Kullanacağımız nesneleri resmimizde görebiliyorsunuz.
RadioButton1_Click Olayına:
Kod:
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.8RadioButton2_Click Olayına
Kod:
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:
Kod:
Dim a, b, c, d, f As Double
Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)
Benzer konular
