Visual Basic IF Komutunun Kullanımı - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

KarakıZ · 11 Ocak 2012, 19:29

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;

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ş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;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

yada

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

şeklinde kullanabiliriz.

kaynak; sanalkurs.net

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Visual Basic	PySSyCaT	Bilgisayar Sözlüğü	0	24 Ocak 2016 21:52
Visual Basic	Cry	Bilgisayar Donanımı	0	19 Eylül 2011 17:48

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.