Public Class login
    Private Sub masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles masuk.Click
        If nama.Text = "syahru" And password.Text = "123" Then
            TM_Syahru_Ichsan.Show()
            Me.Hide()
        Else
            MsgBox("Unknown ID")
            nama.Text = ""
            password.Text = ""
            nama.Focus()
        End If
    End Sub
End Class

Public Class TM_Syahru_Ichsan
    Private Sub GajiPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GajiPegawaiToolStripMenuItem.Click
        Form1.MdiParent = Me
        Form1.Show()
    End Sub

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

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Staf")
        status.Items.Add("Menikah")
        status.Items.Add("Belum Menikah")
        statusKerja.Items.Add("Lembur")
        statusKerja.Items.Add("Tidak Lembur")

        Dim i As Integer
        For i = 1 To 8
            jamLembur.Items.Add(i & " " & "jam")
        Next
        jamLembur.Enabled = False
        status.Enabled = False
        jmlAnak.Enabled = False

        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"
                gaji.Text = 1750000
            Case "Kepala Bagian"
                gaji.Text = 2500000
            Case "Staf"
                gaji.Text = 1250000
        End Select
        pajak.Text = Val(gaji.Text * 0.015)
        jamLembur_SelectedIndexChanged(sender, e)
        jmlAnak_TextChanged(sender, e)

        status.Enabled = True
        status_SelectedIndexChanged(sender, e)

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        On Error Resume Next
        Select Case status.Text
            Case "Menikah"
                tunjanganIstri.Text = Val(gaji.Text * 0.09)
                jmlAnak.Enabled = True
            Case "Belum Menikah"
                tunjanganIstri.Text = 0
                tunjanganAnak.Text = 0
                jmlAnak.Enabled = False
                jmlAnak.Text = ""
        End Select

    End Sub

    Private Sub jmlAnak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlAnak.TextChanged
        On Error Resume Next
        If jmlAnak.Text = 1 Then
            tunjanganAnak.Text = Val(gaji.Text * 0.03)
        Else
            tunjanganAnak.Text = Val(gaji.Text * 0.07)
        End If

        If jmlAnak.Text = "" Then
            tunjanganAnak.Text = 0
        End If
    End Sub

    Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
        totalGaji.Text = Val(gaji.Text) + Val(tunjanganIstri.Text) + Val(tunjanganAnak.Text) + Val(upahLembur.Text) - Val(pajak.Text)
    End Sub

    Private Sub statusKerja_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles statusKerja.SelectedIndexChanged
        Select Case statusKerja.Text
            Case "Lembur"
                jamLembur.Enabled = True
            Case "Tidak Lembur"
                jamLembur.Enabled = False
                jamLembur.Text = ""
                upahLembur.Text = 0
        End Select
    End Sub

    Private Sub jamLembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamLembur.SelectedIndexChanged
        Select Case jabatan.Text
            Case "Kepala Bagian"
                upahLembur.Text = 10000 * Val(Microsoft.VisualBasic.Left(jamLembur.Text, 1))
            Case "Mandor"
                upahLembur.Text = 7500 * Val(Microsoft.VisualBasic.Left(jamLembur.Text, 1))
            Case "Staf"
                upahLembur.Text = 5000 * Val(Microsoft.VisualBasic.Left(jamLembur.Text, 1))
        End Select
    End Sub
    Sub buattabel()
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Status", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Jml Anak", 60, HorizontalAlignment.Left)
        LV.Columns.Add("Status Kerja", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Jam Lembur", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Upah Lembur", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Tjg Anak", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Tjg Istri", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Gaji Pokok", 90, HorizontalAlignment.Left)
        LV.Columns.Add("Total Gaji", 90, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nama.Text
        lst.SubItems.Add(jabatan.Text)
        lst.SubItems.Add(status.Text)
        lst.SubItems.Add(jmlAnak.Text)
        lst.SubItems.Add(statusKerja.Text)
        lst.SubItems.Add(jamLembur.Text)
        lst.SubItems.Add("Rp. " & pajak.Text)
        lst.SubItems.Add("Rp. " & upahLembur.Text)
        lst.SubItems.Add("Rp. " & tunjanganAnak.Text)
        lst.SubItems.Add("Rp. " & tunjanganIstri.Text)
        lst.SubItems.Add("Rp. " & gaji.Text)
        lst.SubItems.Add("Rp. " & totalGaji.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        nama.Text = ""
        jabatan.Text = ""
        status.Text = ""
        jmlAnak.Text = ""
        statusKerja.Text = ""
        jamLembur.Text = ""
        pajak.Text = ""
        upahLembur.Text = ""
        tunjanganAnak.Text = ""
        tunjanganIstri.Text = ""
        gaji.Text = ""
        totalGaji.Text = ""
        nama.Focus()

    End Sub


    Private Sub HapusPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusPilih.Click
        LV.Items.Remove(LV.FocusedItem)
    End Sub

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

    Private Sub hapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusSemua.Click
        LV.Items.Clear()
    End Sub

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