Ekspresi | Les Private Arab-Inggris via WA dan BBM Gratis | Sunda | Kontak | Google | Gmail | Uang Adsense
Toko Baju Online Abah + Bonus
LP3I Tasikmalaya
Bahasa Arab (Kelas 1 SD sampai Universitas)
Bisnis Bitcoin | Daftar Isi | Tools Penting | PrivacyPolicy | Jago Bahasa Inggris dan Arab | Kamus | Kamus Google

Saturday, March 12, 2016

Validasi Hanya Angka Saja Yang Boleh Masuk Kotak Edit Delphi 7



Hello Katabah!
Pernahkah Anda mengetik huruf pada sebuah aplikasi, tapi tidak muncul? Ini karena programmer membuat validasi hanya angka saja yang boleh dimasukkan.

Sekarang kita membuatnya menggunakan Delphi. Mari praktek….!

1. Buka Delphi 7
2. Pada form kosong, letakkan Edit dari kategori Standard (Component Pallete)
3. Klik Edit1 pada form
4. Klik Events pada Object Inspector (sebelah kiri dekat Properties)
5. Klik dua kali pada OnKeyPress
6. Ketik script ini:
If not (Key in ['0'..'9', DecimalSeparator,#8]) then
    Key:=#0;

7. Jalankan program dengan menekan F9 pada keyboard
8. Sekarang saatnya pengujian validasi kita, antara lain:
a. Ketik huruf apapun dari ‘a’ sampai ‘z’ (Tak satupun huruf yang masuk)
b. Ketik angka dari ‘0’ sampai ‘9’ (Semuanya bisa masuk)

Jika poin 7a dan 7b sudah berjalan, maka selamat validasi program Anda sudah aktif…!

Lalu, apa fungsi tulisan di bawah ini?
DecimalSeparator:
adalah pemisah angka desimal. Kalau komputer kita menggunakan setting English (bahasa Inggris), maka DecimalSeparator itu adalah tanda titik (.). Coba ketik: 12.05, pasti bisa!

#8
Adalah kode untuk backspace. Jika kita tidak mencantumkan #8 pada script di atas, maka kita tidak bisa menghapus angka-angka pada Edit1 menggunakan backspace. Enggak percaya? Coba saja hapus ,#8. Kemudian jalankan lagi programnya!

"Bitcoin and Forex are high risk business. We must join them smartly."
loading...