Skip to main content

Penggunaan Perulangan For Lazarus Free Pascal

Penggunaan Perulangan For pada Lazarus Free Pascal ada dua jenis, yaitu perulangan dari kecil ke besar dan dari besar ke kecil. Tutorial kali ini merupakan kelanjutan dari tutorial Jenis Perulangan Lazarus Free Pascal kali ini akan dijelaskan lebih mendetail tentang penggunaan perulangan for. Pada perulangan for nilai awal dan nilai akhir ditentukan dengan menggunakan suatu variabel kontrol yang nilainya dibatasi dalam suatu range tertentu.

1. FOR ... TO ... DO
Perulangan for to do adalah perulangan dari nilai kecil ke besar.

Syntax:
FOR (variabel_kontrol) := (nilai_awal) TO (nilai_akhir) DO
Begin
...(isi_perulangan);
End;


2. FOR ... DOWNTO ... DO
Perulangan for downto do adalah perulangan dari nilai besar ke kecil.

Syntax:
FOR (variabel_kontrol) := (nilai_awal) DOWNTO (nilai_akhir) DO
Begin
...(isi_perulangan);
End;


CONTOH PENGGUNAAN
Buatlah proyek aplikasi baru dan dalam Form tambahkan komponen edit dan button sehingga nanti akan terdapat 1 form dengan nama Form1, 1 edit dengan nama Edit1 dan 1 button dengan nama Button 1. Buat event OnClick pada Button1:

1. Untuk perulangan FOR ... TO ... DO pernyataannya seperti ini:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 1 to 5 do
edit1.SelText := inttostr(i);
end;


Bila Program tesebut dijalankan maka nilai i akan ditampilkan pada edit1 dengan hasil 12345, seperti gambar di bawah ini.

perulangan for to do

2. Untuk perulangan FOR ... DOWNTO ... DO pernyataannya seperti ini:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 5 downto 1 do
edit1.SelText := inttostr(i);
end;


Bila Program tesebut dijalankan maka nilai i akan ditampilkan pada edit1 dengan hasil 54321, seperti gambar di bawah ini.

perulangan for downto do

Perbedaan antara TO dan DOWNTO terletak pada nilai awal dan nilai akhir. Pada TO nilai awal lebih kecil dari nilai akhir, sedangkan pada DOWNTO nilai awal lebih besar dari nilai akhir. Demikian tutorial Penggunaan Perulangan For Lazarus Free Pascal, sampai jumpa di tutorial perulangan yang lain.

Comments

Popular posts from this blog

Inilah Kelebihan dan Kekurangan SQLite

  Artikel ini akan membahas tentang, tipe data yang didukung SQLite,  kelebihan dari SQLite, kekurangan SQLite, kapan sebaiknya ketika menggunakan SQLite dan kapan sebaiknya kita tidak menggunakan SQLite. Merujuk dari id.wikipedia.org disebutkan bahwa SQLite merupakan sebuah sistem manajemen basisdata relasional yang bersifat ACID-compliant dan memiliki ukuran pustaka kode yang relatif kecil, ditulis dalam bahasa C. SQLite merupakan proyek yang bersifat public domain yang dikerjakan oleh D. Richard Hipp . SQLite adalah perpustakaan menakjubkan yang disematkan di dalam aplikasi yang menggunakan. Sebagai database mandiri, berbasis file, SQLite menawarkan serangkaian menakjubkan alat untuk menangani segala macam data dengan jauh lebih sedikit kendala dan kemudahan dibandingkan dengan host, proses berbasis (server) database relasional. Ketika sebuah aplikasi menggunakan SQLite, integrasi bekerja dengan panggilan fungsional dan langsung dibuat untuk file memegang data (yaitu ...

Penggunaan Komponen RadioGroup Lazarus Free Pascal (Belajar Lazarus #10)

Pada Tutorial Penggunaan Komponen RadioGroup Lazarus Free Pascal kali ini bertujuan untuk memahami cara penggunaan RadioGroup serta penerapan pernyataan / statement CASE. Untuk itu maka silahkan buka kembali proyek aplikasi kasiratk yang telah anda buat sebelumnya. Untuk mengingat kembali jika lupa silahkan buka kembali tutorial RadioGroup dan Validasi Data . KOMPONEN RADIOGROUP RadioGroup adalah gabungan dari komponen RadioButton dan komponen GroupBox, fungsinya sama dengan komponen RadioButton. Setelah program aplikasi kasiratk terbuka, ikuti langkah-langkah di bawah ini: LANGKAH-LANGKAH PENAMBAHAN KOMPONEN & PROPERTIES : Ubah aplikasi yang memakai RadioButton dengan RadioGroup, caranya dengan klik GroupBox, lalu tekan tombol Delete, maka ketiga komponen RadioButton didalamnya akan ikut terhapus. Tempatkan komponen RadioGroup di tempat GroupBox. Ubah Name menjadi RGBarang dan Caption-nya menjadi Nama Barang. Klik tombol [,,,] pada Properties Items milik komponen RGBar...

Aplikasi Demo Penggunaan Memo ComboBox ListBox dan CheckBox (Belajar Lazarus #14)

Mempelajari Listbox yang Owner-Draw Lazarus telah kita bahas pada artikel sebelumnya, sekarang mari kita buat Aplikasi Demo Penggunaan Memo ComboBox ListBox dan CheckBox . CheckBox memberi dua pilihan (bahkan tiga pilihan) kepada pemakai, properti yang berkaitan dengan pilihan pada CheckBox yaitu: Ubah property Checked menjadi True agar CheckBox dipilih secara default. Ubah AllowGrayed menjadi True agar CheckBox mempunyai 3 pilihan, yaitu checked , unchecked dan grayed . Property State menyatakan apakah CheckBox dalam keadaan checked ( cbChecked ), unchecked ( cbUnchecked ), atau grayed ( cbGrayed ). Memo dipakai untuk memasukkan data yang lebih dari satu barus. ListBox menampilkan daftar dan Anda dapat memilih item-itemnya: Property Items dibakai untuk mengisi pilihan-pilihan yang mungkin. ItemIndex menyatakan item yang dipilih.  MultiSelect menyatakan apakah dapat memilih lebih dari satu pilihan pada saat yang bersamaan. Sorted menyatakan apakah daftar terurut sec...