key

Usamos la operación Move (desplaza al rectángulo) y Keydown y Keyup que lo gira 90 grados y después lo vuelve a su lugar, usando cualquier tecla
  1. GraphicsWindow.Height =300
  2. GraphicsWindow.Width = 300
  3. GraphicsWindow.BackgroundColor = “Yellow”
  4. forma1 = Shapes.AddRectangle(100,50)
  5. Program.Delay(1000)
  6. Shapes.Move(forma1, 100,125)
  7. return = “Return”
  8. GraphicsWindow.KeyDown = keydown
  9. GraphicsWindow.KeyUp = keyup
  10. Sub keydown
  11.   If GraphicsWindow.LastKey = return Then
  12.     Shapes.Rotate(forma1, 90)
  13.   EndIf
  14. EndSub
  15. Sub keyup
  16.   If GraphicsWindow.LastKey = return Then
  17.     Shapes.Rotate(forma1, 0)
  18.   EndIf
  19.   EndSub

Deja un comentario