Microsoft Small Basic

Program Listing: TPG724

List Program

'Esta aplicacion hace parte del curso de robotica para niños
'dictado en la universidad sergio arboleda
'Bogota Colombia
'visitanos en:
' www.roboticaenlasergio.wordpress.com

' Este programa Presenta las funciones random y algunas funciones graficas

GraphicsWindow.Show()
GraphicsWindow.Width = 200
GraphicsWindow.Height = 200
GraphicsWindow.PenWidth = 2

For a = 0 To 500 step 1
elcolor=graphicswindow.GetRandomcolor()
x=Math.GetRandomNumber(200)
y=Math.GetRandomNumber(200)
GraphicsWindow.PenColor = elcolor
GraphicsWindow.DrawEllipse(x,y,5,5)
EndFor