MS Small Basic: animación de una forma con el objeto Shapes (código)


animate 

  1. GraphicsWindow.Title = “Explorando las formas”
  2. Forma1 =Shapes.AddRectangle(100, 100)
  3. Fpelota = Shapes.AddEllipse(100, 100)
  4. Shapes.Move(Fpelota, 0, 340)
  5. x = 450
  6. GraphicsWindow.DrawRectangle(550, 0, 80, 450)
  7. GraphicsWindow.BrushColor = “Purple”
  8. GraphicsWindow.FillRectangle(550, 0, 80, 450)
  9. Shapes.Animate(Fpelota, x, 40, 450)
  10. Program.Delay(500)
  11. If (Shapes.GetLeft(Fpelota) = x) Then
  12. Shapes.Animate(Fpelota, 0, 340, 500)
  13. EndIf

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