Gaji Pegawai Telkom

Public Class Form1

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

        NamaPeg.Items.Add("maijor Josua")

        NamaPeg.Items.Add("Andy Pratama")

        NamaPeg.Items.Add("Maulana")

        GolPeg.Items.Add("A")

        GolPeg.Items.Add("B")

        GolPeg.Items.Add("c")

        StaPeg.Items.Add("Menikah")

        StaPeg.Items.Add("Tidak Menikah")

    End Sub

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

        Pajak.Text = 0.1 * GaPo.Text

        TG.Text = GaPo.Text - Pajak.Text + TK.Text

    End Sub

    Private Sub GolPeg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GolPeg.SelectedIndexChanged

        Select Case GolPeg.Text

            Case "A"

                GaPo.Text = "1500000"

            Case "B"

                GaPo.Text = "2500000"

            Case "C"

                GaPo.Text = "3500000"

        End Select

    End Sub

    Private Sub StaPeg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StaPeg.SelectedIndexChanged

        Select Case StaPeg.Text

            Case "Menikah"

                TK.Text = 0.05 * GaPo.Text

            Case "Tidak Menikah"

                TK.Text = GaPo.Text

        End Select

    End Sub

End Class

Program Pemakain Listrik

Public Class Form1

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

        buattabel()

    End Sub

    Private Sub No_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles No.TextChanged

        Dim x As String

        No.Text = "1" & Microsoft.VisualBasic.Right(kode.Text, 2)

        x = Microsoft.VisualBasic.Mid(kode.Text, 4, 3)

        If x = "MED" Then

            Daerah.Text = "MEDAN"

            pjk.Text = 0.015

        ElseIf x = "BEL" Then

            Daerah.Text = "BELAWAN"

            pjk.Text = 0.015

        ElseIf x = "TEM" Then

            Daerah.Text = "AKSARA"

            pjk.Text = 0.015

        ElseIf x = "MAR" Then

            Daerah.Text = "MARENDAL"

            pjk.Text = 0.015

        ElseIf x = "BIN" Then

            Daerah.Text = "BINJAI"

            pjk.Text = 0.015

        ElseIf x = "PAK" Then

            Daerah.Text = "LUBUK PAKAM"

            pjk.Text = 0.015

        End If

        x = Microsoft.VisualBasic.Mid(kode.Text, 1, 3)

        If x = "TOK" Then

            Tipe.Text = "TOKO"

            harga.Text = "500"

            biaya.Text = "150000"

        ElseIf x = "RUM" Then

            Tipe.Text = "RUMAH"

            harga.Text = "200"

            biaya.Text = "50000"

        ElseIf x = "SWA" Then

            Tipe.Text = "SWALAYAN"

            harga.Text = "1500"

            biaya.Text = "400000"

        ElseIf x = "PAB" Then

            Tipe.Text = "PABRIK"

            biaya.Text = "1000000"

            harga.Text = "10000"

        End If

    End Sub

    Sub buattabel()

        Lv.Columns.Add("TANGGAL BAYAR", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NO. URUT", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("DAERAH", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("BEBAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("METERAN BULAN LALU", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("METERAN BULAN SEKARANG", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("HARGA PER KWH", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("BESAR PEMAKAIAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TAGIHAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TOTAL BAYAR", 80, HorizontalAlignment.Left)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = tgl.Text

        lst.SubItems.Add(No.Text)

        lst.SubItems.Add(kode.Text)

        lst.SubItems.Add(Daerah.Text)

        lst.SubItems.Add(Tipe.Text)

        lst.SubItems.Add(biaya.Text)

        lst.SubItems.Add(meterlalu.Text)

        lst.SubItems.Add(metersekarang.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(besar.Text)

        lst.SubItems.Add(Pajak.Text)

        lst.SubItems.Add(tagihan.Text)

        lst.SubItems.Add(total.Text)

        Lv.Items.Add(lst)

    End Sub

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

        isitabel()

        kode.Text = ""

        Daerah.Text = ""

        biaya.Text = ""

        Tipe.Text = ""

        meterlalu.Text = ""

        harga.Text = ""

        total.Text = ""

        metersekarang.Text = ""

        No.Text = ""

        tagihan.Text = ""

        besar.Text = ""

        pjk.Text = ""

    End Sub

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

        Lv.Items.Remove(Lv.SelectedItems(0))

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        kode.Text = ""

        Daerah.Text = ""

        biaya.Text = ""

        Tipe.Text = ""

        meterlalu.Text = ""

        harga.Text = ""

        total.Text = ""

        metersekarang.Text = ""

        No.Text = ""

        tagihan.Text = ""

        besar.Text = ""

        pjk.Text = ""

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Proses_Click(sender, e)

        End If

    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        besar.Text = metersekarang.Text - meterlalu.Text

        tagihan.Text = biaya.Text + (harga.Text * besar.Text)

        total.Text = tagihan.Text * 0.015

    End Sub

End Class