[toc]
01. start: 02. 03. JoystickForSmallBasicAdvanced.Acquire() 04. TextWindow.Title = "Joystick Information" 05. TextWindow.WriteLine("") 06. TextWindow.WriteLine("Axis position: " + JoystickForSmallBasicAdvanced.GetX() + ", " + JoystickForSmallBasicAdvanced.GetY() + ", " + JoystickForSmallBasicAdvanced.GetZ()) 07. 08. slider = JoystickForSmallBasicAdvanced.GetSlider(0) 'get slider #0 value 09. slider = (slider / 65536) * 100 'convert to a percent 10.percentage slider = 100 - slider 'flip value (DirectX gives value backwards) 11. 12. TextWindow.WriteLine("Slider position: " + Math.Round(slider) + "%") 13. TextWindow.WriteLine("POV hat position: " + JoystickForSmallBasicAdvanced.GetPOV(0) + "°") 14. TextWindow.WriteLine("Firmware revision: " + JoystickForSmallBasicAdvanced.FirmwareRevision) 15. TextWindow.WriteLine("") 16. TextWindow.Write("Buttons: ") 17. For i = 0 To (JoystickForSmallBasicAdvanced.ButtonCount - 1) 'since buttons start with zero 18. If JoystickForSmallBasicAdvanced.GetButton(i) = "True" Then 19. TextWindow.Write(" " + i + " ") 20. EndIf 21. EndFor 22. 23. Program.Delay(120) 'delay so user can read info 24. TextWindow.Clear() 25. 26. Goto start Happy coding!
start:
02.
03.
JoystickForSmallBasicAdvanced.Acquire()
04.
TextWindow.Title =
"Joystick Information"
05.
TextWindow.WriteLine(
""
)
06.
"Axis position: "
+ JoystickForSmallBasicAdvanced.GetX() +
", "
+ JoystickForSmallBasicAdvanced.GetY() +
+ JoystickForSmallBasicAdvanced.GetZ())
07.
08.
slider = JoystickForSmallBasicAdvanced.GetSlider(0)
'get slider #0 value
09.
slider = (slider / 65536) * 100
'convert to a percent
10.percentage
slider = 100 - slider
'flip value (DirectX gives value backwards)
11.
12.
"Slider position: "
+ Math.Round(slider) +
"%"
13.
"POV hat position: "
+ JoystickForSmallBasicAdvanced.GetPOV(0) +
"°"
14.
"Firmware revision: "
+ JoystickForSmallBasicAdvanced.FirmwareRevision)
15.
16.
TextWindow.Write(
"Buttons: "
17.
For
i = 0
To
(JoystickForSmallBasicAdvanced.ButtonCount - 1)
'since buttons start with zero
18.
If
JoystickForSmallBasicAdvanced.GetButton(i) =
"True"
Then
19.
" "
+ i +
20.
EndIf
21.
EndFor
22.
23.
Program.Delay(120)
'delay so user can read info
24.
TextWindow.Clear()
25.
26.
Goto start