[SOLVED] Adding a timer to a loop

[Adergon]

SOLVED!!!

Edit: Reset the title to something ressembling the original!

Adergon,

Please do not do this again - just add [sOLVED] to the title, not replace it.

M23

Edited January 15, 2012 by Melba23

[Melba23]

Adergon,

Look at TimerInit and TimerDiff. Then you can code something like this:

$iBegin = TimerInit()

While TimerDiff($iBegin) < whatever_delay_you_want
    Your_Code
WEnd

; You get here when the delay ends

All clear?

M23

[Adergon]

Adergon,

Look at TimerInit and TimerDiff. Then you can code something like this:

$iBegin = TimerInit()

While TimerDiff($iBegin) < whatever_delay_you_want
    Your_Code
WEnd

; You get here when the delay ends

All clear?

M23

This probably works, but i don't know where to put the delay? do you mean like this?

While TimerDiff($iBegin) < 10000

Delay for 10 secs.

[Melba23]

Adergon,

Have you tried?

Yes!

M23

[Adergon]

Adergon,

Have you tried?

Yes!

M23

$iBegin = TimerInit()
While TimerDiff($iBegin) < 10000
Do
$TestPixel=PixelSearch(302, 26, 817, 359, $PixelTest, 5)
Until Not @error
MouseMove(0,0)
WEnd
MouseMove(15,3)

I tried this, but still, after 10 seconds. it doesnt move on. it still keeps trying to find it

EDIT: i added a mousemove and the end too so i know it has moved on:P

Edited January 15, 2012 by Adergon

[JohnOne]

It's obviously stuck in the Do loop.

[Melba23]

Adergon,

You need to reverse the comparison if you use a Do...Until loop:

$iBegin = TimerInit()
Do
    $TestPixel = PixelSearch(302, 26, 817, 359, $PixelTest, 5)
Until (Not @error) Or TimerDiff($iBegin) > 10000

M23

[Adergon]

Adergon,

You need to reverse the comparison if you use a Do...Until loop:

$iBegin = TimerInit()
Do
    $TestPixel = PixelSearch(302, 26, 817, 359, $PixelTest, 5)
Until (Not @error) Or TimerDiff($iBegin) > 10000

M23

Thank you Melba, it worked. But if im right, this command waits 10 seconds, and then finds the color, and stops. But i want it to search for the color, for 10 seconds and then stop if it doesn't find it. and then move on to next function.

ThANks!

[Melba23]

Adergon,

I am afraid you are wrong!

Let us run through the code:

- 1. We set a timestamp with TimerInit.

- 2. We enter a Do loop

- 3. We search for a colour with PixelSearch

- 4. We now check the Until line:

- 4A. If we find the colour @error = 0 so (Not @error) = 1 and we exit the loop (remember that AutoIt treats 0 as False and 1 as True) If we did not find the colour then @error = 1 so (Not @error) = 0 and we move on to check the comparison after the Or....

- 4B. Here we use TimerDiff to see if more than 10secs have elapsed. If they have then we exit the loop - if not then neither part of the Until checks are true and so we loop again.

All clear now?

M23

P.S. I would add a Sleep(10) in that loop or your CPU is going to get a bit hot with an almost permanent search.

[Adergon]

Adergon,

I am afraid you are wrong!

Let us run through the code:

- 1. We set a timestamp with TimerInit.

- 2. We enter a Do loop

- 3. We search for a colour with PixelSearch

- 4. We now check the Until line:

- 4A. If we find the colour @error = 0 so (Not @error) = 1 and we exit the loop (remember that AutoIt treats 0 as False and 1 as True) If we did not find the colour then @error = 1 so (Not @error) = 0 and we move on to check the comparison after the Or....

- 4B. Here we use TimerDiff to see if more than 10secs have elapsed. If they have then we exit the loop - if not then neither part of the Until checks are true and so we loop again.

All clear now?

M23

P.S. I would add a Sleep(10) in that loop or your CPU is going to get a bit hot with an almost permanent search.

Sorry for wasting your time if you need to go, but hmm.. so this code:

$iBegin = TimerInit()
Do
$TestPixel=PixelSearch(302, 26, 817, 359, 0xB9910F, 5)
Until (Not @error) Or TimerDiff($iBegin) > 10000
MouseMove($TestPixel [0], $TestPixel [1])
MouseMove(15,3)

It searches for the color, if it doesn't find it within 10 secs. it exits the loop and moves on to the next function/line. right? but i get an error in this code:

Subscript used with non-Array variable. (Line 17)

Edit: the last mousemove in end is to see if it exits the loops and moves on. ;P

Edited January 15, 2012 by Adergon

[Melba23]

Adergon,

You exit the loop on finding the colour or if the timer ran out. In the second case you will not have a valid coordinate array so you need to check if you have an array before trying to use it like this:

$iBegin = TimerInit()
$TestPixel = 0 ; Force the variable NOT to be an array
Do
    $TestPixel = PixelSearch(302, 26, 817, 359, 0xB9910F, 5)
Until (Not @error) Or TimerDiff($iBegin) > 10000
If IsArray($TestPixel) Then ; Check if have a valid array now
    MouseMove($TestPixel[0], $TestPixel[1])
EndIf
MouseMove(15, 3)

Got it?

M23

[Adergon]

Adergon,

You exit the loop on finding the colour or if the timer ran out. In the second case you will not have a valid coordinate array so you need to check if you have an array before trying to use it like this:

$iBegin = TimerInit()
$TestPixel = 0 ; Force the variable NOT to be an array
Do
    $TestPixel = PixelSearch(302, 26, 817, 359, 0xB9910F, 5)
Until (Not @error) Or TimerDiff($iBegin) > 10000
If IsArray($TestPixel) Then ; Check if have a valid array now
    MouseMove($TestPixel[0], $TestPixel[1])
EndIf
MouseMove(15, 3)

Got it?

M23

Melba is there anyway i can pay you?!?! omg thank you so much!!!! <33 :D:D

[Melba23]

Adergon,

Melba is there anyway i can pay you?!?!

You could perhaps donate something to help Jon pay the hosting costs - every little helps.

M23

[Adergon]

Adergon,

You could perhaps donate something to help Jon pay the hosting costs - every little helps.

M23

I might actually, this is a good website with alot of people helping me in the past months. I will have a look into it

[Adergon]

close this please.

[Jos]

We only close topics that are in violation with our rules or spin out of control.

[Melba23]

Adergon,

We do not "close" threads - unless you do something we do not like!

If you want to add [solved] or similar to the title, just edit the first post and select the "Use Full Editor" option - that allows you to edit the title as well.

M23

[water]

Please do not remove the title and text of the original post when solved! You take away important information for later reference.

All the replies are meaningless without your question!

Add [solved] at beginning of the title - that's all. This tells other users that there is a solution to the problem and might help them solve their own problem.

Edited January 15, 2012 by water

[Melba23]

Title reset to something close to the original.

Adergon,

Please do not do this again - just add [sOLVED] to the title, not replace it.

M23