Latihan Singkat Tentang Handphone

Di bawah ini adalah form yang akan kita kerjakan

Di bawah ini adalah Listing Programnya

Public Class Form1

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click

        End

    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 TIPE_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TIPE.SelectedIndexChanged

        SERI.Items.Clear()

        If TIPE.Text = "NOKIA" Then

            SERI.Items.Add("N70")

            SERI.Items.Add("N73")

        ElseIf TIPE.Text = "SAMSUNG" Then

            SERI.Items.Add("SIII")

            SERI.Items.Add("GYOUNG")

        ElseIf TIPE.Text = "SIEMEN" Then

            SERI.Items.Add("C55")

            SERI.Items.Add("M55")

        ElseIf TIPE.Text = "MOTOROLA" Then

            SERI.Items.Add("MX31")

            SERI.Items.Add("XM31")

        End If

    End Sub

    Private Sub KONDISI_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KONDISI.SelectedIndexChanged

        If SERI.Text = "N70" And KONDISI.Text = "BARU" Then

            HARGA.Text = 3000000

        ElseIf SERI.Text = "N70" And KONDISI.Text = "SECOND" Then

            HARGA.Text = 2000000

        ElseIf SERI.Text = "N73" And KONDISI.Text = "BARU" Then

            HARGA.Text = 3500000

        ElseIf SERI.Text = "N73" And KONDISI.Text = "SECOND" Then

            HARGA.Text = 3000000

        ElseIf SERI.Text = "SIII" And KONDISI.Text = "BARU" Then

            HARGA.Text = 4000000

        ElseIf SERI.Text = "GYOUNG" And KONDISI.Text = "SECOND" Then

            HARGA.Text = 3800000

        ElseIf SERI.Text = "C55" And KONDISI.Text = "BARU" Then

            HARGA.Text = 1500000

        ElseIf SERI.Text = "M55" And KONDISI.Text = "SECOND" Then

            HARGA.Text = 1200000

        ElseIf SERI.Text = "MX31" And KONDISI.Text = "BARU" Then

            HARGA.Text = 2000000

        ElseIf SERI.Text = "XM31" And KONDISI.Text = "SECOND" Then

            HARGA.Text = 1800000

        End If

    End Sub

  

    Private Sub SERI_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SERI.SelectedIndexChanged

        KONDISI.Text = ""

    End Sub

End Class

PROSES NYA

* Jika di pilih salah satu TIPE

 *Dan di pilih salah satu SERI

 *Dan di pilih salah satu kondisi

 Maka HARGA akan TERISI

 TOMBOL KELUAR

*Klik tombpl KELUAR