Program Perulangan Pada Delphi 7

Kali ini saya akan memposting tentang cara membuat Program Perulangan pada Delphi 7. Program yang akan saya buat adalah Program perulangan For To Do, For Down To, dan Repeat Until. Output yang akan dihasilkan berupa urutan angka dar 1 sampai 10 dan sebaliknya. Berikut ini langkah-langkah dalam membuat programnya : 


1. Langkah pertama yang harus kita lakukan adalah membuat Design pada tampilan Form, berikut ini tampilan Formnya :

Pada tampilan Form1 diatas terdapat label1 yang bertuliskan “PERULANGAN DELPHI’ dan label2 bertuliskan “Masukan Angka”. Lalu terdapat kolom Edit1 yang nantinya berfungsi sebagai tempat menginput angka batasan dari perulangan. Selanjutnya terdapat kolom ListBox1 yang berfungsi untuk menampilkan output dari proses perulangan. Dan yang terakhir terdapat empat buah button, yang terdiri dari Button1 berfungsi untuk melakukan perintah perulangan For To Do, Button2 berfungsi untuk untuk melakukan perintah perulangan For Down To, Button3 berfungsi untuk melakukan perintah Repeat Until, dan Button4 berfungsi untuk membersihkan tampilan pada Edit1 dan ListBox1.

2. Setelah Form telah kita buat, selanjutnya kita masukkan kodingan dengan mengklik dua kali pada masing-masing Button. Berikut ini tampilan dan penjelasan mengenai kodingannya :

Pada bagian procedure TForm1.Button1Click(Sender: TObject) terdapat perintah :

var

i:Integer;

begin

ListBox1.Clear;

Perintah ini berfungsi untuk mendeklarasikan variabel i sebagai integer dan perintah untuk membersihkan ListBox1 jika masih terdapat angka dari program sebelumnya yang sudah di jalankan.

for i:= 0 to StrToInt (Edit1.Text) do

begin

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

end;

end;

Perintah ini merupakan perintah perulangan For To Do yang berfungsi melakukan perulangan dari urutan yang terkecil sampai urutan terbesar, dimulai dari angka 0 sampai dengan angka yang telah di inputkan pada kolom Edit1. Selanjutnya merupakan perintah untuk menampilkan hasil perulangan dari variabel i pada ListBox1.

Pada bagian procedure TForm1.Button2Click(Sender: TObject) terdapat perintah :

var

i:Integer;

begin

ListBox1.Clear;

Perintah ini berfungsi untuk mendeklarasikan variabel i sebagai integer dan perintah untuk membersihkan ListBox1 jika masih terdapat angka dari program sebelumnya yang sudah di jalankan.

for i:= StrToInt (Edit1.Text) downto 0 do

begin

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

end;

end;

Perintah ini merupakan perintah perulangan For Down To yang berfungsi melakukan perulangan dari urutan terbesar sampai urutan terkecil, di mulai dari angka yang di inputkan pada kolom Edit1 sampai dengan angka 0 yang merupakan batasan terkecil. Selanjutnya perintah untuk menampilkan hasil perulangan dari variabel i pada ListBox1.

Pada bagian procedure TForm1.Button3Click(Sender: TObject) terdapat perintah :

Var

i:integer;

Begin

ListBox1.Clear;

i:=0;

Perintah ini berfungsi untuk mendeklarasikan variabel i sebagai integer dan perintah untuk membersihkan ListBox1 jika masih terdapat angka dari program sebelumnya yang sudah di jalankan. Selanjutnya merupakan perintah untuk menunjukan nilai variabel i.

Repeat

i:=i+1;

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

Until i = StrToInt (Edit1.Text)

end;

Perintah ini merupakan perintah perulangan Repeat Until yang berfungsi untuk melakukan perulangan pada nilai variabel i yang terus bertambah dan terus di cetak pada kolom ListBox1 sampai nantinya berhenti pada batasan variabel i yang telah di inputkan pada kolom Edit1.

Pada bagian procedure TForm1.Button4Click(Sender: TObject) terdapat perintah :

begin

Edit1.Clear;

ListBox1.Clear;

end;

end.

Perintah ini berfungsi untuk membersihkan atau menghapus inputan yang terdapat pada kolom Edit1 dan untuk membersihkan output yang terdapat pada kolom ListBox1.

3. Setelah semua langkah telah dilakukan maka kita dapat melihat tampilan outputnya seperti berikut ini :

- Tampilan output pada perulangan For To Do

- Tampilan output pada perulangan For Down To

- Tampilan output pada perulangan Repeat Until

- Tampilan output pada Button clear

Demikianlah postingan dari saya mengenai Perulangan pada Delphi 7, semoga bermanfaat ;)