XProfan

Français

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Joystickinformationen abfragen
+----------------------------------------------------------+
| joystick.prf                                             |
| Autor: Sebastian König                                   |
| email: feedback@sekoenig.de                              |
| Page d'accueil: http://www.sekoenig.de                         |
| avec PROFANE² 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 avec 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 la fenêtre
style de fenêtre 24
window 0,0-%maxx,%maxY
windowtitle Joystick abfragen
--Joystick Capture sur unser Hauptfenster
mettons, alle 100 Millisekunden données
conservé
let joyError%=JoySetCapture(%hwnd,0,100,0)

si @neq(joyError%,0)

    messagebox(faute!,Joystick,48)
    end

endif

dim JOYINFO#,16  Struktur dimensionieren
textcolor 0,-1
drawtext 230,300,Über Systemmenu finissons
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)

tandis que 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#       grenier freigeben
end