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!

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.
çalışırsa çok teşekkür umarım kodlar fuat hocanın gibi eksik değildir
çalışmıyo :agla::agla:
denendi kesinlikle çalışıyor..
saol dostum yararlı bunun gibi düşünürek farklı şeyler üretmeye bire bir:sasir:
hocam değişkenleri nerede tanımlıyoruz yani kod sayfasının neresinde
Kod sayfasının en başında tanımlıyoruz public class.. ile başlayan satırın altına tanımlıyoruz.
kardeş ii hoşda bunları neye yazıcas command 1 butonunamı form 1 mi textboxsamı daha açık bu dersleri anlatırsanız sevinirim
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.
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:
hocam public class neresi oluyor ve radio button hangisi oluyo?:-dusun:
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.
çalışmıyor :sasir:
:uzul::agla:çalışmıyo
Hocam veritabanına kayıt olayını anlatan dersiiz varmıdır
:gul:
öğrenci kayıt programı yapabilirmisin acaba.bu konuda yardıma ihtiyacım var biraz meziyetli bir program...
arkidaşlar radio button var onun içine yazcz yne %20nin içine:D:D:D:hayret::-dusun::gul::agla::kirp::sasir:
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.
cokkk tesekkurler , calıstırdıgım ılk kodlama oldu .. sabrına hayran olmamak elde degıl :)
anlamadım teşekkürler ama sanki bana kod eksikmiş gibi geldi kardeşim
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
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.
autopostback i açmassanızı çalışmaz hepsinin behaviors bölümünden autopostback ini true yapın çalışacaktır...:kirp:
cok sağol aga ya
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.
gayet güzel çalışıyo dikkatli bakın yeter

Yukarı Git