pembayaran GAJI PEGAWAI PT.TELKOM

Program penyelesaian pembayaran gaji pegawai PT TELKOM menggunakan Visual Basic 

Public Class Form1

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

        golongan.Items.Add("IIIA")

        golongan.Items.Add("IIIB")

        golongan.Items.Add("IIIC")

    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.Text = "1500000"

        ElseIf golongan.Text = "IIIB" Then

            gaji.Text = "2500000"

        Else

            gaji.Text = "350000"

        End If

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If gaji.Text = 0.15 * pinjaman.Text Then

        End If

        gaji_bersih.Text = Val(gaji.Text) - Val(pinjaman.Text) * 0.15

    End Sub

End Class

Demikianlah program penyelesaian pembayaran gaji pegawai PT TELKOM menggunakan Visual Basic