Lopping Input Box Di Delphi

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 adalahpengulangan 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 :

01	procedure Tform_18.button_inputClick(Sender: TObject);

02

var

03	input_barang:string;

04	awal,jumlah:integer;

05

begin

06

07	if edit_jumlah.Text='' then

08

begin

09	showmessage('Maaf SIlahkan Masukkan Jumlah Input Data!');

10	edit_jumlah.SetFocus;

11

end

12

else

13

begin

14	jumlah:=strtoint(edit_jumlah.Text);

15

awal:=1;

16

17	while awal<=jumlah do

18

begin

19	input_barang:=inputbox('Konfirmasi','Silahkan Masukkan Nama Barang','');

20	listbox1.Items.Add(input_barang);

21	awal:=awal+1;

22

23	edit_jumlah.Text:='';

24	edit_jumlah.SetFocus;

25

end;

26

27

end;

28

29

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.

1	procedure Tform_18.button_bersihClick(Sender: TObject);

2

begin

3

4	listbox1.Clear;

5

6

end;

Jika Button Bersih DI Klik maka Listbox Dibersihkan.

1	procedure Tform_18.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;

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