jawaban SOAL 3 (ADI KOKO)

KASUS: KLIK DISINI

Public Class form_Login

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Close()

    End Sub

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click

        If user.Text = "koko" And pwd.Text = "adi" Then

            Form_Menu.Show()

            Me.Hide()

        Else

            MsgBox("MaaF! PAsword Salah!")

            user.Text = ""

            pwd.Text = ""

        End If

    End Sub

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

        Form_Menu.Show()

    End Sub

    Private Sub user_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles user.TextChanged

    End Sub

End Class

Public Class Form_Menu

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

        End

    End Sub

    Private Sub DataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataKaryawanToolStripMenuItem.Click

        Form_DataKaryawan.Show()

    End Sub

End Class

Public Class Form_DataKaryawan

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

        Close()

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        Call addapus()

    End Sub

    Sub buattabel()

        LV.Columns.Add("Nama Karyawan", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Golongan", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Gaji Pokok", 180, HorizontalAlignment.Center)

        LV.Columns.Add("pajak", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Status Kerja", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Jam Lembur", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Status", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Jumlah Anak", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Tunjangan Istri", 120, HorizontalAlignment.Center)

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

        LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim Lst As New ListViewItem

        Lst.Text = n_karyawan.Text

        Lst.SubItems.Add(gol.Text)

        Lst.SubItems.Add(gajpokok.Text)

        Lst.SubItems.Add(gajpokok.Text)

        Lst.SubItems.Add(pajak.Text)

        Lst.SubItems.Add(Slembur.Text)

        Lst.SubItems.Add(jamlembur.Text)

        Lst.SubItems.Add(lembur.Text)

        Lst.SubItems.Add(status.Text)

        Lst.SubItems.Add(jmlanak.Text)

        Lst.SubItems.Add(tunjanganistri.Text)

        Lst.SubItems.Add(tunjangananak.Text)

        Lst.SubItems.Add(totgaji.Text)

        LV.Items.Add(Lst)

    End Sub

    Private Sub addapus()

        lembur.Text = ""

        n_karyawan.Text = ""

        gol.Text = ""

        gajpokok.Text = ""

        pajak.Text = ""

        status.Text = ""

        jmlanak.Text = ""

        tunjanganistri.Text = ""

        tunjangananak.Text = ""

        totgaji.Text = ""

        jamlembur.Text = ""

        Slembur.Text = ""

        gol.Focus()

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        totgaji.Text = Val(gajpokok.Text) + Val(tunjangananak.Text) + Val(tunjanganistri.Text) + Val(lembur.Text) - Val(pajak.Text)

    End Sub

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

        gol.Items.Add("Mandor")

        gol.Items.Add("Kepala Bagian")

        gol.Items.Add("Staf")

        Slembur.Items.Add("Lembur")

        Slembur.Items.Add("Tidak Lembur")

        status.Items.Add("MENIKAH")

        status.Items.Add("BELUM MENIKAH")

        jmlanak.Enabled = False

        Dim i As Integer

        For i = 1 To 5

            jamlembur.Items.Add(i)

        Next

        buattabel()

    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged

        If gol.Text = "Mandor" Then

            gajpokok.Text = 1750000

            pajak.Text = (0.015 * Val(gajpokok.Text))

        ElseIf gol.Text = "Kepala Bagian" Then

            gajpokok.Text = 2500000

            pajak.Text = (0.015 * Val(gajpokok.Text))

        ElseIf gol.Text = "Staf" Then

            gajpokok.Text = 1250000

            pajak.Text = (0.015 * Val(gajpokok.Text))

        Else

            gajpokok.Text = 0

        End If

    End Sub

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

        If status.Text = "BELUM MENIKAH" Then

            tunjangananak.Text = 0

            tunjanganistri.Text = 0

            jmlanak.Enabled = False

        ElseIf status.Text = "MENIKAH" Then

            jmlanak.Enabled = True

            tunjanganistri.Text = (0.09 * Val(gajpokok.Text))

        End If

    End Sub

    Private Sub jmlanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlanak.TextChanged

        If jmlanak.Text = "" Then

            tunjangananak.Text = 0

        ElseIf jmlanak.Text = 1 Then

            tunjangananak.Text = Val(jmlanak.Text) * (0.03 * Val(gajpokok.Text))

        ElseIf jmlanak.Text = 2 Then

            tunjangananak.Text = 2 * (0.07 * Val(gajpokok.Text))

        ElseIf jmlanak.Text >= 2 Then

            tunjangananak.Text = 2 * (0.07 * Val(gajpokok.Text))

        End If

    End Sub

    Private Sub nid_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamlembur.SelectedIndexChanged

        If gol.Text = "Mandor" Then

            If jamlembur.Text = 1 Then

                lembur.Text = 1 * (5000)

            ElseIf jamlembur.Text = 2 Then

                lembur.Text = 2 * (5000)

            ElseIf jamlembur.Text = 3 Then

                lembur.Text = 3 * (5000)

            ElseIf jamlembur.Text = 4 Then

                lembur.Text = 4 * (5000)

            ElseIf jamlembur.Text = 5 Then

                lembur.Text = 5 * (5000)

            Else

                lembur.Text = 0

            End If

        ElseIf gol.Text = "Kepala Bagian" Then

            If jamlembur.Text = 1 Then

                lembur.Text = 1 * (10000)

            ElseIf jamlembur.Text = 2 Then

                lembur.Text = 2 * (10000)

            ElseIf jamlembur.Text = 3 Then

                lembur.Text = 3 * (10000)

            ElseIf jamlembur.Text = 4 Then

                lembur.Text = 4 * (10000)

            ElseIf jamlembur.Text = 5 Then

                lembur.Text = 5 * (10000)

            Else

                lembur.Text = 0

            End If

        ElseIf gol.Text = "Staf" Then

            If jamlembur.Text = 1 Then

                lembur.Text = 1 * (7500)

            ElseIf jamlembur.Text = 2 Then

                lembur.Text = 2 * (7500)

            ElseIf jamlembur.Text = 3 Then

                lembur.Text = 3 * (7500)

            ElseIf jamlembur.Text = 4 Then

                lembur.Text = 4 * (7500)

            ElseIf jamlembur.Text = 5 Then

                lembur.Text = 5 * (7500)

            Else

                lembur.Text = 0

            End If

        End If

    End Sub

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

        isitabel()

        n_karyawan.Text = ""

        jamlembur.Text = ""

        lembur.Text = ""

        gol.Text = ""

        gajpokok.Text = ""

        pajak.Text = ""

        status.Text = ""

        Slembur.Text = ""

        jmlanak.Text = ""

        tunjanganistri.Text = ""

        tunjangananak.Text = ""

        totgaji.Text = ""

        lembur.Focus()

    End Sub

  

    Private Sub Slembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Slembur.SelectedIndexChanged

        If Slembur.Text = "Tidak Lembur" Then

            jamlembur.Enabled = False

                lembur.Enabled = False

        ElseIf Slembur.Text = "Lembur" Then

            lembur.Enabled = True

            jamlembur.Enabled = True

        End If

    End Sub

    Private Sub btnhapus1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus1.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub btnhapus2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus2.Click

        LV.Items.Clear()

    End Sub

End Class