perhitungan harga tidak pakai keypress







Private Sub cmdhitung_Click()
txtdis.Text = Val(txtha.Text) * 0.1
txtak.Text = Val(txtha.Text) - Val(txtdis.Text)
End Sub

Private Sub cmdquit_Click()
End
End Sub

Private Sub cmdulangi_Click()
txtha = ""
txtdis = ""
txtak = ""
txtha.SetFocus
End Sub

Komentar

Postingan populer dari blog ini

PEMILIHAN MULI MEKHANAI

STMIK PRINGSEWU GELAR POSDIKTI 2017 GELOMBANG 1

STMIK PRINGSEWU GELAR PRA PENDIDIKAN DASAR MILITER (PRADIKSARMIL)