Validasi Angka Input Box Di Delphi

Assalamualaikum Temen Temen Semua,Senin pagi sebelum mengawali aktifitas rutin di hari ini Catatan Eko kembali dengan Tips Tips Materi Pembelajaran Dephi nich.

Untuk Senin pagi ini saya akan berbagi Tips DalamMeng Validasi Input Angka pada Edit Box.Dimana Kita akan mengatur pengisian input box hanya bisa diisi dengan angka saja. Biasanya digunakan pada untuk memasukkan nilai yang berhubungan dengan harga atau jumlah, agar tidak terjadi converting error pada pengolahannya. Langsung aja di simak yang temen temen.

Untuk Validasi Input Edit Box agar hanya dapat mengisi Angka dilakukan padaprosedur keypress di objek edit box yang akan kita buat validasinya. Dimana pada prosedur ini berfungsi pada saat pengguna atau user mengetikkan nilai melalui keyboard. Dengan adanya validasi ini dibuat agar tidak terjadinya eror pada saat pengololahan suatu nilai aritmatika. Sangat Sangat Sangat membantu kita dalam membuat pemrograman berbagis data nantinya, untuk pemilihan prosedur keypress temen temen bisa pilih objeknya kemudian lihat object inspector di kiri bawah Delphi pilih tab kedua pada properties dan klik dua kali pada on keypress ( lihat gambar dibawah ini ).

Nah langsung aja kita praktekkan ya, pertama buat design form sebagai berikut :

 

Atur Propertiesnya menjadi dibawah ini :

 

Nah berikut ini adalah alur programnya :

• Saat input box ditulis nilainya, maka kita tidak akan bisa menuliskan nilai kecuali dengan angka 0 – 9, backspace, dan enter.
• Jika nilai sudah diisi dan di enter maka akan keluar message ucapan “ Terima Kasih “.
• Jika button bersih di klik maka akan menghapus niai dan seti focus ke edit_input_kata.
• Jika button keluar di klik maka akan muncup message box konfirmasi keluar dari program.

Berikut ini adalah Listing Codenya :

1	procedure Tform_materi22.button_bersihClick(Sender: TObject);

2

begin

3

4	edit_input_angka.Text:='';

5	edit_input_angka.SetFocus;

6

7

end;

saat button bersiih di klik teks input di hapus dan set focus.

01	procedure Tform_materi22.edit_input_angkaKeyPress(Sender: TObject;

02	var Key: Char);

03

begin

04

05	if not ( key in['0'..'9', #8, #13]) then

06	key:= #0 ;

07

08	if key = chr(13) then

09

begin

10	showmessage('Terima Kasih Banyak');

11

end;

12

13

end;

if not —> menyatakan bahwa adanya pengkondisian dimana jika ia tidak. key in —> menyatakan bahwa nilai yang boleh di input hanya angka 1 s/d 9 serta #8 ( backspace ) dan #13 ( enter ), Selain dari itu semua maka tidak akan berfungsi di edit box input. dan chr(13) menyatakan jika input yang tekan oleh keyboard adalah enter maka akan muncul message box ” Terima Kasih “.

1	procedure Tform_materi22.button_keluarClick(Sender: TObject);

2

begin

3

4	if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=ID_Yes) then

5

begin

6

close;

7

end

8

9

end;

Button Keluar akan mengeluarkan Message Box Konfirmasi yakin kah akan keluar.

Dan Untuk Tampilan hasil programnya bisa dilihat dibawah ini :

 

Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan tema Validasi angkat pada input box. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kita nanti d(^.^”). Untuk temen temen  yang mau mengunduh materi Delphi bisa mengunduhnya di link dibawah ini :

Download – Materi 22 Validasi Angka Input Box