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

cara membuat grafik 3D Plots Surf, Mesh, dan Contour menggunakan matlab

STMIK PRINGSEWU GELAR PRA PENDIDIKAN DASAR MILITER (PRADIKSARMIL)