XProfan

Italia

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 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