pengulangan "for" pada borland delphi biasa digunakan untuk mengulangi langkah2 yang kita inginkan..
contoh penggunaannya pada aplikasi tabel perkalian dan pertambahan berikut :
Let's Begin.. :D
>> Langkah Pertama siapkan beberapa pernak pernik sebagai berikut :
1. Satu buah form / Tform
2. Satu buah stringgrid / TStringGrid
3. Dua buah tombol / TButton.
>> Langkah Kedua susun pernakpernik tersebut setidaknya seperti contoh diatas!, lalu set manual beberapa pernak pernik sebagai berikut :
1. Form1 > Caption = Tabel Perkalian dan Pengurangan..
2. StringGrid1 > DefaultColWidth = 24
3. StringGrid1 > DefaultRowHeight = 24
4. StringGrid1 > ColCount = 10
5. StringGrid1 > RowCount = 10
6. Button1 > Caption = Pertambahan
7. Button2 > Caption = Perkalian
>> Langkah ketiga pada event form1 saat form muncul / formshow terapkan code sbb:
// - Saat Form Muncul -
procedure TForm1.FormShow(Sender: TObject);
var
x,y:integer;
begin
stringgrid1.Cells[0,0] :='0';
for x := 1 to 10 do begin
stringgrid1.Cells[x,0] := inttostr(x);
end;
for y := 1 to 10 do begin
stringgrid1.Cells[0,y] := inttostr(y);
end;
end;
|
>> Langkah Keempat mengaktifkan tombol pertama, tombol penjumlahan, sbb:
// - Saat Tombol pertama(button1) diklik -
procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
begin
stringgrid1.Cells[0,0] :='+';
for x := 1 to 10 do
for y := 1 to 10 do
stringgrid1.Cells[x,y] := inttostr(x+y);
end;
|
>> Langkah Terakhir mengaktifkan tombol Kedua, tombol perkalian, sbb:
// - Saat Tombol Kedua(button2) diklik -
procedure TForm1.Button2Click(Sender: TObject);
var
x,y:integer;
begin
stringgrid1.Cells[0,0] :='x';
for x := 1 to 10 do
for y := 1 to 10 do
stringgrid1.Cells[x,y] := inttostr(x*y);
end;
|
Selesai sudah.. simpan dan jalankan.. :D :D :D
klik disini untuk download project diatas! (free)
