VİSUAL BASİC 6’da KARAR YAPILARI IF-THEN-ELSE Selamlar.Programcılığın en önemli unsurlarından biriside karar yapıları adı verdiğimiz, programı koşullu bir şekilde dallandıran yapılardır. If –Then karar yapısıda bunlardan en çok kullanılanıdır. Anlamı ‘Eğer’ dir. Şimdi bir örnek program verelim ve açıklayalım. Dim Sifre As Integer Private Sub Command1_Click() Sifre = Text1.Text If Sifre = 444 Then MsgBox "Şifre Geçerli", , "Doğru Şifre" Else MsgBox "Şife Geçersiz!", , "Yanlış Şifre!" End If End Sub Bu örnek için 1 TextBox ve 1 CommandButton yeterlidir.Basit bir şifre kutusu yapacağız.Nesneleri istediğiniz gibi boyutlandırın ve textBox nesnesinin PasswordChar özelliğine * yazın.Aslında her hangi bir şeyde yazabilirsiniz fakat adettendir şifreler genelde **** şeklinde görülür.Şimdi kodu inceleyelim. Gördüğünüz gibi Sifre adında bir değişken tanımlanmış.Bu tanımlama General bölümünde yapılmış.Butonun kod bölümüne baktığımızda. Sifre değişkeninin TextBox kutusundaki veriyi saklayabilmesi için Sifre = Text1.Text denmiş.Böylece Text1 nesnesinin Text özelliği Sifre değişkeninin içinde saklanmış olacak.Yani Sifre değişkeni kullanıcıdan gelen girdileri tutacak. Hemen altında If bloğunun başlangıcını görüyoruz. If Sifre = 444 Then yazan kısmın anlamı şudur. Eğer TextBox’a 444 sayısı girilmişse şunu yap. Altındaki satırda ne yapacağını söylüyor. MsgBox “Şifre Geçerli”,,”Doğru Şifre”.Burada VB’nin araç kutusunda olmayan bir nesne ile karşılaşıyoruz. MsgBox nesnesi.Mesaj Kutusu nesnesi Bir çok programda ve Windows’ta gördüğünüz hata mesajları, uyarılar ve bilgilendirme amaçlı olarak ekrana gelen kutulardan.Gördüğünüz gibi bu msgbox bize girdiğimiz şifrenin doğru olduğunu söylüyor. Altındaki satırda Else bildirisini görüyoruz.Anlamı ‘Değilse’.Yani girdiğimiz şifre 444 değilse hemen alt satıra geç ve oradakileri uygula.Alt satırda başka bir Mesaj Kutusu bize girdiğimiz şifrenin yanlış olduğunu söylüyor ve bir alt satırda ise if bloğunun bittiğini bildiren End If ibaresi yer alıyor.Şimdi Programı hazırlayıp çalıştırın ve nasıl çalıştığını görün. If-Then Yapıları Mantıksal İfadelerle Güçlendirilebilir ifadeler şunlardır: And (Ve) : Her iki koşul doğru olduğunda işlem doğrudur. örnek : If KullanıcıAdı = “King_Ermac” And Sifre = “ 444” Then Msgbox “Hoş Geldiniz King_Ermac!”,,”Üye Girişi!” Else Msgbox “Yanlış kullanıcı adı veya şifre!”,,”Hata!” End if Or (Veya) : Koşullardan herhangi biri doğru olduğunda işlem doğrudur. örnek : If Sifre = 114 Or Sifre = 6666 Then Msgbox “Doğru Şifre”,,”hoş geldiniz!” End If Not (Değil): Koşullu ifadede koşul doğru ise işlem yanlış,koşul yanlış ise işlem doğrudur. örnek : If Not Kelime = “Küfür” Then Msgbox “Muhabbete Devam”,,”Chat 1.0” Else MsgBox “Lütfen Küfür Etmeyiniz!”,,”Chat 1.0 Uyarı!” End If Xor(Özel Veya) :Koşullu ifadelerden sadece biri doğruysa işlem doğrudur.İkiside Doğruysa ya da ikiside yanlışsa işlem yanlıştır. örnek : If Akvaryum = “Pirana” Xor Akvaryum = “SüsBalığı” Then MsgBox “Akvaryumda Balık Var! Pirana ya da SüsBalığı”,,”Rapor!” Else MsgBox “Dikkat Piranalar ve SüsBalıkları aynı Akvaryumda! ya da Akvaryum boş!”,,”Rapor!” End If Örneklerde elimden geldiği kadar açıklayıcı olmaya çalıştım.Umarım mantığını anlamışsınızdır. If karar yapıları bir blokta bir çok koşul içerebilirler.Bunu yapan ibare ise ElseIf ibaresidir. Anlamı “değilse eğer” anlamındadır. örnek: If Yas < 18 Then Msgbox “Daha reşit bile değilsin!”,,”Yaş!” ElseIf Yas >= 18 And Yas < 30 Then MsgBox “Daha çok gençsin.Önünde uzun bir ömür var”,,”Yaş!” ElseIf Yas >30 Then MsgBox “Sen Yolu yarılamışsın.Belkide yolcusun !”,,”Yaş!” End If Evet arkadaşlar gördüğünüz gibi matematikte bulunan “>, <, =, >=, <=” Gibi işleçler VB için de geçerli. SELECT-CASE Şimdi de Karar yapılarının ikinci bölümü olan Select-Case’i işleyeceğiz.Select-Case’te tıpkı If-Then gibi çalışır.Fakat tek bir değişken içindeki veriler ele alındığında If-Then yapısına göre daha okunaklı ve etkilidirler.Örnek bir kodla açıklayalım.Önce aşağıdaki formu hazırlayın. Şimdi General kısmına şu değişkeni tanıtın: Dim Renkler As String ‘Ve CommandButon’a da şunları yazın Private Sub Command1_Click() Renkler = Text1.Text Select Case Renkler Case "kırmızı" Label1.ForeColor = RGB(255, 0, 0) Label1.Caption = "KIRMIZI" Case "yeşil" Label1.ForeColor = RGB(0, 255, 0) Label1.Caption = "YEŞİL" Case "mavi" Label1.ForeColor = RGB(0, 0, 255) Label1.Caption = "MAVİ" Case "beyaz" Label1.ForeColor = RGB(255, 255, 255) Label1.Caption = "BEYAZ" Case "siyah" Label1.ForeColor = RGB(0, 0, 0) Label1.Caption = "SİHAY" Case Else MsgBox "Bu Renk tanımlı değil!", , "Renkler" End Select End Sub Butondaki kodun başlangıcına bakacak olursak. Renkler adlı değişkeni Text1.Text nesnesine girilen verileri tutması için Renkler = Text1.Text yazdığını görüyoruz. Daha sonra altında Select Case Renkler yazıyor.Yani Renkler değişkeninin taşıdığı değere göre program dallanacak. Case “kırmızı” kullanıcı TextBox’a kırmızı yazdığında hemen altında ve birdahaki case’e kadar olan program satırları icra olacak.Baktığımızda Label1.Forecolor = RGB(255, 0, 0) kodunu görüyoruz.Yani etiket nesnesinin yazı rengi özelliği RGB(Red, Green, Blue) komutuyla değiştirilmiş.Altındaki satırda ise Label1.Caption = “KIRMIZI” yazıyor.Etiket nesnesinin yazı özelliği KIRMIZI olacak şekilde değişiyor.Case Else’ye kadar olan kısım gördüğünüz gibi hep aynı kalıp içinde.Case Else ise Renkler değişkeni bu değerlerden birini almadığında yani TextBox’a gidip mor yazarsak Mesaj Kutusu bize girdiğimiz rengin tanımlı olmadığını söylüyor.Bloğun son satırında ise End Select ile select case kod bloğunun bittiğini görüyoruz.End Sub Command1 nesnesinin komut sonu oluyor.şimdi programı çalıştırın ve tanımladığımız renkleri tanımladığımız gibi küçük harfle yazın ve test edin.
