. . .Fince Tinus Waruwu. . .: Jawaban Soal 3 (Fince Tinus Waruwu)

Kasus : Penggajian Karyawan
Listing Program :

Public Class Form_Login

Private Sub Pass_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pass.KeyPress
        If Asc(e.KeyChar) = 13 Then
            If User.Text = "Fince" And Pass.Text = "123" Then
                Form_Menu_Utama.show()
                Me.Hide()
            Else
                MsgBox("Maaf Username dan Password Salah")
                User.Text = ""
                Pass.Text = ""
                User.Focus()
            End If
        End If
End Sub

Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Close()
End Sub
End Class

Public Class Form_Menu_Utama

Private Sub PenggajianKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PenggajianKaryawanToolStripMenuItem.Click
        Form_Penggajian_Karyawan.Show()
End Sub

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

Public Class Form_Penggajian_Karyawan

Private Sub Form_Penggajian_Karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Staff")

        status.Items.Add("Menikah")
        status.Items.Add("Tidak 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" : Me.gaji_poko.Text = 1750000
            Case "Kepala Bagian" : Me.gaji_poko.Text = 2500000
            Case "Staff" : Me.gaji_poko.Text = 1250000
        End Select
End Sub

Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "Menikah" : Me.tunjangan_istri.Text = gaji_poko.Text * 0.09
                pajak.Text = 0.015 * gaji_poko.Text
            Case "Tidak Menikah" : Me.tunjangan_istri.Text = 0
                jumlah_anak.Text = 0 : Me.tujangan_anak.Text = 0
                pajak.Text = 0.015 * gaji_poko.Text
        End Select
End Sub

Private Sub jumlah_anak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_anak.KeyPress
        If Asc(e.KeyChar) = 13 Then
            If jumlah_anak.Text = 1 Then
                tujangan_anak.Text = gaji_poko.Text * 0.03
            ElseIf jumlah_anak.Text = 2 Then
                tujangan_anak.Text = gaji_poko.Text * 0.07
            ElseIf jumlah_anak.Text > 2 Then
                tujangan_anak.Text = 0
            End If
        End If
End Sub

Private Sub jam_Lembur_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jam_Lembur.KeyPress
        If Asc(e.KeyChar) = 13 Then
            If jabatan.Text = "Mandor" Then
                Upah_lembur.Text = 7500 * jam_Lembur.Text
            ElseIf jabatan.Text = "Kepala Bagian" Then
                Upah_lembur.Text = 10000 * jam_Lembur.Text
            ElseIf jabatan.Text = "Staff" Then
                Upah_lembur.Text = 5000 * jam_Lembur.Text
            End If
total_gaji.Text = Val(gaji_poko.Text) + Val(tunjangan_istri.Text) + Val(tujangan_anak.Text) + Val(Upah_lembur.Text) - pajak.Text
        End If
End Sub

Sub buattabel()
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.Columns.Add("Kode", 80)
        lv.Columns.Add("Nama", 140)
        lv.Columns.Add("Jabatan", 120)
        lv.Columns.Add("Gaji Pokok", 100)
        lv.Columns.Add("Status", 100)
        lv.Columns.Add("Tunjangan Istri", 100)
        lv.Columns.Add("Jumlah Anak", 120)
        lv.Columns.Add("Tunjangan Anak", 100)
        lv.Columns.Add("Pajak", 100)
        lv.Columns.Add("Jam Lembur", 100)
        lv.Columns.Add("Upah Lembur", 100)
        lv.Columns.Add("Total Gaji", 100)
End Sub

Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = kode.Text
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(jabatan.Text)
        Lst.SubItems.Add(gaji_poko.Text)
        Lst.SubItems.Add(status.Text)
        Lst.SubItems.Add(tunjangan_istri.Text)
        Lst.SubItems.Add(jumlah_anak.Text)
        Lst.SubItems.Add(tujangan_anak.Text)
        Lst.SubItems.Add(pajak.Text)
        Lst.SubItems.Add(jam_Lembur.Text)
        Lst.SubItems.Add(Upah_lembur.Text)
        Lst.SubItems.Add(total_gaji.Text)
        Lst.SubItems.Add(jumlah_anak.Text)
        LV.Items.Add(Lst)
End Sub

Sub berish(ByVal F As Form)
        Dim X As Object
        For Each X In F.Controls
            If TypeOf X Is TextBox Then X.Text = ""
            If TypeOf X Is ComboBox Then X.Text = ""
        Next
End Sub

Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        Call berish(Me)
End Sub

Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        lv.Items.Clear()
End Sub

Private Sub hapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_data.Click
        lv.Items.Remove(lv.SelectedItems(0))
End Sub

Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        Call IsiTabel()
End Sub

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim i As MsgBoxResult
        i = MsgBox("Apa anda ingin keluar?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Perhatian")
        If i = MsgBoxResult.Yes Then
            Close()
        End If
    End Sub
End Class

Hasil Program

Tampilan Form Login

Tampilan Form Menu Utama

Tampilan Form Penggajian Karyawan

Sabtu, 28 Januari 2012

Jawaban Soal 3 (Fince Tinus Waruwu)