IIF kullanımı

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

sonuc=IIF(şart,doğru ise komut,yanlış ise komut)

 

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ımı

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

Tek sayı, çift sayı örneği

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

IF…THEN…ELSE…END IF örneği

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

IF…THEN…ELSE…END IF yapısı

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

IF … THEN … END IF yapısı

şart doğru ise birden fazla satır yazacak isek bu yapıyı kullanırız

IF şart THEN

    ifade1
    ifade2
    ifade3
   ………….

END IF

ÖRNEK: dışardan girilen sayı 5 ise 5 girdiniz yazan birden fazla satırlı karar yapısı

Dim a As Byte = Microsoft.VisualBasic.InputBox("bir sayı giriniz")
If a = 5 Then
   MsgBox("5 girdiniz")
   MsgBox("true alanındayım")
   MsgBox("ben de true alanındayım")
End If
If  a = 5 Then MsgBox("5 girdiniz")
If a <> 5 Then MsgBox("5 girmediniz")
If a = 5 Then MsgBox("5 girdiniz") : MsgBox("ture alanındaym") : MsgBox("ben de true alanındaym")

‘ yukaridaki msgboxlardan birini altsatira atsaydik end if kullanmak zorunda kalirdik

Bu yapıda Eğer şart yanlış (false) ise şartımıza bağlı komutlar çalıştırılmadan program akışına devam eder.

*** If yapılarını iç içe de kullanabilirsiniz. Bir şart gerçekleştiğinde ya da gerçekleşmediğinde bir başka şart daha arayabiliriz. Aşağıdaki örnek kullanım şekillerinde iç içe If yapıları verilmiştir.

If şart Then
              Komutlar
              If şart Then       
                            Komutlar
              End If 
End If 

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

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

IF … THEN yapısı

karar yapıları veya kontrol yapıları konusuna girmektedir.

IF şart THEN eğer şart doğru ise çalışacak komut

* dikkat edersek çalışacak komut diyorum (tekil); çünkü THEN den sonra tek ifade yazabiliriz. Birden fazla yazmak istersek başka bir konuda göreceğiz bunu.

Dim
a As Byte = 10
If a = 10 Then MsgBox("a=10 dur")
' burada şart doğru olduğunda sadece bir işlem yapacağımız için THEN ifadesinden sonra hemen kodumuzu yazabildik

‘ *************************************************************

' dışardan girilen bir sayının 10 olup olmadığını bulan
' 10 ise tebrikler uyarısı veren,
' 10 değil ise hiçbirey yapmayan program
Dim c As Byte = Microsoft.VisualBasic.InputBox("bir sayı giriniz")
If c = 10 Then MsgBox("TEBRIKLER")
'***************************************

‘ boolean zaten karşılaştırma tipidir

 Dim dogrumu As Boolean = True
 If dogrumu Then MsgBox("değişkenin değeri TRUE dur")

 

KARŞILAŞTIRMA İFADELERİ

 = EŞİTTİR  < KÜÇÜKTÜR  > BÜYÜKTÜR  >= BÜYÜK EŞİTTİR  <= KÜÇÜK EŞİTTİR  <> EŞİT DEĞİLDİR  NOT durumun deĞilini alır, NOT TRUE sonucu false olur.

Dim k As Byte = 3
If Not (k = 10) Then MsgBox("k=10 değildir")

‘ekrana k=10 degildir uyarisi verir.

 If A > 10 Then A = A + 1 : B = B + A : C = C + B
keeeeestiiiiik. milyonlarca örnek verilebilir, kesiyoruz : )

DERS NOTLARI İÇİN tıklayınız

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