jerome Posted December 9, 2006 Posted December 9, 2006 (edited) 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...ThanksJD;--------------------------------------------------------------- ;- 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 Posted December 24, 2006 Posted December 24, 2006 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 Posted December 24, 2006 Posted December 24, 2006 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 # MY LOVE FOR YOU... IS LIKE A TRUCK- #
James Posted December 24, 2006 Posted December 24, 2006 (edited) 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 Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now