Mikail LEKESiZ

Select Case Kosul operatoru Select case ise ile secilen bir degerin case is ile karsilastirmasi yapilir end select operatoru ile sonlandirilir. Karsilastirma dogru oldugu takdirde yapilacaklar kosulu saglayan case is sonrasinda yazilir. Kosulun aksi durumunda yapilacaklar ise case else operatorunden sonra yazilir. Ayrica arasinda virgul kullanilarakta kosullar ikinci ornekte oldugu gibi yazilabilir. Kosullar arasinda kullanilar , virgul orelse ile es kullanimdadir. if end if de oldugu gibi and operatoru select case icerisinde kullanilamaz.

(1)
Select Case textbox1.Text
Case Is = “admin”
label1.Text = “kullanici adiniz admin’dir.”
Case Is = “mikail”
label1.Text = “kullanici adiniz mikail’dir.”
Case Else
label1.Text = “kullanici adiniz bilinmiyor.”
End Select

(2)
Select Case textbox1.Text
Case Is = “admin“, “mikail”
label1.Text = “kullanici adiniz admin veya mikail’dir.”
Case Else
label1.Text = “kullanici adiniz bilinmiyor.”
End Select

If … Then ve End If komutlari arasinda kullanildigi takdirde sonuc true ise false durumunda ne yapilmasi gerektigini, sonuc false ise true durumunda ne yapilmasi gerektigi else yazarak sonrasinda ne yapilmasi gerektigini yazarak tanimlariz.

Dim x As Integer = 15
If x = 15 Then
label1.Text = “xin degeri onbestir”
Else
label1.Text = “xin degeri onbes degildir”
End If

OrElse operatoru birinci kontrolu sonucu true ise diger kontroller yapilmadan sonuc olarak true degeri doner. Asagidaki ornekte goruldugu gibi eger kullaniciadi administrator ise birinci kontrol sonucunda true donecek ve diger iki kontrol yapilmadan dongu sonuclanacaktir.

Dim kullaniciadi As String
kullaniciadi = textbox1.Text
If kullaniciadi = “administrator” OrElse kullaniciadi = “admin” OrElse = kullaniciadi = “yonetici” Then
label1.Text = “Yonetici yetkili kullanici”
Else
label1.Text = “Kullanici”
End If

AndAlso kosul operatoru birinci kontrolden false degeri doner ise diger kontrolleri kontrol ettirmeden false degeri dondurur. Asagidaki ornekte goruldugu gibi kullanici adi kontrol edilir eger kullanici adi dogru degil ise sifre kontrol edilmeden false degeri doner ve sonuc giris basarisiz olur. kullanici adi kontrolunden true degeri doner ise sifre kontrolu yapilir ve sifre kontrolundende true degeri cikar ise sonuc giris basarili olur.

Dim kullaniciadi, sifre As String
kullaniciadi = textbox1.Text
sifre = textbox2.Text
If kullaniciadi = “admin” AndAlso sifre = “123456” Then
label1.Text = “Giris basarili…”
Else
label1.Text = “Giris basarisiz…”
End If

Not kosul operator degerini tersine cevirir. True ise false olur, false ise true olur.