Contoh Listing Program Case pada VB.Net 2008

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tipe.Items.Add("NOKIA")
        tipe.Items.Add("SAMSUNG")
        tipe.Items.Add("SIEMENS")
        tipe.Items.Add("MOTOROLA")
        kondisi.Items.Add("BARU")
        kondisi.Items.Add("SECOND")
    End Sub

    Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
        seri.Items.Clear()
        Select Case tipe.Text
            Case "NOKIA"
                seri.Items.Add("N70")
                seri.Items.Add("N73")
            Case "SAMSUNG"
                seri.Items.Add("Gyoung")
                seri.Items.Add("SIII")
            Case "SIEMENS"
                seri.Items.Add("C55")
                seri.Items.Add("M55")
            Case "MOTOROLA"
                seri.Items.Add("XM31")
                seri.Items.Add("MX31")
        End Select

    End Sub

    Private Sub kondisi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kondisi.SelectedIndexChanged
        harga.Text = 0
        Select Case kondisi.Text
            Case "BARU"
                Select Case seri.Text
                    Case "N70" : harga.Text = 1950000
                    Case "N73" : harga.Text = 2000000
                    Case "SIII" : harga.Text = 6000000
                    Case "Gyoung" : harga.Text = 3500000
                    Case "C55" : harga.Text = 950000
                    Case "M55" : harga.Text = 850000
                    Case "MX31" : harga.Text = 1000000
                    Case "XM31" : harga.Text = 700000
                End Select

            Case "SECOND"
                Select Case seri.Text
                    Case "N70" : harga.Text = 200000
                    Case "N73" : harga.Text = 2500000
                    Case "SIII" : harga.Text = 3500000
                    Case "Gyoung" : harga.Text = 900000
                    Case "C55" : harga.Text = 500000
                    Case "M55" : harga.Text = 400000
                    Case "MX31" : harga.Text = 600000
                    Case "XM31" : harga.Text = 300000
                End Select
        End Select
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        tipe.Text = ""
        seri.Text = ""
        kondisi.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
    End Sub