[Q] Joystick Up() - GameCreators Forum

Author

Message

ZEDi Knight

18

Years of Service

User Offline

Joined: 12th Apr 2006

Location:

Posted: 13th Apr 2006 04:25

Link

hi,

I ran into an interesting problem with the following code.

do

bUpKey = 0
bUpKey = JOYSTICK UP()
if bUpKey = 1
printf \"Joystick UP = 1\"
else
printf \"Joystick UP = 0\"
endif

loop

The program executes correctly until I press the joystick up.

It will continuously report Joystick UP = 1 even after I release the button.

If press the joystick down the program will report, properly,

Joystick UP = 0

If I touch no controls on the pad it will resume to report,

Joystick UP = 1

which is a false case.

Any ideas.

The program above replicates the issue. The joysitck works properly.

thanks

Rem R = Rx Ry Rz

Back to top

Profile PM Email

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 13th Apr 2006 13:18

Link

Your code works fine on my joystick (Microsoft Sidewinder)

Can you try the following code and see what happens;

+ Code Snippet

sync on : sync rate 60

do
   cls
   joy_up=joystick up()
   joy_down=joystick down()
   joy_left=joystick left()
   joy_right=joystick right()
   print "Joystick UP = ";joy_up
   print "Joystick DOWN = ";joy_down
   print "Joystick LEFT = ";joy_left
   print "Joystick RIGHT = ";joy_right
   sync
loop

Boo!

Back to top

Profile PM Website

Ant

20

Years of Service

User Offline

Joined: 27th Nov 2004

Location:

Posted: 13th Apr 2006 13:22

Link

Based on your code you could try this :

+ Code Snippet

hide mouse

x=320
y=240

do
cls
ink rgb(255,0,0),0
Center text 320,0,"Joystick Test"
joyup = JOYSTICK UP()
joydown = joystick down()
ink -1,0
  if joyup=1
     center text x,y,"Joystick UP"
  else
  if joydown=1
     center text x,y,"Joystick DOWN"
  endif
  endif

loop

Back to top

Profile PM Email

the_winch

21

Years of Service

User Offline

Joined: 1st Feb 2003

Location: Oxford, UK

Posted: 16th Apr 2006 19:03 Edited at: 16th Apr 2006 19:03

Link

The JOYSTICK UP/DOWN/LEFT/RIGHT commands only really work with digital joysticks. Any movement away from 0,0 causes the commands to register movement. This is useless for most analog controlers because it is near enough impossible to move them on one axis without slightly moving it on the other.

You need to write your own joystick functions that use JOYSTICK X/Y combined with a deadzone.

global deadzone as integer
deadzone = 100

sync on
do
    cls
    y = 0
    text 0, y, "joystick x() = " + str$(joystick x()) : inc y,10
    text 0, y, "joystick y() = " + str$(joystick y()) : inc y,10
    
    text 0, y, "joystick up() = " + str$(joystick up()) : inc y,10
    text 0, y, "joystick down() = " + str$(joystick down()) : inc y,10
    text 0, y, "joystick left() = " + str$(joystick left()) : inc y,10
    text 0, y, "joystick right() = " + str$(joystick right()) : inc y,10
    
    text 0, y, "joystick_up() = " + str$(joystick_up()) : inc y,10
    text 0, y, "joystick_down() = " + str$(joystick_down()) : inc y,10
    text 0, y, "joystick_left() = " + str$(joystick_left()) : inc y,10
    text 0, y, "joystick_right() = " + str$(joystick_right()) : inc y,10
    sync
loop

function joystick_up()
    ret = 0
    if joystick y() < deadzone * -1 then ret = 1    
endfunction ret

function joystick_down()
    ret = 0
    if joystick y() > deadzone then ret = 1
endfunction ret

function joystick_left()
    ret = 0
    if joystick x() < deadzone * -1 then ret = 1
endfunction ret

function joystick_right()
    ret = 0
    if joystick x() > deadzone then ret = 1
endfunction ret

+ Code Snippet

global deadzone as integer
deadzone = 100

sync on
do
    cls
    y = 0
    text 0, y, "joystick x() = " + str$(joystick x()) : inc y,10
    text 0, y, "joystick y() = " + str$(joystick y()) : inc y,10
    
    text 0, y, "joystick up() = " + str$(joystick up()) : inc y,10
    text 0, y, "joystick down() = " + str$(joystick down()) : inc y,10
    text 0, y, "joystick left() = " + str$(joystick left()) : inc y,10
    text 0, y, "joystick right() = " + str$(joystick right()) : inc y,10
    
    text 0, y, "joystick_up() = " + str$(joystick_up()) : inc y,10
    text 0, y, "joystick_down() = " + str$(joystick_down()) : inc y,10
    text 0, y, "joystick_left() = " + str$(joystick_left()) : inc y,10
    text 0, y, "joystick_right() = " + str$(joystick_right()) : inc y,10
    sync
loop

function joystick_up()
    ret = 0
    if joystick y() < deadzone * -1 then ret = 1    
endfunction ret

function joystick_down()
    ret = 0
    if joystick y() > deadzone then ret = 1
endfunction ret

function joystick_left()
    ret = 0
    if joystick x() < deadzone * -1 then ret = 1
endfunction ret

function joystick_right()
    ret = 0
    if joystick x() > deadzone then ret = 1
endfunction ret

By way of demonstration, he emitted a batlike squeak that was indeed bothersome.

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / [Q] Joystick Up()