Mudrikah.hasyah: LATIHAN 2 (Input Nama dengan Array)

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

berikut formnya:

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

Pada aplikasi 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

berikut skripnya:

unit latihan2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Edit1: TEdit;

LBData: TListBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

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;

procedure TForm1.Button2Click(Sender: TObject);

begin

LBData.Clear;

Edit1.Text:='';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

CLOSE;

end;

end.

- Setelah semua selesai kemudian kita simpan dengan cara menu File > Save As simpan sesuai folder yang diinginkan. kemudian simpan juga project dengan pilih menu File > Save Project As.

- kemudian kita running dengan tekan F9

- berikut hasil running