My libraries for Turbo Pascal

Unit u_joystick

Description
Uses
Classes, Interfaces, Objects and Records
Functions and Procedures
Types
Constants
Variables

Description

 

Overview

Functions and Procedures

function test_joystick: byte;
procedure init_joystick(num_joystick : byte);
function strig: byte;
function stick(num_joystick : byte) : byte;

Constants

stick_a = 0;
stick_b = 1;
strig_a_1 = 32;
strig_a_2 = 16;
strig_b_1 = 128;
strig_b_2 = 64;
minx_0 : word = 65535;
miny_0 : word = 65535;
maxx_0 : word = 0;
maxy_0 : word = 0;
minx_1 : word = 65535;
miny_1 : word = 65535;
maxx_1 : word = 0;
maxy_1 : word = 0;
vx_0 : word = (65535 div 3);
vy_0 : word = (65535 div 3);
vx_1 : word = (65535 div 3);
vy_1 : word = (65535 div 3);

Description

Functions and Procedures

function test_joystick: byte;
 
procedure init_joystick(num_joystick : byte);

Donne des renseignements sur les Joysticks connect‚s: 0 - Pas de carte, ou Joystick absent. 1 - Joystick A connect‚. 2 - Joystick B connect‚. 3 - Joysticks A et B connect‚s.

function strig: byte;

Permet le calibrage d'un joystick analogique.

function stick(num_joystick : byte) : byte;

Renvoie l'‚tat des boutons des deux Joysticks.

Constants

stick_a = 0;

Auteur: Patrick Pr‚martin. Date: 21/07/1992 28/07/1992. (Interface Multi-Langues) 30/07/1992. 13/12/1992. (Acc‚l‚ration du tratement) Langage: Turbo Pascal 6.0 But: Gestion des Joysticks reli‚s … un ordinateur AT.

stick_b = 1;

Num‚ro du Joystick A.

strig_a_1 = 32;

Num‚ro du Joystick B.

strig_a_2 = 16;

Bouton 1 du Joystick A.

strig_b_1 = 128;

Bouton 2 du Joystick A.

strig_b_2 = 64;

Bouton 1 du Joystick B

minx_0 : word = 65535;

Variables permettant le calibrage des Joysticks analogiques:

miny_0 : word = 65535;
 
maxx_0 : word = 0;
 
maxy_0 : word = 0;
 
minx_1 : word = 65535;
 
miny_1 : word = 65535;
 
maxx_1 : word = 0;
 
maxy_1 : word = 0;
 
vx_0 : word = (65535 div 3);
 
vy_0 : word = (65535 div 3);
 
vx_1 : word = (65535 div 3);
 
vy_1 : word = (65535 div 3);
 
My libraries for Turbo Pascal (c) 1990-2025 Patrick PREMARTIN - Powered by PasDoc
Generated by PasDoc 0.16.0.