Membuat Program gaji Pegawai Pada Vb.Net

yuhu.....yuk belajar membuat program  gaji karyawan  PT.TELKOM pada Vb.Net, kalian pasti bingungkan bagaimana membuatnya yach...daripada pusing - pusnig ini deh aku kasih bahannya, postingan ini saya buat ketika saya sedang melaksanakan ujian Quis OL tepatnya ketika saya semester 3 mata kuliah Pemograman Visual Basic sehingga kami harus menyelesaikanya dan membagikannya kepada yang membutuhkanya, semoga bermanfaat yach...

membuat program Gaji Karyawan PT.TELKOM

Public Class Form1

    Sub addgolongan()

        namapegawai.Items.Add("Sri Ayuni")
        namapegawai.Items.Add("Riki Sudirman")
        namapegawai.Items.Add("Muhamad sodiq")

    End Sub

    Sub bersih()
        golongan.Text = ""
        namapegawai.Text = ""
        pajak.Text = ""
        gajibersih.Text = ""
        pinjaman.Text = ""

    End Sub

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

    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        gajibersih.Text = gaji.Text - pajak.Text - pinjaman.Text
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        golongan.Text = ""
        namapegawai.Text = ""
        gaji.Text = ""
        pajak.Text = ""
        pinjaman.Text = ""
        gajibersih.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 namapegawai_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namapegawai.SelectedIndexChanged

        If namapegawai.Text = "Sri Ayuni" Then
            golongan.Text = "111 A"
            gaji.Text = "1500000"
        ElseIf namapegawai.Text = "Riki Sudirman" Then
            golongan.Text = "111 B"
            gaji.Text = "2500000"
        Else
            golongan.Text = "111 C"
            gaji.Text = "3500000"

        End If
        pajak.Text = 0.15 * gaji.Text
        pinjaman.Text = ""
        gajibersih.Text = ""

    End Sub
End Class

Liat hasil akhrinya..

salam hangatku

Ayu