Mengurutkan angka dengan DO WHILE menggunakan FokPro

kali ini saya akan memberikan tutorial bagaimana cara mengurutkan angka dengan Do While.

• Terlebih dulu buatlah sebuah design form seperti dibawah ini
• Setelah membuat design Jangan lupa untuk merubah Name Pada Setiap Tool yang telah disiapkan. 

1. TIMER = TIMER1
2. PROGRES1 =  PROGRES1
3. PROGRES2 = PROGRES2
4. TEXT "BELAJAR MENGURUTKAN ANGKA DENGAN DO WHILE" = L1
5. BUTTON1 = PROSES
6. BUTTON2 = KELUAR

• Kemudian isikan koding pada button keluar, seperti dibawah ini..

DO WHILE THISFORM.HEIGHT>0
THISFORM.HEIGHT=THISFORM.HEIGHT-1
ENDDO
DO WHILE THISFORM.TOP=0 TOTHISFORM.TOP<=1000
THISFORM.TOP=THISFORM.TOP+1
ENDDO
THISFORM.RELEASE

• Isikan juga code pada button proses agar program yang anda buat dapat berjalan dengan mengklik button proses.

IF EMPTY (THISFORM.TEXT1.VALUE) .OR. EMPTY(THISFROM.TEXT3.VALUE) ;
.OR. EMPTY(THISFORM.TEXT3.VALUE)
MESSAGEBOX("STAR, STEP, DAN STOP TIDAK BOLEH KOSONG",0,; "PERHATIAN...")
RETURN
ENDIF
HASIL=THISFORM.TEXT1.VALUE
DO WHILE HASIL<=THISFORM.TEXT3.VALUE
THISFORM.TEXT4.VALUE=HASIL
* PROGRES
ARSIR= 100/THISFORM.TEXT3.VALUE) *HASIL
THISFORM.PROGRES1.VALUE=ARSIR
THISFORM.PROGRES2.VALUE=ARSIR
FOR X=0 TO 1000000 STEP 1
NEXT
HASIL=HASIL+THISFORM.TEXT2.VALUE
ENDDO

• Coding yang terakhir pada isikan kode pada Timer

JAM=TIME()
THISFORM.JAM.CAPTION=JAM
TEK="MENGURUTKAN ANGKA DENGAN DO WHILE"
JMLCHR=RIGHT (JAM,2)
THISFORM.CAPTION=LEFT(TEK,VAL(JMLCHR))
T=THISFORM.L1.CAPTION
THISFORM.L1.FORCECOLOR=RGB(RAND() *255,RAND() *255,RAND() *255)
THISFORM.L1.CAPTION=RIGHT(T.LEN(T)-1+LEFT(T.1)

• setelah itu coba jalakan program yang telah dibuat ... semoga bermanfaat !

Apabila terdapat masalah pada pembuatan program diatas Contac saya atau isikan komen pada posting ini.. insya alloh saya akan memberikan solusinya Trimakasih, Wasalam .