Database Search

TechHome

• Another Progress Bar during FileCopy
• Another Progress Bar Example
• Another Progress Bar
• Display a Progress Thermometer
• Progress Bar Sample 1
• Progress Bar Sample 2
• Progress Bar Sample 3
• Progress or Activity Indicator

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Another Progress Bar Example

Keywords: 	 progress bar progress thermometer

Note: For a simple status bar see the ShellOp Extender function aStatusBar.

Instead of asking, here some code, I hope someone can use it. Simple progressbar script.

:-)
Alex
(if you've got any questions please send a mail at: alex.verboon@chkra.mail.abb.com)

;==================cut============================

; progress.wbt
; Alex Verboon (alex.verboon@chkra.mail.abb.com)
; Nov. 1997
;---------------------------------------------------------------------------------------------;
; description of used variables
; start = just a counter
; tasks = if you're doing 5 times a copy set tasks to 5 or use a variable.
; steps = how many steps until reached end of progress 
; forw = lenght of the bar for each step
; msg_txt = message to write


BoxColor(1,"192,192,192",0)
BoxOpen("Copyjob %job%","Copyjob started....")
BoxDrawRect(1,"70,800,900,700",0)
start=1
tasks=5
steps=830/tasks
forw=70
forw=forw+steps

While @True
Boxcolor(1,"0,0,255",0)
BoxDrawRect(1,"70,800,%forw%,700",1)
forw=forw+steps
Delay(1)
msg_txt="Pearl Jam is great"
gosub text
start=start+1
if start > tasks
Boxcolor(1,"0,0,255",0)
; well sometimes I don't reach the end so fill out the rest.
BoxDrawRect(1,"70,800,900,700",1)
Delay(1)
Exit
Endif
EndWhile

;----------------------------------------------------------------------------------;
:text
BoxTextColor(1,"0,0,0")
BoxColor(1,"192,192,192",0)
BoxDrawText(1,"70,400,900,700","%msg_txt%",@true,0)
Return

Article ID:   W12750

Filename:   Another Progress Bar.txt

File Created: 2001:01:03:09:11:46

Last Updated: 2001:01:03:09:11:46