% complete dialog box

[martinwcole]

somewhere, I think it was Jim Chapman, posted a function that displayed a decreasing percent complete dialog box, to use when you are running a long script - but for the life of me, now I can't find it anywhere.

[Stan Mathews]

RE: % complete dialog box

"a href = "http://msgboard.alphasoftware.com/alphaphorum/read.php3?sortby=lastreply&direction=desc&num=11&id=56093&thread=56083""This one?"/a"

[Stan Mathews]

RE: % complete dialog box



This one?

[martinwcole]

RE: % complete dialog box

Stan, thanks. I was missing the word "progress bar" in my search - a senior moment!

As I investigate these, though, I'm not sure they will do what I want, or are practical for same.

Say you are going to do a looping script, based on the number of records in a query, and you want to feed the function the number, and then as soon as you process the first record, change a global variable, so that the bar actually represents records as they are being processed, based on the global variable.

I just got V6 yesterday, which has a built-in dialog box for this with a repeating bar, that goes back and forth, but I haven't figured out yet how to get it to work. The sample code doesn't work.

What I have been doing is just displaying a text box, and updating it - [33 of 2500] as the script processes, which is most likely more practical, and would put less overhead on the system.

[Ronald Anusiewicz]

RE: % complete dialog box

Hi Martin,

The following code is what I use.

If I'm running multiple operations, I adjust the "count" so that it starts and stops the progress bar at the appropriate place.

In other works, if I have two different operations, I set the progress bar to stop at 50%. The second operation starts at 50% and stops at 99%.

Hope this helps,

Ron


'xbasic code for this demo
dim msg as C
msg = "Martin Cole Percent Demo"
PleaseWait2(msg,.t.)

dim count as N
count = 10000
for i=1 to count
pct=round((i/count)*50,0)
ui_modeless_dlg_refresh(msg)
next i

dim count as N
count = 40000
for i=1 to count
pct= 50 + round((i/count)*50,0)
ui_modeless_dlg_refresh(msg)
next i

PleaseWait2(msg,.f.)

end

'*****************************************************

FUNCTION PleaseWait2 AS C (msg = "",Show = .F. )

PleaseWait2 = ""

if show = .F.
if ui_modeless_dlg_exist(msg)
ui_modeless_dlg_close(msg)
end if
exit function
end if

dim shared pct as N
box_code = ""%dlg%
{background=Dirty White}
{font=arial,26,i}
Please Wait!
{'};
{font=arial,12}
{sp=28}{text=4pct}%;
{progress=60pct} {'};
{'}
%dlg%

ui_modeless_dlg_box(msg,box_code)
'copy the next 2 lines to change the progress bar.
'Change the "PCT=" amount to move the bar.
pct=1
ui_modeless_dlg_refresh(msg)

box_event = ""%code%
2=2
%code%

ui_modeless_dlg_box(msg,box_code,box_event)
ui_modeless_dlg_setfocus(msg)
ui_modeless_dlg_refresh(msg)

END FUNCTION

[martinwcole]

RE: % complete dialog box

Now THAT'S what I'm talking about!

Thanks!