Pengurutan

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....
(^_^)/'