Difficulty in making a progress bar move

[triodz]

I have been trying to get a progress bar to, well, progress. I have looked at several scripts on here and most of them relate to copying files across, which I do not want to do. I tried chopping it up to suit my needs, but just break them.

I simply want the user to press the "Start" button and the bar to run for a few seconds (15 or 20 seconds. Less is fine), then show them a completed message.

Here is what I have so far:

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
Opt("GUIOnEventMode", 1)
$Form1_1 = GUICreate("Form1", 506, 223, 236, 128)
$Exit = GUICtrlCreateButton("Exit", 336, 144, 129, 41)
GUICtrlSetOnEvent($GUI_EVENT_CLOSE, "close");
$Button1 = GUICtrlCreateButton("Start", 184, 144, 129, 41)
GUISetState (@SW_SHOW)
$Progress1 = GUICtrlCreateProgress(16, 104, 465, 17)
GUISetState()
#EndRegion ### END Koda GUI section ###

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

Case $Exit
EndSwitch
WEnd
$wait = 20
$s = 0
do
$nmsg = GUIGetMsg()
If $nmsg = $Button1 Then
    For $i = $s To 100
    If GUICtrlRead($progress1) = 100 Then Msgbox(0,"Info","Complete!", 1)
    $m = GUIGetMsg ()

    If $m = -3 Then ExitLoop

        $s=0
      GUICtrlSetData ($progress1,$i)
      Sleep($wait)
    Next
    if $i >100 then
    endif
EndIf
until $nmsg = $GUI_EVENT_CLOSE
func close ()
Exit
EndFunc

Pressing the exit button works fine. The bar is there, but no progress shows. It's more for the user so they know something is happening. All I want it to do is turn green from start to finish when "Start" is pressed.

I am very new and I know the aesthetics need work, but I just need to get over this hurdle first.

Thanks for any help on this one. I have had nothing but wonderful help from this community in the past!

Thanks in advance

[Beege]

triodz, couple of things to point out.

First you shouldnt use GUIOnEventMode and GUIGetMsg() in the same script. Pick one or the other. Also the reason nothing happens with the progress bar is the script never reaches that far. After your gui is create, your script goes into an endless "while" loop. Put your progress bar code into a function and then call that function when the start button is pressed.

[triodz]

Thanks Beege,

I tried the below with your suggestions, but still having trouble. I just don't know what I'm doing wrong.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### 
Opt("GUIOnEventMode", 1);
$Form1_1 = GUICreate("Form1", 506, 223, 236, 128)
$Exit = GUICtrlCreateButton("Exit", 336, 144, 129, 41)
GUIctrlSetOnEvent($GUI_EVENT_CLOSE, "close")
$Button1 = GUICtrlCreateButton("Start", 184, 144, 129, 41)
GUIctrlSetOnEvent($GUI_EVENT_CLOSE, "progress")
GUISetState (@SW_SHOW)
$Progress1 = GUICtrlCreateProgress(16, 104, 465, 17)
GUISetState()
#EndRegion ### END Koda GUI section ###

func progress ()
$wait = 20
$nmsg = GUIGetMsg()
If $nmsg = $Button1 Then
    For $i = 0 To 100
    If GUICtrlRead($Progress1) = 100 Then Msgbox(0,"Info","Complete!", 1)
Next
EndIf
EndFunc
func close ()
Exit
EndFunc
While 1
sleep(10)
WEnd

It's driving me nuts!

[Beege]

Ok.. that code is better though. You removed alot of the code that was not being used at all. But you still using GUIOnEventMode, and GUIGetmsg() in the same script. GUIOnEventMode lets you assign a function to be called whenever a certian event happens. GUIGetMsg() is designed to retrive the event msgs and then let you handle what happens with that event. Using both at the same time kinda makes them fight each other. Understanding these concepts will become more clear in time.

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ###
;Use OnEventMode
Opt("GUIOnEventMode", 1);

;Create GUI
$Form1_1 = GUICreate("Form1", 506, 223, 236, 128)

;create Exit button
$Exit = GUICtrlCreateButton("Exit", 336, 144, 129, 41)
;If exit button is pressed, call "close" function
GUICtrlSetOnEvent($Exit, "close")

;If a close event happens call "close" function
GUICtrlSetOnEvent($GUI_EVENT_CLOSE, "close")

;create start button
$Button1 = GUICtrlCreateButton("Start", 184, 144, 129, 41)
;If $button1 is pressed call function "progress"
GUICtrlSetOnEvent($Button1, "progress")

;create progress bar
$Progress1 = GUICtrlCreateProgress(16, 104, 465, 17)

;Show the gui
GUISetState()
#endregion ### END Koda GUI section ###

;loop around and just wait for any events to happen
While 1
Sleep(10)
WEnd

Func progress()
$wait = 20
For $i = 0 To 100
  GUICtrlSetData($Progress1, $i)
  Sleep($wait)
Next
EndFunc   ;==>progress

Func close()
  Exit
EndFunc   ;==>close

Edited December 29, 2011 by Beege

[triodz]

Oh, I see what you did. I knew I was missing something simple. Thanks so much! I really appreciate your help! I also found this:

http://www.autoitscript.com/wiki/Progress_Bar_Sample

for anyone who happens upon this thread. Gives them a couple of options.

Thanks again Beege, you've been great!

[Beege]

Your welcome. Look into starting to use GUIGetMsg(). Oneventmode is easy, but limits you. For example, change $wait to 100. Then while the progress bar is increasing try and press the exit or close button. You will notice a small problem...

[BrewManNH]

Your welcome. Look into starting to use GUIGetMsg(). Oneventmode is easy, but limits you. For example, change $wait to 100. Then while the progress bar is increasing try and press the exit or close button. You will notice a small problem...

Wouldn't using the message loop mode display the same problem? While the function is running, no button presses will be activated until that function ends. OnEventMode causes you to create more functions than MessageLoop mode, but works easier when dealing with multiple GUIs, as an example, for the new user.

I'd learn to use the GUIRegisterMsg functions so that you can eliminate 90% of the delay problems exhibited with long running functions you want to interrupt. Then it won't matter if you're using messageloop or onevent modes.

[Beege]

Wouldn't using the message loop mode display the same problem?

Yes it would, but using msg loop mode you can fix the problem much easier by adding msg checks with in the function. Its harder to pull that off using only onevent mode. (as you pretty much state in the next comment)

I'd learn to use the GUIRegisterMsg functions so that you can eliminate 90% of the delay problems exhibited with long running functions you want to interrupt. Then it won't matter if you're using messageloop or onevent modes.

Not sure I follow. Your saying learn to use GUIRegistermsg (message loop), then it wont matter if your using message loop or onevent?

[BrewManNH]

GUIRegisterMsg (monitoring Windows messages) isn't the same as using GUIGetMsg (message loop mode).

[Beege]

Ohhh. My bad. I read and typed GUIRegistermsg thinking GuiGetMsg(). You absolutely right.