tugas2.2

tgsvb1

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.15

txthk = Val(txtha) – Val(txtdis)

End Sub

 

 

 

Private Sub cmdulangi_Click()

txtha.SetFocus

txtha = “”

txtdis = “”

txthk = “”

 

End Sub

Private Sub cmdquit_Click()

End

End Sub

 

 

Private Sub txtha_Change()

If KeyAscii = 13 Then

txtdis = Val(txtha) * 0.15

txthk = Val(txtha) – Val(txtdis)

End If

 

End Sub