MEMBUAT FORM PENGGAJIAN PEGAWAI

contoh program membuat Form  Penggajian Pegawai dengan menggunakan VB Net

MEMBUAT FORM PENGGAJIAN PEGAWAI

 dibawah ini adalh perintah untuk program nya

Public Class Form1

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

        nip.Items.Add("100200100")

        nip.Items.Add("100200200")

        nip.Items.Add("100200300")

        nip.Items.Add("100200400")

        nip.Items.Add("100200500")

        golongan.Items.Add("IIIA")

        golongan.Items.Add("IIIB")

        golongan.Items.Add("IVA")

        golongan.Items.Add("IVB")

        status.Items.Add("MENIKAH")

        status.Items.Add("TIDAK MENIKAH")

    End Sub

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

nip.SelectedIndexChanged

        If nip.Text = "100200100" Then

            nama.Text = "Ali"

        ElseIf nip.Text = "100200200" Then

            nama.Text = "andi"

        ElseIf nip.Text = "100200300" Then

            nama.Text = "rojak"

        ElseIf nip.Text = "100200400" Then

            nama.Text = "ikhwan"

        ElseIf nip.Text = "100200500" Then

            nama.Text = "rahmat"

        End If

    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click

        nip.Text = ""

        nama.Text = ""

        golongan.Text = ""

        status.Text = ""

        jumlah_anak.Text = ""

        gaji_pokok.Text = ""

        tnjgn_keluarga.Text = ""

        tnjgn_anak.Text = ""

        total_gaji.Text = ""

    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click

        End

    End Sub

 

    Private Sub golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles golongan.SelectedIndexChanged

        If golongan.Text = "IIIA" Then

            gaji_pokok.Text = "1500000"

        ElseIf golongan.Text = "IIIB" Then

            gaji_pokok.Text = "1750000"

        ElseIf golongan.Text = "IVA" Then

            gaji_pokok.Text = "2500000"

        ElseIf golongan.Text = "IVB" Then

            gaji_pokok.Text = "3000000"

        End If

    End Sub

    Private Sub jumlah_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah_anak.SelectedIndexChanged

        If jumlah_anak.Text <= 2 Then

            tnjgn_anak.Text = 150000 * jumlah_anak.Text

        ElseIf jumlah_anak.Text > 2 Then

            tnjgn_anak.Text = 150000 * 2

        End If

        total_gaji.Text = gaji_pokok.Text + tnjgn_keluarga.Text + tnjgn_anak.Text

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        jumlah_anak.Items.Clear()

        If status.Text = "MENIKAH" Then

            jumlah_anak.Text = ""

            total_gaji.Text = ""

            tnjgn_keluarga.Text = gaji_pokok.Text * 0.2

            jumlah_anak.Items.Add("0")

            jumlah_anak.Items.Add("1")

            jumlah_anak.Items.Add("2")

            jumlah_anak.Items.Add("3")

            jumlah_anak.Items.Add("4")

            jumlah_anak.Items.Add("5")

            jumlah_anak.Items.Add("6")

            jumlah_anak.Items.Add("7")

            jumlah_anak.Items.Add("8")

            jumlah_anak.Items.Add("9")

        ElseIf status.Text = "TIDAK MENIKAH" Then

            jumlah_anak.Text = "-"

            total_gaji.Text = gaji_pokok.Text

            tnjgn_keluarga.Text = 0

            tnjgn_anak.Text = 0

        End If

    End Sub

End Class