Month: April 2016

Her programlama dilinde olduğu gibi visual basic tede karar yapılar hayati öneme sahiptir.Mantık aynıdır ancak sözdizimleri farklılık gösterebiliyo.En basit şekilde Visual Basicte İf-Else yapısı aşağıdaki gibidir.

Private Sub Command1_Click()
not = 0
not= InputBox("Kaç kilosun")
If sayi < 50 Then
MsgBox kilo, 48, "Kaldın"
Else
MsgBox kilo, 32, "Geçtin"
End If
End Sub

Yukarıdaki örnekte not değişkeninin 0 a atadık daha sonra kullanıcıdan not ortalamasını girmesini istedik girdiği sayıya göre if else yapısıyla geçip kaldığını belirttik.Genel olarak visual basicde if-else sözdizimi aşağıdaki gibidir

If Koşul Then
//Koşul True ise gerçekleşicek işlemler
Else
//Koşul False dönerse gerçekleşicek işlemler
End If

İf Else yapısı ile şifre sorgulama uygulamasının kodları aşağıdaki gibidir.

 Dim sifre As String
        Label2.Text = ""
        sifre = TextBox1.Text
        If sifre = "a1b2c3" Then
            Label2.Text = "Sifre dogru"
        Else
            Label2.Text = "Sifre yanlis"
        End If

Örnekte Şifre adında string değişken tanımlıyoruz.Textboxtan değer alıp şifre değişkenine atıyoruz.Daha Sonra şifre istediğimiz değerse ona göre mesaj şifre yanlışsa ise olumsuz mesaj yazdırıyoruz

Operatörler ile İf-Else Yapısı

Dim yas As Integer
        Dim yas As Integer
        Label2.Text = ""
        yas = TextBox1.Text
        If yas <= 6 And yas >= 65 Then
            Label2.Text = "Ücretsiz Geçiş"
        Else
            Label2.Text = "Ücretli Geçiş"
        End If
End Sub

Örneği incelediğimizde yas değişkeni 6 dan küçük ve(And) 65 ten büyükse label a ücretsiz geçiş yazdırdı.False değeri döndüğünde ise ekrana ücretli geçiş yazıcaktır.Son Olarak İç içe İf-Else örneği verip yazıyı bitirelim.

Dim ort As Integer
        Label2.Text = ""
        ort= TextBox1.Text
        If ort> 50 Then
            If ort< 75 Then
                Label2.Text = "BB ile Geçtin"
            Else
                Label2.Text = "AA ile geçtin"
            End If
        Else
            Label2.Text = "Kaldın"
        End If
    End Sub
 

Örneği İncelediğimizde ort adında Integer değişken tanımladık ve ilk önce bunun 50 den büyük ve küçük olma durumunu kontrol ettik 50 den büyükse geçme notunuz 50 den küçükse kaldığınız label’a yazdırdık.