How to pause an animation inside a loop without delay - vb.net

Question

I am having an issue with this piece of code:
Do While StopProgram = False
Do Until Count = v
Application.DoEvents()
Do While StopProgram = False
If DirectionNegative = False Then
Me.Refresh()
Count += 1
Angle += 1
RadianAngle = Angle * PlaceHolder
If Angle >= 51 Then
Angle = 49
DirectionNegative = True
End If
ElseIf DirectionNegative = True Then
Me.Refresh()
Count += 1
Angle -= 1
RadianAngle = Angle * PlaceHolder
If Angle <= -51 Then
Angle = -49
DirectionNegative = False
End If
End If
Loop
Loop
Count = 0
Loop
The problem is that when I press a button on my form, stopping the code (Using the StopProgram = False), it will continue until Count = v I want to be able to have it where I can stop it inside the loop, I have attempted to do that here but it creates an unexitable loop which ruins the program.

Answer 1

Better yet, use a Timer to tick at regular intervals.
http://msdn.microsoft.com/en-us/library/system.timers.timer(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2
Dim WithEvents t as New System.Timers.Timer
sub t_Elapsed Handles....
'your code here. increment/decrement state variables
end sub
Simply disable the timer when you want animation to stop.

Answer 2

This is the wrong approach to your problem, but change:
Do While StopProgram = False
Do Until Count = v
Application.DoEvents()
Do While StopProgram = False
To:
Do While StopProgram = False
Do Until Count = v
Do While StopProgram = False
Application.DoEvents()

Answer 3

This should work just fine. No need for all those loops.
Public Sub Refresh()
' ...
End Sub
Public Property Get StopProgram() As Boolean
StopProgram = ' ...
End Property
Public Property Get Angle as Single
'...
Public Property Let Angle
'...
Public Property Get RadianAngle as Single
RadianAngle = Angle * PlaceHolder
End Property
Public Sub T()
Dim Step As Single
Step = 1!
Do
DoEvents
Me.Refresh
If StopProgram Then Exit Do
If Angle <= 0 Or Angle >= 50 Then
Step = -Step
End If
Count = Count + 1
Angle = Angle + Step
Loop
End Sub

Answer 4

You could just remove the 2 outer loops.
You will never reach the Do Until Count = v part unless StopProgram is true anyway.
You will remain inside the inner Do While StopProgram = False loop. You could remove
the inner Do While StopProgram = False loop and change
Do Until Count = v to Do Until Count = v Or StopProgram = true
btw you're setting Count = 0 when you exit the middle loop so if you need to retain the value of count when StopProgram is set to true you should remove the outer
Do While StopProgram = False loopand the Count = 0
Do Until Count = v Or StopProgram = True
Application.DoEvents()
If DirectionNegative = False Then
Me.Refresh()
Count += 1
Angle += 1
RadianAngle = Angle * PlaceHolder
If Angle >= 51 Then
Angle = 49
DirectionNegative = True
End If
ElseIf DirectionNegative = True Then
Me.Refresh()
Count += 1
Angle -= 1
RadianAngle = Angle * PlaceHolder
If Angle <= -51 Then
Angle = -49
DirectionNegative = False
End If
End If
Loop