tagihan listrik dan penggajian

 

Public Class Form1

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

        kd_daerah.Items.Add("MED")

        kd_daerah.Items.Add("BEL")

        kd_daerah.Items.Add("TEM")

        kd_daerah.Items.Add("MAR")

        kd_daerah.Items.Add("BIN")

        kd_daerah.Items.Add("PAK")

        tipe.Items.Add("TOK")

        tipe.Items.Add("RUM")

        tipe.Items.Add("SWA")

        tipe.Items.Add("PAB")

    End Sub

    Private Sub kd_daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_daerah.SelectedIndexChanged

        Select Case kd_daerah.Text

            Case "MED" : daerah.Text = "MEDAN"

            Case "BEL" : daerah.Text = "BELAWAN"

            Case "TEM" : daerah.Text = "AKSARA"

            Case "MAR" : daerah.Text = "MARENDAL"

            Case "BIN" : daerah.Text = "BINJAI"

            Case "PAK" : daerah.Text = "LUBUK PAKAM"

        End Select

    End Sub

    Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged

        Select Case tipe.Text

            Case "TOK" : kwh.Text = 500

            Case "RUM" : kwh.Text = 200

            Case "SWA" : kwh.Text = 1500

            Case "PAB" : kwh.Text = 10000

        End Select

        Select Case tipe.Text

            Case "TOK" : beban.Text = 150000

            Case "RUM" : beban.Text = 50000

            Case "SWA" : beban.Text = 400000

            Case "PAB" : beban.Text = 1000000

        End Select

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        jum_1bln.Text = jum_ini.Text - jum_lalu.Text

        jumtag.Text = beban.Text + kwh.Text * jum_1bln.Text

        pajak.Text = jumtag.Text * 0.015

        total.Text = jumtag.Text - pajak.Text

    End Sub

End Class

 

Public Class Form1

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

        gol.Items.Add("IIIA")

        gol.Items.Add("IIIB")

        gol.Items.Add("IIIC")sq ;

    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged

        Select Case gol.Text

            Case "IIIA" : gaji.Text = 1500000

            Case "IIIB" : gaji.Text = 2500000

            Case "IIIC" : gaji.Text = 3500000

        End Select

        pajak.Text = 0.015 * gaji.Text

    End Sub