TUGAS 2.1 MEMBUAT HARGA DISCOUNT TANPA KEYPRESS

TUGAS BAHASA PEMROGRAMAN 2.1

TUGAS 2.1

Private Sub cmdhitung_Click()

Txtdis = Val(Txtha) * 0.25

txtak = Val(Txtha) - Val(Txtdis)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

Txtha = ""

Txtdis = ""

txtak = ""

Txtha.SetFocus

End Sub