Capacitación básica en Computación
en
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
- GraphicsWindow.Height =300
- GraphicsWindow.Width = 300
- GraphicsWindow.BackgroundColor = “Yellow”
- forma1 = Shapes.AddRectangle(100,50)
- Program.Delay(1000)
- Shapes.Move(forma1, 100,125)
- return = “Return”
- GraphicsWindow.KeyDown = keydown
- GraphicsWindow.KeyUp = keyup
- Sub keydown
- If GraphicsWindow.LastKey = return Then
- Shapes.Rotate(forma1, 90)
- EndIf
- EndSub
- Sub keyup
- If GraphicsWindow.LastKey = return Then
- Shapes.Rotate(forma1, 0)
- EndIf
- EndSub
%d bloggers like this:

No comments:
Post a Comment