CARA MENGGUNAKAN CASE

Di bawah ini adalah Form latihan IF jamak Yang menggunakan CASE

 

Di bawah ini adalah Listing Program Form di atas

Public Class Form1

    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("S111")

                SERI.Items.Add("GYOUNG")

            Case "SIEMEN"

                SERI.Items.Add("C55")

                SERI.Items.Add("M55")

            Case "MOTOROLLA"

                SERI.Items.Add("MX31")

                SERI.Items.Add("XM31")

        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 = 3000000

                    Case "N73" : HARGA.Text = 3500000

                    Case "S111" : HARGA.Text = 2000000

                    Case "GYOUNG" : HARGA.Text = 1800000

                    Case "C55" : HARGA.Text = 5000000

                    Case "M55" : HARGA.Text = 4500000

                    Case "MX31" : HARGA.Text = 3500000

                    Case "XM31" : HARGA.Text = 7000000

                End Select

            Case "SECOND"

                Select Case SERI.Text

                    Case "N70" : HARGA.Text = 2500000

                    Case "N73" : HARGA.Text = 3000000

                    Case "S111" : HARGA.Text = 1500000

                    Case "GYOUNG" : HARGA.Text = 1200000

                    Case "C55" : HARGA.Text = 4000000

                    Case "M55" : HARGA.Text = 4300000

                    Case "MX31" : HARGA.Text = 3100000

                    Case "XM31" : HARGA.Text = 6000000

                End Select

        End Select

    End Sub

    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("MOTOROLA")

        TIPE.Items.Add("SIEMEN")

        KONDISI.Items.Add("BARU")

        KONDISI.Items.Add("SECOND")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_HAPUS.Click

        TIPE.Text = ""

        SERI.Text = ""

        KONDISI.Text = ""

        HARGA.Text = ""

        JUMLAH.Text = ""

        TOTAL.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_KELUAR.Click

        End

    End Sub

    Private Sub JUMLAH_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JUMLAH.KeyPress

        If e.KeyChar = Chr(13) Then

            TOTAL.Text = HARGA.Text * JUMLAH.Text

        End If

    End Sub

End Class

CARA PROSESNYA

Jika di pilih salah satu TIPE, dan di pilih salah satu SERI dan di pilih salah satu kondisi maka yang akan terisi adalah HARGA

Untuk proses JUMLAH

*Jumlah di input sesuai yang kita inginkan, setelah itu di ENTER 

 

Untuk proses Hapus

*Klik tombol HAPUS maka semua data akan hilang

 

TOMBOL KELUAR

*Klik Tombol KELUAR, Maka program akan kembali ke FORM