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

Hallo sahabat Coding...Untuk posting kali ini saya akan memberikan sedikit cara membuat aplikasi perulanagan. Langakah pertama untuk mebuat aplikasi perulangan yaitu dengan cara klik file new seperti pada gambar berikut ini

Kemudian akan muncul sebuah form baru seperti ini

Kemudian tambahkan komponen

5 buah Edit dapat di ambil pada komponen pelette (Page Standard)
6 buah Button dapat di ambil pada komponen pelette (Page Standard)
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.

Label1 diganti menjadi PERULANGAN
Edit1 sampai dengan Edit5 dikosongkan saja
Button1 diganti dengan nama FOR TO DO
Button2 diganti dengan nama FOR DOWN TO DO
Button3 diganti dengan nama REPEAT UNTIL
Button4 diganti dengan nama REPEAT UNTIL
Button5 diganti dengan nama WHILE DO
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.