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
Posting Komentar