2.3 Aplikasi Perhitungan Gaji Tanpa Keypress

Tugas 2.3 Aplikasi Perhitungan Gaji Tanpa Keypress

Option Explicit

Private Sub Cmdproses_Click()

TxtGK = Val(TxtGP) + (TxtTJ) - Val(TxtPT)

TxtPJ = Val(TxtGK) * 0.1

TxtGD = Val(TxtGK) - Val(TxtPJ)

End Sub

Private Sub cmdulang_Click()

TxtGP = ""

TxtTJ = ""

TxtPT = ""

TxtGK = ""

TxtPJ = ""

TxtGD = ""

TxtGP.SetFocus

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub