Saturday, February 24, 2018
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
ListBox, kontrol yang dipakai sebagai hasil dari kodingan yang akan dibuat
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 :)
