func_input_joycount.rst 1.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192
  1. .. _func_input_joycount:
  2. ========
  3. JoyCount
  4. ========
  5. JoyCount -
  6. Description
  7. ===========
  8. .. code-block:: blitzmax
  9. JoyCount()
  10. Counts the number of joysticks.
  11. Parameters
  12. ==========
  13. Return Values
  14. =============
  15. The number of joysticks and gamecontrollers connected to the system.
  16. Examples
  17. ========
  18. .. code-block:: blitzmax
  19. ' testjoy.bmx
  20. Import Pub.FreeJoy
  21. Strict
  22. If Not JoyCount() RuntimeError "No joystick found!"
  23. Graphics 640,480
  24. Function drawprop(n$,p#,y)
  25. Local w
  26. DrawText n$,0,y
  27. w=Abs(p)*256
  28. If p<0
  29. DrawRect 320-w,y,w,16
  30. Else
  31. DrawRect 320,y,w,16
  32. EndIf
  33. End Function
  34. Local t=0
  35. While Not KeyHit(KEY_ESCAPE)
  36. Cls
  37. SetColor 255,255,255
  38. Local n=JoyCount()
  39. DrawText "joycount="+n,0,0
  40. DrawText "JoyName(0)="+JoyName(0),0,20
  41. DrawText "JoyButtonCaps(0)="+Bin$(JoyButtonCaps(0)),0,40
  42. DrawText "JoyAxisCaps(0)="+Bin$(JoyAxisCaps(0)),0,60
  43. For Local i=0 To 31
  44. SetColor 255,255,255
  45. If JoyDown(i) SetColor 255,0,0
  46. DrawOval i*16,80,14,14
  47. Next
  48. SetColor 255,255,0
  49. drawprop "JoyX=",JoyX(0),100
  50. drawprop "JoyY:",JoyY(0),120
  51. drawprop "JoyZ:",JoyZ(0),140
  52. drawprop "JoyR:",JoyR(0),160
  53. drawprop "JoyU:",JoyU(0),180
  54. drawprop "JoyV:",JoyV(0),200
  55. drawprop "JoyHat:",JoyHat(0),220
  56. drawprop "JoyWheel:",JoyWheel(0),240
  57. DrawRect 0,280,t,10
  58. t=(t+1)&511
  59. Flip
  60. Wend
  61. End
  62. See Also
  63. ========