Tugas 2.2

Private Sub HargaAwal_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
HargaAwal.SetFocus
Diskon = Val(HargaAwal) * 0.1
HargaAkhir = Val(HargaAwal) - Val(Diskon)
End If
End Sub

Private Sub Hitung_Click()
Diskon = Val(HargaAwal) * 0.1
HargaAkhir = Val(HargaAwal) - Val(Diskon)
End Sub

Private Sub Ulangi_Click()
HargaAwal.SetFocus
HargaAwal = ""
Diskon = ""
HargaAkhir = ""
End Sub

Private Sub Keluar_Click()
End
End Sub