Postingan Jawaban No 3 (Fernando Manurung)

Kasus: Klik Disini


                                                                             Form Login

listing login:

Public Class Login
    Private Sub btnIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIN.Click
        If Username.Text = "fernando" And Password.Text = "123" Then
            My.Forms.Menu.Show()
            Me.Hide()
        Else
            MsgBox("Maaf!Password Salah!")
            Username.Text = ""
            Password.Text = ""
        End If
    End Sub
End Class


                                                                                Form Menu

listing Menu:






Public Class Menu


    Private Sub GajiPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GajiPegawaiToolStripMenuItem.Click
        Me.Hide()
        Penggajian_Pegawai.Show()
    End Sub


End Class

 Form Penggajian Pegawai

LISTING PROGRAM QUIZ ONLINE HARI RABU

Public Class Penggajian_Pegawai
   
    Private Sub Penggajian_Pegawai_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")

        Statuskerja.Items.Add("Lembur")
        Statuskerja.Items.Add("Tidak Lembur")

        statusnikah.Items.Add("Menikah")
        statusnikah.Items.Add("Tidak Menikah")

        jamlembur.Items.Add("1")
        jamlembur.Items.Add("2")
        jamlembur.Items.Add("3")
        jamlembur.Items.Add("4")
        jamlembur.Items.Add("5")



        tabel()
    End Sub

    Sub tabel()
        lv.Columns.Add("Nama", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Status Kerja", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Status Pernikahan", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Tunjangan Istri", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Total Gaji", 100, HorizontalAlignment.Left)

        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    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"
                gapok.Text = "1750000"
                Pajaj.Text = Val(gapok.Text * 0.015)
            Case "Kepala Bagian"
                gapok.Text = "2500000"
                Pajaj.Text = Val(gapok.Text * 0.015)
            Case "Staff"
                gapok.Text = "1250000"
                Pajaj.Text = Val(gapok.Text * 0.015)
        End Select
    End Sub

    Private Sub btnProse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProse.Click
        totgaji.Text = Val(gapok.Text) + Val(tunjistri.Text) + Val(tunjanak.Text) + Val(upahlembur.Text) + Val(Pajaj.Text)
        Pajaj.Text = Val(gapok.Text * 0.015)

    End Sub


    Private Sub jmlhanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlhanak.TextChanged
        Select Case jmlhanak.Text
            Case "1"
                tunjanak.Text = Val(gapok.Text * 0.13)
            Case "2"
                tunjanak.Text = Val(gapok.Text * 0.17)

        End Select
    End Sub

    Private Sub Pajaj_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pajaj.TextChanged

    End Sub

    Private Sub statusnikah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles statusnikah.SelectedIndexChanged
        Select Case statusnikah.Text
            Case "Menikah"

                tunjistri.Text = Val(gapok.Text * 0.19)
                jmlhanak.Enabled = True
            Case "Tidak Menikah"
                tunjistri.Text = 0
                jmlhanak.Text = 0
                jmlhanak.Enabled = False
        End Select
    End Sub
    Private Sub jamlembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamlembur.SelectedIndexChanged
        If Jabatan.Text = "Mandor" Then
            upahlembur.Text = 7500 * jamlembur.Text
        ElseIf Jabatan.Text = "Staff" Then
            upahlembur.Text = 5000 * jamlembur.Text
        ElseIf Jabatan.Text = "Kepala Bagian" Then
            upahlembur.Text = 10000 * jamlembur.Text

        End If
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = namapegawai.Text
        lst.SubItems.Add(Jabatan.Text)
        lst.SubItems.Add(Statuskerja.Text)
        lst.SubItems.Add(statusnikah.Text)
        lst.SubItems.Add(jmlhanak.Text)
        lst.SubItems.Add(gapok.Text)
        lst.SubItems.Add(jamlembur.Text)
        lst.SubItems.Add(upahlembur.Text)
        lst.SubItems.Add(tunjistri.Text)
        lst.SubItems.Add(tunjanak.Text)
        lst.SubItems.Add(Pajaj.Text)
        lst.SubItems.Add(totgaji.Text)

        lv.Items.Add(lst)

    End Sub

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

        isitabel()
        namapegawai.Text = ""
        Jabatan.Text = ""
        Statuskerja.Text = ""
        statusnikah.Text = ""
        jmlhanak.Text = ""
        gapok.Text = ""
        jamlembur.Text = ""
        upahlembur.Text = ""
        tunjistri.Text = ""
        tunjanak.Text = ""
        Pajaj.Text = ""
    End Sub

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

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

End Class