Postingan 2

Jawaban Soal 3 (Nining Elpika)

Public Class Form_Login


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If User.Text = "vika" And Pass.Text = "admin" 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

Imports System.Windows.Forms


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
        status.Items.Add("Menikah")
        status.Items.Add("Tidak_Menikah")


        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Staff")
        jabatan.Items.Add("Kepala Bagian")


        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
    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 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()


        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
    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
        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


    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