Vb6 Select Case Yapısı

Anlatım Adı : Select Case Yapısı
Anlatım :
Select Case Karar Yapısı

If...Then karar yapısının gelişmişidir. Sadece bir değişkenin durumunu kontrol eder. Kontrolu yapılacak değişken birden fazla değer alabiliyorsa If...Then yapısına oranla daha kulanışlıdır. Kullanım şekli aşağıdaki gibidir.

Örnek

Dim Ay
Ay = InputBox ("Bir ay giriniz")
Select Case Ay
Case 1
MsgBox “Bu ay 31 gün”
Case 2
Dim Artık as Integer
Artık = 2001 Mod 4
If Artık=0 Then
MsgBox “Bu ay 29 gün”
Else
MsgBox “Bu ay 28 gün”
Endif
Case 3
MsgBox “Bu ay 31 gün”
Case 4
MsgBox “Bu ay 30 gün”
Case 5
MsgBox “Bu ay 31 gün”
Case 6
MsgBox “Bu ay 30 gün”
Case 7
MsgBox “Bu ay 31 gün”
Case 8
MsgBox “Bu ay 30 gün”
Case 9
MsgBox “Bu ay 31 gün”
Case 10
MsgBox “Bu ay 30 gün”
Case 11
MsgBox “Bu ay 31 gün”
Case 12
MsgBox “Bu ay 30 gün”
Case Else
MsgBox ” Bir yılda 12 ay vardır.”
End Select

Örnek
Select Case No
Case 1304
Name="Murat Tuna"
Case 1305
Name="Ayse Sinem"
Case 1306
Name="Uğur Şahin"
Case 1307
Name="Osman Bilgin"
End Select