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

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel