Small Basic: eventos de teclado (código de ´programa)


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

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