Visual Basic IF Komutunun Kullanımı

Visual Basic Dilinde if komutunun kullanılmasını anlatan yeni başlayanlar için yararlı bir ders olacaktır.

Visual Basic Dilinde if komutunun kullanılmasını anlatan yeni başlayanlar için yararlı bir ders olacaktır.

Bu derste size visual basic dilinde if(eğer) komutunun kullanımını anlatacağım.

UYARI : Bu konuyu küçümsemeyelim Visual Basic dilinde ve daha birçok programlama dilinde çok önemli bir komuttur sık sık kullanmak zorunda kalacaksınız.

İlk olarak formumuza 2 TextBox ve bir adet Button ekleyelim. Yani şu şekilde;



Şimdi biz 2 sayının toplanmasını istiyoruz ama kullanıcı buralara sayı yazmadanda topla butonuna basabilir eğer basarsa program hata verir ve istenmeyen bir durum ortaya çıkmış olur bunu engellmenin 2 yolu vardır.

1.) İf Kullanımı
2.) Try-Catch-Finally Kullanımı (Bunu daha sonraki derslerimde ayrıntılı bir şekilde anlatacağım)

Biz Bu Problemi İf İle Çözmeye Uğraşacağız;


Public Class Form1

    Dim sayi1, sayi2, sonuc As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = " " Or TextBox2.Text = " " Then

            MsgBox("Lütfen bütün alanları eksiksiz doldurunuz")

        Else

            sayi1 = TextBox1.Text

            sayi2 = TextBox2.Text

            sonuc = Val(TextBox1.Text) + Val(TextBox2.Text)

            MsgBox(sonuc)

        End If

    End Sub

End Class



AÇIKLAMA : İlk Olarak 3 adet integer türünde değişken tanımladık ve sayi1 değişkenine TextBox1'i sayi2 değişkenine ise TextBox2'yi atadık.

Sonuc değişkenimize ise sayi1 ile sayi2 değişkenlerinin toplamını atattırmış olduk.

Bu yaptığımız işlem sıradan toplama işlemi daha sonra en üste çıktık ve bir if komutu yazdık bu komut;


If TextBox1.Text = " " Or TextBox2.Text = " " Then

            MsgBox("Lütfen bütün alanları eksiksiz doldurunuz")

        Else

       .................. 'Böyle değise olacak komutlar

       End If



(burada eğer Textbox1'in içinde veya(Or veya anlamına gelir)

Textbox2'nin içinde " " varsa(yani içleri boşsa) Mesaj kutusu olarak lütfen bütün alanları eksiksiz doldurunuz ifadesi çıksın Else(Böyle Değilse) Böyle değilse olacak komutlar yazılır. End If(If komutumuzu bitirdiğimizi gösteren ibra end if))

Ve değilse yazılacaklar yazan yere toplama işlemimizi yazdık yani eğer Textbox1 veya Textbox2'den birisi dahi boş olsa işlemi yapma mesajı ver eğer bir problem yoksa yani Textbox1 ve Textbox2'nin içleri doluysa toplama işlemini yap ve sonucu mesaj olarak göster.

PÜF NOKTA : And ifadesi Ve anlamına Or ifadesi ise Veya anlamına gelir if komutlarımızı yazarken aralara bu komutları yazarak bir ifadeyi birden çok şarta bağlayabiliriz örnek vermek gerekirse;


If TextBox1.Text = 1 And TextBox2.Text = 2 And Textbox3.Text = 3 Then

...........

Else

...........

End If


yada

If TextBox1.Text = 1 Or TextBox2.Text = 2 Or Textbox3.Text = 3 Then

...........

Else

...........

End If



şeklinde kullanabiliriz.

ANLAMADIÐINIZ BİRŞEY VARSA BANA SORA BİLİRSİNİZ
  • Etiketler;
Yorum Yaz

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

val(textbox1.text) buradaki val neoluyor biz bunu kullanmadan yapıyorduk çalışıyordu.
Hemen Açıklayayım Val Komutunu Kullanmasanızda çalışır Val sayının virgüllü çıkmasını önler mesela 5 ile 0,9 u toplayınca cevap 5,9 çıkar ama val komutunu kullanırsanız cevabı otamatikman 6'ya yuvarlar kullanmak zorunlu değildir. ben kullandım bilmeyen arkadaşların öğrenmesi açısından
Selamün Aleyküm, Benim sizlere ufak bir sorum olucaktı Ben yeni vb6 öğrenmeye başladım ve şuan en çok if komutları üzerinde duruyorum. Ancak verdiğiniz kodları denedim hata alıyorum malesef formda. Örnek If TextBox1.Text = 1 then msgbox "Başarılı" ' Eğer textbox1 e girilen değer "1" ise ... else msgbox "başarısız" ' Eğer textbox1 e girilen değer "1" değil ise ... end if Aynen bu şekilde yapıyorum forma 1textbox açıyorum ve 1 commanbutton ancak hata alıyorum yanlışım nerede acaba ? Yanlışım varsa açıklarmısınız ?
Arkadaşım yanlışın MsgBox lardan sonra parantez açmamış olman yani ; MsgBox("Başarılı") yazman gerekirken MsgBox "Başarılı" yazmıssın doğru kodlar aşağıda yardım edebildiysem ne mutlu bana ___________________________ If Textbox1.Text = 1 then MsgBox("Başarılı") else MsgBox("Başarısız") End If ___________________________

Yukarı Git