Contoh Penggunaan Fungsi Case pada VB Net 2008

Artikel ini akan membahas tentang Contoh Penggunaan Fungsi Case VB Net 2008
Desain form :


Source Code :

Public Class Form1

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

        kd_barang.Items.Add("001")

        kd_barang.Items.Add("002")

        kd_barang.Items.Add("003")

        kd_barang.Items.Add("004")

        kd_barang.Items.Add("005")

    End Sub

    Private Sub kd_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_barang.SelectedIndexChanged

        Select Case kd_barang.Text

            Case "001"

                nm_barang.Text = "Laptop"

                harga.Text = 4500000

            Case "002"

                nm_barang.Text = "Tablet"

                harga.Text = 3000000

            Case "003"

                nm_barang.Text = "PC"

                harga.Text = 2500000

            Case "004"

                nm_barang.Text = "printer"

                harga.Text = 500000

            Case "005"

                nm_barang.Text = "Mouse"

                harga.Text = 45000

        End Select

    End Sub

  

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        tot_harga.Text = Val(harga.Text) * Val(jumlah.Text)

    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click

        kd_barang.Text = ""

        nm_barang.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        tot_harga.Text = ""

    End Sub

    Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click

        Close()

    End Sub

End Class

Penjelasan singkat coding :
 

Ketika program tersebut dijalankan, maka akan seperti berikut :
 

Sekian untuk pembahasan kali ini mengenai VB Net 2008,
Semoga bermanfaat..!! :)