Cara Membuat Program Looping di Delphi 7

Halo Semuanya selamat datang di blog saya ini di postingan kali saya akan memberitahu cara membuat program looping (perulangan) di delphi 7 bagi yang tidak tahu delphi itu apa silahkan liat di postingan sebelumnya :) okee daripada kelamaan cerita langsung saja ke intinya :v

1.Membuat Program Looping pada Delphi

Pertama-tama kita membuka aplikasi Delphi 7 di laptop/pc ,lalu  setelah itu kita membuat EditBox,Button, dan ListBox

Berikut adalah tampilannya

 Label, digunakan sebagai tempat untuk menampilkan keterangan

EditBox, Merupakan kontrol yang dipakai sebagai tempat untuk mengisi maupun menampilkan data

Button, kontrol yang dipakai sebagai tombol untuk melakukan sebuah proses

ListBox, kontrol yang dipakai sebagai hasil dari kodingan yang akan dibuat

Setelah itu untuk bisa menjalankan program diatas maka kita perlu memasukkan codingannya,dengan cara mengklik 2 kali pada button maka akan muncul tampilan untuk kita masukan codingannya

Berikut Codingannya Untuk For To Do sampai While Do

Codingan Untuk For To Do

Codingan Untuk For Down To Do

Codingan untuk Repeat Until

Codingan Untuk While Do

Dari codingan diatas, berikut adalah penjelasannya :

1.procedure TForm1.Button1Click(Sender: TObject); , maksudnya adalah pengguna (user) mengklik tombol add (Button1)

2.Var , untuk memasukan codingan variabe

3. begin, memulai program

4. Edit1.Clear; , fungsinya untuk menghapus data yang sudah terisi

5. end; , mengakhiri program

6. . a:=StrtoInt(Edit1.Text); , Digunakan untuk mengubah string yang mempresentasikan data bertipe String menjadi sebuah nilai Integer.

lalu setelah kita membuat codingannya, setelah itu kita Run (menjalankan program)

Berikut Contohnya

Lalu kita coba isi di kolom label masukan angka dengan angka misalkan 6

berikut hasilnya

Kalau kita menekan button yang berbeda makan akan menampilkan hasil yang beda

berikut hasilnya

 Terus sampai ke While do

Selamat Mencoba :)