Joystickinformationen abfragen

'Joystickinformationen abfragen

Beitrag, 16.07.2007 00:18: ;createCode()'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:'Joystickinformationen abfragen'+----------------------------------------------------------+'| joystick.prf |'| Autor: Sebastian König |'| email: feedback@sekoenig.de |'| Homepage: http://www.sekoenig.de |'| Mit PROFAN² den Joystick abfragen |'+----------------------------------------------------------+'--Benötigte FunktionenDEF JoySetCapture(4) !"WINMM","joySetCapture"DEF JoyReleaseCapture(1) !"WINMM","joyReleaseCapture"DEF JoyGetPos(2) !"WINMM","joyGetPos"'--Deklarationendeclare JOYINFO# 'Struktur mit Joystickinformationen' Struktur JOYINFO:' UINT wXpos;' UINT wYpos;' UINT wZpos;' UINT wButtons;' Endedeclare joyButton%declare joyX%,joyY%,joyZ%declare x%,y%,z%,b%declare joyError%'--Neues Fensterwindowstyle 24window 0,0-%maxX,%maxYwindowtitle "Joystick abfragen"'--Joystick Capture auf unser Hauptfenster' setzen, alle 100 Millisekunden Daten' erhaltenlet joyError%=JoySetCapture(%hwnd,0,100,0)if @neq(joyError%,0) messagebox("Fehler!","Joystick",48) endendifdim JOYINFO#,16 'Struktur dimensionierentextcolor 0,-1drawtext 230,300,"Über Systemmenu beenden"drawtext 30,100,"X-Achse:"drawtext 30,130,"Y-Achse:"drawtext 30,160,"Z-Achse:"drawtext 30,210,"Button:"let X%=@createtext(%hwnd,"...",100,100,80,20)let y%=@createtext(%hwnd,"...",100,130,80,20)let z%=@createtext(%hwnd,"...",100,160,80,20)let b%=@createtext(%hwnd,"...",100,210,80,20)while 1 JoyGetPos(0,JOYINFO#) 'Joystickdaten einlesen let joyX%=@long(JOYINFO#,0) 'X-Koordinate let joyY%=@long(JOYINFO#,4) 'Y-Koordinate let joyZ%=@long(JOYINFO#,8) 'Z-Koordinate let joyButton%=@long(JOYINFO#,12) 'Buttons: ' 1 = Button A ' 2 = Button B ' 4 = Button C ' 8 = Button D ' usw... SetText x%,@Str$(joyX%) SetText y%,@Str$(joyY%) SetText z%,@Str$(joyZ%) SetText b%,@str$(joyButton%)wendJoyReleaseCapture(0) 'Capture freigebendispose joyPos# 'Speicher freigebenend

Dies ist die Offlinevariante vom Thread [Joystickinformationen abfragen].