home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / TPJOYSTK.ZIP / JOYSTICK.DOC < prev    next >
Encoding:
Text File  |  1989-11-14  |  3.4 KB  |  107 lines
  1. JOYSTICK Unit for Turbo Pascal  (JSTICK.ARC)
  2. Public Domain by JonSoft Technologies Inc.
  3.  
  4. This ARCHIVED file should contain -
  5.  JOYSTICK.PAS - the JOYSTICK unit source code
  6.  JOYSTICK.TPU - the JOYSTICK unit for TP 5.x (see notes!)
  7.  JOYDEMO.PAS  - joystick demonstration program
  8.  JOYSTICK.DOC - this file!
  9.  UP&CMING.DOC - Up & Coming releases from JonSoft Inc.
  10.  COPYRITE.DOC - full copyright agreement
  11.  
  12. ** NOTE - JOYSTICK.TPU is for version 5.x (5.0/5.5 etc) of Turbo Pascal
  13. and WILL NOT WORK with Version 4.x without recompilation.
  14. To use with version 4.x, load JOYSTICK.PAS into the editor and recompile it
  15. to disk.  This unit WILL NOT WORK with version 3.x or below!!!!!
  16.  
  17.  
  18. *** Using JOYSTICK ***
  19.  
  20. 1.1 Initialization
  21.  If you are planning to use the joystick unit to retrieve X,Y, and button
  22.  values from the joystick only, there is no need to call either of the
  23.  initialization procedures.
  24.  
  25.    If you plan to use to 8-position converter routines (HORIZ, VERT- see
  26. procedure listings) then you should call either of the two initialization
  27. procedures.
  28.  
  29. 1.2 Procedure listing
  30.  
  31. FastInitJS
  32.    Initializes the joystick without any messages and without requiring the
  33. joystick to be moved into the corners and the middle.  This procedure is
  34. intended only for your personal programs, as not all joysticks will work with
  35. this procedure and very few will work with some adjusting of the joystick.
  36.  
  37.  
  38. BetterInitJS ( Range : byte )
  39.    Initializes the joystick MUCH more accurately than FastInitJS.  Asks the
  40. user if he or she is using a joystick, and sets the variable Joyst to TRUE
  41. or FALSE accordingly.  If a joystick is present, asks the user to place the
  42. the joystick in the upper-right-hand corner, center, and lower-left positions,
  43. pressing a button each time.
  44.  
  45.     RANGE specifies the fraction of total distance that the joystick
  46. should approximately cover before producing a reading other than zero in the
  47. Horiz and Vert procedures.  For example, a range of 2 specifies that the
  48. joystick should travel 1/2 of the distance from the center to a direction
  49. before producing a reading.
  50.  
  51.  
  52. JoyX function (returns BYTE)
  53.    Returns the X-coordinate of the joystick.
  54.  
  55. JoyY function (returns BYTE)
  56.    Returns the Y-coordunate of the joystick.
  57.  
  58. Button1 function (returns BYTE)
  59.    Returns 1 if button 1 is pressed, otherwise 0.
  60.  
  61. Button2 function (returns BYTE)
  62.    Returns 1 if button 2 is pressed, otherwise 0.
  63.  
  64.  
  65. Horiz function (returns SHORTINT)
  66.    Returns -1 if the joystick is LEFT of the center, 0 if it is in the center,
  67.    and 1 is it is RIGHT of the center.
  68.  
  69.  
  70. Vert function (returns SHORTINT)
  71.    Returns -1 if the joystick is ABOVE the center, 0 is it is in the center,
  72.    and 1 if it is BELOW the center.
  73.  
  74.    Horiz and Vert are useful in arcade games and other programs where the
  75.    program must only know which general direction the joystick is pointing.
  76.  
  77.  
  78.  
  79. 1.3 Variables
  80.  
  81.  CentX - byte; returns the X-center of the joystick; set on
  82.         initialization.
  83.  
  84.  CentY - byte; returns the Y-center of the joystick; set on
  85.         initialization.
  86.  
  87.  JoySt - boolean; return TRUE if a joystick was found upon initialization,
  88.         FALSE otherwise.  Defaults to TRUE.
  89.  
  90.  
  91.  
  92. LET ME KNOW!!!!
  93.  
  94.   Let me know what you think of this and other JonSoft products.  Write to:
  95.  
  96.   JonSoft Technologies Inc.
  97.       741 Daffodil Way
  98.    Concord, CA 94518-2341
  99.  
  100.  Or, write to Jonathan Suite via E-Mail :
  101.  
  102.  CompuServe : 72377,2463
  103.  
  104.  PC-Link       : FATHER JON
  105.  
  106.  Prodigy    : VPFT10B
  107.