Delphi 7 - Kondisi Perulangan (For To Do, For Down To, dan Repeat Until)

Oke kali ini saya akan menjelaskan contoh program dengan kondisi perulangan pada delphi. Delphi adalah bahasa pemrograman yang menggunakan visualisasi seperti bahasa pemrograman Visual Basic (VB), namun Delphi menggunakan bahasa yang hampir sama dengan Pascal (Object Pascal). Pada program ini saya menggunakan Delphi 7.

Berikut adalah desain tampilan programnya :

Pada desain form1 diatas terdapat 2 buah label yaitu Perulangan Delphi dan Masukkan Tinggi. Selanjutnya, terdapat sebuah Edit yang berfungsi sebagai tempat inputan user untuk mengetikan batas dari perulangan yang akan dijalankan, kemudian terdapat ListBox yang berfungsi sebagai tempat tampilnya output perulangan, lalu yang terakhir ada 3 buah Button yang masing-masing memiliki kondisi perulangan yang berbeda dan sebuah button Clear serta Exit.

Berikut adalah kode program / sintaks yang terdapat pada program tersebut :

procedure TForm1.Button1Click(Sender: TObject);

var a,b:integer;

begin

b:= StrToInt (Edit1.Text);

for a := 1 to b do

  begin

    ListBox1.Items.Add (IntToStr(a));

  end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var a,b:integer;

begin

b:= StrToInt (Edit1.Text);

for a := b downto 1 do

  begin

    ListBox1.Items.Add (IntToStr(a));

  end;

end;

procedure TForm1.Button3Click(Sender: TObject);

var a,b:integer;

begin

a:=0;

b:= StrToInt (Edit1.Text);

repeat

a:=a+1;

  begin

    ListBox1.Items.Add(IntToStr(a));

  end;

until b<=a;

end;

procedure TForm1.Button4Click(Sender: TObject);

Begin

ListBox1.Clear;

Edit1.Clear;

Edit1.SetFocus;

End;

procedure TForm1.Button5Click(Sender: TObject);

begin

if application.MessageBox

('Yakin akan Keluar dari Program','Konfirmasi Ulang',MB_YesNo)=ID_Yes then

Application.Terminate;

end;

procedure TForm1.editNumber(Sender: TObject; var Key: Char);

begin

If Not (Key in['0'..'9',#8,#13]) Then

  Key:= #0;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

Edit2.MaxLength := 2;

end;

end.

1. Button1 (For Do To)

procedure TForm1.Button1Click(Sender: TObject);

var a,b:integer;

begin

b:= StrToInt (Edit1.Text);

for a := 1 to b do

  begin

    ListBox1.Items.Add (IntToStr(a));

  end;

end;

Pada bagian diatas adalah sintaks pada Button For To Do, berikut merupakan penjelasan sintaks diatas :

var a,b:integer;

berfungsi untuk membentuk variabel serta mendeklarasikan tipe data variabel, pada sintaks diatas dibuat variabel a dan b dengan tipedata integer (bilangan bulat).

begin

karena delphi menggunakan bahasa yang mirip dengan pascal, maka untuk memulai suatu sintaks atau badan program harus dimulai dengan begin.

b:= StrToInt (Edit1.Text);

merupakan sintaks yang berfungsi untuk menjadikan variable b sebagai penampung inputan dari user yang diketikan di Edit1 dengan mengubah nilainya terlebih dahulu dari string menjadi integer.

for a := 1 to b do

  begin

    ListBox1.Items.Add (IntToStr(a));

  end;

merupakan sintaks dari bentuk kondisi perulangan for to do, for a := 1 to b do sintaks ini berfungsi sebagai perulangan dengan a dimulai dengan nilai 1 sampai batas variabel b yaitu dari  inputan user.

 begin

    ListBox1.Items.Add (IntToStr(a));

  end;

sintaks diatas merupakan badan program untuk statement hasil dari kondisi perulangan yang diawali dengan begin dan diakhiri dengan end;

berfungsi untuk melakukan statemen hasil dari perulangan a yaitu dengan menampilkan outputnya di dalam ListBox1.

end;

berfungsi untuk menutup badan program dibagian button1.

2. Button2 (For Down To)

var a,b:integer;

begin

b:= StrToInt (Edit1.Text);

for a := b downto 1 do

  begin

    ListBox1.Items.Add (IntToStr(a));

  end;

end;

Pada bagian diatas adalah sintaks pada Button For Downto Do, berikut merupakan penjelasan sintaks diatas :

var a,b:integer;

berfungsi untuk membentuk variabel serta mendeklarasikan tipe data variabel, pada sintaks diatas dibuat variabel a dan b dengan tipedata integer (bilangan bulat).

begin

karena delphi menggunakan bahasa yang mirip dengan pascal, maka untuk memulai suatu sintaks atau badan program harus dimulai dengan begin.

b:= StrToInt (Edit1.Text);

merupakan sintaks yang berfungsi untuk menjadikan variable b sebagai penampung inputan dari user yang diketikan di Edit1 dengan mengubah nilainya terlebih dahulu dari string menjadi integer.

for a := b downto 1 do

  begin

    ListBox1.Items.Add (IntToStr(a));

  end;

merupakan sintaks dari bentuk kondisi perulangan for downto do, for a := b downto 1 do sintaks ini berfungsi sebagai perulangan dengan a dimulai dengan variabel b yaitu dari inputan user sampai dengan batas nilai 1.

begin

    ListBox1.Items.Add (IntToStr(a));

  end;

sintaks diatas merupakan badan program untuk statement hasil dari kondisi perulangan yang diawali dengan begin dan diakhiri dengan end;

berfungsi untuk melakukan statemen hasil dari perulangan a yaitu dengan menampilkan outputnya di dalam ListBox1.

end;

berfungsi untuk menutup badan program dibagian button2.

3. Button3 (Repeat Until)

var a,b:integer;

begin

a:=0;

b:= StrToInt (Edit1.Text);

repeat

a:=a+1;

  begin

    ListBox1.Items.Add(IntToStr(a));

  end;

until b<=a;

end;

Pada bagian diatas adalah sintaks pada Button Repeat Until, berikut merupakan penjelasan sintaks diatas :

var a,b:integer;

berfungsi untuk membentuk variabel serta mendeklarasikan tipe data variabel, pada sintaks diatas dibuat variabel a dan b dengan tipedata integer (bilangan bulat).

begin

karena delphi menggunakan bahasa yang mirip dengan pascal, maka untuk memulai suatu sintaks atau badan program harus dimulai dengan begin.

a:=0;

berfungsi untuk menjadikan variabel a  bernilai 0.

b:= StrToInt (Edit1.Text);

merupakan sintaks yang berfungsi untuk menjadikan variable b sebagai penampung inputan dari user yang diketikan di Edit1 dengan mengubah nilainya terlebih dahulu dari string menjadi integer.

repeat

a:=a+1;

  begin

    ListBox1.Items.Add(IntToStr(a));

  end;

until b<=a;

sintaks diatas merupakan bentuk dari kondisi perulangan repeat until dengan awalan repeat kemudian diikuti oleh increment a:=a+1; agar nilai awal yang telah dideklarasikan sebelumnya dapat bertambah sesuai penambahan yang ditetapkan.

  begin

    ListBox1.Items.Add(IntToStr(a));

  end;

sintak diatas merupakan bagian perintah atau statement yang akan dijalankan dalam perulangan repeat until yang diawalai dengan begin setelah itu ListBox1.Items.Add(IntToStr(a)); berfungsi agar perulangan dengan variabel a ditampilkan didalam ListBox dengan mengkonversi dari Integer menjadi String.

until b<=a;

berfungsi untuk menentukan kondisi pada perulangan repeat until, pada sintak diatas perulangan akan berhenti jika kondisinya b kurang dari samadengan a.

end;

berfungsi untuk menutup badan program dibagian button3.

4. Button4 (Clear)

Begin

ListBox1.Clear;

Edit1.Clear;

Edit1.SetFocus;

End;

Pada bagian diatas adalah sintaks pada Button Clear, berikut merupakan penjelasan sintaks diatas :

begin

karena delphi menggunakan bahasa yang mirip dengan pascal, maka untuk memulai suatu sintaks atau badan program harus dimulai dengan begin.

ListBox1.Clear;

berfungsi untuk membersihkan layar pada bagian ListBox1.

Edit1.Clear;

berfungsi untuk membersihkan layar pada bagian Edit1.

Edit1.SetFocus;

Berfungsi untuk menempatkan kursor pada Edit1 setelah user mengklik Button4 (Clear).

5. Button5 (EXIT)

begin

if application.MessageBox

('Yakin akan Keluar dari Program','Konfirmasi Ulang',MB_YesNo)=ID_Yes then

Application.Terminate;

end;

Pada bagian diatas adalah sintaks pada Button EXIT, berikut merupakan penjelasan sintaks diatas :

Berfungsi untuk menampilkan sebuah MessageBox untuk meyakinkan kembali user apakah ingin benar keluar dari program atau tidak dengan kondisi percabangan if..then dan terdapat pilihan Yes atau No, Jika user mengklik ‘Yes’ maka statement dibawah then akan dijalankan yaitu Application.Terminate; Yang berfungsi untuk keluar dari jendela program. Tak lupa pada awal terdapat begin dan diakhir ditutup dengan end;

end.

Berfungsi untuk menutup akhir dari keseluruhan badan program.

Berikut adalah tampilan Outputnya :

Saya kira sudah cukup jelas penjelasan mengenai program perulangan (For To Do, For Down To, dan Repeat Until)  pada Delphi, semoga postingan ini bermanfaat dan menambah pengetahuan bagi kita dalam memahami bahasa pemrograman Delphi. Untuk postingan selanjutnya saya akan menjelaskan tentang contoh program database bahasa pemrograman Delphi.