penggajian pegawai dengan menggunakan vb.net 2008

ne saya postingkan lagi tentang penggajian pegawai

ne desaign ya tuk penggajian pegawai dengan menggunakan vb.net 2008....

listing program penggajian pegawai dengan menggunakan vb.net 2008 ada dibawah:

Public Class Form1

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

        Nama.Items.Add("M shodiq")

        Nama.Items.Add("ayu")

        Nama.Items.Add("shodiq")

        golongan.Items.Add("A")

        golongan.Items.Add("B")

        golongan.Items.Add("C")

        status.Items.Add("Tidak Menikah")

        status.Items.Add("Menikah")

       

    End Sub

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

        Select Case golongan.Text

            Case Is = "A"

                gajipokok.Text = "2500000"

            Case "B"

                gajipokok.Text = "3500000"

            Case "C"

                gajipokok.Text = "4500000"

        End Select

        pajak.Text = 0.1 * gajipokok.Text

    End Sub

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

        If status.Text = "Menikah" Then

            tunjangan.Text = 0.05 * gajipokok.Text

        Else

            tunjangan.Text = "0"

        End If

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        total_gaji.Text = gajipokok.Text - pajak.Text + tunjangan.Text

    End Sub

    Private Sub exit__Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exit_.Click

        End

    End Sub

End Class

Tweet