Informática Educativa Carlosfmur@gmail.com: Fácil, divertido, corto e ilustrativo (Código MS Small Basic)

Wednesday 5 June 2013

Escrito por carlosfmur1948 en Small Basic y etiquetada con ejemplo, small basic 5 de junio de 2013

Usted puede publicar su código fuente de ejemplo interesante (y una pantalla opcional del programa) aquí. Si es lo suficientemente interesante, vamos Ofrecemos a usted ya su código fuente en nuestros blogs (http://blogs.msdn.com/smallbasic). Aquí hay algo para empezar.
Código:
GraphicsWindow.Show()
pic = Flickr.GetRandomPicture(“lightning”)
gw = GraphicsWindow.Width
gh = GraphicsWindow.Height
GraphicsWindow.DrawResizedImage(pic, 0, 0, gw, gh)
distance = 50
Turtle.Speed = 9
For sides = 3 To 20
DrawPolygon()
EndFor
Sub DrawPolygon
angle = 360 / sides
For i = 1 To sides
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
Turtle.Move(distance)
Turtle.Turn(angle)
EndFor
EndSub