SOAL NO 3

 PENGINPUTAN GAJI KARYAWAN


Public Class Form_Penggajian_Karyawan

    Private Sub Form_Penggajian_Karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("A01")
        kode.Items.Add("A02")
        kode.Items.Add("A03")
        kode.Items.Add("A04")
        kode.Items.Add("A05")
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Staff")

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

        Call buattabel()
    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "Mandor" : Me.gaji_poko.Text = 1750000
            Case "Kepala Bagian" : Me.gaji_poko.Text = 2500000
            Case "Staff" : Me.gaji_poko.Text = 1250000
        End Select
    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" : Me.tunjangan_istri.Text = gaji_poko.Text * 0.09
                pajak.Text = 0.015 * gaji_poko.Text
            Case "Tidak Menikah" : Me.tunjangan_istri.Text = 0
                jumlah_anak.Text = 0 : Me.tujangan_anak.Text = 0
                pajak.Text = 0.015 * gaji_poko.Text
        End Select
    End Sub

    Private Sub jumlah_anak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_anak.KeyPress
        If Asc(e.KeyChar) = 13 Then
            If jumlah_anak.Text = 1 Then
                tujangan_anak.Text = gaji_poko.Text * 0.03
            ElseIf jumlah_anak.Text = 2 Then
                tujangan_anak.Text = gaji_poko.Text * 0.07
            ElseIf jumlah_anak.Text > 2 Then
                tujangan_anak.Text = 0
            End If
        End If
    End Sub

    Private Sub jam_Lembur_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jam_Lembur.KeyPress
        If Asc(e.KeyChar) = 13 Then
            If jabatan.Text = "Mandor" Then
                Upah_lembur.Text = 5000 * jam_Lembur.Text
            ElseIf jabatan.Text = "Kepala Bagian" Then
                Upah_lembur.Text = 7500 * jam_Lembur.Text
            ElseIf jabatan.Text = "Staff" Then
                Upah_lembur.Text = 10000 * jam_Lembur.Text
            End If
            total_gaji.Text = Val(gaji_poko.Text) + Val(tunjangan_istri.Text) + Val(tujangan_anak.Text) + Val(Upah_lembur.Text) - pajak.Text
        End If

    End Sub
    Sub buattabel()
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.Columns.Add("Kode", 80)
        lv.Columns.Add("Nama", 100)
        lv.Columns.Add("Jabatan", 120)
        lv.Columns.Add("Gaji Pokok", 100)
        lv.Columns.Add("Status", 100)
        lv.Columns.Add("Tunjangan Istri", 100)
        lv.Columns.Add("Jumlah Anak", 100)
        lv.Columns.Add("Tunjangan Anak", 100)
        lv.Columns.Add("Pajak", 100)
        lv.Columns.Add("Jam Lembur", 100)
        lv.Columns.Add("Upah Lembur", 100)
        lv.Columns.Add("Total Gaji", 100)
    End Sub


    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = kode.Text
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(jabatan.Text)
        Lst.SubItems.Add(gaji_poko.Text)
        Lst.SubItems.Add(status.Text)
        Lst.SubItems.Add(tunjangan_istri.Text)
        Lst.SubItems.Add(jumlah_anak.Text)
        Lst.SubItems.Add(tujangan_anak.Text)
        Lst.SubItems.Add(pajak.Text)
        Lst.SubItems.Add(jam_Lembur.Text)
        Lst.SubItems.Add(Upah_lembur.Text)
        Lst.SubItems.Add(total_gaji.Text)
        Lst.SubItems.Add(jumlah_anak.Text)
        LV.Items.Add(Lst)
    End Sub

    Sub berish(ByVal F As Form)
        Dim X As Object
        For Each X In F.Controls
            If TypeOf X Is TextBox Then X.Text = ""
            If TypeOf X Is ComboBox Then X.Text = ""
        Next
    End Sub
    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        Call berish(Me)
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        lv.Items.Clear()
    End Sub

    Private Sub hapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_data.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        Call IsiTabel()
    End Sub

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

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

        If kode.Text = "A01" Then
            nama.Text = "lailatul husnah"
        ElseIf kode.Text = "A02" Then
            nama.Text = "dicky"
        ElseIf kode.Text = "A03" Then
            nama.Text = "yudi"
        ElseIf kode.Text = "A04" Then
            nama.Text = "elin"


        End If

    End Sub
End Class

HASIL PROGRAM PENGGAJIAN





LOGIN 

Public Class Form_Login

    Private Sub Pass_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pass.KeyPress
        If Asc(e.KeyChar) = 13 Then
            If User.Text = "LELA" And Pass.Text = "678" Then
                Form_Menu_Utama.Show()
                Me.Hide()
            Else
                MsgBox("Maaf Username dan Password Salah")
                User.Text = ""
                Pass.Text = ""
                User.Focus()
            End If
        End If
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Close()
    End Sub

    Private Sub User_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles User.TextChanged

    End Sub

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

    End Sub
End Class

HASIL PROGRAM LOGIN

MENU UTAMA
 

Public Class Form_Menu_Utama

    Private Sub PenggajianKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PenggajianKaryawanToolStripMenuItem.Click
        Form_Penggajian_Karyawan.Show()
    End Sub

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

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

    End Sub

    Private Sub LaporanPenggajianKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanPenggajianKaryawanToolStripMenuItem.Click

    End Sub

    Private Sub FileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileToolStripMenuItem.Click

    End Sub
End Class

HASIL PROGRAM MENU UTAMA

Pengajian Karyawan