Tugas 2.2

Private Sub Cmdhitung_Click()

Txtdis = Val(txtha) * 0.15

Txtakhir = Val(txtha) - Val(Txtdis)

End Sub

Private Sub CmdQuit_Click()

Unload Me

End Sub

 

Private Sub Cmdulang_Click()

txtha.SetFocus

txtha = ""

Txtdis = ""

Txtakhir = ""

End Sub

Private Sub txtha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtdis = Val(txtha) * 0.15

Txtakhir = Val(txtha) - Val(Txtdis)

End If

End Sub