Yayýnladýðým tüm makaleler

Select-Case yapýsýnýn incelenmesi

SELECT CASE yapýsýnýn incelenmesi

Select Case aslýnda basit bir þekilde ifade edecek olursak if-elseif yapýsýnýn bir baþka versiyonudur diyebiliriz, elbette küçük kullaným farklarý ile. Öncelikle bu yapýyý genelde bir deðiþkenin deðeri deðerlendirirken tercih ediyoruz. Daha önce C ya da kodlama düzeni olarak C türevi olan programlama dillerini C++, C#, php, Java vb. kullanan arkdaþlarýmýn alýþageldikleri switch() yapýsý Select Caseyapýsýnýn karþýlýðýdýr. Bunu kullanmak yerine if-elseif ile de ayný iþlemleri gerçekleþtirebilirsiniz hatta if-elseif yapýsý için daha az makine çevrimi gerçekleþtirildiði muhakkaktýr diyebiliriz. Ancak kullaným kolaylýðý dikkate alýndýðýnda da Select Case gözardý edilemeyecek bir yapýdýr. bu yapýyý if-else þart yapýsýndan ayýran en önemli özellik OR (veya) operatörü kullanýmýna izin verirken AND (ve) operatörü kullanýmýna izin vermeyiþidir. Þimdi Select Case yapýsýnýn kullanýmýna kýsaca bir gözatalým.

Select Case kontrolDeðiþkeni
case durum1:
        durum1 ' eþit ise yapýlacak iþlemler
case durum2:
        durum2 ' e eþit iseyapýlacak iþlemler
case durum3,durum4,durum5:
       durum3 ya da durum4 veya durum5 doðru olduðunda yapýlacak iþlemler
case durum6 to durum7:
        durum6 ile durum7 arasýnda ise yapýlacak iþlemler
case is > durum8:
        durum8 den büyük ise yapýlacak iþlemler
case else:
        yukarýda verilenlerin hiç biri gerçekleþmediðinde yapýlacak iþlemler
End Select

Yukarýda verilen genel kullaným yapýsýný gerçek kodlar üzerinde göremdiðiniz sürece bir iþe yaramayacaktýr.Ýþin aslý burada sizlere örnek olarak yazacaðým kodlar aslýnda kod kalabalýðý olmasýna raðmen öðrenmeniz üzerinde etkili olacaktýr. Çünkü faraziyelerle iþler yürümüyor.Þimdi laf kalabalýðýný býrakalým bir kaç örnek yazalým

Örnek-1
'Alt+F11 ile (Ofis-2003) ekrana gelen kod penceresinde Ctrl+R ile ekrana gelen Project Explorer penceresini kullanarak eklenen modüle aþaðýda verilen kodlar yazýldýktan sonra Sayfa1 çalýþma sayfasýnda B1 hücresine =rakamlariOku(A1) yazarak kullanýrsanýz A1 hücresindeki sayý 0-9 arasýnda ise rakam yazýya dönüþtürülürken bu aralýk dýþýndaki her türlü sayýsal deðer için de "0-9 ARASINDA DEGER GIRINIZ" mesajýný alýrsýnýz.
Function rakamlariOku(deger As Byte) As String
Select Case deger
Case 0:
rakamlariOku = "SIFIR"
Case 1:
rakamlariOku = "BÝR"
Case 2:
rakamlariOku = "ÝKÝ"
Case 3:
rakamlariOku = "ÜÇ"
Case 4:
rakamlariOku = "DÖRT"
Case 5:
rakamlariOku = "BEÞ"
Case 6:
rakamlariOku = "ALTI"
Case 7:
rakamlariOku = "YEDÝ"
Case 8:
rakamlariOku = "SEKÝZ"
Case 9:
rakamlariOku = "DOKUZ"
Case Else
rakamlariOku = "0-9 ARASINDA DEGER GIRINIZ"
End Select
End Function

Örnek-2
'Örnek-1 anlatýlan yöntemle eklenen modüle aþaðýda verilen kodlar yazýldýktan sonra Sayfa1 çalýþma sayfasýnda B1 hücresine =karakterEsdegeri(A1) yazarak kullanýrsanýz yazdýðýnýz bu fonksiyon A1 hücresindeki tek harf aþaðýda irdelenen Türkçe karakterlerden biri ise bunun yerine Ýngiliz alfabesindeki karþýlýðýný deðilse null (hiçbir þey) döndürecektir.
Function karakterEsdegeri(karakter As String) As String
Select Case karakter
Case "ý":
karakterEsdegeri = "i"
Case "Ý":
karakterEsdegeri = "I"
Case "þ":
karakterEsdegeri = "s"
Case "Þ":
karakterEsdegeri = "S"
Case "ç":
karakterEsdegeri = "c"
Case "Ç":
karakterEsdegeri = "C"
Case "ð":
karakterEsdegeri = "g"
Case "Ð":
karakterEsdegeri = "G"
Case "ö":
karakterEsdegeri = "o"
Case "Ö":
karakterEsdegeri = "O"
Case "ü":
karakterEsdegeri = "u"
Case "Ü":
karakterEsdegeri = "U"
Case Else
karakterEsdegeri = ""
End Select
End Function

Örnek-3
'Aþaðýda verilen kodlar çalýþma sayfasýna eklenen bir modüle yazýldýktan sonra Sayfa1 çalýþma sayfasýnda B1 hücresine =durum(A1) yazarak kullanýrsanýz yazdýðýnýz bu fonksiyon A1 hücresindeki sayý 1-25 arasýnda ise aþaðýda verilen þartlara uygun deðerlerden birini deðilse "Aralýk dýþý deðer giriþi" bilgisini döndürür...
Function durum(deger As byte) As String
Select Case deger
Case 1 To 5
durum = "1-5 arasýnda bir deðer"
Case 6 To 10, 15 To 25
durum = "6-10 ya da 15 ile 25 arasýnda bir deðer"
Case 11, 12, 13, 14
durum = "11-14 arasýnda bir deðer"
Case Is > 25
durum = "25 den büyük bir deger"
Case Else
durum = "Aralýk dýþý deðer giriþi"
End Select
End Select
End Function

Örnek-4
'Örnek-1 de verdiðimiz kodu her ne kadar ilkel de olsa 3 basamaklý sayýlarý okuyacak þekilde yeniden tasarlayalým. Burada mid() fonksiyonu kullanýlmýþtýr ki daha sonra standart String() fonksiyonlarý iþlenirken ele alýnacaktýr lakin basitçe anlatmak gerekirse, mid(deger,baþlangýç,karakterSayisi) deger ile verilen string datanýn içinden baçlangýç ile verilen karakterden baþlayarak karakterSayisi ile verilen tane karakter alýr. Misal:
Dim adi As String
adi="Mehmet Akif Ersoy"
msgbox(mid(adi,8,4))
Ekrana Akif mesajýný görüntüler (Boþluk da bir karakterdir sakýn yanýlmayýn...)
Function rakamlariOku(deger As String) As String
Dim uzunluk As Byte
Dim sonuc As String
If deger = "" Then
rakamlariOku = ""
Exit Function ' ne olur ne olmaz bos deger gelirse fonksiyon sonlandirilsin
End If
uzunluk = Len(deger)
If uzunluk = 1 Then
Select Case deger
Case 0:
sonuc = "SIFIR"
Case 1:
sonuc = "BÝR"
Case 2:
sonuc = "ÝKÝ"
Case 3:
sonuc = "ÜÇ"
Case 4:
sonuc = "DÖRT"
Case 5:
sonuc = "BEÞ"
Case 6:
sonuc = "ALTI"
Case 7:
sonuc = "YEDÝ"
Case 8:
sonuc = "SEKÝZ"
Case 9:
sonuc = "DOKUZ"
End Select
ElseIf uzunluk = 2 Then
Select Case Mid(deger, 2, 1)
Case 0:
sonuc = ""
Case 1:
sonuc = "BÝR"
Case 2:
sonuc = "ÝKÝ"
Case 3:
sonuc = "ÜÇ"
Case 4:
sonuc = "DÖRT"
Case 5:
sonuc = "BEÞ"
Case 6:
sonuc = "ALTI"
Case 7:
sonuc = "YEDÝ"
Case 8:
sonuc = "SEKÝZ"
Case 9:
sonuc = "DOKUZ"
End Select
Select Case Mid(deger, 1, 1)
Case 0:
sonuc = "" & sonuc
Case 1:
sonuc = "on" & sonuc
Case 2:
sonuc = "YÝRMÝ" & sonuc
Case 3:
sonuc = "OTUZ" & sonuc
Case 4:
sonuc = "KIRK" & sonuc
Case 5:
sonuc = "ELLÝ" & sonuc
Case 6:
sonuc = "ATMIÞ" & sonuc
Case 7:
sonuc = "YETMÝÞ" & sonuc
Case 8:
sonuc = "SEKSEN" & sonuc
Case 9:
sonuc = "DOKSAN" & sonuc
End Select
ElseIf uzunluk = 3 Then
Select Case Mid(deger, 3, 1)
Case 0:
sonuc = ""
Case 1:
sonuc = "BÝR"
Case 2:
sonuc = "ÝKÝ"
Case 3:
sonuc = "ÜÇ"
Case 4:
sonuc = "DÖRT"
Case 5:
sonuc = "BEÞ"
Case 6:
sonuc = "ALTI"
Case 7:
sonuc = "YEDÝ"
Case 8:
sonuc = "SEKÝZ"
Case 9:
sonuc = "DOKUZ"
End Select
Select Case Mid(deger, 2, 1)
Case 0:
sonuc = "" & sonuc
Case 1:
sonuc = "ON" & sonuc
Case 2:
sonuc = "YÝRMÝ" & sonuc
Case 3:
sonuc = "OTUZ" & sonuc
Case 4:
sonuc = "KIRK" & sonuc
Case 5:
sonuc = "ELLÝ" & sonuc
Case 6:
sonuc = "ATMIÞ" & sonuc
Case 7:
sonuc = "YETMÝÞ" & sonuc
Case 8:
sonuc = "SEKSEN" & sonuc
Case 9:
sonuc = "DOKSAN" & sonuc
End Select
Select Case Mid(deger, 1, 1)
Case 0:
sonuc = "" & sonuc
Case 1:
sonuc = "YÜZ" & sonuc
Case 2:
sonuc = "ÝKÝYÜZ" & sonuc
Case 3:
sonuc = "ÜÇYÜZ" & sonuc
Case 4:
sonuc = "DÖRTYÜZ" & sonuc
Case 5:
sonuc = "BEÞYÜZ" & sonuc
Case 6:
sonuc = "ALTIYÜZ" & sonuc
Case 7:
sonuc = "YEDÝYÜZ" & sonuc
Case 8:
sonuc = "SEKÝZYÜZ" & sonuc
Case 9:
sonuc = "DOKUZYÜZ" & sonuc
End Select
Else
rakamlariOku = ""
End If
rakamlariOku = sonuc
End Function

Þimdilik bu kadar kod safsatasý yeter örnek olsun diyerek dolgu mahiyetinde kod yazmanýn da bir mantýðý yok. Sanýyorum Select Case yapýsýnýn nasýl kullanýlacaðý hakkýnda bir fikriniz olmuþtur...

Yardýmcý olmasý dileðiyle