Как сделать бесконечную заставку цикла в маленьком базовом?

Question

Привет Я сделать хранитель экрана, и я должен знать, что случилось с моим кодом ..

GraphicsWindow.title="Screen Saver" 
GraphicsWindow.Width=500 
GraphicsWindow.Height=500 

For i=1 To 
Colour = GraphicsWindow.GetRandomColor() 
GraphicsWindow.BrushColor=Colour 
XCoord = Math.GetRandomNumber(1200) 
YCoord = Math.GetRandomNumber(1200) 
width=math.GetRandomNumber (300) 
GraphicsWindow.Fillellipse(XCoord,YCoord,width,width) 
Program.Delay(200) 

EndFor 
ContinueForEver = "Yes" 
While ContinueForEver = "Yes" 
EndWhile 

Я должен использовать [для г =? to?], чтобы сделать петлю инфантирования и им, которая должна использоваться. В то время как для продолжения. Таким образом, в основном IM должен сделать хранитель экрана, который создает круги навсегда .. спасибо

* Спасибо за помощь мне

Answer 1

Что-то вроде этого?

GraphicsWindow.title="Screen Saver" 
GraphicsWindow.Width=500 
GraphicsWindow.Height=500 

While 1 = 1 
    Colour = GraphicsWindow.GetRandomColor() 
GraphicsWindow.BrushColor=Colour 
XCoord = Math.GetRandomNumber(1200) 
YCoord = Math.GetRandomNumber(1200) 
width=math.GetRandomNumber (300) 
GraphicsWindow.Fillellipse(XCoord,YCoord,width,width) 
Program.Delay(200) 
EndWhile 

Вы были очень близки. Но вы не можете иметь цикл с из ряда так:

For i = 1 to 

Вы должны иметь конечный номер:

For i = 1 to 10 '<-- the loop will run 10 times 

А в то время как оператор будет работать до тех пор, пока вход верно. Таким образом, в этом случае, пока 1 = 1, цикл продолжится (что навсегда)

Это поможет? : D