Pengurutan(Sorting) dengan Delphi

Ni postingan pertama q tentang pemograman...

moga ja bisa ngebantu kalian.

hehe

:p

Kalo da salah ya mohon dimaklumi, karena q juga baru dalam tahap pembelajaran..

^_^

CARA MEMBUAT PRRGRAM PENGURUTAN

1. Buka apilkasi delphimu, setelah itu buat Label dengan nama "Data [1]" sampai "Data [10]".

2. Buat kotak isian dengan memilih komponen edit,(sesuaikan dengan jumlah Labelnya), dan buat lagi, kalo Labelnya ada 10 berarti komponen editnya ada 20.

kayak gini gambarnya:

3. Setelah itu buat tombol dengan nama Input,StrToInt,Pengurutan dan Selesai lalu pada tiap-tiap beri skrip.

Untuk Tombol input skripnya seperti:

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='';
edit8.text:='';
edit9.text:='';
edit10.text:='';
button2.Enabled:=false;
button4.Enabled:=true;
end;

Untuk Tombol StrToInt skripnya seperti berikut:

{Untuk Mengubah Data String Ke Integer}
procedure TForm1.Button1Click(Sender: TObject);
begin
data[1]:=StrToInt(edit1.text);
data[2]:=StrToInt(edit2.text);
data[3]:=StrToInt(edit3.text);
data[4]:=StrToInt(edit4.text);
data[5]:=StrToInt(edit5.text);
data[6]:=StrToInt(edit6.text);
data[7]:=StrToInt(edit7.text);
data[8]:=StrToInt(edit8.text);
data[9]:=StrToInt(edit9.text);
data[10]:=StrToInt(edit10.text);
{Untuk Mengnonaktifkan Tombol}
button2.Enabled:=true;
end;

Untuk Tombol Pengurutan skripnya:

{Untuk Mengurutkan/Memproses Data}
procedure TForm1.Button2Click(Sender: TObject);
var
i,j,kecil,sementara: integer;
begin
for i:=1 to 9 do
begin
kecil:=i;
for j:=(i+1) to 10 do
begin
if data[j]< data[kecil] then begin kecil:=j; end; end; sementara:=data[i]; data[i]:=data[kecil]; data[kecil]:=sementara; end; edit11.Text:=IntToStr(data[1]); edit12.Text:=IntToStr(data[2]); edit13.Text:=IntToStr(data[3]); edit14.Text:=IntToStr(data[4]); edit15.Text:=IntToStr(data[5]); edit16.Text:=IntToStr(data[6]); edit17.Text:=IntToStr(data[7]); edit18.Text:=IntToStr(data[8]); edit19.Text:=IntToStr(data[8]); edit20.Text:=IntToStr(data[10]); {Untuk Menampilkan Jendela} showmessage('Data Sudah Terurut'); {Untuk Mengaktifkan Tombol} button4.Enabled:=true; button3.Enabled:=true; end;

Skrip untuk Tombol Selesai:

{Untuk Mengakhiri Program}
procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;
{Untuk Mengnonaktifkan Tombol}
procedure TForm1.FormCreate(Sender: TObject);
begin
button2.Enabled:=false;
button4.Enabled:=false;
button3.Enabled:=false;
end;

Janan lupa untuk isikan skrip ini diantara public dan { Public declarations }:

data:array[1..10] of integer;
end;

Dan Beginilah hasil Akhirnya:

Ya seperti itu tampilannya, kalo pengen memodifikasi supaya tampilannya lebih bagus pada form berikan judul dan warna, pengaturannya ada di jendela object inspector.

kalo g jelas bisa tanya ke q,komen saja dibawah postingan ini.

OK...moga berhasil..

ba...baaaayyyy....

(^_^)/'

You Might Also Like :