Breaking a "Do While" Infinite Loop using a command button

[Sunbags]

Hello, I'm a 2nd year Computer Engineering student and I have a problem with my VB6 code. I've just started learning VB6 for a project in which we have to create a form which displays the knight-rider light sequence. Obviously, this means using a loop and our lecturer has told us to use timers to control how long the sequence lasts for. I don't want to use timers ((this is not due to laziness, I would have been finished long ago had I used timers!! I just want to see if there is another way to do this project) , and I've read everywhere that the only way to break out of an infinite loop is Ctl+Alt+Del! What I am asking is - is there any code I could use to over-write the loop which I could also link with a command button (i.e. when I hit my 'exit' button on my form, the program stops runnning). If this is not possible, a way in which the user could input a number which would stop the program would also be a great help. The module I'm studying this for is interfacing, so user-compatability is paramount. Perhaps there is a different loop I could use which offers more flexibility?

Here is an outline of my code so far:

Private Sub cmdstart_click( )
Dim Index As Integer

Do While x < 50 (There's no particular reason why I chose 50, I just wanted to create an infinite loop)

For x = 0 To 7

DoEvents

Next x

For x = 6 To 0 Step -1

Do Events

Next x

Loop




End Sub

Code for 'Exit' Button

Private Sub Command1_Click( )
Unload Me
End Sub

I haven't posted the 'events' in the code, as the posting guidlines advise that you shouldn't post all of your code. I need to have this done in two days, so any help is appreciated! Thanks in advance, Anna.

[hariharanmca]

Your code doesn’t make any sense. Because X will not go beyond 50.
use boolen Flag, timer control if the flag is false then run loop if it true then stop.

[code937]

Surely you'd just set a flag?

at the top of your project set userexit as boolian

then in your loop check if userexit = true is so then exit the loop

then on the command button (user input) just set userexit = true.


in 'theory' that would work, try it :)

[code937]

lol, same idea, posted the same time :)

[hariharanmca]

lol, same idea, posted the same time :)

Cheer up code937.

(The message you have entered is too short. Please lengthen your message to at least 20 characters)

[Sunbags]

Your code doesn’t make any sense. Because X will not go beyond 50.
use boolen Flag, timer control if the flag is false then run loop if it true then stop.

That was the idea, that it never goes beyond x, simply because I wanted to loop to run until the user decides to exit. However, exiting a loop is not so easy! What is a flag and how can I use it? I only started learning VB6 a week or two ago, so I'm not familiar with every nook and cranny, as it were! Thanks for your reply.

[code937]

= What is a flag and how can I use it?

right at the top of your code out of any routiene put this:

dim userxit as Boolean

in your module code put this

if userexit = true then exit sub

then on the command button put this

userexit = true

That will do it :)

[Sunbags]

right at the top of your code out of any routiene put this:

dim userxit as Boolean

in your module code put this

if userexit = true then exit sub

then on the command button put this

userexit = true

That will do it :)

Cheers, will try that now!

[hariharanmca]

Do While x < 50 
For x = 0 To 7
DoEvents
Next x
For x = 6 To 0 Step -1
Do Events
Next x
Loop
End Sub

First 'for' will not do any thing (only Do events)
and also Same to second 'for'.
for this why don't you use a timer control?

[Sunbags]

right at the top of your code out of any routiene put this:

dim userxit as Boolean

in your module code put this

if userexit = true then exit sub

then on the command button put this

userexit = true

That will do it :)

Hello again, I implemented your code and the program still crashes. Also, when you said to place the

dim userexit as Boolean

at the top of the code outside of all routines, I presumed you meant that I was to put it above the

Private Sub cmdStart_Click()

line as opposed to underneath it. However, when I try to compile this, I get a message saying "Compile Error: Member already exists in an object module from which this object module derives". Am I placing the code you've given me in the wrong place?