jerome Posted December 9, 2006 Share 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 Link to comment Share on other sites More sharing options...
Dave in PNG Posted December 24, 2006 Share 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 Link to comment Share on other sites More sharing options...
AzKay Posted December 24, 2006 Share 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- # Link to comment Share on other sites More sharing options...
James Posted December 24, 2006 Share 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 Link to comment Share on other sites More sharing options...
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