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 status bar 

ONCANCEL="EXIT"
;Create a progress box
BoxesUp("200,300,800,650", @normal) 
BoxColor(1,"192,192,192",0)
BoxDrawRect( 1, "0,0,1000,1000", 2) 
BoxColor(1,"255,255,255",0)
BoxDrawText(1, "0,200,1000,1000", "Title Information here: ", @FALSE, 1)
BoxCaption(1, "Progress Bar")
BoxColor(1,"0,255,255", 0)
BoxPen(1,"0,0,0",5)
BoxDrawRect(1,"350,400,650,550", 1)
BoxPen(1,"0,0,255",5)
BoxColor(1,"0,0,255", 0)
BoxDrawText(1, "0,700,1000,1000", "Activity is now 0 percent complete", @FALSE, 1)
BoxDataTag(1, "tag1")
count = 25.0
x = 1
While x != (count+1)
;;GoSub PROCESS
TimeDelay(1)
BoxDataClear(1, "tag1")
percent = (x / count) ;requires 0.0 decimal before division
Progress = (352 + (296 * percent))
percent = percent * 100
Decimals(0)
BoxColor(1,"192,192,192", 0)
BoxPen(1,"192,192,192",5)
BoxDrawRect(1,"1,700,1000,1000", 1)
BoxDrawText(1, "0,700,1000,1000", "Activity is now %percent% percent complete", @FALSE, 1)
BoxColor(1,"0,0,255", 0)
BoxPen(1,"0,0,255",5)
BoxDrawRect(1,"352,402,%progress%,548", 1)
x = x+1
EndWhile
TimeDelay(2)

:CANCEL
ONCANCEL
EXIT

Article ID:   W14139

Filename:   Progress Bar Sample 2.txt

File Created: 1999:07:15:07:04:42

Last Updated: 1999:07:15:07:04:42