Another Progress Bar Example

Keywords: 	 progress bar progress thermometer

Simple progressbar script.


	 ;;;;;;;;;;;;;;;; Generic Initialization ;;;;;;;;;;;;;;;;;;;;

IntControl(12,5,0,0,0)
;;;;;;;; Assorted Colors ;;;;;;;;;
LTGRAY="192,192,192"
GRAY="128,128,128"
GREEN="0,255,0"
BLACK="0,0,0"
WHITE="255,255,255"


     BoxesUp("200,300,700,500",@NORMAL)
	  BoxTitle("Please wait. Stepping through example...")
	  rectTherm="0,0,1000,1000"
     rectThermLine1="100,550,900,550"
     rectThermLine2="900,550,900,800"
     rectThermLine3="900,800,100,800"
     rectThermLine4="100,800,100,550"
     ThermPenWidth=20
     rectThermText1="100,50,1000,199"
     rectThermPercent="490,625,550,725"
     
     Thermid=3

        ;Draw thermoneter outline
        BoxNew(Thermid,rectTherm,2)
        BoxUpdates(Thermid,0)
        BoxColor(Thermid,LTGRAY,0)
        BoxDrawRect(Thermid,"",2)
        ; Draw updating thermometer here
        ; there are 3 virtual pixels per percent
        ; we have to draw 3 boxes and some text...
        BoxDataTag(Thermid,"FRED")
      
        
        FilesToCopy=16
        FilesCopied=0
        
        for FilesCopied=1 to FilesToCopy
                BoxDataClear(Thermid,"FRED")
                BoxUpdates(Thermid,0)
                BoxColor(Thermid,GREEN,0)
                xxx= 100+((800*FilesCopied)/FilesToCopy)
                per=(100.0*FilesCopied)/FilesToCopy
                per=Int(per)
                BoxDrawRect(Thermid,"104,554,%xxx%,796",2)
                BoxColor(Thermid,GRAY,0)
                BoxDrawRect(Thermid,"%xxx%,554,896,796",2)
                BoxPen(Thermid,BLACK,ThermPenWidth)
                boxdrawline(Thermid,rectThermLine1)
                boxdrawline(Thermid,rectThermLine2)
                boxdrawline(Thermid,rectThermLine3)
                boxdrawline(Thermid,rectThermLine4)
                
                if per<50 then BoxTextColor(Thermid,WHITE)
                BoxDrawText(Thermid,rectThermPercent,"%per%%%",0,0)
                BoxTextColor(Thermid,BLACK)
                BoxColor(Thermid,LTGRAY,0)
                BoxDrawText(Thermid,rectThermText1,"Steps completed: %FilesCopied%",1,0)
               
                BoxUpdates(Thermid,2)
                TimeDelay(Random(1.0))   ;Fake passage of time
             next
                  
             Message("Company Name Goes Here","Example Complete!!")
             BoxDestroy(Thermid)

Article ID:   W12767

Filename:   Progress Bar Sample 1.txt

File Created: 1999:04:15:16:49:30

Last Updated: 1999:04:15:16:49:30

Database Search

TechHome

Another Progress Bar Example