Burda Anlatacaklarımız, program kontrol deyimleri ile ilgilidir.Kacmaz SD Uyeleri.
Konu Anlatımına Başlayalım.

VISUAL BASIC 6.0
Program Kontrol Deyimleri [LEFT]
Kontrol Deyimleri :

- If Koşul Then ... Else(if) ... End if
- IIF
- Select ... Case


If Koşul Then ... Else(if) ... End if

Dim Sayi As Integer
Sayi = Val(InputBox("Bir Sayı Giriniz"))

If Sayi < 100 Then
MsgBox "Girdiğiniz Sayı 100'den Kucuk" '1.kısım
Else
MsgBox "Girdiğiniz Sayı 100'den Buyuk" '2.kısım
End If

Yukarda ki programla kullanıcıdan bir sayı girilmesi isteniyor ve "Val" fonksiyonu ile sayısal değere cevriliyor eğer bunu "Val" ile sayısal değere cevirmezsek programımız bunu bir string değer olarak kabul edecek ve programımız doğru calışmayacaktı mesela 10+11 işleminin sonucunu bize 1011 diye soyleyecekti bu kucuk hatırlatmayı da yaptıktan sonra programımızın geri kalanını acıklamaya devam edelim. Daha sonra sayı kontrol ediliyor eğer koşul doğru ise 1.kısım yanlış ise 2.kısım işleme tabi tutuluyor yalnız yukarda ki programda bir hata var o da kullanıcı giriş kutusuna 100 değerini girdiğinde 100 100 Then
MsgBox "Girdiğiniz Sayı 100'den Buyuk"
End If

Bu ornek sayesinde de "ElseIf" 'in nasıl kullanıldığını gormuş olduk. İsterseniz şimdide mantıksal operatorleri kullanarak bir kod yazalım

Dim Sayi1, Sayi2 As Integer
Sayi1 = Val(InputBox("Birinci Sayıyı Giriniz"))
Sayi2 = Val(InputBox("İkinci Sayıyı Giriniz"))

If Sayi1 < 100 And Sayi2 < 100 Then
MsgBox "Girdiğiniz iki sayıda 100'den Kucuk"
ElseIf Sayi1 < 100 Or Sayi2 < 100 Then
MsgBox "Girdiğiniz iki sayıdan biri 100 den kucuk"
ElseIf Sayi1 > 100 And Sayi2 > 100 Then
MsgBox "Girdiğiniz iki sayıda 100'den Buyuk"
ElseIf Sayi1 > 100 Or Sayi2 > 100 Then
MsgBox "Girdiğiniz iki sayıdan biri 100 den Buyuk"
ElseIf Sayi1 = 100 And Sayi2 = 100 Then
MsgBox "Girdiğiniz iki sayıda 100'e eşit"
ElseIf Sayi1 = 100 Or Sayi2 = 100 Then
MsgBox "Girdiğiniz iki sayıdan biri 100'e eşit"
End If

Yukardaki kodları inceleyerek mantıksal operatorleri nasıl kullanmanız gerektiği hakkında fikir edinebilirsiniz bunları visual basic de yazıp derlerseniz sizin icin daha faydalı bir hal almış olur

IIF

IIF fonksiyonu aslında Ağabeyi "IF" in daha kolay kullanışlı bir şeklidir ama tabiki ağabeyi kadar etkin bir kullanım alanı yoktur kullanım şekli ise,

Dim Deger As Byte
Dim Sonuc As String
Deger = 5
Sonuc = IIf(Deger = 5, "başarılı", "başarısız")
MsgBox Sonuc

Yukarda ki ornekten de anlaşıldığı gibi "Deger" değişkeninin 5 'e eşit olması durumda "Sonuc" değişkeni "başarılı" değil ise "başarısız" değerini alacaktır.

Select ... Case

Bu yapı coğu zaman cok kullanılışlıdır cunki bizi bircok if else deyimlerini kullanmaktan kurtarır

Dim Sayi As Integer
Sayi = Val(InputBox("Bir Sayı Giriniz"))

Select Case Sayi
Case Is < 100
MsgBox "Girdiğiniz Sayı 100'den Kucuk"
Case 100
MsgBox "Girdiğiniz Sayı 100'e eşit"
Case Is > 100
MsgBox "Girdiğiniz Sayı 100'den Buyuk"
End Select Yukarda da gorulduğu gibi "select case" kullanımı bazen "if then else" deyiminden daha kullanışlı olabiliyor.

Yukarda işlemiş olduğumuz kontrol deyimleri bir programı oluşturmanın temel yapı taşlarıdır bunları iyice incelemeniz ve bol bol ornek yapmanız Visual Basic ile program oluşturmanızda size yardımcı olacaktır.
__________________