2.1 Perhitugan Setelah Harga Diskon 10% Tanpa Keypress

Tugas 2.1 Perhitugan Setelah Harga Diskon 10% Tanpa Keypress

Option Explicit

Private Sub Cmdhitung_Click()

Txtdis = Val(Txtha) * (0.1)

Txthak = Val(Txtha) - Val(Txtdis)

End Sub

Private Sub cmdlagi_Click()

Txtha = ""

Txtdis = ""

Txthak = ""

Txtha.SetFocus

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub