MS Small Basic: diversión con el objeto Shapes (código)


  a1

Además de dibujar formas de diferentes estilos y tamaños, también puede crear formas con diseños únicos usando condiciones y bucles en el programa.

__________________________________________________________________________________________________________________________________________________________

GraphicsWindow.Title= “Explorando las formas”
GraphicsWindow.Height =500
GraphicsWindow.Width = 700

For i = 0 To 20
  GraphicsWindow.PenWidth = 0.5
  GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor()
  rectangulo1 = Shapes.AddRectangle (i * 20, i * 10)
  Shapes.Move(rectangulo1, i * 10, i * 10)
EndFor

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s