Delphi – Validasi Angka Input Box

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 Dalam Meng 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 pada prosedur 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 :

procedure Tform_materi22.button_bersihClick(Sender: TObject);
begin

  edit_input_angka.Text:='';
  edit_input_angka.SetFocus;

end;

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

procedure Tform_materi22.edit_input_angkaKeyPress(Sender: TObject;
  var Key: Char);
begin

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

  if key = chr(13) then
    begin
      showmessage('Terima Kasih Banyak');
    end;

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 “.

procedure Tform_materi22.button_keluarClick(Sender: TObject);
begin

  if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=ID_Yes) then
    begin
      close;
    end

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

Tetap Simak Terus Catatan Eko Ya Temen temen semua, Kita akan tetap kembali dengan tips tips menarik materi pembelajaran Delphi tentunya, Sampai Jumpa lagi dilain kesempatan – Salam Semangat.

Eko

_______________________________________________________________________________

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

–          Delphi – Copy String

–          Delphi – Penggabungan String

–          Delphi  – Penggunaan Procedure

_______________________________________________________________________________