Jawaban Quiz Online Hari Senin No.03

Nama : Mara Husein
Npm : 0911392
Kelas : TI-A Siang S-0908


Kasus Lihat Disini......!!!!!!

Listing program Login......
_________________________________________________________________

Public Class Form1

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        If user.Text = "Mara Husein" And pasword.Text = "ita" Then
            menuaja.Show()
            Me.Hide()
        Else
            MsgBox("password yang anda masukkan salah......silahkan ulangi lagi!")
            user.Text = ""
            pasword.Text = ""
        End If
    End Sub
End Class

_________________________________________________________________

Hasil Program........

__________________________________________________________________

Listing Program Menu............
__________________________________________________________________

Public Class menuaja

    Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click
        data_pegawai.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 Menu.........

___________________________________________________________________
Listing Program Data_Pegawai
___________________________________________________________________

Public Class data_pegawai

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
        If nip.Text = "00001" Then
            nama.Text = "Mara Husein"
        ElseIf nip.Text = "00002" Then
            nama.Text = "Gayus Tambunanan"
        ElseIf nip.Text = "00003" Then
            nama.Text = "Sri Mulyani"
        ElseIf nip.Text = "00004" Then
            nama.Text = "Poltak"
        ElseIf nip.Text = "00005" Then
            nama.Text = "Nazaruddin"
        ElseIf nip.Text = "00006" Then
            nama.Text = "Nunun"
        ElseIf nip.Text = "00007" Then
            nama.Text = "Robert tantular"
        ElseIf nip.Text = "00008" Then
            nama.Text = "Afriani Susanti"
        End If
    End Sub
__________________________________________________________________

    Private Sub data_pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nip.Items.Add("00001")
        nip.Items.Add("00002")
        nip.Items.Add("00003")
        nip.Items.Add("00004")
        nip.Items.Add("00005")
        nip.Items.Add("00006")
        nip.Items.Add("00007")
        nip.Items.Add("00008")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Staf")
        jabatan.Items.Add("Karyawan")
        status.Items.Add("Menikah")
        status.Items.Add("Tidak-Menikah")
        lemburjam.Items.Add("1")
        lemburjam.Items.Add("2")
        lemburjam.Items.Add("3")
        lemburjam.Items.Add("4")
        lemburjam.Items.Add("5")
        rancangtabel()
    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
            gapok.Text = "2500000"
        ElseIf jabatan.Text = "Mandor" Then
            gapok.Text = "1750000"
        ElseIf jabatan.Text = "Staf" Then
            gapok.Text = "1250000"
        ElseIf jabatan.Text = "Karyawan" Then
            gapok.Text = "1150000"
        End If
    End Sub
___________________________________________________________________

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        If status.Text = "Menikah" Then
            istri.Text = (9 / 100 * gapok.Text)
            janak.Enabled = True
            anak.Enabled = True
        ElseIf status.Text = "Tidak-Menikah" Then
            istri.Text = "0"
            janak.Enabled = False
            janak.Text = "0"
            anak.Enabled = False
            anak.Text = "0"
        End If
        pajak.Text = (1.5 / 100) * (gapok.Text)
    End Sub
____________________________________________________________________

    Private Sub lemburjam_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lemburjam.SelectedIndexChanged
        If jabatan.Text = "Kepala Bagian" Then
            lembur.Text = (lemburjam.Text * 10000)
        ElseIf jabatan.Text = "Mandor" Then
            lembur.Text = (lemburjam.Text * 7500)
        ElseIf jabatan.Text = "Staf" Then
            lembur.Text = (lemburjam.Text * 5000)
        ElseIf jabatan.Text = "Karyawan" Then
            lembur.Text = (lemburjam.Text * 4000)
        End If

    End Sub
____________________________________________________________________

    Private Sub janak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles janak.KeyPress
        If e.KeyChar = Chr(13) Then
            If janak.Text = "1" Then
                anak.Text = (janak.Text) * (3 / 100 * gapok.Text)
            ElseIf janak.Text = "2" Then
                anak.Text = (janak.Text) * (7 / 100 * gapok.Text)
            ElseIf janak.Text >= 2 Then
                anak.Text = (2 * 7 / 100 * gapok.Text)
            End If
        End If
    End Sub
_____________________________________________________________________

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        If status.Text = "Menikah" Then
            total.Text = Val(gapok.Text) + (istri.Text) + (anak.Text) + (lembur.Text) - (pajak.Text)
        ElseIf status.Text = "Tidak-Menikah" Then
            total.Text = Val(gapok.Text) + (lembur.Text) - (pajak.Text)
        End If
    End Sub
_____________________________________________________________________

    Sub rancangtabel()
        LV.Columns.Add("NIP", 60, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Status", 80, HorizontalAlignment.Center)
        LV.Columns.Add("T_Istri", 60, HorizontalAlignment.Center)
        LV.Columns.Add("T_Anak", 60, HorizontalAlignment.Center)
        LV.Columns.Add("J_Anak", 60, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Pokok", 80, HorizontalAlignment.Center)
        LV.Columns.Add("J_Lembur", 60, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Lembur", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Gaji", 60, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
______________________________________________________________________

    Sub masuktabel()
        Dim lst As New ListViewItem
        lst.Text = nip.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(jabatan.Text)
        lst.SubItems.Add(status.Text)
        lst.SubItems.Add(istri.Text)
        lst.SubItems.Add(anak.Text)
        lst.SubItems.Add(janak.Text)
        lst.SubItems.Add(gapok.Text)
        lst.SubItems.Add(lemburjam.Text)
        lst.SubItems.Add(lembur.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(total.Text)
        LV.Items.Add(lst)
    End Sub
______________________________________________________________________

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nip.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gapok.Text = ""
        total.Text = ""
        status.Text = ""
        istri.Text = ""
        janak.Text = ""
        lemburjam.Text = ""
        lembur.Text = ""
        anak.Text = ""
        pajak.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 btnsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsemua.Click
        LV.Items.Clear()
    End Sub
_____________________________________________________________________

    Private Sub btnsatubaris_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsatubaris.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
_____________________________________________________________________

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        masuktabel()
    End Sub
End Class
_____________________________________________________________________

Hasil Program nya..............

barang pecah,,,,, di kota jogja............
Alhamdulillah,,,,,Siap juga..........

untuk donwnload file penggajian karyawan yang udah jadi.....
silahkan download disini...!

Pasword Rar : ucok_siburnung