PENGGUNAAN FUNGSI CASE

Public Class Form1

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

        KB.ITEMS.ADD("TS001")

        KB.ITEMS.ADD("TS002")

        KB.ITEMS.ADD("VG001")

        KB.ITEMS.ADD("VG002")

    End Sub

    Private Sub KODE_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB.SelectedIndexChanged

        Dim XKB As String

        XKB = Microsoft.VisualBasic.Left(KB.Text, 2)

        Select Case XKB

            Case "TS"

                MERK.Text = "TOSHIBA"

            Case "VG"

                MERK.Text = "VGEN"

        End Select

        XKB = Microsoft.VisualBasic.Right(KB.Text, 3)

        Select Case XKB

            Case "001"

                NAMABARANG.Text = "FLASHDISK 4 GB"

            Case "002"

                NAMABARANG.Text = "FLASHDISK 2GB"

        End Select

    End Sub

End Class