Sturktur Pencabangan "Case" di VB net

Struktur ini sering dipakai  oleh programer untuk kondisi yang banyak.
inilah perbedaan yang menonjol antara "pencabangan Case" & "pencabangan IF",
penulisan pada "case" inipun lebih efisien dan mudah di pahami oleh pemrogram...

kira- kira begini lah struktur case.
               
                        Sintax  :    Select Case Variabel
                                         Case Value1
                                                    Statemen1
                                         Case Value2
                                                    Statement2
                                          Case Value3
                                                     Statement3
                                           ................
                                           ................
                                           End Select

N/B : pencabangan "case" ini selalu di awali dengan "Select Case", dan diakhiri dengan "End Select".

Contoh program yang menggunakan struktur Case untuk mencari nilai angka.

Desiglan form seperti ini :

klik dua kali di "proses nya".
tulis kan listing programnya :


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        Select Case n_angka.Text
            Case Is >= 80
                n_huruf.Text = "A"
            Case 70 To 79
                n_huruf.Text = "B"
            Case 60 To 69
                n_huruf.Text = "C"
            Case 50 To 59
                n_huruf.Text = "D"
            Case Is <= 49
                n_huruf.Text = "E"
        End Select
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        m_kuliah.Text = ""
        n_angka.Text = ""
        n_huruf.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class


sekian dulu tutorial nya,,dan semoga bermanfaat.
jika ada kesalahan nya,,mohon di luruskan..


untuk mendownload program yg udah jadi, silahkan download disini.

password : ucok_siburnung