TUGAS 2.3 (Aplikasi Perhitungan Gaji)
Private Sub GP_keypress(keyascii As Integer)
If keyascii = 13 Then
TJ.SetFocus
End If
End Sub
Private Sub TJ_keypress(keyascii As Integer)
If keyascii = 13 Then
PT.SetFocus
End If
End Sub
Private Sub ComProses_Click()
GK = Val(GP) + Val(TJ) - Val(PT)
PJK = Val(GK) * 0.1
GD = Val(GK) - Val(PJK)
End Sub
Private Sub ComUlang_Click()
GP.SetFocus
GP = ""
TJ = ""
PT = ""
GK = ""
PJK = ""
GD = ""
End Sub
Private Sub ComKeluar_Click()
End
End Sub
0 Response to "TUGAS 2.3 (Aplikasi Perhitungan Gaji)"
Post a Comment