Tugas 2.2 Perhitungan Harga Setelah Diskon 10% Menggunakan Keypress

Private Sub Hitung_Click()
textdis = Val(textha) * 0.1
textakh = Val(textha) - Val(textdis)
End Sub

Private Sub Keluar_Click()
Unload Me
End Sub

Private Sub textha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textdis = Val(textha) * 0.1
textakh = Val(textha) - Val(textdis)
End If
End Sub

Private Sub Ulangi_Click()
textha = ""
textdis = ""
textakh = ""
textha.SetFocus
End Sub