IF ile birkaç satırda yaptığımız karşılaştırmayı tek satırda yapmamızı sağlar.

Dim a As Integer
Dim sonuc As String
a = InputBox("lütfen 5 tuşuna basınız")
sonuc = IIf(a = 5, "5 e bastınız", "5 e basmadınız!!!")
MsgBox(sonuc)

başka,

        Dim a As Char
        Dim sonuc As Boolean
        a = InputBox("evli misiniz? [E/H]")
        sonuc = IIf(a = "E" Or a = "e", True, False)
        If sonuc Then
            MsgBox("EVLİ")
        Else : MsgBox("EVLİ DEĞİL")
        End If

 başka, *** İÇİÇE IIF KULLANIMI ***

        Dim tut As Byte = 100
        Dim sayi As Byte = InputBox("sayıyı tahmin ediniz")
        Dim cev As String = IIf(sayi > 100, "çok söylediniz", IIf(sayi = 100, "BRAVO", 100 - sayi & " az söylediniz"))
        MsgBox(cev)

exit sub: kullanıldığı yordamı (click, mouseover gibi) sonlandırır.

Dim a As Byte = Val(InputBox("0-5 arası sayı giriniz"))
If a > 5 Then
     MsgBox("5'ten buyuk sayı giremezsiniz")
     Exit Sub ' bu kullanım Button1_Click kod blogunu sonlandirir
End If
If a = 1 Then
     MsgBox("Girdiginiz sayi BIR")
ElseIf a = 2 Then
     MsgBox("Girdiginiz sayi IKI")
ElseIf a = 3 Then
     MsgBox("Girdiginiz sayi ÜÇ")
ElseIf a = 4 Then
     MsgBox("Girdiginiz sayi DORT")
ElseIf a = 5 Then
     MsgBox("Girdiginiz sayi BEŞ")
End If

bu ne yaa çok basit diyor olabilirsiniz ama unutmayın ki en karmaşık yapılar basit yapılardan oluşurlar.

a = val(TextBox1.Text)

If a Mod (2) = 0 Then
     MsgBox "girdiğiniz sayı çifttir"
End If
If a Mod (2) <> 0 Then
    MsgBox "girdiğiniz sayı tektir"
End If

ya da

a = val(TextBox1.Text)
If a Mod (2) = 0 Then
     MsgBox "girdiğiniz sayı çifttir"
else
    MsgBox "girdiğiniz sayı tektir"
End If

Sıfır, tek sayı mıdır yoksa çift sayı mıdır? (Göktürk Kutluhan)

Bu soruya cevap vermeden önce tek ve çift sayı kavramı üzerinde durmamız gerekiyor. Matematikte kavramlar söz konusu olduğunda tahmin edebileceğinizden daha fazla farklı fikirle karşılaşırsınız. Ancak bu tek ve çift sayı konusunda matematikçilerin büyük bir kesiminin ortak bir kararı olduğunu görebiliriz. Tanım şu şekilde yapılmıştır: İki ile bölündüğünde sıfır kalanını veren sayılara çift sayılar, bir kalanını veren sayılara da tek sayılar denir. Bu tanıma göre iki ile bölündüğünde sıfır kalanını veren sıfır sayısı bir çift sayıdır.

Dim a As Short
a = InputBox("bir sayi giriniz")
If a Mod 2 = 0 Then
     MsgBox("sayınız ÇİFT")
Else
     MsgBox("sayınız TEK")
End If

' farklı bir  kullanım
If a Mod 2 <> 0 Then
     MsgBox("sayınız TEK")
Else
     MsgBox("sayınız ÇİFT")
End If
' farklı bir kullanım
If Not (a Mod 2 = 0) Then
     MsgBox("sayınız TEK")
Else
     MsgBox("sayınız ÇİFT")
End If

basit bir örnek, girilen iki sayıyının büyüklük küçüklük karşılaştırmasını yapar. zate herşey basitten karmaşığa değil midir : )

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Byte
Dim b As Byte
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
If a = b Then
    MsgBox("iki sayi esittir") 
End If
If a > b Then
   MsgBox("birinci say ikinciden byktr")
End If
If a < b Then
  MsgBox("ikinci say birinciden byktr")
End If

' ILERI SEVIYE: sayilardan birisi veya ikisi de girilmediyse uyari versin.
If a <> 0 And b <> 0 Then ' eger saylarn ikisi de girildiyse demektir
If a > b Then
     MsgBox("birinci sayi ikinciden buyuktur")
ElseIf a < b Then
     MsgBox("ikinci sayi birinciden buyukutr")
Else
     MsgBox("saylar esittir")
End If
Else
     MsgBox("en az 1 sayi girmediniz !!!")
End If
End Sub

bu yapıda şart doğru olduğunda ve yanlış olduğunda yapılacaklar verilir.

If şart Then

             Komutlar 1

Else

             Komutlar 2

End If

Yukarıdaki kod parçasında şartın gerçekleşmesi durumunda yani şart doğru (true) ise Then deyiminden sonraki komutlar1 ifadesindeki komutlar çalışır. Eğer şart yanlış (false) ise Else deyiminden sonraki komutlar2 ifadesindeki komutlar çalışır.

DERS NOTU İÇİN tıklayınız.

DERS ÖRNEKLERİ İÇİN tıklayınız