GAJI PEGAWAI PT. TELKOM

Public Class Form1

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

        golongan.Items.Add("III A")

        golongan.Items.Add("III B")

        golongan.Items.Add("III C")

    End Sub

    Private Sub golongan_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handlesgolongan.SelectedIndexChanged

        Ifgolongan.Text = "III A" Then

            gaji.Text = "1500000"

        ElseIfgolongan.Text = "III B" Then

            gaji.Text = "2500000"

        Else

            gaji.Text = "3500000"

        End If

    End Sub

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

        pajak.Text = 0.015 * gaji.Text

        gajibersih.Text = gaji.Text - pinjaman.Text - pajak.Text

    End Sub

    Private Sub btnbatal_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnbatal.Click

        nama.Text = ""

        golongan.Text = ""

        gaji.Text = ""

        pajak.Text = ""

        pinjaman.Text = ""

        gajibersih.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class

Nama : Kardi Hartono NPM : ( 1111408 )