Please Wait, Loading...

Monday 25 October 2010

ProgressBar di Visual Fox Pro

Progressbar sering kita dengar dan sering kita lihat jika kita membuka suatu aplikasi, contoh kecilnya progressbar yang ada di aplikasi mozilla, dimana saat kita sedang berselancar di dunia maya dan saat aplikasi mozila tersebut melakukan proses pemanggilan data maka indikasi apakah data tersebut telah komplit atau belum bisa kita lihat di progressbar yang dimiliki oleh mozila. Sebenarnya bagaimana prinsip kerja dari progressbar tersebut, kemungkinan dalam catatan ini penulis mencoba menjelaskan dalam bentuk script yang di uraikan di foxpro. Script tersebut secara tidak langsung adalah menjelaskan tahapan dari proses sebuah progressbar melakukan “loading”
Sebelum masuk ke teknis pembahasan script dari progressbar, perlu diketahui bahwasanya dalam desktop programing foxpro ada beberapa metode dalam penggunaan progressbar, diantaranya progressbar yang telah di suguhkan “instant” di foxpro yaitu tepatnya di menu Tools -> Options -> Tabs Controls -> Options ActiveX controls -> Selected Microsoft progressbar Control. Akan tetapi penulis disini tidak membahas dari cara tersebut secara detailnya, akan tetapi akan menyuguhkan kajian dari progressbar yang dibuat secara “scripting”.
Berikut adalah script dari kajian membuat progress bar di visual fox pro, semoga bermanfaat :


oBar = CREATEOBJECT(”Progress”,”Silakan Tunggu…”) && define class, bar caption
oBar.counter = 0
oBar.show
FOR x = 1 to 100 STEP +.0001  && Kecepatan proses loading
IF TYPE(’oBar.ButtonCancel’)<>’U’ THEN && Bila “Tombol Batal” ditekan
oBar.counter = x
ELSE
x=101
ENDIF
NEXT x
IF TYPE(’oBar.ButtonCancel’)<>’U’ THEN && Keadaan runaway
oBar.Release
ENDIF