Basit Bir Cafe Ödeme Hesaplama

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.

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

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

• 12 yıl önce
EDİTÖRÜN NOTU: Değerli üyemiz, tamamen büyük harflerden oluşan yorumlar yazmayınız. Yorumunuzu lütfen tekrar yazınız.
• 12 yıl önce
çalışırsa çok teşekkür umarım kodlar fuat hocanın gibi eksik değildir
• 12 yıl önce
çalışmıyo :agla::agla:
• 12 yıl önce
denendi kesinlikle çalışıyor..
• 12 yıl önce
saol dostum yararlı bunun gibi düşünürek farklı şeyler üretmeye bire bir:sasir:
• 12 yıl önce
hocam değişkenleri nerede tanımlıyoruz yani kod sayfasının neresinde
• 12 yıl önce
Kod sayfasının en başında tanımlıyoruz public class.. ile başlayan satırın altına tanımlıyoruz.
• 12 yıl önce
kardeş ii hoşda bunları neye yazıcas command 1 butonunamı form 1 mi textboxsamı daha açık bu dersleri anlatırsanız sevinirim
• 12 yıl önce
Kardeşim Dikkat ettiysen olayda buton yok tüm işlemleri radiobuton seçimleri yapıyor kodları nereye yazıcağımızda üstlerinde belirtilmiş daha dikkatli baktıktan sonra yorum yaparsan sevinirim.
• 12 yıl önce
bende çalıştıramadım radiobutton yok benimkinde texbox filan tamamda kardeş bende kitap filanda yok tamamen ezbere rastgele misali yani senden download edecem 40 dan sonra taşra lisesi eğitimi ile ancak gidiyoz :agla:
• 11 yıl önce
hocam public class neresi oluyor ve radio button hangisi oluyo?:-dusun:
• 11 yıl önce
Kod sayfamızın en başında public class satırın görüceksin. radio butonlar ise "üye" ve "üye(%20 indirimli)" olmak üzere 2 tane bulunuyor. Radio buton1 kodlarını "üye(%20 indirimli)" içine. Radio buton2 kodlarını "üye" içine yazıcaksın.
• 11 yıl önce
çalışmıyor :sasir:
• 11 yıl önce
:uzul::agla:çalışmıyo
• 11 yıl önce
Hocam veritabanına kayıt olayını anlatan dersiiz varmıdır
• 11 yıl önce
:gul:
• 11 yıl önce
öğrenci kayıt programı yapabilirmisin acaba.bu konuda yardıma ihtiyacım var biraz meziyetli bir program...
• 11 yıl önce
arkidaşlar radio button var onun içine yazcz yne %20nin içine:D:D:D:hayret::-dusun::gul::agla::kirp::sasir:
• 11 yıl önce
dostum işaretlemediği zaman zaten false yani 0 değerini döndürüyor ve onu 0 olarak alıyor. Bu yüzden gerek kalmıyor.
• 11 yıl önce
cokkk tesekkurler , calıstırdıgım ılk kodlama oldu .. sabrına hayran olmamak elde degıl :)
• 11 yıl önce
anlamadım teşekkürler ama sanki bana kod eksikmiş gibi geldi kardeşim
• 11 yıl önce
ben bu işlere daha yeni başıyorum. ama şöyle bir düündüm de önceden belirlenmiş sayıları toplamaktansa chekbox ların yanına birer tane de textbox koyarsam içine yazacağım rakamları yazınca onları toplayacaktır. işte kodlar Public Class Form1 Dim a, b, c, d, f As Double Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged If CheckBox1.Checked = True Then a = TextBox2.Text End If If CheckBox2.Checked = True Then b = TextBox3.Text End If If CheckBox3.Checked = True Then c = TextBox4.Text End If If CheckBox4.Checked = True Then d = TextBox5.Text End If If CheckBox5.Checked = True Then f = TextBox6.Text End If TextBox1.Text = (a + b + c + d + f) * 0.8 End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged If CheckBox1.Checked = True Then a = TextBox2.Text End If If CheckBox2.Checked = True Then b = TextBox3.Text End If If CheckBox3.Checked = True Then c = TextBox4.Text End If If CheckBox4.Checked = True Then d = TextBox5.Text End If If CheckBox5.Checked = True Then f = TextBox6.Text End If TextBox1.Text = (a + b + c + d + f) End Sub End Class
• 11 yıl önce
arkadaşlar aynısını kopyalayıp çalıştırmaya çalışmayın kodları kendiniz yazın ve yeni değişiklikler yapın.. tşkler.
• 11 yıl önce
autopostback i açmassanızı çalışmaz hepsinin behaviors bölümünden autopostback ini true yapın çalışacaktır...:kirp:
• 11 yıl önce
cok sağol aga ya
• 11 yıl önce
Denemedim ama kodlara baktım bende birkaç aydır ( belki 5-6 tam bilmiyorum :D ) VB deyim. Dediğim gibi kodlara baktım çalışıyor :D. Bir de furkhan22 ede iyi düşünmüş Textbox kullanmak iyi.
• 10 yıl önce
gayet güzel çalışıyo dikkatli bakın yeter

Yukarı Git