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