Tugas 2 Program 2

Private Sub txtharga_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txthak.SetFocus

txtdiskon = Val(txtharga) * 0.15

Txthak = Val(txtharga) - Val(txtdiskon)

End If

End Sub

Private Sub cmdQuit_Click()

End

End Sub

Private Sub cmdUlangi_Click()

txtharga = ""

txtdiskon = ""

Txthak = ""

txtharga.SetFocus

End Sub