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!
|
"Investasi Emas dan Reksadana, Untung Mana?."
|
|
Youtube: Katabah Com: Menuju 1 jt Konten :) |
|
|
