Program gaji pegawai PT.Telkom

Pemrograman Gaji Pegawai PT.Telkom

Tampilan program

Public Class Form1

    Private Sub namapegawai_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namapegawai.SelectedIndexChanged
        If namapegawai.Text = "Mukti pradana" Then
            gol.Text = "IIIA"
            GP.Text = 1500000
        ElseIf namapegawai.Text = "John" Then
            gol.Text = "IIIB"
            GP.Text = 2500000
        Else
            gol.Text = "IIIC"
            GP.Text = 3500000
        End If
        pajak.Text = 0.15 * GP.Text
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        namapegawai.Items.Add("Mukti Pradana")
        namapegawai.Items.Add("John")
        namapegawai.Items.Add("Rikky")
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        gajibersih.Text = Val(gajibersih.Text) - Val(pinjaman.Text) - Val(pajak.Text)
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        namapegawai.Text = ""
        gol.Text = ""
        GP.Text = ""
        pajak.Text = ""
        pinjaman.Text = ""
        gajibersih.Text = ""
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class

Berikut adalah tampilan listing program gaji pegawai PT.Telkom: