Aplikasi menggunakan fungsi perulangan pada delphi

Pembuatan aplikasi menggunakan Perulangan.

            Di sini saya akan membuat suatu aplikasi menggunakan Perulangan Do While dan For Downto Do. Logika nya ketika memasukan nilai awal dan banyak nya perulangan maka outputnya akan keluar pada memo dan dengan output hasil perulangan nya.

1.                  Membuat User Interface.

Disini kita menggunakan Label, Edit, Memo serta Button. Pada Button kita memberikan perintah perulangan Do While dan For Downto Do . Button clear untuk menghapusnya.

2.                  Membuat Perintah Atau Meng-Koding.

Disini ada 3 Button. Button “Do While” untuk melakukan perulangan do while dan Button “For Downto Do” untuk melakukan perulangan for downto. Button “Clear” untuk menghapus input dan outputnya.

·         Kita membuat 2 variabel a dan b dengan deklarasi integer ( karena perulangan nanti akan menggunakan angka / bilangan) Variabel a diambil dari input Edit, karena a berdeklarasi integer, jadi kita harus ubah deklarasi edit yaitu string menjadi integer, yaitu dengan strtoint (yang artinya string ke integer) dan b kita berikan nilai 1 karena kita akan menggunakan perintah do while lebih atau sama dengan 1.

·         Do while artinya program akan berjalan selama kondisi nya benar, jika salah maka program akan berhenti.

·         Pada memo1.clear berarti kita menghapus tulisan memo1 nya terlebih dahulu, terus kita buat judul nya dengan lines+add yang artinya menambahkan dan pindah baris setelah ini buat kembali untuk enter nya.

·         Logika nya: Jika 1 lebih besar atau sama dengan data input 2 maka mulai, menambahkan memo pertama dengan tambahan data string + (b) + sama dengan + (c), selama kondisi benar maka akan melakukan perulangan.

·         Agar perulangan berjalan kita mengganti variabel yang lama dengan baru , contoh : b = b+1 dan a= a+1 jadi jika b yan pertama 3 makan nanti akan menjadi 4 dan seterusnya.

·         Jika kita menuliskan kata yang bertipe string kita menggunakan tanda petik satu (‘)

·         Logika nya sama seperti tadi tetapi pada perulangan for downto do berarti akan melakukan perulangan mundur.

·         Pada variabel a untuk nilai awal akan berkurang karena proses a= a-1 jadi jika a yang pertama 5 , maka nanti a akan berubah menjadi 4, dan seterusnya.

Pada kodingan untuk hapus:

Edit1.clear;

Edit2.clear;

Memo1.clear;

End;

End.

  

3.             Jalankan aplikasi

Klik icon play atau tekan F9 atau Run – Run.

Pada perulangan Do While :

Pada perulangan For Downto Do :