Penggajian Karyawan

Jawaban No 3 (Romida Rumapea)
Listing Program :
Public Class Form1

    Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
        If Username.Text = "romida" And Password.Text = "111" Then
            MenuUtama.Show()
            Me.Hide()
        Else
            MsgBox("Maaf Username/Password Salah!")
            Username.Text = ""
            Password.Text = ""
        End If
    End Sub
End Class
Hasil Program :

Listing Program :
Public Class MenuUtama

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

    Private Sub DataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataKaryawanToolStripMenuItem.Click
        DataKaryawan.Show()
    End Sub
End Class
Hasil Program :

Listing Program :

Public Class DataKaryawan

    Private Sub DataKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Tabel()
    End Sub

    Sub Tabel()
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Jabatan", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Gaji", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Status", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Tunjangan Istri", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Anak", 50, HorizontalAlignment.Left)
        LV.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Jam Lembur", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Lembur", 50, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 50, HorizontalAlignment.Left)
        LV.Columns.Add("Total Gaji", 80, 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(Gaji.Text)
        Lst.SubItems.Add(Status.Text)
        Lst.SubItems.Add(TunjanganIstri.Text)
        Lst.SubItems.Add(Anak.Text)
        Lst.SubItems.Add(TunjanganAnak.Text)
        Lst.SubItems.Add(JamLembur.Text)
        Lst.SubItems.Add(Lembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(Total.Text)
        LV.Items.Add(Lst)
    End Sub

    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("Staff")
        Status.Items.Add("Belum Menikah")
        Status.Items.Add("Menikah")
        Anak.Items.Add("1")
        Anak.Items.Add("2")
        Dim Jam As Byte
        For Jam = 1 To 24
            JamLembur.Items.Add(Jam)
        Next
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        IsiTabel()
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        TunjanganIstri.Text = ""
        Anak.Text = ""
        TunjanganAnak.Text = ""
        JamLembur.Text = ""
        Lembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        Select Case Jabatan.Text
            Case "Kepala Bagian"
                Gaji.Text = "2500000"
            Case "Mandor"
                Gaji.Text = "1750000"
            Case "Staff"
                Gaji.Text = "1250000"
        End Select
        If Jabatan.Text = "Kepala Bagian" Then
            Pajak.Text = Gaji.Text * 0.015
        End If
        If Jabatan.Text = "Mandor" Then
            Pajak.Text = Gaji.Text * 0.015
        End If
        If Jabatan.Text = "Staff" Then
            Pajak.Text = Gaji.Text * 0.015
        End If
    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        If Jabatan.Text = "Kepala Bagian" Then
            If Status.Text = "Menikah" Then
                TunjanganIstri.Text = Gaji.Text * 0.09
            Else
                TunjanganIstri.Text = 0
            End If
        ElseIf Jabatan.Text = "Mandor" Then
            If Status.Text = "Menikah" Then
                TunjanganIstri.Text = Gaji.Text * 0.09
            Else
                TunjanganIstri.Text = 0
            End If
        ElseIf Jabatan.Text = "Staff" Then
            If Status.Text = "Menikah" Then
                TunjanganIstri.Text = Gaji.Text * 0.09
            Else
                TunjanganIstri.Text = 0
            End If
        End If
    End Sub

    Private Sub Anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Anak.SelectedIndexChanged
        If Jabatan.Text = "Kepala Bagian" Then
            If Anak.Text = "1" Then
                TunjanganAnak.Text = Gaji.Text * 0.03
            ElseIf Anak.Text = "2" Then
                TunjanganAnak.Text = Gaji.Text * 0.07
            Else
                TunjanganIstri.Text = 0
            End If
        ElseIf Jabatan.Text = "Mandor" Then
            If Anak.Text = "1" Then
                TunjanganAnak.Text = Gaji.Text * 0.03
            ElseIf Anak.Text = "2" Then
                TunjanganAnak.Text = Gaji.Text * 0.07
            Else
                TunjanganIstri.Text = 0
            End If
        ElseIf Jabatan.Text = "Staff" Then
            If Anak.Text = "1" Then
                TunjanganAnak.Text = Gaji.Text * 0.03
            ElseIf Anak.Text = "2" Then
                TunjanganAnak.Text = Gaji.Text * 0.07
            Else
                TunjanganIstri.Text = 0
            End If
        End If
    End Sub

    Private Sub Jam_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JamLembur.SelectedIndexChanged
        If Jabatan.Text = "Kepala Bagian" Then
            If JamLembur.Text >= "1" Then
                Lembur.Text = JamLembur.Text * 10000
            End If
        End If
        If Jabatan.Text >= "Mandor" Then
            If JamLembur.Text >= "1" Then
                Lembur.Text = JamLembur.Text * 7500
            End If
        End If
        If Jabatan.Text = "Staff" Then
            If JamLembur.Text >= "1" Then
                Lembur.Text = JamLembur.Text * 5000
            End If
        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(TunjanganIstri.Text) + Val(TunjanganAnak.Text) + Val(Lembur.Text) - Val(Pajak.Text)
    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
End Class
Hasil Program :