Senin, 30 Januari 2012

Quiz Online 3

Listing Program

Halaman Login

Public Class Form1
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If username.Text = "Dal Fendry" And password.Text = "1234567" Then
            menuutama.Show()
            Me.Hide()
        Else
            MsgBox("Username / Password SALAH")
            username.Text = ""
            password.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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        username.Focus()
    End Sub
End Class

Halaman Menu

Public Class menuutama

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

    End Sub

    Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click
        pegawai.show()
    End Sub
End Class

Halaman Program Hasil

Public Class pegawai

    Private Sub pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nip.Items.Add("00007")
        nip.Items.Add("00231")
        nip.Items.Add("98765")

        jabatan.Items.Add("Staf")
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")

        status.Items.Add("Belum Menikah")
        status.Items.Add("Menikah")


        lembur.Items.Add("Ya")


        nip.Focus()

        Call buattabel()


    End Sub

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
        If nip.Text = "00007" Then
            nama.Text = "Saprol"
        ElseIf nip.Text = "00231" Then
            nama.Text = "Sweet Cat"
        ElseIf nip.Text = "98765" Then
            nama.Text = "asri"
        End If
    End Sub

    Private Sub jabatan_SelectedIndexChaenged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        If jabatan.Text = "Staf" Then
            gaji.Text = 1250000
        ElseIf jabatan.Text = "Mandor" Then
            gaji.Text = 1750000
        ElseIf jabatan.Text = "Kepala Bagian" Then
            gaji.Text = 2500000
        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
            tjgistri.Text = gaji.Text * 9 / 100
            jlhanak.Enabled = True

        ElseIf status.Text = "Belum Menikah" Then
            jlhanak.Text = ""
            tjgistri.Text = 0
            jlhanak.Enabled = False
            pajak.Text = gaji.Text * 1.5 / 100
            total.Text = Val(gaji.Text) + Val(tjganak.Text) + Val(tjgistri.Text) + Val(gjlmbr.Text) - Val(pajak.Text)
        End If

    End Sub

    Private Sub jlhanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhanak.TextChanged
        If jlhanak.Text <> "" Then
            If jlhanak.Text = 0 Then
                tjganak.Text = 0
            ElseIf jlhanak.Text = 1 Then
                tjganak.Text = gaji.Text * 3 / 100
            ElseIf jlhanak.Text >= 2 Then
                tjganak.Text = gaji.Text * 7 / 100
            End If
        End If

        pajak.Text = gaji.Text * 1.5 / 100
        total.Text = Val(gaji.Text) + Val(tjganak.Text) + Val(tjgistri.Text) + Val(gjlmbr.Text) - Val(pajak.Text)

    End Sub

    Sub buattabel()
        ListView1.Columns.Add("N.I.P", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("jabatan", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Status", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Gaji", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Gaji Lembur", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tunjangan Keluarga", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Total Gaji", 100, HorizontalAlignment.Left)

        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True

    End Sub

    Sub isitabel()
        Dim isi As New ListViewItem
        isi.Text = nip.Text
        isi.SubItems.Add(nama.Text)
        isi.SubItems.Add(jabatan.Text)
        isi.SubItems.Add(status.Text)
        isi.SubItems.Add(jlhanak.Text)
        isi.SubItems.Add(gaji.Text)
        isi.SubItems.Add(gjlmbr.Text)
        isi.SubItems.Add(tjganak.Text)
        isi.SubItems.Add(tjgistri.Text)
        isi.SubItems.Add(pajak.Text)
        isi.SubItems.Add(total.Text)

        ListView1.Items.Add(isi)




    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call isitabel()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        nip.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        status.Text = ""
        jlhanak.Text = ""
        gaji.Text = ""
        tjganak.Text = ""
        tjgistri.Text = ""
        pajak.Text = ""
        total.Text = ""
        lembur.Text = ""
        jmljam.Text = 0
        perjam.Text = ""
        gjlmbr.Text = 0
        jmljam.Enabled = False
        perjam.Enabled = False
        gjlmbr.Enabled = False

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        nip.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        status.Text = ""
        jlhanak.Text = ""
        gaji.Text = ""
        tjganak.Text = ""
        tjgistri.Text = ""
        pajak.Text = ""
        total.Text = ""
        lembur.Text = ""
        jmljam.Text = 0
        perjam.Text = ""
        gjlmbr.Text = ""
        jmljam.Enabled = False
        perjam.Enabled = False
        gjlmbr.Enabled = False

        ListView1.Items.Clear()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If ListView1.SelectedItems.Count <> 0 Then
            ListView1.Items.Remove(ListView1.SelectedItems(0))
        Else
            MsgBox("Tidak Ada Pilihan Yang Akan di hapus, Harap pilih data yang akan dihapus", MsgBoxStyle.Exclamation, "Peringatan")

        End If

    End Sub

    Private Sub lembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.SelectedIndexChanged
        If lembur.Text = "Ya" Then
            jmljam.Enabled = True
            perjam.Enabled = True
            gjlmbr.Enabled = True
            If jabatan.Text = "Staf" Then
                If perjam.Text = "" Then
                    perjam.Text = 5000
                End If
            ElseIf jabatan.Text = "Mandor" Then
                If perjam.Text = "" Then
                    perjam.Text = 7500
                End If
            ElseIf jabatan.Text = "Kepala Bagian" Then
                If perjam.Text = "" Then
                    perjam.Text = 10000
                End If
            End If

        End If
        If lembur.Text = "Tidak" Then
            gjlmbr.Text = 0
            jmljam.Text = 0

            jmljam.Enabled = False
            perjam.Enabled = False
            gjlmbr.Enabled = False
            If jabatan.Text = "Staf" Then
                If perjam.Text <> 0 Then
                    perjam.Text = ""
                End If
            ElseIf jabatan.Text = "Mandor" Then
                If perjam.Text <> 0 Then
                    perjam.Text = ""
                End If
            ElseIf jabatan.Text = "Kepala Bagian" Then
                If perjam.Text <> 0 Then
                    perjam.Text = ""
                End If


            End If
        End If


    End Sub

    Private Sub jmljam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmljam.TextChanged
        gjlmbr.Text = perjam.Text * jmljam.Text

    End Sub
End Class

Gambar Hasil  Program

Login


Menu



Hasil