Jawaban Quiz No.3

                                    - Listing Program :

Public Class Form1

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click

             If Nama.Text = "Ranto Panjaitan" And Password.Text = "0911522" Then
                               Menu_ku.Show()

                               Me.Hide()
             Else
                               MsgBox("Password anda salah.!")
                               Nama.Text = ""
                               Password.Text = ""

             End If

            End Sub
End Class

                                                            - Hasil Program 



  Kemudian langkah selanjutnya adalah membuat sub menu yaitu menu_ku :
                                        - Listing Program :
Public Class Menu_ku

    Private Sub DataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataKaryawanToolStripMenuItem.Click

        Data_Karyawan.Show()

    End Sub

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

        End

    End Sub
End Class

                                             -    Hasil Programnya :
 








           

Setelah itu kemudian tambahkan lagi sub menu dengan nama data_karyawan :
                                         - Listing Programnya :

Public Class Data_Karyawan
    Private Sub Nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nip.SelectedIndexChanged

        If Nip.Text = "00011" Then
            Nama.Text = "Ranto"
        ElseIf Nip.Text = "00022" Then
            Nama.Text = "Rival"
        Else
            Nama.Text = "Destya"
        End If

    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged

        If Jabatan.Text = "Pegawai" Then
            GajiPokok.Text = "1750000"
            Pajak.Text = (0.015 * Val(GajiPokok.Text))

        ElseIf Jabatan.Text = "Manager" Then
            GajiPokok.Text = "2500000"
            Pajak.Text = (0.015 * Val(GajiPokok.Text))
        Else
            GajiPokok.Text = "1250000"
            Pajak.Text = (0.015 * Val(GajiPokok.Text))
        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
            Tistri.Text = (0.09 * Val(GajiPokok.Text))
        Else
            Tistri.Text = "0"
        End If
    End Sub

    Private Sub JumlahAnak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahAnak.TextChanged

        If JumlahAnak.Text = "1" Then
            Tanak.Text = (0.03 * Val(GajiPokok.Text))
        ElseIf JumlahAnak.Text = "2" Then
            Tanak.Text = (0.07 * Val(GajiPokok.Text))
        Else
            Tanak.Text = (0.07 * Val(GajiPokok.Text))
        End If
    End Sub

    Private Sub JumlahJam_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahJam.SelectedIndexChanged

        If JumlahJam.Text = "1" Then
            If Jabatan.Text = "Pegawai" Then
                GajiLembur.Text = "7500"
            ElseIf Jabatan.Text = "Marketing" Then
                GajiLembur.Text = "5000"
            Else
                GajiLembur.Text = "10000"
            End If
        ElseIf JumlahJam.Text = "2" Then
            If Jabatan.Text = "Manager" Then
                GajiLembur.Text = "15000"
            ElseIf Jabatan.Text = "Marketing" Then
                GajiLembur.Text = "10000"
            Else
                GajiLembur.Text = "20000"
            End If
        ElseIf JumlahJam.Text = "3" Then
            If Jabatan.Text = "Manager" Then
                GajiLembur.Text = "22500"
            ElseIf Jabatan.Text = "Marketing" Then
                GajiLembur.Text = "15000"
            Else
                GajiLembur.Text = "30000"
            End If
        ElseIf JumlahJam.Text = "4" Then
            If Jabatan.Text = "Manager" Then
                GajiLembur.Text = "30000"
            ElseIf Jabatan.Text = "Marketing" Then
                GajiLembur.Text = "20000"
            Else
                GajiLembur.Text = "40000"
            End If

        ElseIf JumlahJam.Text = "5" Then
            If Jabatan.Text = "Manager" Then
                GajiLembur.Text = "37500"
            ElseIf Jabatan.Text = "Marketing" Then
                GajiLembur.Text = "25000"
            Else
                GajiLembur.Text = "50000"
            End If
        ElseIf JumlahJam.Text = "6" Then
            If Jabatan.Text = "Manager" Then
                GajiLembur.Text = "45000"
            ElseIf Jabatan.Text = "Marketing" Then
                GajiLembur.Text = "30000"
            Else
                GajiLembur.Text = "60000"
            End If
        ElseIf JumlahJam.Text = "7" Then
            If Jabatan.Text = "Manager" Then
                GajiLembur.Text = "52500"
            ElseIf Jabatan.Text = "Marketing" Then
                GajiLembur.Text = "35000-"
            Else
                GajiLembur.Text = "70000"
            End If
        ElseIf JumlahJam.Text = "8" Then
            If Jabatan.Text = "Manager" Then
                GajiLembur.Text = "60000"
            ElseIf Jabatan.Text = "Marketing" Then
                GajiLembur.Text = "40000"
            Else
                GajiLembur.Text = "80000"
            End If
        ElseIf JumlahJam.Text = "9" Then
            If Jabatan.Text = "Manager" Then
                GajiLembur.Text = "67500"
            ElseIf Jabatan.Text = "Marketing" Then
                GajiLembur.Text = "45000"
            Else
                GajiLembur.Text = "90000"
            End If
        ElseIf JumlahJam.Text = "10" Then
            If Jabatan.Text = "Manager" Then
                GajiLembur.Text = "75000"
            ElseIf Jabatan.Text = "Marketing" Then
                GajiLembur.Text = "50000"
            Else
                GajiLembur.Text = "100000"
            End If
        ElseIf JumlahJam.Text = "11" Then
            If Jabatan.Text = "Manager" Then
                GajiLembur.Text = "82500"
            ElseIf Jabatan.Text = "Marketing" Then
                GajiLembur.Text = "55000"
            Else
                GajiLembur.Text = "110000"
            End If
        ElseIf JumlahJam.Text = "12" Then
            If Jabatan.Text = "Manager" Then
                GajiLembur.Text = "90000"
            ElseIf Jabatan.Text = "Marketing" Then
                GajiLembur.Text = "60000"
            Else
                GajiLembur.Text = "120000"
            End If

        End If
    End Sub

    Private Sub Hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung.Click
        Total.Text = Val(GajiPokok.Text) + Val(Tistri.Text) + Val(Tanak.Text) + Val(GajiLembur.Text) - Val(Pajak.Text)
    End Sub

    Private Sub Form_karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Buattabel()

        Jabatan.Items.Add("Manager")
        Jabatan.Items.Add("Marketing")
        Jabatan.Items.Add("Karyawan")
    End Sub
    Sub Buattabel()
        Lv.Columns.Add("Nip", 50, HorizontalAlignment.Center)
        Lv.Columns.Add("Nama", 60, HorizontalAlignment.Left)
        Lv.Columns.Add("Jabatan", 70, HorizontalAlignment.Center)
        Lv.Columns.Add("GaPok", 70, HorizontalAlignment.Center)
        Lv.Columns.Add("Status", 60, HorizontalAlignment.Center)
        Lv.Columns.Add("T.istri", 70, HorizontalAlignment.Center)
        Lv.Columns.Add("J.Ank", 70, HorizontalAlignment.Center)
        Lv.Columns.Add("T.Ank", 70, HorizontalAlignment.Center)
        Lv.Columns.Add("Pajak", 50, HorizontalAlignment.Center)
        Lv.Columns.Add("Gj Lembur", 70, HorizontalAlignment.Center)
        Lv.Columns.Add("Jlh Jam", 60, HorizontalAlignment.Center)
        Lv.Columns.Add("Total", 70, HorizontalAlignment.Center)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = Nip.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Jabatan.Text)
        lst.SubItems.Add(GajiPokok.Text)
        lst.SubItems.Add(Status.Text)
        lst.SubItems.Add(Tistri.Text)
        lst.SubItems.Add(JumlahAnak.Text)
        lst.SubItems.Add(Tanak.Text)
        lst.SubItems.Add(Pajak.Text)
        lst.SubItems.Add(GajiLembur.Text)
        lst.SubItems.Add(JumlahJam.Text)
        lst.SubItems.Add(Total.Text)

        Lv.Items.Add(lst)
    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        isitabel()
        Nip.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        GajiPokok.Text = ""
        Status.Text = ""
        Tistri.Text = ""
        JumlahAnak.Text = ""
        Tanak.Text = ""
        Pajak.Text = ""
        GajiLembur.Text = ""
        JumlahJam.Text = ""
        Total.Text = ""
        Nip.Focus()
    End Sub

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

    End Sub

    Private Sub HDYD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HDYD.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub

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

                                               - Hasil Programnya :

                                  

Tidak ada komentar:

Posting Komentar

Langganan: Postingan (Atom)