Peripheral myJoy As JoyStick3A @ 0 'Set the module To be operated As 0.
Sub Main()
myJoy.SetStickDeadZone(2, 2) ' Set the x- And y-axis origin dead zones.
myJoy.SetKnobDeadZone(2) ' Set the z-axis origin dead zone.
myJoy.SetXYSaturation(80, 80) ' Set the x- And y-axis saturation limits.
myJoy.SetKnobSaturation(80) ' Set the z-axis saturation limit.
myJoy.SetXYRes(128, 128) ' Set the x- And y-axis resolutions.
myJoy.SetKnobRes(128) ' Set the z-axis resolution.
myJoy.SetEventRefreshRate(1) ' Set the Event refresh rate.
myJoy.EnableStickEvent() ' Enable StickEvent.
myJoy.EnableKnobEvent() ' Enable KnobEvent.
Do
Loop
End Sub
Event myJoy.StickEvent()
Dim sX, sY As Short
myJoy.GetXY(sX, sY)
Debug CSRXY(1, 1), "X: ", %DEC4R sX, ", Y: ", %DEC4R sY, CR
End Event
Event myJoy.KnobEvent()
Dim sZ As Short
myJoy.GetZ(sZ)
Debug CSRXY(17, 1), ", Z: ", %DEC4R sZ, CR
End Event