Progress Bar with percentage

[jerome 0]

Hello,

I saw here and there some very complicated solution to progress bar with a percentage while there is a very efficient and simple solution in 11 line that I included in my RAM monitor in system tray. As it is inside the source code, I put it out in order that it can be easily used...

Thanks

JD

;---------------------------------------------------------------
;- Enhanced Progress widget
;---------------------------------------------------------------
 Func CreateProgress($x, $y, $w, $h, $Label="")
     Dim $Progress[2]
     $Progress[0] = GuiCtrlCreateProgress($x, $y, $w, $h)
     $Progress[1] = GuiCtrlCreateLabel($Label, $x, $y+3, $w, $h, $SS_CENTER )
     GUICtrlSetBkColor($Progress[1], $GUI_BKCOLOR_TRANSPARENT)
     Return $Progress
 EndFunc
 
 Func UpdateProgress($ProgressID, $Percent, $Label="")
     GUICtrlSetData($ProgressID[0], $Percent)
     GUICtrlSetData($ProgressID[1], $Label & $Percent & "%")    
 EndFunc

Edited December 9, 2006 by jerome

[Dave in PNG 0]

Works great. Because I need examples:

GUICreate("Enhanced Progress widget",220,70, -1,-1)
$progressbar1 = CreateProgress (10,10,200,20, "Starting...")
$progressbar2 = CreateProgress (10,40,200,20, "Please wait")
GUISetState ()

Sleep(2000)

for $x=0 to 100 
    sleep(25)
    UpdateProgress($progressbar1, $x, "")
    UpdateProgress($progressbar2, 100-$x, "")
Next

[AzKay 0]

Here ya go.

expandcollapse popup

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 392, 71, 193, 115)
$Progress1 = CreateProgress(16, 16, 353, 25)
GUICtrlSetData(-1, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

For $i = 1 To 500
    UpdateProgress($Progress1, $i / 500 * 100)
    Sleep(100)
Next


While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

 EndSwitch
WEnd

;---------------------------------------------------------------
;- Enhanced Progress widget
;---------------------------------------------------------------
Func CreateProgress($x, $y, $w, $h, $Label="")
     Dim $Progress[2]
     $Progress[0] = GuiCtrlCreateProgress($x, $y, $w, $h)
     $Progress[1] = GuiCtrlCreateLabel($Label, $x, $y+3, $w, $h, $SS_CENTER )
     GUICtrlSetBkColor($Progress[1], $GUI_BKCOLOR_TRANSPARENT)
     Return $Progress
EndFunc

Func UpdateProgress($ProgressID, $Percent, $Label="")
     GUICtrlSetData($ProgressID[0], $Percent)
     GUICtrlSetData($ProgressID[1], $Label & $Percent & "%")    
EndFunc

[James 376]

Thats cool, but I don't know how to put it into:

[__CODE_PROTECTED]I2luY2x1ZGUgJiM2MDtHVUlDb25zdGFudHMuYXUzJiM2Mjs8YnIgLz4KPGJyIC8+CiNSZWdpb24gIyMjIFNUQVJUIEtvZGEgR1VJIHNlY3Rpb24gIyMjIEZvcm09PGJyIC8+CiYjMDM2O0Zvcm0xID0gR1VJQ3JlYXRlJiM0MDsmIzM0O0JldGFQYWQgfCBBbHBoYSBWRTIuMCBHVUkmIzM0OywgNjI2LCA0NjYsIDI0NSwgMjg5LCBCaXRPUiYjNDA7JiMwMzY7V1NfTUFYSU1JWkVCT1gsJiMwMzY7V1NfTUlOSU1JWkVCT1gsJiMwMzY7V1NfU0laRUJPWCwmIzAzNjtXU19DQVBUSU9OLCYjMDM2O1dTX09WRVJMQVBQRURXSU5ET1csJiMwMzY7V1NfQk9SREVSJiM0MTsmIzQxOzxiciAvPgomIzAzNjtTZWFyY2hJbnB1dCA9IEdVSUN0cmxDcmVhdGVJbnB1dCYjNDA7JiMzNDsmIzM0OywgMCwgMCwgNDQ5LCAyMSYjNDE7PGJyIC8+CiYjMDM2O1NlYXJjaCA9IEdVSUN0cmxDcmVhdGVCdXR0b24mIzQwOyYjMzQ7JmFtcDtTZWFyY2gmIzM0OywgNTM2LCAwLCA4OSwgMjUsIDAmIzQxOzxiciAvPgomIzAzNjtFbmdpbmUgPSBHVUlDdHJsQ3JlYXRlQ29tYm8mIzQwOyYjMzQ7UGljayBvbmUmIzMzOyYjMzQ7LCA0NTYsIDAsIDczLCAyNSYjNDE7PGJyIC8+CkdVSUN0cmxTZXREYXRhJiM0MDstMSwgJiMzNDtHb29nbGV8WWFob28mIzM0OyYjNDE7PGJyIC8+CjxiciAvPgomIzAzNjtTdGF0dXNCYXIgPSBHVUlDdHJsQ3JlYXRlSW5wdXQmIzQwOyYjMzQ7V2VsY29tZSB0byBCZXRhUGFkIHwgQWxwaGEgVkUyLjAgR1VJJiMzNDssIDAsIDQyNCwgNjI1LCAyMSYjNDE7PGJyIC8+CkdVSUN0cmxTZXRCa0NvbG9yJiM0MDstMSwgMHhENEQwQzgmIzQxOzxiciAvPgpHVUlDdHJsU2V0Q3Vyc29yICYjNDA7JiMwMzY7U3RhdHVzQmFyLCA3JiM0MTs8YnIgLz4KPGJyIC8+CiYjMDM2O1RhYlNoZWV0ID0gR1VJQ3RybENyZWF0ZVRhYiYjNDA7MCwgMjQsIDYyNSwgMzkzJiM0MTs8YnIgLz4KJiMwMzY7RG9jMSA9IEdVSUN0cmxDcmVhdGVUYWJJdGVtJiM0MDsmIzM0O0RvYzEmIzM0OyYjNDE7PGJyIC8+CiYjMDM2O0RvY0VkaXQxID0gR1VJQ3RybENyZWF0ZUVkaXQmIzQwOyYjMzQ7JiMzNDssIDgsIDUwLCA2MDksIDM0MCwgQml0T1ImIzQwOyYjMDM2O0VTX0FVVE9WU0NST0xMLCYjMDM2O0VTX1dBTlRSRVRVUk4sJiMwMzY7V1NfVlNDUk9MTCYjNDE7JiM0MTs8YnIgLz4KR1VJQ3RybFNldERhdGEmIzQwOy0xLCAmIzM0OyYjMzQ7JiM0MTs8YnIgLz4KJiMwMzY7RG9jMiA9IEdVSUN0cmxDcmVhdGVUYWJJdGVtJiM0MDsmIzM0O0RvYzImIzM0OyYjNDE7PGJyIC8+CiYjMDM2O0RvY0VkaXQyID0gR1VJQ3RybENyZWF0ZUVkaXQmIzQwOyYjMzQ7JiMzNDssIDgsIDUwLCA2MDksIDM1MywgQml0T1ImIzQwOyYjMDM2O0VTX0FVVE9WU0NST0xMLCYjMDM2O0VTX1dBTlRSRVRVUk4sJiMwMzY7V1NfVlNDUk9MTCYjNDE7JiM0MTs8YnIgLz4KR1VJQ3RybFNldERhdGEmIzQwOy0xLCAmIzM0OyYjMzQ7JiM0MTs8YnIgLz4KR1VJQ3RybENyZWF0ZVRhYkl0ZW0mIzQwOyYjMzQ7JiMzNDsmIzQxOzxiciAvPgo8YnIgLz4KJiMwMzY7RmlsZSA9IEdVSUN0cmxDcmVhdGVNZW51JiM0MDsmIzM0OyZhbXA7RmlsZSYjMzQ7JiM0MTs8YnIgLz4KJiMwMzY7TmV3ID0gR1VJQ3RybENyZWF0ZU1lbnVJdGVtJiM0MDsmIzM0OyZhbXA7TmV3ICYjMzQ7LCAmIzAzNjtGaWxlJiM0MTs8YnIgLz4KJiMwMzY7T3BlbiA9IEdVSUN0cmxDcmVhdGVNZW51SXRlbSYjNDA7JiMzNDtPcGVuJiMzNDssICYjMDM2O0ZpbGUmIzQxOzxiciAvPgomIzAzNjtTYXZlID0gR1VJQ3RybENyZWF0ZU1lbnVJdGVtJiM0MDsmIzM0O1NhdmUmIzM0OywgJiMwMzY7RmlsZSYjNDE7PGJyIC8+CkdVSUN0cmxDcmVhdGVNZW51SXRlbSYjNDA7JiMzNDsmIzM0OywgJiMwMzY7RmlsZSYjNDE7PGJyIC8+CiYjMDM2O0V4aXQgPSBHVUlDdHJsQ3JlYXRlTWVudUl0ZW0mIzQwOyYjMzQ7JmFtcDtFeGl0ICYjNDA7QWx0K0Y0JiM0MTsmIzM0OywgJiMwMzY7RmlsZSYjNDE7PGJyIC8+CjxiciAvPgomIzAzNjtFZGl0ID0gR1VJQ3RybENyZWF0ZU1lbnUmIzQwOyYjMzQ7JmFtcDtFZGl0JiMzNDsmIzQxOzxiciAvPgomIzAzNjtJbnNEVCA9IEdVSUN0cmxDcmVhdGVNZW51SXRlbSYjNDA7JiMzNDsmYW1wO0luc2VydCBEYXRlICsgVGltZSYjMzQ7LCAmIzAzNjtFZGl0JiM0MTs8YnIgLz4KPGJyIC8+CiYjMDM2O1ZpZXcgPSBHVUlDdHJsQ3JlYXRlTWVudSYjNDA7JiMzNDsmYW1wO1ZpZXcmIzM0OyYjNDE7PGJyIC8+CiYjMDM2O0Rpc3BsYXkgPSBHVUlDdHJsQ3JlYXRlTWVudUl0ZW0mIzQwOyYjMzQ7JmFtcDtEaXNwbGF5JiMzNDssICYjMDM2O1ZpZXcmIzQxOzxiciAvPgpHVUlDdHJsQ3JlYXRlTWVudUl0ZW0mIzQwOyYjMzQ7JiMzNDssICYjMDM2O1ZpZXcmIzQxOzxiciAvPgomIzAzNjtXQ291bnQgPSBHVUlDdHJsQ3JlYXRlTWVudUl0ZW0mIzQwOyYjMzQ7V29yZCBDb3VudCYjMzQ7LCAmIzAzNjtWaWV3JiM0MTs8YnIgLz4KPGJyIC8+CiYjMDM2O1RhYnMgPSBHVUlDdHJsQ3JlYXRlTWVudSYjNDA7JiMzNDsmYW1wO1RhYnMmIzM0OyYjNDE7PGJyIC8+CiYjMDM2O05ld1RhYiA9IEdVSUN0cmxDcmVhdGVNZW51SXRlbSYjNDA7JiMzNDsmYW1wO05ldyBUYWImIzM0OywgJiMwMzY7VGFicyYjNDE7PGJyIC8+CiYjMDM2O0Nsb3NlVGFiID0gR1VJQ3RybENyZWF0ZU1lbnVJdGVtJiM0MDsmIzM0OyZhbXA7Q2xvc2UgVGFiJiMzNDssICYjMDM2O1RhYnMmIzQxOzxiciAvPgomIzAzNjtDbG9zZUFsbFRhYnMgPSBHVUlDdHJsQ3JlYXRlTWVudUl0ZW0mIzQwOyYjMzQ7Q2xvc2UgQWxsIFRhYnMmIzM0OywgJiMwMzY7VGFicyYjNDE7PGJyIC8+CjxiciAvPgomIzAzNjtEZXZlciA9IEdVSUN0cmxDcmVhdGVNZW51JiM0MDsmIzM0OyZhbXA7RGV2ZWxvcGVyJiMzNDsmIzQxOzxiciAvPgomIzAzNjtGaWxlTmFtZSA9IEdVSUN0cmxDcmVhdGVNZW51SXRlbSYjNDA7JiMzNDsmYW1wO0ZpbGUgTmFtZSAmIzQwO0xvbmcmIzQxOyYjMzQ7LCAmIzAzNjtEZXZlciYjNDE7PGJyIC8+CiYjMDM2O0ZpbGVTaXplID0gR1VJQ3RybENyZWF0ZU1lbnVJdGVtJiM0MDsmIzM0OyZhbXA7RmlsZSBTaXplJiMzNDssICYjMDM2O0RldmVyJiM0MTs8YnIgLz4KPGJyIC8+CiYjMDM2O0hlbHAgPSBHVUlDdHJsQ3JlYXRlTWVudSYjNDA7JiMzNDsmYW1wO0hlbHAmIzM0OyYjNDE7PGJyIC8+CiYjMDM2O0Fib3V0ID0gR1VJQ3RybENyZWF0ZU1lbnVJdGVtJiM0MDsmIzM0OyZhbXA7QWJvdXQmIzM0OywgJiMwMzY7SGVscCYjNDE7PGJyIC8+CkdVSUN0cmxDcmVhdGVNZW51SXRlbSYjNDA7JiMzNDsmIzM0OywgJiMwMzY7SGVscCYjNDE7PGJyIC8+CiYjMDM2O0hlbHBtZSA9IEdVSUN0cmxDcmVhdGVNZW51SXRlbSYjNDA7JiMzNDsmYW1wO0hlbHAmIzM0OywgJiMwMzY7SGVscCYjNDE7PGJyIC8+CkdVSVNldFN0YXRlJiM0MDtAU1dfU0hPVyYjNDE7PGJyIC8+CiNFbmRSZWdpb24gIyMjIEVORCBLb2RhIEdVSSBzZWN0aW9uICMjIzxiciAvPgo8YnIgLz4KV2hpbGUgMTxiciAvPgoJJiMwMzY7bk1zZyA9IEdVSUdldE1zZyYjNDA7JiM0MTs8YnIgLz4KCVN3aXRjaCAmIzAzNjtuTXNnPGJyIC8+CgkJQ2FzZSAmIzAzNjtHVUlfRVZFTlRfQ0xPU0U8YnIgLz4KCQkJRXhpdDxiciAvPgo8YnIgLz4KCUVuZFN3aXRjaDxiciAvPgpXRW5k[/__CODE_PROTECTED]

Edited December 24, 2006 by Secure_ICT