Posted: Mon Jan 28, 2008 7:56 pm Post subject: [tutorial] joysticks/joypads (finally)
Hello welcome to my tutorial on using joysticks/joypads. I personally have a joypad with 2 analog sticks, 12 buttons, and a D-PAD/POV which has been tested. This tutorial will require two things: Firstly, you have atleast one joystick/joypad. 2)you grab my revised module at the bottom as the Turing default is not the best. Now for some Q and A.
q)So what do you plan to accomplish in this tutorial?
a)Well I'm planning to tackle the four main parts of the joystick module, breaking it down into parts, and ultimatly sharing this method of input with the world!
q)So what's so great about joysticks/joypads?
a)Well the mouse has upto 3 buttons and a cursor, a keyboard has keys, however a joypad (depending on the model) will have upto 32 buttons, upto 3 analog sticks, and a D-PAD/POV! that equals a ton more input and functionallity.
q)What if I don't have a joypad/joystick?
a)Not to worry just follow along and post/PM me with the questions (I'm sometimes busy so results not will be immediate).
Well now to get started!
The body will contain of four main parts, Setup, Button input, Analog input, and D-PAD/POV input. The tutorial will use an example program included at the bottom and will break down the code to show what exactly is happening (grab that now and the module too).
First things first, since the module is not pervasive it needs to be imported, also make sure the module is in the same folder as the program using it.
Now that that is done varibles need to be initalized just as though mouse input or keyboard input were being used
type joypad : % create a joypad type
button : array 1 .. 32 of boolean %create 32 instances of buttons
pos : joystick.PosRecord /*used to find all joypad intake with
the exception of buttons*/
caps : joystick.CapsRecord %used to find the max on joypad analog
var joy : array 1 .. 2 of joypad %create an array of joypad
What just happened? Well now to break that down.
First an instance of the joypad type containing a set of varibles was created. The first varible is an array of 32 boolean the number can be any number 1<n<32, basically it's all the buttons being used (32buttons were used to show the maximum potential). The next varible is actually taking the type of another record.
The record can be found in the joystick module it is basically bringing all input except the button states. Next is another type found in the joystick module this time bringing back the maximum potential of the joystick/joypad. Then a joy varible to use the varibles was created an array can be used for multiple joysticks/joypads.
Well now that is done time to move on. Default values need to be assigned as a failsafe for any joysticks not detected.
/*set default joypad varibles*/
for i : 1 .. upper (joy)
for ii : 1 .. upper (joy (i).button)
joy (i).button (ii) := false
joy (i).pos.POV := 66535
joystick.Capabilities (i - 1, joy (i).caps)
What just happened is rather simple. First a for loop was created to to cover all elements of joy, then another for loop for all 32 buttons to set the array to false false. Then the D-PAD/POV' was set to the default value of 66535. Lastly the joystick capibilities was called to find maximum capiblities of the joystick/joypad. Next joystick needs to be galled upon each loop run in the main program to gather information to what buttons are being pressed, etc... just as if it were a mouse or keyboard.
joystick.GetInfo (joystick[1/2], joy ([1/2]).button)
joystick.Read (joystick[1/2], joy ([1/2]).pos)
The GetInfo procedure will return upto 32 button values. The Read procedure will return with Analog and D-PAD/POV information.
This part of the tutorial is similar to a keyboard. A keyboard has an array of keys that return true if the key is pressed (info found with Input.KeyDown). A joystick/joypad has an array of buttons that return true if the button is pressed (info found with joystick.GetInfo). Therefore:
if joy.button(4) then
put "Button 4 is being pressed"
Hopefully that is understandable. And that is all for buttons.
Using Analog Sticks
This part is not to hard however the analog does not return an X/Y pixel value, so a conversion is needed. First to get the current analog position.
put "analog 1 - x - ", joy (1).pos.xpos
put "analog 1 - y - ", joy (1).pos.ypos
Well these values need to be converted like so.
put "analog 1 - x - ", round (joy (joystickNO + 1).pos.xpos / joy (joystickNO + 1).caps.maxX * maxx)
put "analog 1 - y - ", round (joy (joystickNO + 1).pos.ypos / joy (joystickNO + 1).caps.maxY * maxy)
This must be done everytime but it shouldn't be to hard to create a function to do this.
The axis use a name for each x and y direction: analog 1 x - xpos, analog 1 y - ypos, analog 2 x - zpos, analog 2 y - rpos, analog 3 x - upos, analog 3 y - vpos.
First off, reading D-PAD/POV data.
put joy ([1/2]).pos.POV
This to needs to be converted into usable code.
put "D-PAD (AKA POV) - " ..
if joy ( [ 1 / 2]).pos.POV = 0 then
elsif joy ( [ 1 / 2]).pos.POV = 4500 then
put "up right"
elsif joy ( [ 1 / 2 ]).pos.POV = 9000 then
elsif joy ( [ 1 / 2 ]).pos.POV = 13500 then
put "down right"
elsif joy ( [ 1 / 2 ]).pos.POV = 18000 then
elsif joy ( [ 1 / 2 ]).pos.POV = 22500 then
put "down left"
elsif joy ( [ 1 / 2 ]).pos.POV = 27000 then
elsif joy ( [ 1 / 2 ]).pos.POV = 31500 then
put "up left"
Well that is all there is to it.
Here are some challenges to try out.
1)make a circle that moves with the analog stick
2)move a sprite around the screen with the D-PAD/POV
3)make a simple Simon game with the buttons
4)try to make a basic game where you talk to people, walking around with D-PAD/POV talking to the character with the buttons
Posted: Mon Jan 28, 2008 8:09 pm Post subject: RE:[tutorial] joysticks/joypads (finally)
I made a program a while back that pointed out the undocumented features of the Joystick module. I'm not sure if this tutorial gets into those features. Maybe you could write a part two from that.
Posted: Mon Jan 28, 2008 8:40 pm Post subject: RE:[tutorial] joysticks/joypads (finally)
This is a valiant attempt, however, I have one, huge, stinking, major issue. Use proper grammar! I don't mean to sound like an ass here, but when you're just posting stuff, that's one thing, however, when you're writing a tutorial however, you really want the quality of the material to be higher. I suggest you edit this, then send it to me in a PM (BBCode and all) and then I'll edit it. Bits are in store for when you do this.
Posted: Wed Feb 06, 2008 2:19 am Post subject: RE:[tutorial] joysticks/joypads (finally)
updated thanks to Clayton for encouraging me to better myself and also thanks for posting newer version
Posted: Wed Mar 26, 2008 1:55 pm Post subject: RE:[tutorial] joysticks/joypads (finally)
if you can use this to read from USB controllers, could this possibly be also used to read from arbitrary USB devises?
Posted: Wed Mar 26, 2008 2:43 pm Post subject: RE:[tutorial] joysticks/joypads (finally)
from what I've seen his is not possible however when I went through the joystick module I focused mainly on Joysticks
Posted: Mon Mar 16, 2009 10:15 pm Post subject: Re: [tutorial] joysticks/joypads (finally)
At first when I saw how much was needed to get started compared to just calling Joystick.GetInfo (0, x, y, b1, b2)
But it is sooo much better, especially the button but I don't fully get how to use the buttons.
I am using a wired xbox 360 (USB) controller, with 10 button and I noticed the right analog stick can only control up and down and the trigger are the left and right is this right?
Also when I was moving with the first analog stick the y-axis seems to be inversed. I tried comparing two different location to see if they were moving in a specif direction then changing the x and y variables of where I am drawing the circle but that didn't work very well.
Here is as far as I got. You will need the .tu file from this tutorial.
How do I get the y-axis non inverted.
And am I doing buttons properly?
View.Set("offscreenonly") type joypad :% create a joypad type record
button :array1.. 32ofboolean%create 32 instances of buttons
pos : joystick.PosRecord /*used to find all joypad intake with
the exception of buttons*/
caps : joystick.CapsRecord %used to find the max on joypad analog endrecord
var joy :array1.. 2of joypad %create an array of joypad /*set default joypad varibles*/ for i :1.. upper(joy) for ii :1.. upper(joy (i).button)
joy (i).button (ii):=false endfor
joy (i).pos.POV :=66535
joystick.Capabilities (i - 1, joy (i).caps) endfor var hit :=true var x, y :int:=10 var x2, y2 :int var fail :=0 var score :int:=0 var ans :string(1):="" var button :int var xpos, ypos, maxX, maxY :int:=200 var timer :=0 loop loop
joystick.GetInfo (joystick1, joy (1).button)
joystick.Read (joystick1, joy (1).pos)
x2 :=round(joy (joystick1 + 1).pos.xpos / joy (joystick1 + 1).caps.maxX *maxx)
y2 :=round(joy (joystick1 + 1).pos.ypos / joy (joystick1 + 1).caps.maxY *maxy) if hit =truethen randint(button, 1, 10) endif
hit :=false put"You have until Timer: get to 1000" put"You have one shot to guess the button" put"If you fail 10 times you will lose\n" put"Press button number ", button
put"Times Failed: ", fail
put"Your Score: ", score
drawfillbox(x, y, x + 20, y + 20, blue) drawfillbox(x2, y2, x2 + 30, y2 + 30, red) View.Update
timer +=1 exitwhen fail =10 for i :1.. 31 if joy (1).button (i)then put"You chose button ", i
View.Update delay(1000) if i = button then
hit :=true put"Correct" View.Update delay(1000)
score +=10 elsif i not= button or timer =600then put"FAIL"
hit :=true View.Update delay(1000) endif
timer :=0 endif endfor if timer =600then put"FAIL"
timer :=0 delay(1000) endif View.Update if joy (1).pos.POV =0then
y +=5 elsif joy (1).pos.POV =4500then
x +=5 elsif joy (1).pos.POV =9000then
x +=5 elsif joy (1).pos.POV =13500then
x +=5 elsif joy (1).pos.POV =18000then
y -=5 elsif joy (1).pos.POV =22500then
x -=5 elsif joy (1).pos.POV =27000then
x -=5 elsif joy (1).pos.POV =31500then
x -=5 endif delay(20) cls endloop put"Play again" View.Update getch(ans) exitwhen ans ="n"or ans ="N" endloop
Posted: Mon Mar 16, 2009 10:51 pm Post subject: Re: [tutorial] joysticks/joypads (finally)