Visual Basic 6.0 Program Kontrol Deyimleri

Bu ay Ağustos ayında kaldığımız yerden, program kontrol deyimleri ile devam ediyoruz yazı dizimize.

Merhaba Arkadaşlar, geçen ay yaz okulu sınavlarım yüzünden yazımı yazamamıştım ama bu ay kaldığımız yerden hem de bir programı oluşturmakta çok önemli bir yeri olan program kontrol deyimleri ile devam edeceğiz. Program kontrol deyimleri ile, koşula bağlı işlemler, tekrarlı işlemler, program içinde dallanma gibi işlemleri gerçekleştirebiliriz bu kontrol deyimlerini kullanırken bilmememiz gereken bazı noktalar var bunlar karşılaştırma ve mantıksal operatörlerin ne olduğu ve nasıl kullanıldığıdır. Biz bunları Konrol deyimlerini kullanırken öğreneceğimiz için şimdi bu konunun detayına girmiyor sadece yazının sonunda bir tablo şeklinde vererek yetiniyorum. Bu kadar uzun bir girişten sonra şimdi asıl konumuza dönebiliriz.

 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 Küçük"    '1.kısım
Else
MsgBox "Girdiğiniz Sayı 100'den Büyük"    '2.kısım
End If

Yukarda ki programla kullanıcıdan bir sayı girilmesi isteniyor ve "Val" fonksiyonu ile sayısal değere çevriliyor eğer bunu "Val" ile sayısal değere çevirmezsek programımız bunu bir string değer olarak kabul edecek ve programımız doğru çalışmayacaktı mesela 10+11 işleminin sonucunu bize 1011 diye söyleyecekti bu küçük hatırlatmayı da yaptıktan sonra programımızın geri kalanını açı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 işleminin geri dönen sonucu "False" olduğu için program ikinci kısmı işleme tabi tutacaktır ve bize girdiğimiz 100 değerinin 100 den büyük olduğunu söyleyecektir. Programın doğrusu ise aşağıdadır

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

If Sayi < 100 Then
MsgBox "Girdiğiniz Sayı 100'den Küçük"
ElseIf Sayi = 100 Then
MsgBox "Girdiğiniz Sayı 100'e eşit"
ElseIf Sayi > 100 Then
MsgBox "Girdiğiniz Sayı 100'den Büyük"
End If

Bu örnek sayesinde de "ElseIf" 'in nasıl kullanıldığını görmüş olduk. İsterseniz şimdide mantıksal operatörleri 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 Küçük"
ElseIf Sayi1 < 100 Or Sayi2 < 100 Then
MsgBox "Girdiğiniz iki sayıdan biri 100 den küçük"
ElseIf Sayi1 > 100 And Sayi2 > 100 Then
MsgBox "Girdiğiniz iki sayıda 100'den Büyük"
ElseIf Sayi1 > 100 Or Sayi2 > 100 Then
MsgBox "Girdiğiniz iki sayıdan biri 100 den Büyük"
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 operatörleri nasıl kullanmanız gerektiği hakkında fikir edinebilirsiniz bunları visual basic de yazıp derlerseniz sizin için 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 örnekten 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ı çoğu zaman çok kullanılışlıdır çünki bizi birçok 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 Küçük"
Case 100
MsgBox "Girdiğiniz Sayı 100'e eşit"
Case Is > 100
MsgBox "Girdiğiniz Sayı 100'den Büyük"
End Select

Yukarda da görüldüğü gibi "select case" kullanımı bazen "if then else" deyiminden daha kullanışlı olabiliyor.

Evet arkadaşlar bu aylıkta bu kadar yukarda işlemiş olduğumuz kontrol deyimleri bir programı oluşturmanın temel yapı taşlarıdır bunları iyice incelemeniz ve bol bol örnek yapmanız Visual Basic ile program oluşturmanızda size yardımcı olacaktır.

Gelecek ay görüşmek üzere,