Dört İşlem Yapan Program

Değişik bir dört işlem stili çalışması..

Evet arkadaşlar, kullanacağımız kontroller:
5 adet CommandBtton , 5 adets Label, 3 adet TextBox'dır..

Form görünümünü istediğiniz gibi yapabilirsiniz . Ben aşağıdaki gibi yaptım.



Dikkat edilmesi gereken nokta kontrolleri yanlış yere yerleştirmemektir. Bunu önlemek için kontrollerin üzerine adlarını yazdım.



Şimdi program bize ne yapacak?

Program bize 4 işlemi yapacak, aynı zamanda yapılan işlemi "Label4"e yazdıracak, eğer "TextBox2" kutusuna 0 değeri girilirse, bilindiği gibi bir sayının sıfıra bölümü tanımsız olacağından bize hata mesajı verecek ve bir de ikinci işlemler yapabilmemiz için formu temizleyecek.

Geldik Şimdi Kodlara:


1.CommandButon::

    Private Sub Command1_Click() 

     Label4.Caption = "+"   'Labelin ismini değiştiriyoruz'  

     Text3.Text = Val(Text1) + Val(Text2) 'İşlemi yaptırıyoruz'

    End Sub




2.CommandButon::

    Private Sub Command2_Click()

     Label4.Caption = "-"    'Labelin ismini değiştiriyoruz'  

     Text3.Text = Val(Text1) - Val(Text2) 'İşlemi yaptırıyoruz'

    End Sub




3.CommandButon:: 

    Private Sub Command3_Click()

     Label4.Caption = "*"    'Labelin ismini değiştiriyoruz'  

     Text3.Text = Val(Text1) * Val(Text2) 'İşlemi yaptırıyoruz'

    End Sub




4.CommandButon::

    Private Sub Command4_Click()

     If Val(Text2) = 0 Then    'Burada text2 kontrol ediliyor eğer 0 ise hata mesajı veriyor değilse işlemi yapıyor'

       MsgBox "Veri Hatası", , "Sıfıra Bölünme Hatası"

     Else

       Label4.Caption = "/"    'Labelin ismini değiştiriyoruz'  

       Text3.Text = Val(Text1) / Val(Text2) 'İşlemi yaptırıyoruz'

       End If

    End Sub




5.CommandButon::

    Private Sub Command5_Click()

     Text1.Text = ""

     Text2.Text = ""

     Text3.Text = ""

     Label4.Caption = ""

    End Sub



Kodlar bitti şimdi de programımızın çıktısına bakalım:













Kolay gelsin....
  • Etiketler;
Yorum Yaz

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

paylaşım için saol
ben labellerin ismini ayarlayamıorum yardım ederseniz ii olur
Labelleri oluşturduktan sonra sağ tarafta özellikleri çıkıcak orda caption diye birşey yazar ve label1 ya label 2 falan yazar işte ordan labellerin ismini değiştirebilirsin..
cok saolun
paylaşım için Teşekkürler
:gul: paylaşım için teşekkür ederim...:D
vERY vERY vERY tHANKS yANE :D :D:D:gul:
kodları Command4_Click() fln dio sende bende hep 1 sen mi ayarlıon 4 die :S
ya bende yaptıktan sonra en sonda compile error Procedure fln filan hata dio ve Private Sub Command1_Click() hata gösterior :S
çok guzel bende vb yeni başladim
çok teşekkür hocam ben yeni başladım ama biraz anlıyorum vede geliştirecem iyice
cok guzel bir calisma
visual basic in express edition versiyonuylamı çalışıyorsunuz.visual basic 6 ile express edition arasında çok fark varmı?
basic ve asp öğrenmeye çalışıyorum takıldığım yerlerde bana yardımcı olacak arkadaşlar var mı?
Tabi ki arkadaşım burası paylaşım yer ben inanıyorum ki herkes yardımcı olur.
Arkadaşım şunu kullanabilirsin. Örn : text1.text =text1.text +"1"
ÇOK FAYDALI OLDU DEVAMINI BEKLERİZ...
çok iyi oldu benim ödevim eczane takip listesi bulursanız sevinirim:agla:
sool hocam cok guzel olmuş fakat bana yaptigimiz işlemleri kayıt edip yani mr,mc sini de yapabilirmiyiz
teşekkür ederim güzel çalışmalar yeni başlayanlar için devamını bekliyoruz
Hocam kodları nereye yazacağımı bulamadım yardımcı olur musunuz... Her yazdığım yerde, kırmızı işaretler çıkıyor.:agla:
Hocam command buttonlara kodları nasıl ekleyeceğimi bilmiyorum yardımcı olur musunuz... Kodu her yere ekleyerek denedim kırmızı yazıların altında kırmızı işaretler var tıpkı word de yanlış yazıldığında çıkan işaretler gibi...
ya ben visual basice daha yeni başladım bilmediğim ve anlamadığım bir çok şey var yardımcı olursanız sevinirim
çok güzel we faydalı konulara değiniyorsunuz. ellerinize sağlık...
sagolasın hem ögrendim hem yaptım:)
hocam çok teşekkür ederim saol::kirp:
ya su command buttonları bulamadım 2008 de button koydum normal hata verdi command buttonlar nerde visual basic 2008 de şimdiden teşekkürler
tmm yazmışsınız kodları ama bunlar çalışmıyo nolur çalışan daha özellikli bi hesap makinesi yaparsanız çok sevinirim ...
peki ala 2,6*2 dersek sonuç kaç çıkar, veya 7,5+7,5 kaç çıkar bu programla. bunları nasıl hesaplatabilirim ?
hocam bu işlemde birtane sayı girmedikmi weya harf girdikmi hata werir onun yerine sunları yazsan private sub command2_click() kontrol1=isnumeric(text1.text) kontrol2=isnumeric(text2.text) if text1=text"" or text2.text="" or kontrol1=0 or kontrol2 = 0 then msgbox "Sayıları Girdiğinizden Emin Olunuz",48,"dikkaT" else

Yukarı Git