XProfan

+----------------------------------------------------------+
| joystick.prf                                             |
| Autor: Sebastian König                                   |
| email: feedback@sekoenig.de                              |
| Homepage: http://www.sekoenig.de                         |
| Mit PROFAN² den Joystick abfragen                        |
+----------------------------------------------------------+
--Benötigte Funktionen
DEF JoySetCapture(4) !"WINMM","joySetCapture"
DEF JoyReleaseCapture(1) !"WINMM","joyReleaseCapture"
DEF JoyGetPos(2) !"WINMM","joyGetPos"
--Deklarationen
declare JOYINFO#     Struktur mit Joystickinformationen
Struktur JOYINFO:
UINT wXpos;
UINT wYpos;
UINT wZpos;
UINT wButtons;
Ende
declare joyButton%
declare joyX%,joyY%,joyZ%
declare x%,y%,z%,b%
declare joyError%
--Neues Fenster
windowstyle 24
window 0,0-%maxX,%maxY
windowtitle "Joystick abfragen"
--Joystick Capture auf unser Hauptfenster
setzen, alle 100 Millisekunden Daten
erhalten
let joyError%=JoySetCapture(%hwnd,0,100,0)

if @neq(joyError%,0)

    messagebox("Fehler!","Joystick",48)
    end

endif

dim JOYINFO#,16  Struktur dimensionieren
textcolor 0,-1
drawtext 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%)

wend

JoyReleaseCapture(0)  Capture freigeben
dispose joyPos#       Speicher freigeben
end