Jump to content

Help With If In Loop


Recommended Posts

Guest DJBeri

Hi, I'm trying to create IF in a loop

Like:

<start>

A or B? <A>

execute A

execute B

execute A

execute B

... inifinte

I wrote a script that should do it, but I will get the error that the infinite loop wont work, cant find Wend / Until ... Why won't it work? Without the If or without the do loop it will work :whistle:

Dim $l

Dim $d

Dim $i

MsgBox(4096, "Start", "Start"&@CRLF, 10)

$l = InputBox("L?", "L?", "1", "", -1, -1, 0, 0)

Sleep(10000)

Do

If $l=1 Then

For $i=1 to 10

MsgBox(4096, "case", "1"&@CRLF, 10)

Next

$l=2

Elseif $l=2 Then

For $i=1 to 10

MsgBox(4096, "case", "2"&@CRLF, 10)

Next

$l=1

Else

Exit

EndIf

Until $d=-1

Edited by DJBeri
Link to post
Share on other sites

a few problems but try this:

Dim $l
MsgBox(4096, "Start", "Start"&@CRLF, 10)
;Sleep(10000)
Do
$l = InputBox("L?", "L?", "1", "", -1, -1, 0, 0)
If $l=1 Then
MsgBox(4096, "case", "1"&@CRLF, 10)
$l=2
Elseif $l=2 Then
MsgBox(4096, "case", "2"&@CRLF, 10)
$l=1
Else 
    Exit
EndIf
Until $l=-1

Until $d=-1 what is d? is $d called out somewhere else?

Did you want it to change? if so then here it is but you can't actually exit once it starts:

Dim $l
MsgBox(4096, "Start", "Start"&@CRLF, 10)
$l = InputBox("L?", "L?", "1", "", -1, -1, 0, 0)
Do
If $l=1 Then
MsgBox(4096, "case", "1"&@CRLF, 10)
$l=2
Elseif $l=2 Then
MsgBox(4096, "case", "2"&@CRLF, 10)
$l=1
Else 
    Exit
EndIf
Until $l=-1
Edited by scriptkitty

AutoIt3, the MACGYVER Pocket Knife for computers.

Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...