Kuis Online

 

Public Class Form1

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        Select Case Kode.Text

            Case "001"

                Nama.Text = "ABDUL"

            Case "002"

                Nama.Text = "RANI"

            Case "003"

                Nama.Text = "NITA"

            Case "004"

                Nama.Text = "DHANI"

        End Select

    End Sub

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

        Kode.Items.Add("001")

        Kode.Items.Add("002")

        Kode.Items.Add("003")

        Kode.Items.Add("004")

        Tipe.Items.Add("TOKO")

        Tipe.Items.Add("RUMAH")

        Tipe.Items.Add("SWALAYAN")

        Tipe.Items.Add("PABRIK")

        Daerah.Items.Add("MEDAN")

        Daerah.Items.Add("BELAWAN")

        Daerah.Items.Add("LUBUK PAKAM")

        Daerah.Items.Add("BINJAI")

    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

    End Sub

    Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged

        Select Case Tipe.Text

            Case "TOKO"

                Biaya.Text = 150000

                Harga.Text = 500

            Case "RUMAH"

                Biaya.Text = 50000

                Harga.Text = 200

            Case "SWALAYAN"

                Biaya.Text = 400000

                Harga.Text = 1500

            Case "PABRIK"

                Biaya.Text = 1000000

                Harga.Text = 10000

        End Select

    End Sub

    Private Sub Daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Daerah.SelectedIndexChanged

        Select Case Daerah.Text

            Case "001"

                Daerah.Text = "MEDAN"

            Case "002"

                Daerah.Text = "BELAWAN"

            Case "003"

                Daerah.Text = "BINJAI"

            Case "004"

                Daerah.Text = "LUBUK PAKAM"

        End Select

    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click

        TotalT.Text = Val(Biaya.Text) + Val(Harga.Text * Pemakaian.Text)

        Pajak.Text = 0.01 * TotalT.Text

        Pembayaran.Text = Val(TotalT.Text) + Val(Pajak.Text)

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        Kode.Text = ""

        Nama.Text = ""

        Tipe.Text = ""

        Harga.Text = ""

        Daerah.Text = ""

        Biaya.Text = ""

        Pemakaian.Text = ""

        TotalT.Text = ""

        Pajak.Text = ""

        Pembayaran.Text = ""

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        End

    End Sub

End Class