Selasa, 10 Desember 2013

Program Penggajian Karyawan

Form Design:


Listing Program:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call ceknik()
        Call cekjabatan()
        Call cekjumlahanak()
        Call cekstatus()

    End Sub
    Sub ceknik()
        nik.Items.Add("PM010")
        nik.Items.Add("PS111")
        nik.Items.Add("KU101")
        nik.Items.Add("GD100")
        nik.Items.Add("PM011")
    End Sub

    Sub cekjabatan()
        jabatan.Items.Add("Kepala Divisi")
        jabatan.Items.Add("Staff")
        jabatan.Items.Add("Wakil")

    End Sub
    Sub cekstatus()
        Status.Items.Add("Menikah")
        Status.Items.Add("Tidak Menikah")

    End Sub

    Sub cekjumlahanak()
        Dim x As Integer
        For x = 1 To 2
            jumlah_anak.Items.Add(x)
        Next

    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 = "Ryan"
            Case "PS111"
                nama.Text = "Syarifuddin"
            Case "KU101"
                nama.Text = "Riska"
            Case "GD100"
                nama.Text = "Andi"
            Case "PM011"
                nama.Text = "elvira"
        End Select
        Dim x As String
        x = Microsoft.VisualBasic.Left(nik.Text, 2)
        Select Case x
            Case "PM"
                bagian.Text = "PEMASARAN"
            Case "PS"
                bagian.Text = "PERSONALIA"
            Case "GD"
                bagian.Text = "GUDANG"
            Case "KU"
                bagian.Text = "KEUANGAN"

        End Select

    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"
                gaji_pokok.Text = 5000000
            Case "Staff"
                gaji_pokok.Text = 2000000
            Case "wakil"
                gaji_pokok.Text = 3500000

        End Select
        Pajak.Text = 0.1 * gaji_pokok.Text
    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"
                jumlah_anak.Enabled = True
                tunjangan_keluarga.Text = 0.15 * gaji_pokok.Text

            Case "Tidak Menikah"
                jumlah_anak.Enabled = False
                tunjangan_keluarga.Text = 0
                tunjangan_anak.Text = 0
                total_gaji.Text = Val(gaji_pokok.Text) - Val(Pajak.Text)

        End Select
    End Sub

    Private Sub jumlah_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah_anak.SelectedIndexChanged
        Select Case jumlah_anak.Text
            Case "1"
                tunjangan_anak.Text = 0.05 * gaji_pokok.Text
            Case "2"
                tunjangan_anak.Text = 0.1 * gaji_pokok.Text
        End Select
        total_gaji.Text = Val(gaji_pokok.Text) - Val(Pajak.Text) + Val(tunjangan_keluarga.Text) + Val(tunjangan_anak.Text)
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        nik.Text = ""
        nama.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        gaji_pokok.Text = ""
        Pajak.Text = ""
        Status.Text = ""
        tunjangan_keluarga.Text = ""
        tunjangan_anak.Text = ""
        total_gaji.Text = ""
        jumlah_anak.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

Hasil Output:


0 komentar:

Posting Komentar

 
Trail Of Waving Hearts