Percabangan if, case pada Visual Basic 2008

Percabangan adalah proses untuk menyeleksi hasil input yang diguanakan.

Maksudnya adalah jika kita mempunyai banyak kemungkinan inputan pada sebuah variabel, kemudian setiap kemungkinan memerlukan penanganan yang berbeda, maka kita dapat menggunakan percabangan if, atau case pada variabel input yang dimaksud.

Misal variabel "nilai" dimana inputan nilai, atau value yang diberikan pada variabel ini berkisar antara 0-100 maka untuk setiap value tertentu membutuhkan penanganan yang berbeda. contoh :

jika nilai 0-55 predikat 'E'

jika nilai 56-65 predikat 'D'

jika nilai 66-75 predikat 'C'

jika nilai 76-85 predikat 'B'

jika nilai 86-100 predikat 'A'

maka terdapat 5 kemungkinan percabangan, dengan banyak kemungkinan nilai antara 0-100. Jadi Pseudo codenya seperti di bawah ini :

if nilai 0-55 

   predikat ='E'

if nilai 56-65 

   predikat ='D'

if nilai 66-75 

   predikat ='C'

if nilai 76-85 

   predikat ='B'

if nilai 86-100 

   predikat ='A' 

Buat perancangan seperti dibawah ini :

Kode Program :

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nilai As Integer = 0
        nilai = Val(txtNilai.Text)
        If nilai > 0 And nilai <= 55 Then
            Label1.Text = "E"
        End If

        If nilai > 56 And nilai <= 65 Then
            Label1.Text = "D"
        End If

        If nilai > 66 And nilai <= 75 Then
            Label1.Text = "C"
        End If

        If nilai > 76 And nilai <= 85 Then
            Label1.Text = "B"
        End If

        If nilai > 86 And nilai <= 100 Then
            Label1.Text = "A"
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim nilai As Integer = 0
        nilai = Val(txtNilai.Text)
        Select Case nilai
            Case Is > 85
                Label1.Text = "A"
            Case Is > 75
                Label1.Text = "B"
            Case Is > 65
                Label1.Text = "C"
            Case Is > 55
                Label1.Text = "D"
            Case Is > 0
                Label1.Text = "E"
        End Select
    End Sub
End Class

Hasil :