For....Next

[Appie78]

Hi Guys,

Is it possible to change the value of $i while the loop is running?

For $i = 1 to 10 Step 3

Thanks

[Authenticity]

Yup, but not the end case. For example if the loop is processing until i is equal to the UBound of an array then resizing this array won't change the amount of loops. For this kind of task there is While..WEnd or Do...Until

[Melba23]

Pokerface,

Have you tried?

M23

P.S. Yes.

[James]

Like this?

Dim $a = 5, $x = False

For $i = 1 To 10
    If $x = False Then
        $i = $a
        $x = True
    EndIf
    ConsoleWrite($i & @CRLF)
Next

[Appie78]

CODE

Func Recall()

$Recall1 = FileOpen("c:\program files\scan sample\Positions.log", 0); Laad het bestand met de posities.

MsgBox(0,"", $Recall1)

If $Recall1 = -1 Then

Return MsgBox(0, "Error", "No file with positions.")

Exit

EndIf

$Line = FileRead($Recall1); Lees het file uit.

$AvArray = StringSplit($Line, ";", 1); Zet de waardes in een Array en scheid ze door de ; weg te halen.

_ArrayTrim($AvArray, 2, 0, 2)

$Tel = UBound($AvArray); tel het aantal posities.

$Coor = $Tel - 2; posities - 2.

If $Coor < 3 Then

Return MsgBox(0, "Custom Service", "No data or corrupted file.")

Exit

EndIf

HotKeySet("{bs}", "BackRecall")

For $q = 1 To $Coor Step 3

$u = $AvArray[$q]

$v = $AvArray[$q + 1]

$w = $AvArray[$q + 2]

WinActivate("Scanning Electron Microscope")

Sleep(200)

ControlClick("Scanning Electron Microscope", "", 89, "left", 1, 20, 20); Stage control10

Sleep(100)

WinActivate("Stage Control")

Sleep(200)

Send("!p")

Send($u)

Send("{Tab}")

Send($v)

Send("{Tab}")

Send($w)

Sleep(1000)

ControlClick("Positioning", "", 1, "left", 1, 20, 20); Verplaats naar positie

Sleep(5000)

If $q = $Coor - 2 Then

MsgBox(0, "Custom Service", "Finished"); Alle posities bekeken

Else

$Msg = MsgBox(1, "Custom Service", "Continue or Cancel?"); Naar de volgende positie of stoppen?

If $Msg = 2 Then

ExitLoop

Else

MsgBox(0, "Custom Service", "Moving to next position", 3); Verplaats naar positie

EndIf

EndIf

Next

HotKeySet("{bs}")

FileClose($Recall1)

EndFunc ;==>Recall

Func BackRecall()

ControlClick("Stage Control", "", 3, "left", 1, 20, 20)

$d = $q - 3

EndIf

MsgBox(0, "", $d)

$a = $AvArray[$d]

$b = $AvArray[$d + 1]

$c = $AvArray[$d + 2]

WinActivate("Scanning Electron Microscope")

Sleep(200)

ControlClick("Scanning Electron Microscope", "", 89, "left", 1, 20, 20); Stage control10

Sleep(100)

WinActivate("Stage Control")

Sleep(200)

Send("!p")

Send($a)

Send("{Tab}")

Send($

Send("{Tab}")

Send($c)

Sleep(1000)

ControlClick("Positioning", "", 1, "left", 1, 20, 20); Verplaats naar positie

Sleep(5000)

$q = $q - 3

EndFunc

This is my code, I want to decrease $q by 3.

To set the array to the correct values.

[James]

For $i = 1 to 10 Step 3
...
Next

[Appie78]

Hi James,

If you look at the BackRecall function you'll see I want to decrease $q by 3.

Hoping that the Recall function changes its value.

Cheers.

[Marlo]

For $I = 30 To 1 Step -3

Next

[James]

Hi James,

If you look at the BackRecall function you'll see I want to decrease $q by 3.

Hoping that the Recall function changes its value.

Cheers.

Well think about it... Increase, "3" and to decrease.... We minus :0 "-3".

For $q = 1 To $Coor Step -3

Edit: Smiley fix

Edited March 4, 2009 by JamesBrooks

[Appie78]

Hi James,

Did you read my code or did you just look at the question at the top?

please read the code maybe you can give me better info.

Arnaud

[James]

Hi James,

Did you read my code or did you just look at the question at the top?

please read the code maybe you can give me better info.

Arnaud

Both.

expandcollapse popup

Func Recall()

$Recall1 = FileOpen("c:\program files\scan sample\Positions.log", 0); Laad het bestand met de posities.
MsgBox(0,"", $Recall1)
If $Recall1 = -1 Then
Return MsgBox(0, "Error", "No file with positions.")
Exit
EndIf

$Line = FileRead($Recall1); Lees het file uit.
$AvArray = StringSplit($Line, ";", 1); Zet de waardes in een Array en scheid ze door de; weg te halen.
_ArrayTrim($AvArray, 2, 0, 2)
$Tel = UBound($AvArray); tel het aantal posities.
$Coor = $Tel - 2; posities - 2.

If $Coor < 3 Then
Return MsgBox(0, "Custom Service", "No data or corrupted file.")
Exit
EndIf

HotKeySet("{bs}", "BackRecall")

For $q = 1 To $Coor Step -3

$u = $AvArray[$q]
$v = $AvArray[$q + 1]
$w = $AvArray[$q + 2]

WinActivate("Scanning Electron Microscope")
Sleep(200)
ControlClick("Scanning Electron Microscope", "", 89, "left", 1, 20, 20); Stage control10
Sleep(100)
WinActivate("Stage Control")
Sleep(200)
Send("!p")
Send($u)
Send("{Tab}")
Send($v)
Send("{Tab}")
Send($w)
Sleep(1000)
ControlClick("Positioning", "", 1, "left", 1, 20, 20); Verplaats naar positie
Sleep(5000)

If $q = $Coor - 2 Then
MsgBox(0, "Custom Service", "Finished"); Alle posities bekeken
Else
$Msg = MsgBox(1, "Custom Service", "Continue or Cancel?"); Naar de volgende positie of stoppen?
If $Msg = 2 Then
ExitLoop
Else
MsgBox(0, "Custom Service", "Moving to next position", 3); Verplaats naar positie
EndIf
EndIf

Next

HotKeySet("{bs}")

FileClose($Recall1)

EndFunc;==>Recall

Func BackRecall()

ControlClick("Stage Control", "", 3, "left", 1, 20, 20)

$d = $q - 3

EndIf
MsgBox(0, "", $d)
$a = $AvArray[$d]
$b = $AvArray[$d + 1]
$c = $AvArray[$d + 2]

WinActivate("Scanning Electron Microscope")
Sleep(200)
ControlClick("Scanning Electron Microscope", "", 89, "left", 1, 20, 20); Stage control10
Sleep(100)
WinActivate("Stage Control")
Sleep(200)
Send("!p")
Send($a)
Send("{Tab}")
Send($b)
Send("{Tab}")
Send($c)
Sleep(1000)
ControlClick("Positioning", "", 1, "left", 1, 20, 20); Verplaats naar positie
Sleep(5000)
$q = $q - 3
EndFunc

[Appie78]

Hi James,

I understand your solution but it's not my problem!!!!!

Let me try to explain a bit better.

I've got coordinats (x, y, r) saved in a file, I want to recall these coordinats.

That's where the Recall() comes in. But I want to make it possible to go back 1 position that's where the BackRecall() comes in.

If the position is back by 1 the recall position is doing it's next cycle and continues with the 3rd so the second position is skipped.

I don't want to skip this position so I need to change the For..Next loop.

I hope this clears up my problem.

Thanks

[James]

Sorry, I am taking a shot in the darkness here but try this perhaps?

Step $myStep

Where $myStep is a variable determined by the code.

[Melba23]

Pokerface,

Why not use a 2D array to save your coordinates and avoid all this triple-jumping?

Global $AvArray[n][3]
..
$u = $AvArray[$q][0]
$v = $AvArray[$q][1]
$w = $AvArray[$q][2]

Then you only need to jump one forward/back and the Step value becomes moot.

M23

[Appie78]

@ James,

The $Step seems to work!!

@ M23

A 2d array may come in handy. Does anybody have an example how to make an 2d array from a file?

Thanks

[BrettF]

Well whats the contents of the file?

[Appie78]

@ Brettf

The content of the file are coordinats so only numbers which are seperated by a ;

Thanks

[Melba23]

Pokerface,

If your coordinates file looks like this:

1-1;1-2;1-3;2-1;2-2;2-3;3-1;3-2;3-3;4-1;4-2;4-3

then this code:

#include <Array.au3>

$sString = FileRead("coords.txt")

ConsoleWrite($sString & @CRLF)

$aCoords_1D = StringSplit($sString, ";")

_ArrayDisplay($aCoords_1D)

Global $aCoords_2D[$aCoords_1D[0] / 3][3]

$k = 1
For $i = 0 To 3
    For $j = 0 To 2
        $aCoords_2D[$i][$j] = $aCoords_1D[$k]
        $k += 1
    Next
Next

_ArrayDisplay($aCoords_2D)

will get it into a 2D array.

Array.au3 is only included to show you the results via _ArrayDisplay - it is not needed for the actual code. You will have to check that the size of the first dimension of your 2D array is correctly set. AutoIt kindly sets the [0] element of the array produced by StringSplit to the number of elements found - so if you are sure that you have only coord-triplets, you just need to divide this number by 3.

You will doubtless have to tweak this a bit to meet your requirements, but I hope the basic principles are clear.

M23

[Appie78]

Thanks M23,

The 2d array works fine after some adjustments like you sad.

I thought that the $step in For $i = 0 to $Coor Step $step worked but I was mistaking.

I've tried to work with an .Ini file aswell, didn't work.

Does anybody got any suggestions?

Pokerface

[BrettF]

Give us an example of the contents of the file (what you want to store in the array). Heck, I ain't no mind reader.