Tugas 2.4

Private Sub GajiPokok_keypress(keyascii As Integer)
If keyascii = 13 Then
tunjangan.SetFocus
End If
End Sub

Private Sub keluar_Click()
End
End Sub

Private Sub potongan_keypress(keyascii As Integer)
If keyascii = 13 Then
gajikotor = Val(GajiPokok) + Val(tunjangan) - Val(potongan)
pajak = Val(gajikotor) * 0.1
gajibersih = Val(gajikotor) - Val(pajak)
End If
End Sub

Private Sub proses_Click()
gajikotor = Val(GajiPokok) + Val(tunjangan) - Val(potongan)
pajak = Val(gajikotor) * 0.1
gajibersih = Val(gajikotor) - Val(pajak)
End Sub

Private Sub tunjangan_keypress(keyascii As Integer)
If keyascii = 13 Then
potongan.SetFocus
End If
End Sub

Private Sub ulang_Click()
GajiPokok.SetFocus
GajiPokok = ""
tunjangan = ""
potongan = ""
gajikotor = ""
pajak = ""
gajibersih = ""
End Sub