TUGAS 2.2

Private Sub cmdhitung_Click()

txtd.Text = Val(txtha.Text) * 0.1

txtak.Text = Val(txtha.Text) - Val(txtd.Text)

End Sub

private sub cmdulang_click()

txtha=""

txtd=""

txtha=""

txtha.setfocus

end sub

private sub cmdquit_()

unload me

end sub

Private Sub txtha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

xtd.Text = Val(txtha.Text) * 0.1

txtak.Text = Val(txtha.Text) - Val(txtd.Text)

end if

end Sub