Postingan 2

Jawaban Soal 3 (Khairunisyah Sadly)

Kasus: Penggajian karyawan

Listing Program:


Public Class Form_Login

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If User.Text = "nisya" And Pass.Text = "cinta" Then
            Menu_Utama.Show()
            Me.Hide()
        Else
            MsgBox("Maaf User Name dan Password Salah !")
            User.Text = ""
            Pass.Text = ""
            User.Focus()
        End If
    End Sub

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

    Private Sub Form_Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        User.Text = ""
        Pass.Text = ""
    End Sub
End Class

Public Class Menu_Utama

    Private Sub Pegawai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pegawai.Click
        Form_Data_Pegawai.Show()

    End Sub

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


Public Class Form_Data_Pegawai

    Private Sub Form_Data_Pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call status_karyawan()
        Call jabataaan()
        Call hapus_layar()
    End Sub
    Sub jabataaan()
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Staff")
        jabatan.Items.Add("Kepala Bagian")
    End Sub
    Sub hapus_layar()
        nip.Text = ""
        nama.Text = ""
        Gaji_lembur.Text = ""
        Jam.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjangan_Keluarga.Text = ""
        jumlah_anak.Text = ""
        tunjangan_anak.Text = ""
        pajak.Text = ""
        total_gaji.Text = ""
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = nip.Text
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(jabatan.Text)
        Lst.SubItems.Add(status.Text)
        Lst.SubItems.Add(gaji.Text)
        Lst.SubItems.Add(tunjangan_Keluarga.Text)
        Lst.SubItems.Add(jumlah_anak.Text)
        Lst.SubItems.Add(tunjangan_anak.Text)
        Lst.SubItems.Add(Jam.Text)
        Lst.SubItems.Add(Gaji_lembur.Text)
        Lst.SubItems.Add(pajak.Text)
        Lst.SubItems.Add(total_gaji.Text)
        LV.Items.Add(Lst)
    End Sub
    Sub status_karyawan()
        status.Items.Add("Menikah")
        status.Items.Add("Tidak_Menikah")
    End Sub
    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Call status_karyawan()
        Call TunjangaanIstri()
    End Sub
    Sub StatusKaryawan()
        If status.Text = "Menikah" Then
            tunjangan_Keluarga.Text = gaji.Text * 0.1
        Else
            tunjangan_Keluarga.Text = "Tidak Ada"
            jumlah_anak.Text = "Tidak Ada"
            tunjangan_anak.Text = "Tidak Ada"
        End If
    End Sub
    Sub hitung_TA()
        If jumlah_anak.Text = 1 Then
            tunjangan_anak.Text = 0.03 * Val(gaji.Text)
        ElseIf jumlah_anak.Text = 2 Then
            tunjangan_anak.Text = 0.07 * Val(gaji.Text)
        Else
            tunjangan_anak.Text = 0.07 * Val(gaji.Text)
        End If

    End Sub
    Sub HitungLembur()

        If jabatan.Text = "Staff" Then
            Gaji_lembur.Text = Val(Jam.Text) * 5000
        ElseIf jabatan.Text = "Mandor" Then
            Gaji_lembur.Text = Val(Jam.Text) * 7500
        Else
            Gaji_lembur.Text = Val(Jam.Text) * 10000
        End If

    End Sub
    Sub TunjangaanIstri()
        If status.Text = "Menikah" Then
            tunjangan_Keluarga.Text = 0.09 * Val(gaji.Text)
        Else
            tunjangan_Keluarga.Text = "0"
        End If
    End Sub
    Sub hitung_gaji()
        total_gaji.Text = Val(gaji.Text) + Val(tunjangan_Keluarga.Text) + Val(tunjangan_anak.Text) + Val(Gaji_lembur.Text) - Val(pajak.Text)
    End Sub
    Sub hitung_pajak()
        pajak.Text = 0.015 * Val(gaji.Text)
    End Sub
    Private Sub jumlah_anak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_anak.KeyPress
        If e.KeyChar = Chr(13) Then
            Call hitung_TA()
        End If
    End Sub
    Private Sub Proses_Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses_Simpan.Click


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

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        Call hapus_layar()
    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 jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        If jabatan.Text = "Mandor" Then
            gaji.Text = "1750000"
        ElseIf jabatan.Text = "Kepala Bagian" Then
            gaji.Text = "2500000"
        Else
            gaji.Text = "1250000"
        End If
    End Sub

    Private Sub Jam_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jam.KeyPress
        If e.KeyChar = Chr(13) Then
            Call HitungLembur()
            Call hitung_pajak()
            Call hitung_gaji()
        End If
    End Sub

End Class

Hasil Program:

                       Tampilan Form_Login

 

                     Tampilan Menu_Utama

                 Tampilan Form_Data_Pegawai