PROGRAM PENGGAJIAN PT.TELKOM

Public Class Form3

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

        gol.Items.Add("III A")

        gol.Items.Add("III B")

        gol.Items.Add("III C")

    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged

        If gol.Text = "III A" Then

            gaji.Text = 1500000

        ElseIf gol.Text = "III B" Then

            gaji.Text = 2500000

        Else

            gaji.Text = 3500000

        End If

    End Sub

  

    Private Sub gaji_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji.TextChanged

        pajak.Text = 0.015 * gaji.Text

    End Sub

    Private Sub gajiber_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles gajiber.KeyPress

        If Asc(e.KeyChar) = 13 Then

            gajiber.Text = Val(gaji.Text - pinjaman.Text)

        End If

    End Sub

End Class