Contoh Program Perulangan Pada Delphi

Pada program kali ini, membahas tentang Program Menu, SubMenu, Perulangan, Dan Timer pada Delphi. Seperti pengertian perulangan (Perulangan adalah suatu cara untuk mengulang satu atau sekumpulan perintah sampai mencapai kondisi tertentu.)

Dalam pembuatan program kali ini ada beberapa perulangan yaitu :

1.      Perulangan menggunakan For To Do

Contoh 

form1.Hide;

form2.show;

form3.hide;

maksudnya adalah pada show itu untuk menampilkan form nya , sedangkan hide nya kebalikan dari show.

2.      Perulangan menggunakan For Do

Contoh 

a:=StrToInt(Edit1.text);

b:=StrToInt(Edit2.Text);

for c:= a to b do

maksudnya adalah Perulangan ini akan berulang selama nilai variabel counter masih lebih kecil atau sama dengan nilai akhir.

3.      Perulangan menggunakan for_downto do

Contoh

a:=StrToInt(Edit1.text);

b:=StrToInt(Edit2.Text);

for c:= b downto a do

maksudnya adalah Perulangan ini akan berulang selama nilai variabel counter masih lebih besar atau sama dengan nilai akhir. Nilai awal suatu counter harus lebih besar atau sama dengan daripada nilai akhirnya, dengan kata lain hasil nya kebalikan dari perulangan For Do.

            Selain dengan menggunakan code program untuk perulangan , di sini juga menggunakan Timer. Timer berfungsi sebagai jam yang telah disediakan Delphi. Dengan timer kita juga dapat mendecode time, sehingga dapat terjadi akusisi data.

Contoh codingan program nya :

begin

label1.Caption:=formatdatetime('hh:mm:ss',now);

label2.caption:=formatdatetime('dd-mmmm-yyyy',now);

end;

maka lanjut dengan contoh program nya :

kali ini saya membuat 3 form 

form 1 :

form 2

form 3

maka codingan nya tiap form :

form 1

Ketikkan Code pada Perulangan :

form1.Hide;

form2.show;

form3.hide;

Code Pada timer :

 form1.Hide;

 form2.hide;

 form3.show;

Exit :

Application.Terminate ;

form 2

Group Box : Caption : perulangan

Label 1 :  Caption : Angka Awal

label 2 : Caption :Angka Akhir

Edit 1 : Text : (kosongkan)

Edit 2 : Text : (kosongkan)

Button1: Caption : For_do

Button2: Caption : for_downto

Button3: Caption : Back

Code/Script :

Button for_do :

procedure TForm2.Button1Click(Sender: TObject);

var a,b,c,d:Integer;

begin

memo1.Clear;

a:=StrToInt(Edit1.text);

b:=StrToInt(Edit2.Text);

for c:= a to b do

  begin

  d :=Sqr(c);

  memo1.Lines.add(IntToStr(c) + ' Kuadrat = ' + IntToStr(d));

end;

end;

Button for_downto do :

procedure TForm2.Button2Click(Sender: TObject);

var a,b,c,d:Integer;

begin

memo1.clear;

a:=StrToInt(Edit1.text);

b:=StrToInt(Edit2.Text);

for c:= b downto a do

   begin

   d:=Sqr(c);

   memo1.Lines.add(IntToStr(c) + ' Kuadrat = ' + IntToStr(d));

end;

end;

Button Back :

procedure TForm2.Button3Click(Sender: TObject);

begin

form1.show;

form2.hide ;

form3.hide;

end;

end.

dan form 3

Klik 2x pada Timer :

procedure TForm3.Timer1Timer(Sender: TObject);

begin

label1.Caption:=formatdatetime('hh:mm:ss',now);

label2.caption:=formatdatetime('dd-mmmm-yyyy',now);

end;

end.

Klik 2x pada Button :

procedure TForm3.Button1Click(Sender: TObject);

begin

form1.show;

form2.hide;

form3.Hide;

end;

Maka save lah dan Hasilnya  :

Baca selengkapnya »