Jawaban KUIS No : 3

Public Class Form1

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

        If user.Text = "Jhoy" And password.Text = "28791" Then

            Menu_Utama.show()

            Me.Hide()

        Else

            MsgBox("EROR")

            user.Text = ""

            password.Text = ""

        End If

    End Sub

 (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt

    Private Sub btnkeluar_Click nkeluar.Click

        End

    End Sub

End Class

Public Class Menu_Utama

    Private Sub GajiKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GajiKaryawanToolStripMenuItem.Click

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

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

        nama.Focus()

        jabatan.Items.Add("Mandor")

        jabatan.Items.Add("Kepala Bagian")

        jabatan.Items.Add("Staf")

        status.Items.Add("Menikah")

        status.Items.Add("Belum Menikah")

        Call 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

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

            Case "Kepala Bagian"

                gaji.Text = 2500000

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

            Case "Staf"

                gaji.Text = 1250000

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

        End Select

        status.Focus()

    End Sub

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

        Dim ket As String

        ket = status.Text = "Menikah"

        If jabatan.Text = "Mandor" Then

            istri.Text = 0.09 * 1750000

        ElseIf jabatan.Text = "Kepala Bagian" Then

            istri.Text = 0.09 * 2500000

        ElseIf jabatan.Text = "Staf" Then

            istri.Text = 0.09 * 1250000

        End If

        If status.Text = "Belum Menikah" Then

            istri.Text = 0

        End If

        jumlah.Focus()

    End Sub

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged

        If jumlah.Text = "1" Then

            anak.Text = 0.03 * Val(gaji.Text)

        ElseIf jumlah.Text >= "2" Then

            anak.Text = 0.07 * Val(gaji.Text)

        End If

        jam.Focus()

    End Sub

    Private Sub jam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jam.TextChanged

        If jabatan.Text = "Mandor" Then

            upah.Text = 7500 * Val(jam.Text)

        ElseIf jabatan.Text = "Kepala Bagian" Then

            upah.Text = 10000 * Val(jam.Text)

        ElseIf jabatan.Text = "Staf" Then

            upah.Text = 5000 * Val(jam.Text)

        End If

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        total.Text = Val(gaji.Text) + Val(istri.Text) + Val(anak.Text) + Val(upah.Text) - Val(pajak.Text)

    End Sub

    Sub buattabel()

        lv.Columns.Add("Nama", 180, HorizontalAlignment.Left)

        lv.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Status", 60, HorizontalAlignment.Left)

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

        lv.Columns.Add("Tunjangan Istri", 120, HorizontalAlignment.Left)

        lv.Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Tunjangan anak", 120, HorizontalAlignment.Left)

        lv.Columns.Add("Pajak", 60, HorizontalAlignment.Left)

        lv.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Total Gaji", 100, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.FullRowSelect = True

        lv.GridLines = 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(gaji.Text)

        lst.SubItems.Add(istri.Text)

        lst.SubItems.Add(jumlah.Text)

        lst.SubItems.Add(anak.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(jam.Text)

        lst.SubItems.Add(upah.Text)

        lst.SubItems.Add(total.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

        nama.Text = ""

        jabatan.Text = ""

        status.Text = ""

        gaji.Text = ""

        istri.Text = ""

        jumlah.Text = ""

        anak.Text = ""

        pajak.Text = ""

        jam.Text = ""

        upah.Text = ""

        total.Text = ""

        nama.Focus()

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        Call isitabel()

    End Sub

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click

        lv.Items.Clear()

    End Sub

    Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click

        End

    End Sub

End Class