jawaban no. 3 sepdiarina

Public Class Login

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

    End Sub

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click

        If Username.Text = "sepdiarina" And password.Text = "111" Then

            Pegawai.Show()

            Me.Hide()

        Else

            MsgBox("data username/password salah?")

            Username.Text = ""

            password.Text = ""

        End If

    End Sub

    Private Sub BTNKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKeluar.Click

        End

    End Sub

End Class

 

Public Class Pegawai

    Sub listjabatan()

        jabatan.Items.Add("Mandor")

        jabatan.Items.Add("Kepala Bagian")

        jabatan.Items.Add("Staff")

    End Sub

    Sub listjam()

        jam.Items.Add("1")

        jam.Items.Add("2")

        jam.Items.Add("3")

    End Sub

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

        buattabel()

        Call listjabatan()

        Call liststatus()

        Call listjam()

    End Sub

    Private Sub cmdkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click

        End

    End Sub

    Private Sub cmdproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdproses.Click

        pajak.Text = Val(1.5 / 100 * gapok.Text)

        tot.Text = Val(gapok.Text) + Val(tun_istri.Text) + Val(tun_anak.Text) + Val(gaji_lembur.Text) - Val(pajak.Text)

    End Sub

    Private Sub cmdhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapus.Click

        nm.Text = ""

        jabatan.Text = ""

        gapok.Text = ""

        status.Text = ""

        anak.Text = ""

        tun_istri.Text = ""

        tun_anak.Text = ""

        pajak.Text = ""

        jam.Text = ""

        gaji_lembur.Text = ""

        tot.Text = ""

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        If status.Text = "menikah" Then

            tun_istri.Text = Val(9 / 100 * gapok.Text)

        End If

    End Sub

    Sub liststatus()

        status.Items.Add("menikah")

        status.Items.Add("lajang")

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        If jabatan.Text = "Mandor" Then

            gapok.Text = "1750000"

        ElseIf jabatan.Text = "Kepala Bagian" Then

            gapok.Text = "2500000"

        ElseIf jabatan.Text = "Staff" Then

            gapok.Text = "1250000"

        End If

    End Sub

    Private Sub anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anak.SelectedIndexChanged

        If status.Text = "menikah" And anak.Text = "1" Then

            tun_anak.Text = Val(3 / 100 * gapok.Text)

        ElseIf status.Text = "menikah" And anak.Text = "2" Then

            tun_anak.Text = Val(7 / 100 * gapok.Text)

        ElseIf status.Text = "menikah" And anak.Text = ">= 2" Then

            tun_anak.Text = Val(7 / 100 * gapok.Text)

        End If

    End Sub

    Private Sub jam_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jam.SelectedIndexChanged

        Select Case jabatan.Text

            Case "Mandor"

                Select Case jam.Text

                    Case "1" : gaji_lembur.Text = "7500"

                    Case "2" : gaji_lembur.Text = "15000"

                    Case "3" : gaji_lembur.Text = "22500"

                End Select

            Case "Bagian Kepala"

                Select Case jam.Text

                    Case "1" : gaji_lembur.Text = "10000"

                    Case "2" : gaji_lembur.Text = "20000"

                    Case "3" : gaji_lembur.Text = "30000"

                End Select

            Case "Staff"

                Select Case jam.Text

                    Case "1" : gaji_lembur.Text = "5000"

                    Case "2" : gaji_lembur.Text = "10000"

                    Case "3" : gaji_lembur.Text = "15000"

                End Select

        End Select

    End Sub

    Sub buattabel()

        lv.Columns.Add("Nama", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Status", 90, HorizontalAlignment.Center)

        lv.Columns.Add("Anak", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Tunjangan Istri", 110, HorizontalAlignment.Center)

        lv.Columns.Add("Tunjangan Anak", 120, HorizontalAlignment.Center)

        lv.Columns.Add("Pajak", 110, HorizontalAlignment.Center)

        lv.Columns.Add("Jam Lembur", 120, HorizontalAlignment.Center)

        lv.Columns.Add("Gaji Lembur", 110, HorizontalAlignment.Center)

        lv.Columns.Add("Total Gaji", 120, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = nm.Text

        lst.SubItems.Add(jabatan.Text)

        lst.SubItems.Add(gapok.Text)

        lst.SubItems.Add(status.Text)

        lst.SubItems.Add(anak.Text)

        lst.SubItems.Add(tun_istri.Text)

        lst.SubItems.Add(tun_anak.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(jam.Text)

        lst.SubItems.Add(gaji_lembur.Text)

        lst.SubItems.Add(tot.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click

        isitabel()

        nm.Text = ""

        jabatan.Text = ""

        gapok.Text = ""

        status.Text = ""

        anak.Text = ""

        tun_istri.Text = ""

        tun_anak.Text = ""

        jam.Text = ""

        gaji_lembur.Text = ""

        tot.Text = ""

    End Sub

End Class