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!

• 12 yıl önce
paylaşım için saol
• 12 yıl önce
ben labellerin ismini ayarlayamıorum yardım ederseniz ii olur
• 12 yıl önce
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..
• 12 yıl önce
cok saolun
• 12 yıl önce
paylaşım için Teşekkürler
• 12 yıl önce
:gul: paylaşım için teşekkür ederim...:D
• 12 yıl önce
vERY vERY vERY tHANKS yANE :D :D:D:gul:
• 12 yıl önce
kodları Command4_Click() fln dio sende bende hep 1 sen mi ayarlıon 4 die :S
• 12 yıl önce
ya bende yaptıktan sonra en sonda compile error Procedure fln filan hata dio ve Private Sub Command1_Click() hata gösterior :S
• 12 yıl önce
çok guzel bende vb yeni başladim
• 12 yıl önce
çok teşekkür hocam ben yeni başladım ama biraz anlıyorum vede geliştirecem iyice
• 12 yıl önce
cok guzel bir calisma
• 12 yıl önce
visual basic in express edition versiyonuylamı çalışıyorsunuz.visual basic 6 ile express edition arasında çok fark varmı?
• 12 yıl önce
basic ve asp öğrenmeye çalışıyorum takıldığım yerlerde bana yardımcı olacak arkadaşlar var mı?
• 12 yıl önce
Tabi ki arkadaşım burası paylaşım yer ben inanıyorum ki herkes yardımcı olur.
• 12 yıl önce
Arkadaşım şunu kullanabilirsin. Örn : text1.text =text1.text +"1"
• 12 yıl önce
ÇOK FAYDALI OLDU DEVAMINI BEKLERİZ...
• 12 yıl önce
çok iyi oldu benim ödevim eczane takip listesi bulursanız sevinirim:agla:
• 12 yıl önce
sool hocam cok guzel olmuş fakat bana yaptigimiz işlemleri kayıt edip yani mr,mc sini de yapabilirmiyiz
• 12 yıl önce
teşekkür ederim güzel çalışmalar yeni başlayanlar için devamını bekliyoruz
• 12 yıl önce
Hocam kodları nereye yazacağımı bulamadım yardımcı olur musunuz... Her yazdığım yerde, kırmızı işaretler çıkıyor.:agla:
• 12 yıl önce
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...
• 12 yıl önce
ya ben visual basice daha yeni başladım bilmediğim ve anlamadığım bir çok şey var yardımcı olursanız sevinirim
• 12 yıl önce
çok güzel we faydalı konulara değiniyorsunuz. ellerinize sağlık...
• 12 yıl önce
sagolasın hem ögrendim hem yaptım:)
• 11 yıl önce
hocam çok teşekkür ederim saol::kirp:
• 11 yıl önce
ya su command buttonları bulamadım 2008 de button koydum normal hata verdi command buttonlar nerde visual basic 2008 de şimdiden teşekkürler
• 11 yıl önce
tmm yazmışsınız kodları ama bunlar çalışmıyo nolur çalışan daha özellikli bi hesap makinesi yaparsanız çok sevinirim ...
• 11 yıl önce
peki ala 2,6*2 dersek sonuç kaç çıkar, veya 7,5+7,5 kaç çıkar bu programla. bunları nasıl hesaplatabilirim ?
• 11 yıl önce
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