Pada
tutorial ini yaitu membuat perulangan pada Delphi. Perulangan yaitu cara untuk
mengulang satu atau sekumpulan perintah sampai mencapai kondisi tertentu, dalam
delphi yaitu menggunakan, for to do, for downto, while do, dan repeat until. Untuk
membuatnya harus membuat form terlebih dahulu, untuk disini yang akan di buat
form nya membutuhkan 3 label edit 2 memo 1dan 6 button untuk langkah pertama
yaitu bukan aplikasi delphi7 lalu akan muncul tampilan form kosong setelah itu
buat seperti di bawah ini :
LISTING-
LOGIKA PROGRAM
Untuk
melakukan beberapa perubahan tulisan dan warna nya maka ada properties yang di
ubah pada bagian font, supaya type text dan tulisannya berubah warna. Contohnya pada button1 : (untuk button yang lainnya
sama hanya ada perubahan pada bagian font dalam properties saja
Supaya button tersebut berfungsi maka pada
setiap button diberi syntak , unutuk button1 :
Untuk button2 :
Untuk button3 :
Untuk button4 :
Untuk button5 :
Untuk button6 :
OUTPUT
PROGRAM
Ketika
menekan button for to do maka akan menghasilkan output :
Ketika
menekan button for down to maka akan menghasilkan output:
Ketika
menekan button while do maka akan menghasilkan output :
Ketika
menekan button repeat until maka akan menghasilkan output :
Ketika
menekan button delete maka akan menghasilkan output :
Ketika menekan button exit maka akan keluar dari program.`