Proses Pengulangan

1. Proses Pengulangan

Perulangan memungkinkan kita mengeksekusi satu atau lebih baris kode sebanyak yang
kita kehendaki. Terdapat tiga perintah di Visual Foxpro yang dipakai untuk perulangan, yaitu :

Perintah DO WHILE – ENDDO

Perintah ini mengeksekusi perintah-perintah yang ada didalam loop kondisional. Perulangan
akan dilakukan terus menerus selama kondisi tersebut terpenuhi (.T. atau Benar).
Sintak dari perintah pengulangan tersebut adalah :

DO WHILE
…………………….
……………………. Bagian program yang akan diulang
…………………….
ENDDO


Pengulangan tersebut akan dilakukan bila kondisi benar. Pengulangan dengan kondisi ini
dapat pula menggunakan kondisi .T., yaitu :
DO WHILE .T.
…………………….
……………………. Bagian program yang akan diulang
…………………….
[Loop]
[Exit]
ENDDO
Contoh :
x=1
DO WHILE x <= 20
? x
x=x+1
ENDDO

Pengulangan EOF() dan BOF() Dalam Proses Berulang

Proses pengulangan dapat dilakukan dalam memproses record-record dalam suatu tabel
satu persatu hingga habis. Untuk membatasi pengulangan biasa digunakan fungsi EOF() (End Of
File) dan BOF() (Begin Of File). Fungsi tersebut akan memberikan fungsi nilai logika .T. bila
pointer telah berada diakhir file.
Bentuk pengulangan untuk memproses file data sampai habis :
DO WHILE.NOT.EOF()
…………………….
……………………. Bagian program yang akan diulang
…………………….
ENDDO

Perintah FOR . . . ENDFOR

Perulangan ini akan mengeksekusi perintah-perintah sebanyak yang kita tentukan. Nilai yang
kita tentukan merupakan nilai tetap/konstanta.
Sintak dari perintah pengulangan tersebut adalah :
FOR <var>=<nilai_awal> TO <nilai_akhir>
…………………….
……………………. Bagian program yang akan diulang
…………………….
ENDFOR
Contoh :
FOR v_angka = 1 TO 10
? v_angka
ENDFOR

Perintah SCAN . . . ENDSCAN

Perintah ini memindahkan pointer record melewati tabel yang sedang dipilih dan
mengeksekusi blok perintah setiap kali record memenuhi syarat kondisi yang ditentukan.
Sintak dari perintah pengulangan tersebut adalah :
SCAN [FOR <kondisi1>] [WHILE <kondisi2>]
…………………….
……………………. Bagian program yang akan diulang
…………………….
[loop]
[Exit]
ENDSCAN
Contoh :
SCAN FOR kota = “Tasikmalaya”
? nama, jurusan
ENDSCAN

CONTOH PROGRAMNYA

1. Buatlah program perulangan untuk menampilkan bilangan 1 sampai dnegan 10
menggunakan fungsi for dan do while dnegan desain outputnya seperti berikut. Kemudian
simpan form tersebut dengan nama FORM3A.SCX

2. Kemudian isi kode program sesuai dengan objek dan event yanng diperlukan, antara lain :
• Pada objek Tombol For, klik Click event, letakkan listing program berikut ini :

FOR i = 1 TO 10
Thisform.list1.AddListItem('Nilai For Ke ='+ALLTRIM(STR(i)))
ENDFOR

• Pada objek Tombol Do While, klik Click event, letakkan listing program berikut ini :
i=1
DO WHILE i<=10
thisform.list1.AddListItem('Nilai Do While Ke ='+ALLTRIM(STR(i)))
i=i+1
ENDDO

• Pada objek Tombol Hapus, klik Click event, letakkan listing program berikut ini :
thisform.list1.Clear

• Pada objek Tombol Keluar, klik Click event, letakkan listing program berikut ini :
thisform.Release