Better joystick functions
Posted: Sat Nov 17, 2007 3:26 pm
Hi to the great PB team!
I'd like to have better joystick functions. Actually I'm using joyGetPosEx_ and it's OK for me, except I need a window to do that, so I have to do a trick that scares me a bit. So I'd like to have native functions in purebasic.
Thank you!
Code I'm using :
I'd like to have better joystick functions. Actually I'm using joyGetPosEx_ and it's OK for me, except I need a window to do that, so I have to do a trick that scares me a bit. So I'd like to have native functions in purebasic.
Thank you!
Code I'm using :
Code: Select all
joy_an=joyGetNumDevs_()
joyCaps.JOYCAPS
For u=0 To joy_an
joyGetDevCaps_(u,joyCaps,SizeOf(JOYCAPS))
Debug "Joystick "+Str(u)
Debug joyCaps\szPname
Next u
If joySetCapture_(WindowID(1),#JOYSTICKID1,#Null,#False) = #JOYERR_NOERROR
If joyGetDevCaps_(#JOYSTICKID1,joyCaps,SizeOf(JOYCAPS)) = #JOYERR_NOERROR
JoyXamp.l=joyCaps\wXmax-joyCaps\wXmin ;amplitude du mouvement du joystick en X
JoyYamp.l=joyCaps\wYmax-joyCaps\wYmin
; done
Else
Debug "Joystick error"
EndIf
EndIf
joyInfoEx.JOYINFOEX
joyInfoEx\dwFlags = #JOY_RETURNALL
joyInfoEx\dwSize = SizeOf(JOYINFOEX)
;---
joyGetPosEx_(#JOYSTICKID1,joyInfoEx.JOYINFOEX)
;---
if (joyInfoEx\dwButtons&1) And joystick_switch
blah bla
endif
