TUGAS 2.1 MEMBUAT HARGA DISCOUNT TANPA KEYPRESS

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


:)
:(
hihi
:-)
:D
=D
:-d
;(
;-(
@-)
:P
:o
:>)
(o)
:p
:-?
(p)
:-s
(m)
8-)
:-t
:-b
b-(
:-#
=p~
$-)
(y)
(f)
x-)
(k)
(h)
cheer
Langganan: Postingan (Atom)