Vb.Net Select Case Yapısı

Vb.Net Select Case Yapısı

Vb.Net de çok fazla şartın olduğu durumlarda select case yapısı, if yapısından daha kullanışlıdır.

Bu durumlarda Select Case – End Select yapısı kullanmak programın anlaşılabirliğini, okunabilirliğini artırır.

Kullanımı

Select Case Kontrol_Degiskeni
Case Sart : komutlar
Case Sart : komutlar
Case Else : komutlar
End Select

Not:
Kontrol_Değişkeni tam sayı veya char tipinde olmalıdır. Diğer değişken tipleri select case yapısında kullanılmazlar. Yani string ve ondalıklı sayı tipleri Kontrol_Değişkeni tipi olarak kullanılamazlar.

Örnek:
Konunun daha iyi kavranması için ufak bi örnek ekliycez, ileriki konularda yine bir çok örnek yayınlıycaz.

If yapısına verdiğimiz ilk örnekte kullanıcı notu giriliyor ve buna göre sadece geçtiniz veya kaldınız msj ı veriliyordu.

Bu yazılımda yine kullanıcı tarafından öğrenci notları 100lük sisteme göre girilecek, 5lik not sistemindeki karşılığını ve geçip kaldığını msj olarak verdiricez.

Form load veya button click olayına yazarak uygulayabiliriz;

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim not1 As Integer
not1 = InputBox("1. Notunuzu Giriniz")
Dim not2 As Integer
not2 = InputBox("2. Notunuzu Giriniz")
Dim not3 As Integer
not3 = InputBox("3. Notunuzu Giriniz")
Dim ortalama As Integer
ortalama = (not1 + not2 + not3) / 3

Select Case ortalama
Case 0 : MsgBox("5lik ve 100Lük sistemde de 0 aldınız")
Case 1 To 24 : MsgBox("5lik sistemde 0 aldınız, Ortalamanız:" & ortalama)
Case 25 To 44 : MsgBox("5lik sistemde 1 aldınız, Ortalamanız:" & ortalama)
Case 45 To 54 : MsgBox("5lik sistemde 2 aldınız, Ortalamanız:" & ortalama)
Case 55 To 69 : MsgBox("5lik sistemde 3 aldınız, Ortalamanız:" & ortalama)
Case 70 To 84 : MsgBox("5lik sistemde 4 aldınız, Ortalamanız:" & ortalama)
Case 85 To 100 : MsgBox("Tebrikler. 5lik sistemde 5 aldınız, Ortalamanız:" & ortalama)
Case Else : MsgBox("Girilen değerlerde hata olabilir, Hesaplanan Ortalamanız:" & ortalama)
End Select
End Sub
End Class

Ekran Görüntümüz;

vb.net - select case

Yorum yapın