TUGAS2 P3 BP1

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdproses_Click()

txtgajik = Val(txtgajip) + Val(txttn) - Val(txtpotongan)

txtpajak = Val(txtgajik) * 0.05

txtgajid = Val(txtgajik) - Val(txtpajak)

End Sub

Private Sub cmdulang_Click()

txtgajip = ""

txttn = ""

txtpotongan = ""

txtgajik = ""

txtpajak = ""

txtgajid = ""

txtgajip.SetFocus

End Sub