Delphi – Lopping Input Box

Assamualaikum Temen Temen semua, Salam Semangat Di Sore Hari ini /(^.^”) – wah tumben nich postnya sore sore *hehehehe. Ga Papa lah Lebih baik terlambat dari pada tidak sama sekali d(^.^”).

Nah kesempatan Sore hari ini saya mau kembali berbagi Tips Tips Materi Pemrograman Delphi nich, kalau pertemuan sebelumnya kita sudah membahas mengenai penggunaan input box pada Delphi untuk saat ini kita akan membahas penggunaan fungsi looping pada input box.  Dimana kita bisa mengatur banyaknya jumlah input box yang keluar untuk input data suatu nilai. Monggo langsung aja disimak ya.

Input Box adalah kotak informasi yang memiliki fungsi untuk mengabil suatu nilai yang akan dimasukkan, penggunaan input box dapat mengurangi penggunaan component untuk mode masukan data sehingga bisa menghemat component dan membuat aplikasi yang simple namun power full. Untuk Looping sendiri adalah pengulangan perintah dimana selama masih memenuhi criteria yang ditetapkan. Dan penggabungan fungsi input box dan looping kita dapat membuat suatu pemasukan nilai berdasarkan input box dengan jumlah inputan yang disesuaikan dengan yang diinginkan. Sok Langsung aja kita Praktekkan nich /(^.^”).

• Pertama tama Kita akan buat design Form nya seperti dibawah ini :

• Atur Properties Namenya sebagai Berikut ya /(^.^”) :

Nah Berikut ini adalah alur programnya :

• Untuk memulai penginputan nilai kita diharuskan mengisi jumlah input box yang akan ditampilkan,
• Jika button isi data diklik maka akan memunculkan input box sejumlah nilai yang sudah dimasukkan, jika edit jumlah kosong maka akan memunculkan pesan’ SIlahkan masukkan jumlah input data’ kemudian setfocus ke edit jumlah.
• Jika input box muncul kita bisa memasukkan nilai kemudian di ok maka teks akan masuk ke listbox, dan list box akan muncul kembali sampai jumlah yang diminta telah terpenuhi
• Jika button bersih di klik maka list box akan dibersihkan.
• Jika button keluar maka akan menampilkan pesan konfirmasi yang menyatakan ‘apakah anda yakin akan keluar dari program’ jika yam aka akan keluar dari program.

Nah Berikut ini adalah Source Codenya :

 

procedure Tform_18.button_inputClick(Sender: TObject);
var
  input_barang:string;
  awal,jumlah:integer;
begin

if edit_jumlah.Text='' then
  begin
    showmessage('Maaf SIlahkan Masukkan Jumlah Input Data!');
    edit_jumlah.SetFocus;
  end
else
  begin
    jumlah:=strtoint(edit_jumlah.Text);
    awal:=1;

    while awal<=jumlah do
      begin
        input_barang:=inputbox('Konfirmasi','Silahkan Masukkan Nama Barang','');
        listbox1.Items.Add(input_barang);
        awal:=awal+1;

        edit_jumlah.Text:='';
        edit_jumlah.SetFocus;
      end;

  end;

end;

pengguaan fungsi IF dimaksudkan untuk validasi edit jumlah agar kalau belum diisi atau masih kosong, diberikan peringatan untuk mengisi terlebih dahulu untuk menghindari debug / error coding loopingnya. kemudian penggunaan looping menggunakan while statement do kemudian diakhir code diberikan perintah penambahan variable guna terpenuhinya jumlah awal yang telah ditetapkan.

procedure Tform_18.button_bersihClick(Sender: TObject);
begin

  listbox1.Clear;

end;

Jika Button Bersih DI Klik maka Listbox Dibersihkan.

procedure Tform_18.button_keluarClick(Sender: TObject);
begin

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

JIka Button Keluar Di Klik maka muncul konfirmasi message box untuk meyakinkan akan keluar dari program.

end;

Nah Berikut ini adalah hasil aplilkasi saat dijalankan :

Peringantan masukan jumlah input

  

message box konfirmasi keluar dari program

Nah itulah materi yang akan kita bahas di sore hari ini untuk penggunaan Looping pada Input Box, Gampang banget kan /(^.^”) memang belajar Delphi itu Menyenangkan *hehehehehe. Nah untuk temen temen yang mau download aplikasinya bisa langsung download di link dibawah ini.

Download – Materi 18 Looping Pada Input Box

Nah Tetem Simak Terus Catatan Eko Personal Blog ya temen temen, kita akan terus kembali dengan tips tips materi Delphi lainnya yang gak kalah seru d(^o^”). Sampai jumpa lagi esok hari ya temen temen, Salam Semangat Di Sore Hari ini J.

Thanks & Regards

Eko

_______________________________________________________________________________

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

–          Delphi – Menggunakan Input Box

–          Delphi – Membuat Message Box

–          Delphi – Mengubah Posisi Teks Di List Box

_______________________________________________________________________________