Yoooooiii masbro kembali lagi….
Kali ini saya coba berbagi lagi trik dasar input, tentu saja sangat kuno dah sudah banyak yang bisa bahkan tidak berbobot mungkin hehe tapi ga apa ane yakin tar juga berguna, nah ane mau berbagi nih bagi sama siapa aja yang mungkin belom tahu sama nih trik semoga aja berguna, nah pada kesempatan ini saya akan menuliskan bagaimana pada sebuah komponen edit saat kita inputkan hanya bisa menerima angka atau huruf saja, kalo bisa input karakter angka dan huruf sih kaga perlu trik ini donk ya -_- jezzz….
Kali ini saya coba berbagi lagi trik dasar input, tentu saja sangat kuno dah sudah banyak yang bisa bahkan tidak berbobot mungkin hehe tapi ga apa ane yakin tar juga berguna, nah ane mau berbagi nih bagi sama siapa aja yang mungkin belom tahu sama nih trik semoga aja berguna, nah pada kesempatan ini saya akan menuliskan bagaimana pada sebuah komponen edit saat kita inputkan hanya bisa menerima angka atau huruf saja, kalo bisa input karakter angka dan huruf sih kaga perlu trik ini donk ya -_- jezzz….
Okey biasanya kita bikin sebuah form inputan tuh misal nama orang pasti kaga boleh dong ya klo kita bisa inputkan angka didalamnya misal Endra90 , wkakakka keknama email aja tuh, kalau nama raja sih biasanya oke-oke saja ya, tapi biasanya juga pakek angka Romawi sob, nah lo kan angka Romawi karakternya huruf semua?? misal : Sri Sultan Hamengkubuwono IX, nah itu soal inputan huruf satu lagi kita biasa menjumpai inputan misal hanya angka saja, banyak tuh contoh sial stok, harga, no telp dan lain-lain lah sob pasti kalian dah pada tahu….
Nah langsung saja saya akan coba bikin sebuah koding yang bisa di gunakan di 1 Form di seluruh inputan edit, misal dulu nih ya wktu belajar (sekarang masi belajar juga sih…) kita taro tuh koding di masing-masing Edit pada event OnKeyPress ya kan sob?? inget kan?? caranya hampir mirip, oke langsung mulai saja…
Mula-mula kita bikin prosedur nih kek dibawah sob, posisinya diatas public yang biasanya banyak bercokol prosedur-prosedur tuh disana, nih potongan kodingnya…
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| . . .Edit2: TEdit; Button1: TButton; StatusBar1: TStatusBar; Label1: TLabel; Label2: TLabel; procedure AngkaSaja(Sender: TObject; var Key: Char); procedure HurufSaja(Sender: TObject; var Key: Char); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;. . . |
oke setelah itu dibawah implementation kita bikin koding seperti ini..
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| . . .procedure TForm1.AngkaSaja(Sender: TObject; var Key: Char);beginif not (key in['0'..'9',#8,#13,#32]) then begin key:=#0; showmessage('inputan hanya angka bro..'); end;end;procedure TForm1.HurufSaja(Sender: TObject; var Key: Char);beginif not (key in['a'..'z','A'..'Z',#8,#13,#32]) then begin key:=#0; showmessage('inputan hanya huruf bro..'); end;end;. . . |
Sedikit penjelasan,
#8 adalah kode ascii dari tombol BackSapce(hapus)
#32 adalah kode ascii dari tombol Space(spasi)
#13 adalah kode ascii dari tombol Enter
jadi meskipun cuman bisa menerima input huruf/angka saja tobol diatas juga diperlukan
#8 adalah kode ascii dari tombol BackSapce(hapus)
#32 adalah kode ascii dari tombol Space(spasi)
#13 adalah kode ascii dari tombol Enter
jadi meskipun cuman bisa menerima input huruf/angka saja tobol diatas juga diperlukan
Nah sekarang sudah jadi masbro dan mbaksis, tinggal langkah selanjutnya sorot Object TEdit, dan pada Event OnKeyPress kita cukup pilih sesuai kebutuhan, lihat gambar dibawah ini
Nah sebanyak apapun TEdit yang kita punya tinggal pilih aja sesuai kebutuhan salah satu dari dua prosedur diatas, maka kiata bisa test dengan mengeRun project akan tamapak seperti gamabar dibawah
Makasih bro dan sis telah sempat membaca artikel ini, akan tambah manis jika kalian meninggalkan jejak komen di blogku ini hehe, terimkasih. Untuk contoh diatas bisa di downloaddisini
Salam Manfaat dan Salam Delphier.
0 komentar:
Posting Komentar