Cara membuat perulangan for..next pada Foxpro

kalau kita mau bikin coding buat ngulang sesuatu biar ga capek kita bisa aja pake struktur perulangan foxpro salah satunya for..next. Digunakan buat memproses perulangan sampai nilai yang diinginkan terpenuhi, secara umumnya sintak penulisannya begini,nih ;

FOR VarName = nInitialValue TO nFinalValue [STEP nIncrement] 

      Commands

   [EXIT]

   [LOOP]

ENDFOR | NEXT

Dimana :

Varname adalah nama variabel yang ditulis bebas

nInitialValue adalah nilai awal berupa numerik

nFinalValue adalah nilai akhir berupa numerik lebih besar dari nilai awal

Commands , berisi perintah yang dikerjakan selama nilai .True.

LOOP, secara umum dilakukan perulangan secara terus menerus sampai kondisi ekspresi .F.

EXIT, keluar dari proses perulangan.

Berikut contoh program yang menggunakan perintah for..next, silahkan dicoba formnya seperti gambar berikut.

 setelah di desain, lanjut kita atur objeknya :

Nama Obyek	Properties	Nilai
Label1	caption	Nilai
Label2	caption	STEP
Command1	caption	Proses
Text1	value	=0
Text2	value	=0
Edit1	scrollbar	2-vertical

kalau sudah diatur bisa di masukan codingnya:

Nama Obyek	Procedure
Command1	Click
thisform.edit1.Value="" for a=1 to thisform.text1.value STEP thisform.text2.Value                 thisform.edit1.Value=thisform.edit1.Value+STR(a,2,0)+" " next a
Form1	Init
thisform.text2.Value=1

Begini hasilnya kalau kita inputkan nilai 20 step 2 :

 Kalau nilainya 100 stepnya 2, prosesnya jadi begini.

Share on :

Tweet