INPUT NAMA ARRAY

INPUT NAMA ARRAY

Pert. 3

Input Nama Memakai Array

Diprogam sederhana ini akan menginput nama dengan menggunakan Array. Menginput dan menampilkan dengan angka yang tentukan atau di targetkan.

Seperti gambar diatas, gambar diatas menentukan/menargetkan 3 nama, maka kita diminta memasukkan 3 nama, setelah menekan tombol 'Input' dengan muncul 'nama depan' dan 'nama belakang' seperti dibawah ini:

Nama depan/awal

Nama belakang

Nah.. seperti itulah tampilan menginput nama, yaitu 'nama awal' dan 'nama belakang' dan jadinya seperti ini :

Akan muncul nama seperti itu, dan jika targetnya 3 maka memasukkan nama awal dan belakang dilakukan sebanyak 3x .

Dan pertanyaannya kenpa kita menggunakan Listbox? kenapa ga Memo atau yang lainnya saja ? Karena Listbox bisa menampung lebih banyak hasil inputan, Dan di mana hanya ada satu option yang dapat dipilih. kalau Memo Dipakai untuk memasukkan atau menampilkan beberapa baris teks di dalam form. dan kalau Edit hanya memasukkan inputan.

Berikut gambar listing progam aplikasinya.

Listing Progam Array

Script lebih jelas .. liat dibawah ini :

a. Klik 2x button Input

procedure TForm1.Button1Click(Sender: TObject);

var

  i:integer;

  nama1,nama2:array[1..5] of string;

  s:string;

begin

  s:=inputbox('input data','masukkan jumlah data:','0');

  for i:=1 to strtoint(s) do

    begin

    nama1[i]:=inputbox('data ke:'+inttostr(i),'nama awal','');

    nama2[i]:=inputbox('data ke:'+inttostr(i),'nama belakang','');

    LBData.items.Add(nama1[i]+''+nama2[i]);

    Edit1.Text:=inttostr(LBData.Items.Count);

    end;

end;

b. Klik 2x button Clear

procedure TForm1.Button2Click(Sender: TObject);

begin

  LBData.Clear;

  Edit1.Text;

end;

c. Dan Klik 2x juga pada button Close

procedure TForm1.Button3Click(Sender: TObject);

begin

  close;

end;

end.

nah diatas itu script nya ... silah kan ditulis dan di coba ^^

dan jangan lupa setelah mengetik  si simpan ..

cara savenya :

      *Save as               : untuk menyimpan editornya

      *Save Project As  : untuk menyimpan project nya

Hasil Running

Hasil Akhir