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

About Me

Foto saya

1. Kerja di Perusahaan Jualan Computer 2. Konsultan Management and Software House di Jakarta Jl. Kemang Raya Jakarta Selatan, PT Sumber Saran Sempurna 3. Honor di Kantor Bea dan Cukai TG. Perak dan Juanda Surabaya 4. Free Line di berbagai Instansi sebagai Programmer 5. Mulai awal tahun 2007 sampai sekarang kerja di Rabbani Profesor Kerudung Instan Jl. Dharmawangsa 98 A Surabaya

Popular Posts

Markas Rabbani Surabaya

HOSTINGER

Web Hosting

KOMINITAS VFP

IP ADDRESS INFO

IP

Google+ Followers

Total Tayangan Laman

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:

Poskan Komentar