如何在小基础中制作无限循环屏幕保护程序?

时间:2014-11-05 13:00:38

标签: loops for-loop while-loop smallbasic

您好,我正在制作屏幕保护程序,我需要知道我的代码有什么问题。

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

我应该使用[for i =? to?]做一个infintie循环,我应该使用while endwhile for continue thing。所以基本上我应该制作一个永远生成圆圈的屏幕保护程序.. 谢谢

*谢谢你帮助我

1 个答案:

答案 0 :(得分: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循环:

For i = 1 to

您必须有一个结束号码:

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

只要输入为true,while语句就会运行。所以在这种情况下,只要1 = 1,循环就会继续(永远是这样)

这有帮助吗? :d