MS Small Basic: objeto shapes – 1 (código)


koala1

  1. rutaArchivo = “C:\Users\carlos\Pictures\Koala.jpg”
  2. imagen = Shapes.AddImage(rutaArchivo)
  3. Shapes.Move(imagen, 5, 5)
  4. Shapes.Animate(imagen, 20, 20, 1000)
  5. Shapes.Zoom(imagen, 0.1, 0.1)
  6. For i=0  To 1 Step 0.1
  7.   Program.Delay(1000)
  8.   Shapes.Zoom(imagen, 0.1 + i, 0.1 + i)
  9. EndFor
  10.  

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