Membuat Aplikasi Perulangan For To Do, Repeat Until, dan While Do Dengan Delphi

Langakah pertama untuk mebuat aplikasi perulangan yaitu dengan cara klik file new sperti pada gambar berikut ini

Kemudian akan muncul sebuah form baru seperti ini

Kemudian tambahkan komponen

1. 5 buah Edit dapat di ambil pada komponen pelette (Page Standard)
2. 6 buah Button dapat di ambil pada komponen pelette (Page Standard)
3. 1 buah Label dapat di ambil pada komponen pelette (Page Standard)

Desainlah sesuai dengan keinginginan anda, atau seperti gambar dibawah ini

Ganti Label1 dengan nama PERULANGAN atau terserah anda, dan juga ganti setiap nama pada button. Untuk menganti nama pada Label dan Button dapat diganti pada Object Inspector seperti pada gambar dibawah ini.

Dengan cara klik pada menu Caption dan Ganti Tulisan yang ada pada Caption tersebut.

1. Label1 diganti menjadi PERULANGAN
2. Edit1 sampai dengan  Edit5 dikosongkan saja
3. Button1 diganti dengan nama FOR TO DO
4. Button2 diganti dengan nama FOR DOWN TO DO
5. Button3 diganti dengan nama REPEAT UNTIL
6. Button4 diganti dengan nama REPEAT UNTIL
7. Button5 diganti dengan nama WHILE DO
8. Button6 diganti dengan nama BERSIHKAN

Untuk memasukkan program ikuti langakh berikut ini

• Klik dua kali pada Button1 dan isi kan program berikut ini

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 5 do
edit1.SelText:=inttostr(i);
end;

•  Klik dua kali pada Button2 dan isi kan program berikut ini

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=5 downto 1 do
edit2.SelText:=inttostr(i);
end;

•  Klik dua kali pada Button3 dan isi kan program berikut ini

procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
i:=1;
 repeat
   i:=i+2;
edit3.seltext:=inttostr(i);
until i=15;
end;

•  Klik dua kali pada Button4 dan isi kan program berikut ini

procedure TForm1.Button4Click(Sender: TObject);
var
i:integer;
begin
i:=2;
 repeat
   i:=i+2;
edit4.seltext:=inttostr(i);
until i=18;
end;

•   Klik dua kali pada Button5 dan isi kan program berikut ini

procedure TForm1.Button5Click(Sender: TObject);
var
i:integer;
begin
    i:=0;
    while I< 5 do
begin
    edit5.SelText:=inttostr(i);
    i:=I+1;
    end;
end;

•  Klik dua kali pada Button6 dan isi kan program berikut ini

procedure TForm1.Button6Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
end;

Sekarang coba anda jalankan programnya, untuk menjalankan programnya terlebih dahulu kita compile untuk melihat apakah ada kesalahan pada program atau tidak. dan jika tidak ada ada kesalahan makan kita langsung saja klik menu run seperti pada gambar di bawah ini.

Compile Project Terlebih dahulu untuk melihat adanya Error atau Kesalahan Program

Setelah di Compile Langsung saja klik menu Run atau Icon Run Pada Panah Berwarna Merah

Setelah dijalankan maka akan kita lihat hasilnya seperti pada gambar dibawah ini

Setelah Program Dijalankan

Untuk mengahpus semua silahakan Klik Button Bersihkan maka angak yang ada pada Edit akan Hilang Semua.