1 ------------------------------------------------------------------------------
3 -- Nom du fichier : User.ads --
5 -- Auteur(s) : SALAMIN Michel / Assistant HEV --
6 -- Ecole d'ingenieurs du canton de Vaud (EIVD) --
8 -- Date de creation : 20 avril 2000 --
10 -- But : Mettre a disposition les fonctions permettant de: --
11 -- - gerer la souris dans la fenetre graphique --
12 -- - gerer le clavier lorsque la fenetre graphique --
15 -- Date de modif. : --
18 -- Modules appeles : --
19 -- Mat. particulier : Graphmin.dll --
23 ------------------------------------------------------------------------------
27 package Spider
.User
is
31 ----------------------------------------------------------------------------
34 -- But : Suspendre le programme durant un temps determine. --
36 -- Entrees : - delay_Time: Duree en ms pendant laquelle il faut suspendre --
37 -- l'execution du programme --
41 ----------------------------------------------------------------------------
43 procedure Sleep(Delay_Time
: in Integer);
47 ----------------------------------------------------------------------------
48 -- Nom : Key_Pressed --
50 -- But : Lire un caractere au clavier. --
52 -- Entrees : - Item: Le caractere qui a ete lu au clavier. --
53 -- Sorties : - Vrai si un caractere a pu etre lu au clavier. --
55 -- Remarque: Attention a l'exclusion mutuelle sur le tampon. --
56 ----------------------------------------------------------------------------
58 procedure Key_Pressed(Item
: out Character;
63 ----------------------------------------------------------------------------
66 -- But : Faire entendre un son "beep". --
72 ----------------------------------------------------------------------------
78 ----------------------------------------------------------------------------
81 -- But : Verifie si le bouton de gauche de la souris a ete presse. --
83 -- Entrees : - X1: Position (absolue) en X du curseur associe a la souris.--
84 -- - Y1: Position (absolue) en Y du curseur associe a la souris.--
85 -- Sorties : - Vrai si le bouton de gauche de la souris a ete presse --
88 ----------------------------------------------------------------------------
90 procedure Left_Clic(X1
: out Natural;
96 ----------------------------------------------------------------------------
97 -- Nom : Right_Clic --
99 -- But : Verifie si le bouton de gauche de la souris a ete presse. --
101 -- Entrees : - X1: Position (absolue) en X du curseur associe a la souris.--
102 -- - Y1: Position (absolue) en Y du curseur associe a la souris.--
103 -- Sorties : - Vrai si le bouton de gauche de la souris a ete presse --
106 ----------------------------------------------------------------------------
108 procedure Right_Clic(X1
: out Natural;
114 ----------------------------------------------------------------------------
117 -- But : Lire la position de la souris. --
119 -- Entrees : - X1: Position (absolue) en X du curseur associe a la souris.--
120 -- - Y1: Position (absolue) en Y du curseur associe a la souris.--
124 ----------------------------------------------------------------------------
126 procedure Mouse(X1
: out Natural;