Get Gifs at CodemySpace.com

Sabtu, 28 Januari 2012

 








-    Listing Program :

 Private Sub process_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles process.Click

        If user.Text = "lundu" And pasword.Text = "0911590" Then
            FormKaryawan.Show()
            Me.Hide()
        Else
            MsgBox("Your Pasword Invalid !!!")
            user.Text = ""
            pasword.Text = ""
        End If

    End Sub
End Class

-    Hasil Program





































-    Listing Program :

Public Class Form_karyawan

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

        If Nip.Text = "00001" Then
            Nama.Text = "Oswald "
        ElseIf Nip.Text = "00002" Then
            Nama.Text = "Rini"
        Else
            Nama.Text = "Ranto"
        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()
    End Sub
    Sub Buattabel()
        Lv.Columns.Add("Nip", 40, HorizontalAlignment.Center)
        Lv.Columns.Add("Nama", 60, HorizontalAlignment.Left)
        Lv.Columns.Add("Jabatan", 50, 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", 40, HorizontalAlignment.Center)
        Lv.Columns.Add("T.Ank", 70, HorizontalAlignment.Center)
        Lv.Columns.Add("Pajak", 50, HorizontalAlignment.Center)
        Lv.Columns.Add("Gj Lembur", 60, HorizontalAlignment.Center)
        Lv.Columns.Add("Jlh Jam", 40, 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 Program

Diposting oleh di

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)