| Linux :: Joystick. Linux :: O Joystick é uma API Pure Perl e orientada a objetos para acessar dispositivos de joystick em sistemas operacionais baseados em Linux. |
Baixe Agora |
Linux :: Joystick. Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- B. Watson
- Site do editor:
- http://search.cpan.org/~bwatson/Linux-Joystick-0.0.1/Joystick.pm
Linux :: Joystick. Tag
Linux :: Joystick. Descrição
Linux :: Joystick é uma API Pure Perl e orientada a objetos para acessar dispositivos de joystick em sistemas operacionais baseados em Linux. Linux :: Joystick é uma API Pure Perl e orientada a objetos para acessar dispositivos de joystick em sistemas operacionais baseados em Linux. Linux :: Joystick Module é capaz de usar a E / S de bloqueio ou não bloqueador, e representa cada alteração ou botão de cada eixo Pressione como um linux :: Joystick :: Event Object.USAGEIF Você quer que seu aplicativo seja conduzido por eventos de joystick, Use o bloqueio de E / S e um loop de evento: use Linux :: Joystick; meu $ JS = novo Linux :: Joystick; meu US $ evento; Imprimir "joystick tem". $ JS-> ButtonCount (). "botões". "e " . $ JS-> Axiscount (). "Axes.n"; # Bloqueio de leituras: enquanto ($ Event = $ JS-> NextEvent) {Imprimir "Tipo de evento:". $ Event-> Tipo. ","; Se ($ EVENT-> ISBUTTON) {Imprimir "botão". $ Event-> Botão; Se ($ Event-> Buttondown) {Imprimir "pressionado"; } else {imprimir "liberado"; }} Elsif ($ Event-> ISAXIS) {Imprimir "Eixo". $ EVENT-> EXIS. ", valor " . $ EVENT-> AXISVALUE. ","; Imprimir "Up" Se $ Event-> Stickup; Imprimir "Down" se $ Event-> Anúncio; Imprimir "Esquerda" Se $ Event-> StickLeft; Imprimir "Direita" se $ Event-> adesivos; } else {# nunca deve acontecer imprimir "evento desconhecido". $ Event-> Hexdump; } Imprimir "n"; } # Se o loop while termina, temos um evento falso (indefinido): morrer "erro ao ler o joystick:". $ JS-> errorstring; Você também pode usar I / O não bloqueador, caso em que o caso NextEvent () retornando indef apenas significa que não havia nenhum evento para ler: meu $ JS = Linux :: Joystick-> Novo (Nonblocking => 1 ); # Use isso para abrir o segundo joystick no modo de nãobloco em vez disso: # Meu $ JS = Linux :: Joystick-> New (Device => 1, Nonblocking =>> 1); Enquanto (1) {my $ event = $ JS-> NextEvent; if ($ Event) {Imprimir "Tem um joystick eventn"; # Processar o evento aqui} # Faça outro processamento aqui (gráficos, som, E / S, cálculo)} É possível alternar entre blocos e não bloqueadores E / S sem reabertos do dispositivo (consulte o método setnonblocking () abaixo ). Requisitos: · Perl.
Linux :: Joystick. Software Relacionado