KERJA IT - COMPUTER

Markas Rabbani Surabaya Jl.Pucang Anom Timur No. 14 Surabaya Telp. 08123015071 Email : Markas_rabbani_sby@yahoo.co.id

  • RSS
  • Google +
  • Facebook

Popular Posts

IDHOSTINGER memang OK
Radio - TV OnLine
Asyiiikk Bro

Translate Google

Popular Posts

Markas Rabbani Surabaya

HOSTINGER

Web Hosting

KOMINITAS VFP

IP ADDRESS INFO

IP

Total Tayangan Halaman

HOSTINGER

Web Hosting

Prof DR KH Said Aqil Sirodj - Ketua PB NU

Gus Mus - Prof DR KH Said Aqil Sirodj - Alm Gus Dur

HOSTINGER Web Gratis Tanpa Iklan

Gak Percaya Buktikan

Griya Asy-Syifa

Jl Suromulang Timur II/18 Perum Citra Surodinawan Estate Kota Mojokerto Contac : 081231821800, 08814353000, 085746201881 Pin BB : 24D0B84C e-mail : ariesmojokerto@gmail.com

HOSTINGER Gratis tanpa Iklan

Web Hosting GRATIS dI Indonesia Tanpa Iklan

WaliSongo

Babat alas Tanah Jawa - Pengikut Nabi Muhammad saw - NU

Senin, 15 Oktober 2012

VALIDASI ANGKA


Kalau kita Perhatikan Format Di Atas ada beberapa Textbox tentang input Data
harus di isi dngan Bilangan Numerik jadi tidak boleh Charakter atau spasi.

Untuk Validasi ini di Textbox tersebut kita buat seperti di bawah ini :

 Private Sub txtqty_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtqty.KeyPress
        If e.KeyChar = Chr(13) Then HitungDataScreen() : txtpdiskont.Focus()
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    End Sub


Textbox di Jumlah Barang aq kasih nama txtqty jadi cara buatnya seperti atas.
Jadi kalau ga di Isi 0 sampai 9 tidak mau.

   Private Sub HitungDataScreen()
       ' Rumus perhitungan Barang
        txtkotor.Text = txtqty.Text * txthsat.Text
        txtdiskont.Text = txtpdiskont.Text / 100 * txtkotor.Text
        txtsubtotal.Text = txtkotor.Text - txtdiskont.Text
        txtidisk.Text = txtpidisk.Text / 100 * txtsubtotal.Text
        txtnet.Text = txtsubtotal.Text - txtidisk.Text

    End Sub

Tidak ada komentar:

Posting Komentar