Joystick position: Difference between revisions

For the purpose of this task, we assume that the joystick is calibrated and that the first joystick is being used. <br>

The task implementer could at their option provide a solution that includes a joystick selection facility, enabling the user to choose which joystick is to be used for this task.

 

=={{header|Applesoft BASIC}}==

110 P2 = PDL(2) : IF P2 <> O2 THEN O2 = P2 : VTAB 23 : HTAB 33 : PRINT P2; TAB(37);

120 B2 = FNB(2) : IF B2 <> N2 THEN N2 = B2 : VTAB 24 : HTAB 15 : PRINT P$(B2);

550 ROT = 0 : SCALE = 7 : XDRAW 1 AT X1, Y1

560 O0 = -1 : O1 = O0 : O2 = O0 : O3 = O0

 

=={{header|AutoHotkey}}==

 

[http://i.imgur.com/KsbrpK4.png Image link]

; #Include, Gdip.ahk

 

Exit:

Gdip_Shutdown(pToken)

 

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

VDU 5

VDU 10,13

NEXT

 

 

 

=={{header|C}}==

#include <stdlib.h>

 

system("clear");

return 1;

 

{{out}}

This program maps the values from both registers to bits 0 through 4 of a single byte so that logic is evaluated identical to the C-64 example below.

 

6 rem for rosetta code

10 print chr$(147);:poke 37154,peek(37154) and 127

80 if (ox=x) and (oy=y) then goto 100

85 poke sc+ox+oy*22,32

 

===Commodore 64===

On the Commodore 64, both joystick ports can be read from registers on the CIA#1 6526 chip. This will report binary input from the joystick control ports in bits 0 through 4 (four directions plus a single fire or action button.) Control Port 1 is read from location 56321 and Control Port 2 is read from location 56320.

 

6 rem for rosetta code

8 rem black bkg, white text, dk. grey border

85 poke sc+x+y*40,c:if (ox=x) and (oy=y) then goto 100

90 poke sc+ox+oy*40,32

 

===Commodore Plus/4===

The Commodore Plus/4 has the JOY(''n'') function available in BASIC v3.5 to read the position of a joystick plugged into control port ''n''. The return value is a number 1 through 8 corresponding to each unique direction in a clockwise order, beginning with "up" returning a value of "1". Bit 7 of the return value will report the status of the fire button.

 

6 rem for rosetta code

8 rem black bkg, white text, dk. grey border

85 poke sc+x+y*40,c:if (ox=x) and (oy=y) then goto 100

90 poke sc+ox+oy*40,32

 

===Commodore 128===

BASIC 7.0 retains the same functionality of BASIC 3.5 on the Plus/4 for reading the joystick port(s). The C128 can take advantage of dual screen output.

 

6 rem for rosetta code

8 rem black bkg, white text, dk. grey border

85 poke sc+x+y*40,c:if (ox=x) and (oy=y)then goto 100

90 poke sc+ox+oy*40,32

=={{header|Delphi}}==

{{libheader|mmSystem}}

Form application version.

unit uMain;

 

 

end.

Form resource:

object Form1: TForm1

Left = 0

end

end

{{out}}

Result preview [https://ibb.co/tc0xH3q]

 

 

{{libheader|termbox-go}}

{{libheader|joystick(go)}}

 

import (

}

}

 

=={{header|GUISS}}==

Graphical User Interface Support Script only makes use of installed applications. So for this task, we use the joystick calibration routine, which shows a joystick position indicator:

 

 

=={{header|Haskell}}==

Half-solution of the problem, exhibits X and Y coordinates of the joystick; works on Windows (Haskell Platform):

 

import Graphics.Win32.Key

import Control.Monad.RWS.Strict (liftIO)

(Just (x:y:_)) -> (-y, x)

_ -> ( 0, 0)

 

=={{header|IS-BASIC}}==

110 DO

120 LET J=JOY(0) OR JOY(1) OR JOY(2)

170 IF J BAND 8 THEN PRINT "up ";

180 IF J BAND 16 THEN PRINT "fire ";

 

=={{header|Julia}}==

 

#------------ input code ----------------------#

yield()

end

 

=={{header|Liberty BASIC}}==

nomainwin

 

close #m

unloadbmp "plus"

 

=={{header|Locomotive Basic}}==

20 a=JOY(0) ' read state of first joystick

30 IF d THEN q$="*" ELSE q$=" "

110 IF a<16 THEN LOCATE 1,1:PRINT " ":PRINT " "

120 MOVE x-8,y+8:TAG:PRINT "X";:TAGOFF

 

Output (this version supports drawing with the cursor):

 

=={{header|Mathematica}}/{{header|Wolfram Language}}==

 

=={{header|OCaml}}==

{{libheader|ocaml-sfml}}

 

let buttons_string b =

String.concat " " (List.map string_of_int b)

proc_event joyd

in

 

Run with the command:

 

=={{header|Phix}}==

 

First, joy.e:

And a test program:

 

=={{header|PicoLisp}}==

{{libheader|GLUT}}

Note: The code is not yet tested with a real joystick (I don't have one), it was just simulated with dummy functions. Can somebody having a joystick please test it, and remove this message?

 

(setq *JoyX 0.0 *JoyY 0.0)

# Exit upon mouse click

(mouseFunc '((Btn State X Y) (bye)))

 

=={{header|PureBasic}}==

This is limited to only digital joysticks.

MessageRequester("Error!", "Need to connect a joystick", #PB_MessageRequester_Ok)

End

Delay(10)

Until event = #PB_Event_CloseWindow

[[File:JoystickPosition-PureBasic.png]]

 

=={{header|Python}}==

{{libheader|Pygame}}

import pygame

 

# Write the display

pygame.display.flip()

 

=={{header|Raku}}==

Linux only terminal based joystick testing utility. Reads events from the joystick asynchronously, allows a main processing loop if desired. This uses the main loop to check for and compensate for a resized terminal but not really anything else. Hit control-c to exit; needs one extra event from the the joystick to exit completely. Only shows the first 3 axes, no matter how many are available. Tested with an Logitech extreme joystick and an Xbox controller.

 

 

# Joysticks generally show up in the /dev/input/ directory as js(n) where n is

($rows, $cols) = qx/stty size/.words;

}

 

=={{header|Tcl}}==

{{libheader|Tk}}

{{libheader|mkLibsdl}} <!-- from http://mkextensions.sourceforge.net/ -->

package require mkLibsdl

 

.c create line {120 115 120 125} -tags xhairV

.c create line {115 120 125 120} -tags xhairH

<!-- I think it can also be done with Tcl3d as that has SDL Joystick bindings, but damned if I can figure out the API in a reasonable amount of effort. It's definitely not Tclish (but what would you expect with something mashed together with SWIG? Once a stinky C API, always a stinky C API…) -->

 

=={{header|ZX Spectrum Basic}}==

 

20 LET xm=0: LET xx=31: REM screen limits

30 LET ym=0: LET yx=18

150 PRINT AT yc,xc;"+"

160 LET o$=" ": REM five spaces to blank output line again

 

{{Out}}