Passing time to sleep to Progress Bar

[vienxu]

How can I pass time to sleep to a progress bar script after it is compiled? Ex: progress.exe 10000 (to run the progress bar and sleep at every 10 secs at each step. Thanks.

Func PROGRESS($sleepME)
ProgressOn("Progress Meter", "Mapping Drives...", "0 percent")
sleep($sleepME)
ProgressSet( 10, 10 & " percent")

sleep($sleepME)
ProgressSet( 20, 20 & " percent")

sleep($sleepME)
ProgressSet( 40, 40 & " percent")

sleep($sleepME)
ProgressSet( 60, 60 & " percent")

sleep($sleepME)
ProgressSet( 80, 80 & " percent")

ProgressSet(100 , "Done", "Complete")
sleep(500)
ProgressOff()
EndFunc

[freanir]

You have to use the array $CmdLine.

Explanation:

$CmdLine[0] = Number of elements

$CmdLine[1] = first parameter

$CmdLine[2] = second parameter

etc.

Your Script would look like this:

PROGRESS($CmdLine[1])
Func PROGRESS($sleepME)
ProgressOn("Progress Meter", "Mapping Drives...", "0 percent")
sleep($sleepME)
ProgressSet( 10, 10 & " percent")

sleep($sleepME)
ProgressSet( 20, 20 & " percent")

sleep($sleepME)
ProgressSet( 40, 40 & " percent")

sleep($sleepME)
ProgressSet( 60, 60 & " percent")

sleep($sleepME)
ProgressSet( 80, 80 & " percent")

ProgressSet(100 , "Done", "Complete")
sleep(500)
ProgressOff()
EndFunc

Edited May 11, 2005 by freanir

[vienxu]

Thank you. Works great. One more question. How can I dectect a parameter was passed?

Ex: progress.exe will show the command with syntax. progress.exe 10000 will work as below. Thanks again.

You have to use the array $CmdLine.

Explanation:

$CmdLine[0] = Number of elements

$CmdLine[1] = first parameter

$CmdLine[2] = second  parameter

etc.

Your Script would look like this:

PROGRESS($CmdLine[1])
Func PROGRESS($sleepME)
ProgressOn("Progress Meter", "Mapping Drives...", "0 percent")
sleep($sleepME)
ProgressSet( 10, 10 & " percent")

sleep($sleepME)
ProgressSet( 20, 20 & " percent")

sleep($sleepME)
ProgressSet( 40, 40 & " percent")

sleep($sleepME)
ProgressSet( 60, 60 & " percent")

sleep($sleepME)
ProgressSet( 80, 80 & " percent")

ProgressSet(100 , "Done", "Complete")
sleep(500)
ProgressOff()
EndFunc

<{POST_SNAPBACK}>

Edited May 11, 2005 by vienxu

[Keene Coder]

Try this:

If( $CmdLine[0] = 0 ) Then

PROGRESS(10000)

Else

PROGRESS($CmdLine[1])

EndIf

Exit

Func PROGRESS($sleepME)

ProgressOn("Progress Meter", "Mapping Drives...", "0 percent")

sleep($sleepME)

ProgressSet( 10, 10 & " percent")

For $I = 20 to 80 Step 20

sleep($sleepME)

ProgressSet( $I, $I & " percent")

Next

ProgressSet(100 , "Done", "Complete")

sleep(500)

ProgressOff()

EndFunc