LATIHAN 2 (Input Nama dengan Array)

       Kali ini kita akan membuat aplikasi sederhana penginputan nama dengan struktur Array.

Untuk kriteria form sebagai berikut :

Items	Name	Caption	Text
Label1	Label1	DATA NAMA PESERTA	-
Label2	Label2	JUMLAH DATA	-
Button1	Button1	INPUT	-
Button2	Button2	CLEAR	-
Button3	Button3	CLOSE	-
Edit1	Edit1	-	{kosongkan}
ListBox1	LBData	-	-

Kotak Inputbox

        Pada aplikasi sederhana ini,kita menggunakan struktur data Array untuk input dan menampilakan nama berulang-ulang hingga batas yang ditentukan. Penginputan nama menggunakan inputbox yang dibagi menjadi 2:

-          Inputbox untuk Nama Awal

-          Inputbox untuk Nama Akhir

Listing Program (1)

              Karena pada aplikasi sederhana ini kita memakai struktur data Array dimana data yang diinputkan lebih dari 1 kali, maka untuk menampilkan hasil input data/nama ini kita tidak menggunakan kotak Edit melainkan kotak ListBox yang dapat menampung hasil inputan dalam jumlah banyak seperti pada Array.

Listing Program (2)

Untuk pengetikan listing program :

a.      double-klik pada tombol 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.      double-klik pada tombol CLEAR

procedure TForm1.Button2Click(Sender: TObject);

begin

  LBData.Clear;

  Edit1.Text:='';

end;

c.       double-klik pada tombol CLOSE

procedure TForm1.Button3Click(Sender: TObject);

begin

CLOSE;

end;

setelah pengetikan listing program, lakukan penyimpanan :

·         Save as : untuk menyimpan editor

·         Save Project As : untuk menyimpan project

Hasil Running

Kotak Input Nama Awal-Belakang

Hasil Input Nama

<contoh program dan script lengkap lihat disini>

{CAUTION!!!}

ð  penyimpanan editor dengan project harus berbeda nama! Misalnya editor = latihan, maka project = latihan1

ð  nama penyimpanan tidak boleh menggunakan kata yang terdapat pada listing program. Seperti procedure, function, public, privatedan lain-lain.

>>>SELAMAT MENCOBA<<<