penggajian karyawan

kasus
jawaban no 3 ( Sri Dinda Awaliyah Lubis )

listing program


Public Class Form1

    Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok.Click

        If username.Text = "dinda" And pass.Text = "111" Then
            FormMenu.Show()
            Me.Hide()
        Else
            MsgBox("maaf password salah")
            username.Text = ""
            pass.Text = ""
        End If

    End Sub

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

hasil program

listing program


Public Class FormMenu

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

    Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
        karyawan.Show()

    End Sub
End Class


hasil program

listing program


Public Class karyawan

    Private Sub karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        jabatan.Items.Add("kepala bagian")
        jabatan.Items.Add("staf")
        jabatan.Items.Add("mandor")
        NIK.Items.Add("001")
        NIK.Items.Add("002")
        NIK.Items.Add("003")
        NIK.Items.Add("004")
        NIK.Items.Add("005")
        status.Items.Add("menikah")
        status.Items.Add("belum menikah")
    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

        ElseIf status.Text = "menikah" Then
            tunjanganistri.Text = 0.09 * gajipokok.Text

        End If
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Lv.Items.Clear()

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        If status.Text = "belum menikah" Then
            jumlahanak.Text = 0
            tunjangananak.Text = 0
            tunjanganistri.Text = 0
        End If

            If jumlahanak.Text <= 2 Then
                tunjangananak.Text = jumlahanak.Text * gajipokok.Text
            ElseIf jumlahanak.Text = 1 Then
                tunjangananak.Text = 1 * 0.03 * gajipokok.Text
            ElseIf jumlahanak.Text > 2 Then
                tunjangananak.Text = 2 * 0.07 * gajipokok.Text
            End If

            pajak.Text = 0.15 * gajipokok.Text

            If jabatan.Text = "kepala bagian" Then
                gajilembur.Text = jmlhjamlembur.Text * 10000
            ElseIf jabatan.Text = "staf" Then
                gajilembur.Text = jmlhjamlembur.Text * 5000
            ElseIf jabatan.Text = "mandor" Then
                gajilembur.Text = jmlhjamlembur.Text * 7500

            End If


            totalgaji.Text = Val(gajipokok.Text) + Val(gajilembur.Text) + Val(tunjangananak.Text) + Val(tunjanganistri.Text) - Val(pajak.Text)


    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        If jabatan.Text = "kepala bagian" Then
            gajipokok.Text = 2500000
        ElseIf jabatan.Text = "staf" Then
            gajipokok.Text = 1250000
        ElseIf jabatan.Text = "mandor" Then
            gajipokok.Text = 1750000
        Else : gajipokok.Text = 0
        End If
    End Sub

    Sub BuatTabel()
        Lv.Columns.Add("NIK", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("nama", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("jabatn", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("gaji pokok", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("jmlh jam lembur", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("gaji lembur", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("status", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("jumlah anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("tunjangan istri", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("tunjangan anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("total gaji", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("pajak", 80, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub


    Sub isitabel()
        Dim Lst As New ListViewItem
        Lst.Text = NIK.Text
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(jabatan.Text)
        Lst.SubItems.Add(gajipokok.Text)
        Lst.SubItems.Add(jmlhjamlembur.Text)
        Lst.SubItems.Add(gajilembur.Text)
        Lst.SubItems.Add(status.Text)
        Lst.SubItems.Add(jumlahanak.Text)
        Lst.SubItems.Add(tunjanganistri.Text)
        Lst.SubItems.Add(tunjangananak.Text)
        Lst.SubItems.Add(totalgaji.Text)
        Lst.SubItems.Add(pajak.Text)
        Lv.Items.Add(Lst)
    End Sub

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

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
        If NIK.Text = "001" Then
            nama.Text = "rani"
        ElseIf NIK.Text = "002" Then
            nama.Text = "dodi"
        ElseIf NIK.Text = "003" Then
            nama.Text = "robi"
        ElseIf NIK.Text = "004" Then
            nama.Text = "dinda"
        ElseIf NIK.Text = "005" Then
            nama.Text = "diki"

        End If
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        NIK.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gajipokok.Text = ""
        jmlhjamlembur.Text = ""
        gajilembur.Text = ""
        status.Text = ""
        tunjangananak.Text = ""
        tunjanganistri.Text = ""
        jumlahanak.Text = ""
        totalgaji.Text = ""
        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