Jawaban Soal 3 (Sylvia Hartati Saragih)

Kasus: (klik disini)

Form Login:
- Listing Program:

Public Class Form1

    Sub Masuk()
        If username.Text = "via" And password.Text = "hartati" Then
            Me.Hide()
            Form2.Show()
        Else
            MsgBox("Login gagal!")
            Call HapusIsian()
        End If
    End Sub

    Sub HapusIsian()
        username.Text = ""
        password.Text = ""
    End Sub

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        Call Masuk()
    End Sub

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

Hasil Program:

Form Menu Utama:
- Listing Program:

Public Class Form2

    Private Sub FormPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormPenggajianToolStripMenuItem.Click
        Form3.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

Hasil Program:

Form Penggajian:
- Listing Program:

Public Class Form3

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

        jabatan.Items.Add("KaBag")
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Staff")

        status.Items.Add("Belum Menikah")
        status.Items.Add("Menikah")

        lembur.Items.Add("Lembur")
        lembur.Items.Add("Tidak Lembur")
    End Sub

    Sub BuatTabel()
        With LV
            .Columns.Add("NIK", 50, HorizontalAlignment.Left)
            .Columns.Add("Nama", 90, HorizontalAlignment.Left)
            .Columns.Add("Jabatan", 90, HorizontalAlignment.Left)
            .Columns.Add("Gaji", 70, HorizontalAlignment.Right)
            .Columns.Add("Status", 90, HorizontalAlignment.Center)
            .Columns.Add("Jlh Anak", 60, HorizontalAlignment.Center)
            .Columns.Add("Lembur", 50, HorizontalAlignment.Center)
            .Columns.Add("Jlh Jam", 60, HorizontalAlignment.Center)
            .Columns.Add("Tunj. Istri", 60, HorizontalAlignment.Right)
            .Columns.Add("Tunj. Anak", 70, HorizontalAlignment.Right)
            .Columns.Add("Lembur", 50, HorizontalAlignment.Right)
            .Columns.Add("Pajak", 50, HorizontalAlignment.Right)
            .Columns.Add("Total", 50, HorizontalAlignment.Right)
            .GridLines = True
            .FullRowSelect = True
            .View = View.Details
        End With
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        Call Proses()
    End Sub

    Sub Proses()
        Select Case jabatan.Text
            Case "Mandor"
                gaji.Text = 1750000
            Case "KaBag"
                gaji.Text = 2500000
            Case "Staff"
                gaji.Text = 1250000
        End Select

        Select Case status.Text
            Case "Belum Menikah"
                jumlahanak.Text = 0
                tunjanganistri.Text = 0
                tunjangananak.Text = 0
            Case "Menikah"
                tunjanganistri.Text = 0.09 * gaji.Text
                If jumlahanak.Text = 1 Then
                    tunjangananak.Text = 0.03 * gaji.Text
                ElseIf jumlahanak.Text >= 2 Then
                    tunjangananak.Text = 0.07 * gaji.Text
                Else
                    tunjangananak.Text = 0
                End If
        End Select

        Select Case lembur.Text
            Case "Tidak Lembur"
                jumlahlembur.Text = 0
                bonuslembur.Text = 0
            Case "Lembur"
                Select Case jabatan.Text
                    Case "Mandor"
                        bonuslembur.Text = 7500 * jumlahlembur.Text
                    Case "Staff"
                        bonuslembur.Text = 5000 * jumlahlembur.Text
                    Case "KaBag"
                        bonuslembur.Text = 10000 * jumlahlembur.Text
                End Select
        End Select
        pajak.Text = gaji.Text * 0.015
        totalgaji.Text = Val(gaji.Text) + Val(tunjanganistri.Text) + Val(tunjangananak.Text) + Val(bonuslembur.Text) - pajak.Text
    End Sub

    Sub Bersih()
        nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        jumlahanak.Text = ""
        lembur.Text = ""
        jumlahlembur.Text = ""
        tunjanganistri.Text = ""
        tunjangananak.Text = ""
        bonuslembur.Text = ""
        pajak.Text = ""
        totalgaji.Text = ""
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        Call Bersih()
    End Sub

    Sub IsiTabel()
        Dim lst As New ListViewItem
        With lst
            .Text = nik.Text
            .SubItems.Add(nama.Text)
            .SubItems.Add(jabatan.Text)
            .SubItems.Add(gaji.Text)
            .SubItems.Add(status.Text)
            .SubItems.Add(jumlahanak.Text)
            .SubItems.Add(lembur.Text)
            .SubItems.Add(jumlahlembur.Text)
            .SubItems.Add(tunjanganistri.Text)
            .SubItems.Add(tunjangananak.Text)
            .SubItems.Add(bonuslembur.Text)
            .SubItems.Add(pajak.Text)
            .SubItems.Add(totalgaji.Text)
            LV.Items.Add(lst)
        End With
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Call IsiTabel()
        Call Bersih()
    End Sub

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

End Class

Hasil Program: