jawaban No. 2 Quis Online

Soal NO : 2

GAJI PEGAWAI PT. TELKOM
--------------------------------------------
Nama Pegawai       :   ?
Gol        :   ?
Gaji        : 
Pajak        :
Pinjaman    :   ?
Gaji Bersih    :
--------------------------------------------

Proses
    Gol=IIIA maka Gaji = 1500000
    Gol=IIIB maka Gaji = 2500000
    Gol=IIIC maka Gaji = 3500000
  
    Pajak = 15% dari Gaji
    Gaji Bersih  = Gaji  - Pinjaman  - Gaji Bersih


Berikut Listing programnya
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pegawai.Items.Add("Arif")
        pegawai.Items.Add("Rhido")
        pegawai.Items.Add("Putra")
        gol.Items.Add("IIIA")
        gol.Items.Add("IIIB")
        gol.Items.Add("IIIC")
    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged
        Select Case gol.Text
            Case "IIIA" : gaji.Text = "1500000"
            Case "IIIB" : gaji.Text = "2500000"
            Case "IIIC" : gaji.Text = "3500000"
        End Select
        pajak.Text = 0.15 * gaji.Text
    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        gajibersih.Text = Val(gaji.Text) - Val(pinjaman.Text) - Val(gajibersih.Text)
    End Sub

    Private Sub reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reset.Click
        pegawai.Text = ""
        gol.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
End Class