Contoh Penggunaan Select Case dalam VB Net 2008

 Siapa yang ingin mempelajari penggunaan “Select Case” di VB???? ayoo belajar disini. Karena saya akan share ke kalian tentang penggunaan select case di dalam program VB tapi sebelumnya kita ketahui dulu apa itu “Select Case” supaya gak bingung hehehehe

Select Case digunakan untuk percabangan banyak. Select Case biasa dipakai untuk alternatif Bentuk If..Then..Else, karena code-codenya lebih mudah dibaca atau tidak ruwet :) hehe...

Bentuk dari Select Case adalah sebagai berikut:

Select Case <kondisi>
Case <ekspresi-1>
 <pernyataan-1>
 ...
 <pernyataan-1>
Case <ekspresi-2>
<pernyataan-2>
 ...
 <pernyataan-2>
Case else
 <pernyataan –n>
End Select

Contoh Programnya sebagai berikut tentang "PENJUALAN"

-       

Berikut Coddingnya :

Public Class Form1

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

        jenis.Items.Add("LAPTOP")

        jenis.Items.Add("HANDPHONE")

    End Sub

    Private Sub jenis_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jenis.SelectedIndexChanged

        merk.Items.Clear()

        Select Case jenis.Text

            Case "LAPTOP"

                merk.Items.Add("ACER")

                merk.Items.Add("THOSIBA")

                merk.Items.Add("ASUS")

            Case "HANDPHONE"

                merk.Items.Add("NOKIA")

                merk.Items.Add("SAMSUNG")

                merk.Items.Add("BLACKBERRY")

        End Select

    End Sub

    Private Sub merk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles merk.SelectedIndexChanged

        Select Case merk.Text

            Case "ACER"

                harga.Text = 4500000

            Case "THOSIBA"

                harga.Text = 5100000

            Case "ASUS"

                harga.Text = 4000000

            Case "NOKIA"

                harga.Text = 1500000

            Case "SAMSUNG"

                harga.Text = 2100000

            Case "BLACKBERRY"

                harga.Text = 1600000

        End Select

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        totalharga.Text = (jumlahbeli.Text * harga.Text)

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        jenis.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.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