TUGAS PEMROGRAMAN 2.5

Private Sub Cmdhitung_Click()

Txtdis = Val(Txtha) * 0.15

Txtak = Val(Txtha) - Val(Txtdis)

End Sub

Private Sub Cmdulangi_Click()

Txtha.SetFocus

Txtha = ""

Txtdis = ""

Txtak = ""

End Sub

  

Private Sub Cmdquit_Click()

Unload Me

End Sub

Private Sub Txtha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtdis = Val(Txtha) * 0.15

Txtak = Val(Txtha) - Val(Txtdis)

End If

End Sub