PROGRAM PENGGAJIAN PT.TELKOM

Public Class Form3

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

        gol.Items.Add("III A")

        gol.Items.Add("III B")

        gol.Items.Add("III C")

    End Sub

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

        If gol.Text = "III A" Then

            gaji.Text = 1500000

        ElseIf gol.Text = "III B" Then

            gaji.Text = 2500000

        Else

            gaji.Text = 3500000

        End If

    End Sub

  

    Private Sub gaji_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji.TextChanged

        pajak.Text = 0.015 * gaji.Text

    End Sub

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

        If Asc(e.KeyChar) = 13 Then

            gajiber.Text = Val(gaji.Text - pinjaman.Text)

        End If

    End Sub

End Class

PROGRAM PEMAKAIAN LISTRIK

Public Class Form2

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

        kode.Items.Add("Medan")

        kode.Items.Add("Belawan")

        kode.Items.Add("Aksara")

        kode.Items.Add("Marendal")

        kode.Items.Add("Binjai")

        kode.Items.Add("Lubuk Pakam")

        tok.Items.Add("Toko")

        tok.Items.Add("Rumah")

        tok.Items.Add("Swalayan")

        tok.Items.Add("Pabrik")

        Call buattabel()

        Call isitabel()

    End Sub

    Private Sub daerah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.TextChanged

     

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(kode.Text, 2)

        If x = "Me" Then

            daerah.Text = "MED"

        ElseIf x = "Be" Then

            daerah.Text = "BEL"

        ElseIf x = "Ak" Then

            daerah.Text = "TEM"

        ElseIf x = "Ma" Then

            daerah.Text = "MAR"

        ElseIf x = "Bi" Then

            daerah.Text = "BIN"

        Else

            daerah.Text = "PAK"

        End If

    End Sub

    Private Sub tok_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tok.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(tok.Text, 2)

        If x = "To" Then

            tipe.Text = "TOK"

            biaya.Text = "150000"

            harga.Text = "500"

        ElseIf x = "Ru" Then

            tipe.Text = "RUM"

            biaya.Text = "50000"

            harga.Text = "200"

        ElseIf x = "Sw" Then

            tipe.Text = "SWA"

            biaya.Text = "400000"

            harga.Text = "1500"

        Else

            tipe.Text = "PAB"

            biaya.Text = "1000000"

            harga.Text = "10000"

        End If

    End Sub

    Private Sub jumlahkwh_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)

    End Sub

    Private Sub jumlahkwh_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

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

     

    End Sub

    Private Sub jumlahpem_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahpem.TextChanged

    End Sub

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

        If Asc(e.KeyChar) = 13 Then

            totalt.Text = Val(biaya.Text) + harga.Text * jumlahpem.Text

            pajak.Text = 0.015 * totalt.Text

            pembayaran.Text = pajak.Text + totalt.Text

        End If

    End Sub

    Sub buattabel()

        ListView1.Columns.Add("Nama", 80, HorizontalAlignment.Center)

        ListView1.Columns.Add("Daerah", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Kode", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Toko", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Tipe", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Biaya", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Harga/KWH", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Jumlah Pemakaian", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Pajak", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Total Tagihan", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Pembayaran", 75, HorizontalAlignment.Center)

        ListView1.View = View.Details

        ListView1.GridLines = True

        ListView1.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim isi As New ListViewItem

        isi.Text = nama.Text

        isi.SubItems.Add(daerah.Text)

        isi.SubItems.Add(kode.Text)

        isi.SubItems.Add(tok.Text)

        isi.SubItems.Add(tipe.Text)

        isi.SubItems.Add(biaya.Text)

        isi.SubItems.Add(harga.Text)

        isi.SubItems.Add(jumlahpem.Text)

        isi.SubItems.Add(pajak.Text)

        isi.SubItems.Add(totalt.Text)

        isi.SubItems.Add(pembayaran.Text)

        ListView1.Items.Add(isi)

    End Sub

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

        Call isitabel()

    End Sub

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

        ListView1.Items.Remove(ListView1.SelectedItems(0))

    End Sub

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

        End

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        nama.Text = ""

        daerah.Text = ""

        kode.Text = ""

        tok.Text = ""

        tipe.Text = ""

        biaya.Text = ""

        harga.Text = ""

        jumlahpem.Text = ""

        pajak.Text = ""

        totalt.Text = ""

        pembayaran.Text = ""

    End Sub

End Class

CONTOH DATA PENGGAJIAN PEGAWAI DENGAN MENGGUNAKAN VISUAL BASIC


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nik.Items.Add("PM010")
        nik.Items.Add("PS111")
        nik.Items.Add("KU101")
        nik.Items.Add("GD100")
        nik.Items.Add("PM0011")

        jabatan.Items.Add("KEPALA DIVISI")
        jabatan.Items.Add("STAFF")
        jabatan.Items.Add("WAKIL KEPALA")

        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")

        jumlaha.Items.Add("0")
        jumlaha.Items.Add("1")
        jumlaha.Items.Add("2")

        Call buattabel()
    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case "PM010"
                nama.Text = "arifin fitri yasa"
            Case "PS111"
                nama.Text = "doni arman"
            Case "KU101"
                nama.Text = "saya sendiri"
            Case "GD100"
                nama.Text = "ftannn"
            Case Else
                nama.Text = "grolll"
        End Select

        Dim a As String
        a = Microsoft.VisualBasic.Left(nik.Text, 2)
        If a = "PM" Then
            bagian.Text = "pemasaran"
        ElseIf a = "PS" Then
            bagian.Text = "personalia"
        ElseIf a = "KU" Then
            bagian.Text = "keuangan"
        ElseIf a = "GD" Then
            bagian.Text = "gudang"
        ElseIf a = "PM" Then
            bagian.Text = "pemotongan"
        End If
    End Sub

    Sub isitabel()
        Dim isi As New ListViewItem
        isi.Text = (nik.Text)
        isi.SubItems.Add(nama.Text)
        isi.SubItems.Add(bagian.Text)
        isi.SubItems.Add(jabatan.Text)
        isi.SubItems.Add(gajip.Text)
        isi.SubItems.Add(pajak.Text)
        isi.SubItems.Add(status.Text)
        isi.SubItems.Add(tunjangank.Text)
        isi.SubItems.Add(jumlaha.Text)
        isi.SubItems.Add(tunjangana.Text)
        isi.SubItems.Add(totalg.Text)
        ListView1.Items.Add(isi)


    End Sub

    Sub buattabel()
        ListView1.Columns.Add("NIK", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Nama", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Bagian", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Jabatan", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Gaji Pokok", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Pajak", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Status", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tunjangan Keluarga", 85, HorizontalAlignment.Center)
        ListView1.Columns.Add("Jumlah Anak", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tunjangan Anak", 85, HorizontalAlignment.Center)
        ListView1.Columns.Add("Total Gaji", 75, HorizontalAlignment.Center)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "KEPALA DIVISI"
                gajip.Text = "2500000"
            Case "STAFF"
                gajip.Text = "1500000"
            Case Else
                gajip.Text = "1000000"
        End Select
        pajak.Text = gajip.Text * 0.1

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "Menikah"
                tunjangank.Text = gajip.Text * 0.15
            Case "Tidak Menikah"
                jumlaha.Text = ""
                tunjangank.Text = 0
        End Select

    End Sub

    Private Sub jumlaha_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlaha.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Select Case jumlaha.Text
                Case "0"
                    tunjangana.Text = 0
                Case "1"
                    tunjangana.Text = gajip.Text * 0.05
                Case "2"
                    tunjangana.Text = gajip.Text * 0.1
                Case Else
                    tunjangana.Text = gajip.Text * 0.5
            End Select
        End If
        totalg.Text = Val(gajip.Text) + Val(tunjangana.Text) + Val(tunjangank.Text) - Val(pajak.Text)
        totalg.Enabled = False
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        nama.Text = ""
        nik.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        tunjangana.Text = ""
        tunjangank.Text = ""
        pajak.Text = ""
        status.Text = ""
        gajip.Text = ""
        totalg.Text = ""
        jumlaha.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub

 
    Private Sub listview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listview.Click
        Call isitabel()
    End Sub
End Class