Linux :: joystick Linux :: Joystick es una API de Perl pura orientada a objetos para acceder a los dispositivos Joystick en los sistemas operativos basados en Linux.
Descargar ahora

Linux :: joystick Clasificación y resumen

Linux :: joystick Etiquetas

Módulo perl perla orientado a objetos Perl API Dispositivos de joystick

Linux :: joystick Descripción

Linux :: Joystick es una API Pure Perl orientada a objetos para acceder a los dispositivos de Joystick en los sistemas operativos basados ​​en Linux. Linux :: Joystick es una API Pure Perl orientada a objetos para acceder a los dispositivos de Joystick en los sistemas operativos basados ​​en Linux. Linux :: Módulo de joystick es capaz de usar E / S de bloqueo o no bloqueo, y representa cada cambio o botón del eje, presione como Linux :: Joystick :: Event Object.usageif Usted desea que su aplicación sea impulsada por Eventos de Joystick, Use Bloqueo de E / S y un bucle de eventos: Use Linux :: Joystick; My $ JS = New Linux :: Joystick; mi evento $; Imprimir "Joystick tiene". $ JS-> ButtonCount (). "Botones". "y " . $ js-> axiscount (). "axes.n"; # Bloqueo Reads: Mientras ($ Event = $ JS-> Nextevent) {Imprimir "Tipo de evento:". $ event-> tipo. ","; if ($ event-> isbutton) {imprimir botón ". $ event-> botón; if ($ event-> Buttondown) {impresión "presionada"; } else {impresión "liberado"; }} elsif ($ event-> isaxis) {imprimir "eje". $ event-> eje. ", valor " . $ event-> axisvalue. ","; Imprimir "arriba" si $ Event-> Stickup; imprimir "abajo" si $ event-> skown; Imprima "Izquierda" si $ Event-> Stickleft; Imprima "Derecho" si $ Event-> Pegamento; } else {# # nunca debe suceder imprimir "evento desconocido". $ event-> hexdump; } Imprimir "n"; } # Si el bucle while termina, obtuvimos un evento falso (indefinido): DIE "Error al leer el joystick:". $ js-> errorString; También puede usar E / S que no bloquea el bloqueo, en cuyo caso Nextevent () Desviando UNDEF Simplemente significa que no hubo ningún evento para leer: My $ JS = Linux :: joystick-> nuevo (sin bloqueo => 1 ) # Use esto para abrir el segundo joystick en modo sin bloqueo en su lugar: # MIS $ JS = Linux :: joystick-> nuevo (dispositivo => 1, no bloqueo => 1); mientras (1) {My $ Event = $ JS-> Nextevent; if ($ evento) {imprimir "consiguió un joystick eventn"; # Procesar el evento aquí} # Hacer otro procesamiento aquí (gráficos, sonido, E / S, Cálculo)} Es posible cambiar entre el bloqueo y la E / S que no bloquea sin reabrir el dispositivo (consulte el método de setnonblocking (), a continuación ). Requisitos: · Perl

Linux :: joystick Software relacionado