select case hakkında??, select case hakkında birkaç soru?

Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !

Forum Başlıklarına gitmek için tıklayınız

Select case hakkında??, Select case hakkında birkaç soru?

String için örnek

Kod Alanı:

'Formdan veya QueryString'den gelen değer degiskene atanıyor
degisken = Request("i")

Select Case degisken
Case "a"
Response.Write "A"
Case "b"
Response.Write "B"
Case "c"
Response.Write "C"
Case Else ' Yukarıdaki 3 şart sağlanmaz ise
Response.Write "D"
End Select

Sayılar için Örnek

Kod Alanı:

'Formdan veya QueryString'den gelen değer degiskene atanıyor
degisken = Request("i")

'degisken Integer'a dönüştürülüyor
'Eğer değişken boş değilse, eğer boş olursa CInt komutu hata verir
If Not degisken = "" Then
degisken = CInt(degisken)
End If

Select Case degisken
Case 1
Response.Write "Bir"
Case 2
Response.Write "İki"
Case 3
Response.Write "Üç"
Case Else ' Yukarıdaki 3 şart sağlanmaz ise
Response.Write "Dört"
End Select

Hosting Sponsorumuz - Noktahost internet hizmetleri