pengunjung

Sabtu, 09 Januari 2016

program Penggajian karyawan






Contoh program Penggajian karyawan

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NIK.Items.Add("001")
        NIK.Items.Add("002")
        NIK.Items.Add("003")
        JABATAN.Items.Add("STAF")
        JABATAN.Items.Add("Manager")
        JABATAN.Items.Add("Kabag")
        STATUS.Items.Add("MENIKAH")
        STATUS.Items.Add("BELUM MENIKAH")
        JANAK.Items.Add("1")
        JANAK.Items.Add("2")
        JANAK.Items.Add("3")

    End Sub

    Private Sub NAMA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NAMA.TextChanged

    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        If NIK.Text = "001" Then
            NAMA.Text = "OBI MAULIGHEN"
        ElseIf NIK.Text = "002" Then
            NAMA.Text = "IRWANSYAH"
        ElseIf NIK.Text = "003" Then
            NAMA.Text = "ARTHA"


        End If

    End Sub

    Private Sub JABATAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JABATAN.SelectedIndexChanged

        If JABATAN.Text = "STAF" Then
            GAJI.Text = 3000000
        ElseIf JABATAN.Text = "Manager" Then
            GAJI.Text = 4000000
        ElseIf JABATAN.Text = "Kabag" Then
            GAJI.Text = 6000000


        End If

    End Sub

    Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
        NIK.Text = ""
        NAMA.Text = ""
        JABATAN.Text = ""
        GAJI.Text = ""
        STATUS.Text = ""
        JANAK.Text = ""
        TANAK.Text = ""
        TISTRI.Text = ""
        TGAJI.Text = ""

    End Sub

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

    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click
        TGAJI.Text = Val(GAJI.Text) + Val(TISTRI.Text) + Val(TANAK.Text)
    End Sub

    Private Sub JANAK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JANAK.SelectedIndexChanged

        If JANAK.Text = "1" Then
            TANAK.Text = Val(0.05) * Val(GAJI.Text) * Val(JANAK.Text)
        ElseIf JANAK.Text = "2" Then
            TANAK.Text = Val(0.05) * Val(GAJI.Text) * Val(JANAK.Text)
        ElseIf JANAK.Text = "3" Then
            TANAK.Text = Val(0.05) * Val(GAJI.Text) * Val(JANAK.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 = GAJI.Text * 0.1
        ElseIf STATUS.Text = "Belum Menika" Then
            TISTRI.Text = 0
            JANAK.Text = 0


        End If

    End Sub
End Class

0 komentar:

Posting Komentar