TUGAS2_4

Private Sub KELUAR_Click(Index As Integer)
Unload Me
End Sub

Private Sub PROSES_Click(Index As Integer)
TXTGK = Val(TXTGP) + Val(TXTTJ) - Val(TXTPT)
TXTPJ = Val(TXTGK) * 0.1
TXTGD = Val(TXTGK) - Val(TXTPJ)
End Sub


Private Sub TXTGP_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTGK = Val(TXTGP) + Val(TXTTJ) - Val(TXTPT)
TXTPJ = Val(TXTGK) * 0.1
TXTGD = Val(TXTGK) - Val(TXTPJ)
End If
End Sub

Private Sub ULANG_Click()
TXTGP = ""
TXTTJ = ""
TXTPT = ""
TXTGK = ""
TXTPJ = ""
TXTGD = ""
TXTGP.SetFocus
End Sub