All Functions and Procedures

Cette procedure affiche un message et attend eventuellement.

Type de clavier utilis‚: 0 = 101/102 touches, 1 = PC AT, 2 = PC Portatif, 3 = PC XT.

affiche chaine en (X,Y) puis change de ligne

centre la chaine, l'affiche, puis change de ligne

Partie des procedures d'affichage.

cadrage de la chaine … gauche

cadrage … gauche, en ligne Y

cadrage … gauche, en ligne Y, ligne suivante

cadrage … droite, ligne suivante

affiche la chaine … partir de DEBUT jusqu'… FIN

affiche chaine en (X,Y)

Cette proc‚dure vide le tampon du clavier.

Dessine un cadre de couleur C.

Cadrage de la chaine … gauche.

Renvoie le caractŠre cod‚.

efface le fichier sp‚cifi‚

Renvoie la chaine cod‚e.

‚change les valeurs de A et de B

Est TRUE si la chaine pass‚e est compos‚e uniquement de chiffres.

renvoie le nombre de lignes de la fenetre active.

Auteur: Pr‚martin Patrick Date: 01/09/1991. 09/09/1991. Langage: Turbo Pascal 6.0 But: Proc‚dures et fonctions diverses de traitement des fichiers.

met l'extension pr‚cis‚e au fichier sp‚cifi‚.

Cette proc‚dure fabrique un curseur carr‚ prenant la taille d'un caractŠre.

Cette proc‚dure fabrique un curseur dont le tiret est en haut.

Auteur: Pr‚martin Patrick. Date : 01/03/1991. 09/03/1991. Langage: Turbo Pascal 4.0 Date: 09/09/1991. Langage: Turbo Pascal 6.0

But: Cette unit‚ contient des proc‚dures et fonctions permettant de g‚rer le curseur sans passer par l'unit‚ CRT.

Cette proc‚dure positionne le curseur dans la page 0.

Fait le dessin d'une flŠche de couleur COUL_FLECHE sur fond COUL_FOND et rajoute la zone correspondante … la liste ZONE.

dessin du cadre choisi avec couleur du trac‚ du contour

Fait le dessin d'une flŠche de couleur COUL_FLECHE sur fond COUL_FOND.

affichage du bloc ligne par ligne

affichage en escargot dans le cadre x1, y1, X2, Y2

renvoie le caractŠre en majuscule ou lui-meme

Efface toutes les fontes de la m‚moire et remet la fonte par d‚faut.

Ecriture d'un caractŠre dans la fonte courante … la position actuelle.

Ecriture d'une chaine … la position courante.

Visualisation d'un cadre

cree le fichier .BAK correspondant au fichier nomm‚

Transfert TAILLE octets de RES vers le fichier.

Referme le fichier F.

Codes de retour: - 0 si pas d'erreur; - 1 si NUMBER non valide (autre que dans 0..NB_MAX_FNT); - 2 si la fonte correspondante n'existe pas.

Codes de retour: - pointeur vers la fonte charg‚e; - NIL si erreur (pas assez de m‚moire, nom de fichier incorrect ...).

Sfct. 15h = Lire un registre de couleur du CNA vid‚o.

Renvoie le nom du fichier sans extension.

Cette fonction renvoie la date en clair 'JJ/MM/AA' ou 'MM/JJ/AA' en fonction de la langue en cours d'utilisation.

2 = Valeur affect‚e … une zone de l'environnement incorrecte

Chargement de la langue par le programme, retourne TRUE si fichier de messages contient cette langue.

renvoie le nom du fichier ‚pur‚ de son chemin d'accŠs (mais avec extension).

Sfct. 2 = Modifier les 16 registres de couleurs plus le surbalayage.

Indique la fin d'un fichier

Auteur: Pr‚martin Patrick. Date: 01/03/1991.

Cette unit‚ permet d'acc‚der … l'heure sans passer par l'unit‚ DOS.

Met la carte graphique dans le mode voulu.

0 : noir 8 : gris 1 : bleu 9 : bleu clair 2 : vert 10 : vert clair 3 : cyan 11 : cyan clair 4 : rouge 12 : rouge clair 5 : magenta 13 : magenta clair 6 : brun 14 : jaune 7 : blanc 15 : blanc intense

Change la couleur par d‚faut.

Cette fonction vous renvoie le nombre de boutons utilis‚s par votre souris. Ce nombre peut varier d'un driver … un autre (avec la mˆme souris). Il n'est donc qu'indicatif, nous n'avons jamais eu l'occasion de nous en servir.

Auteur: Patrick Pr‚martin. Date: 24/07/1992. Langage: Turbo Pascal 6.0 But: Utilisation simple du driver VGA256.BGI de Borland.

visualisation de l entete encadree

Met Longueur caractŠres C dans la chaine r‚sultante.

Renvoie la chaine en majuscules.

Partie des fonctions.

Recopie Origine dans Destination en cadrant la chaine, si la chaine de d‚part est trop longue, on se contente d'en copier le d‚but.

Remplace la couleur OLD_C par la couleur NEW_C dans le cadre d‚fini.

change le chemin courant (lecteur inclus)

Cette proc‚dure attend l'appuit d'une touche.

******************************************************************************** Les routines suivantes gŠrent les souris Microsoft en mode graphique. Aucun test ne sera effectu‚, … vous de savoir quoi utiliser... ********************************************************************************

Cette fonction renvoie le code des boutons actifs lors de l'appel … cette fonction. Les codes valides sont: Left_Button, Right_Button, Middle_Button, et leurs combinaisons.

******************************************************************************** Les routines suivantes gŠrent les souris Microsoft en mode texte. Aucun test ne sera effectu‚, … vous de savoir quoi utiliser... ********************************************************************************

Renvoie l'abscisse courante du point d'action de la souris.

Renvoie l'abscisse courante de la souris. C'est une abscisse caractŠre. Elle peut aller de 1 … 132 (peut-ˆtre plus suivant la carte que vous poss‚dez).

Positionne la souris aux coordonn‚es X (pour l'abscisse) et Y (pour l'ordonn‚e). Si la souris est visible, son curseur sera d‚plac‚ automatiquement. Vous ne devriez pas avoir … l'effacer avant l'appel … cette proc‚dure.

Cr‚e un cadre … l'extŠrieur duquel la souris ne pourra pas se d‚placer. Ses d‚placements seront limit‚s au rectangle d‚fini par les coordonn‚es pass‚es en paramŠtres. La souris sera mise dans ce cadre.

D‚finit un cadre hors duquel la souris ne pourra pas se d‚placer.

D‚place la souris aux coordonn‚es absolues sp‚cifiez. Elles doivent absolument ˆtre dans l'‚cran actuel. Aucun test n'est r‚alis‚ … ce sujet.

Limite une bande horizontale hors de laquelle la souris ne pourra pas aller.

Limite les d‚placements de la souris … la bande comprise entre X_Min et X_Max.

Cette fonction renvoie TRUE si un driver de souris Microsoft est actif. Elle modifie 'Mouse_On'. Vous n'aurez g‚n‚ralement pas … appeler cette fonction, l'unit‚ le fait lors du d‚marrage de votre application. Il vous suffira de regarder le contenu de la variable bool‚enne 'Mouse_On' qui contiendra TRUE si un driver est actif.

******************************************************************************** Les routines suivantes vous permettront de g‚rer les divers traitements … faire avec une souris compatible Microsoft.

Certains problŠmes nous sont apparus lors des tests sur diff‚rentes machines, les souris ne r‚pondaient pas correctement. Veillez donc lorsque vous achetez une souris … ce qu'elle soit 100% compatible Microsoft, et que le constructeur de votre ordinateur vous la conseille...

Les routines suivantes fonctionnent en mode texte, mais aussi en mode graphique, les ‚ventuelles conversions de format sont faites automatiquement. ********************************************************************************

Renvoie l'ordonn‚e courante du point d'action de la souris.

Met dans les variables X, et Y les coordonn‚es du point d'action de la souris. X correspond … l'abscisse, Y … l'ordonn‚e.

Renvoie les coordonn‚es X et Y de la souris.

Renvoie l'ordonn‚e comprise entre 1 et 43 pour les modes texte les plus puissants sur cartes VGA. Plus de 43 pour les prochaines cartes...

Supprime la souris de num‚ro 'Number'. Les codes de retour sont: 0 - Souris supprim‚e sans problŠme. 1 - Si 'Number' est invalide. 2 - Si la souris de rang 'Number' n'existe pas.

Cette fonction vous permet d'activer une souris graphique choisie. Vous devez en passer le num‚ro, et le changement de forme se fera automatiquement. Les codes de retour sont les suivants: 0 - Aucune erreur. 1 - Si 'Number' est invalide (il doit ˆtre infŠrieur … 'Nb_Max_Mou'). 2 - Si la souris correspondante … 'Number' n'existe pas.

******************************************************************************** Routines de gestion des fichiers d'extension .MOU Ces fichiers sont cr‚‚s par 'Mouse Maker'.

Vous ne devez utiliser ces routines que dans les modes graphiques. Les modes conseill‚s sont EGA, et VGA (les suivants sont … envisager). Les routines fonctionnent sur toutes les cartes, il suffit de poss‚der les drivers Microsoft appropri‚s. ********************************************************************************

Stocke la souris de num‚ro 'Number' dans le fichier 'nom_fich.MOU'. Les codes de retour possibles sont les suivants: 0 - si l'op‚ration s'est bien pass‚e. 1 - s'il y a eu une erreur de sauvegarde (accŠs disque...), consultez IORESULT. 2 - si 'Number' n'est pas valide: supŠrieur … 'Nb_Max_Mou'. 3 - si ce num‚ro n'est pas affect‚ … une souris.

Charge le fichier 'nom_fich.MOU' s'il existe. En cas d'erreur, cette fonction renvoie NIL. Si le chargement s'est effectu‚ sans problŠme, la fonction renvoiera un pointeur sur le fichier voulu.

Affecte le num‚ro 'Number' … la souris dont vous passez le pointeur 'Mou'. Les codes de retour sont les suivants: 0 - Aucune erreur n'est apparue. 1 - Si 'Mou' est … NIL. Vous ne pouvez pas affecter ce num‚ro. 2 - Si 'Number' n'est pas valide.

Auteur: Pr‚martin Patrick. Date: 17/07/1991. Langage: Turbo Pascal 4.0 Date: 09/09/1991. Langage: Turbo Pascal 6.0

But: Cette unit‚ contient diverses procedures et fonctions permettant de connaitre diverses choses au sujet des caracteristiques de l'ecran utilis‚: largeur, hauteur, coordonnees de la fenetre actuelle...

renvoie la longueur de la chaine

cherche la position du premier caractŠre diff‚rent de carac … partir de la gauche de la chaine.

Sauvegarde du tableau des scores.

Est TRUE si la chaine pass‚e est compos‚e uniquement d'espaces ou de lettres.

Indique si un num‚ro de fichier est utilisable.

donne la n-iŠme position de Carac … partir de la droite.

donne la premiŠre position de Carac dans Chaine par la droite.

position de Carac … partir du Debut-iŠme caractŠre de la chaine vers la droite.

donne la n-iŠme position de Carac … partir de la gauche.

Auteur: Pr‚martin Patrick. Date: 16/03/1991. Langage: Turbo Pascal 4.0 Date: 09/09/1991. Langage: Turbo Pascal 6.0

But: Cette unit‚ permet de connecter ou de d‚connecter l'interruption li‚e au Print Screen.

Renvoie la chaine d‚cod‚e.

mise … jour : 16 - 12 - 1990.

Cette fonction est vraie si l'utilisateur a r‚pondu Oui.

Auteur: Pr‚martin Patrick. Date: 01/03/1991.

Cette unit‚ contient des fonctions trŠs utiles pour acc‚der au clavier sans passer par l'unit‚ CRT.

Fct. 3 = Lire l'‚tat du curseur.

cr‚e le sous-r‚pertoire

teste l'‚xistence d'un fichier

echange les valeurs de A et de B.

Auteur: Patrick Pr‚martin. Date: 21/03/1993. Langage: Turbo Pascal 6.0 But: Permettre de simplifier la programmation de certaines taches r‚p‚titives dans les jeux r‚alis‚s en VGA.

Chargement du tableau de scores, ou initialisation de celui-ci.

Chargement d'une palette (fichier d'extension .PAL)

Fct. 6 = D‚filement vers le haut.

Voici les codes d'erreur retourn‚s par les fonctions de scrolling: (je vous recommande d'en tenir compte) 0 = Scrolling r‚ussi. 1 = X infŠrieur … 1. 2 = Y infŠrieur … 1. 3 = Larg infŠrieur … 1. 4 = Haut infŠrieur … 1. 5 = X + Larg-1 supŠrieur … la largeur de l'‚cran. 6 = Y + Haut-1 supŠrieur … la derniŠre ligne de l'‚cran. 7 = Mode vid‚o inconnu ou inadapt‚. 8 = Mode vid‚o pr‚vu mais pas encore trait‚.

Utilisation des paramŠtres: X = abscisse du coin haut gauche du cadre … scroller. Y = ordonn‚e du coin haut gauche du cadre … scroller. Larg = largeur du cadre … scroller. Haut = hauteur du cadre … scroller. Sens = sens du scrolling (voir les constantes Scr_*)

Cette UNIT regroupe diverses fonctions math‚matiques non pr‚sentes en Turbo Pascal 4.0 mais qui peuvent s'av‚rer int‚ressantes un jour ou l'autre.

Voici les fonctions accessibles: - s‚cante SEC - cos‚cante COSEC - cotangente COTAN - sinus hyperbolique SINH - cosinus hyperbolique COSH - tangente hyperbolique TANH - s‚cante hyperbolique SECH - cos‚cante hyperbolique COSECH - cotangente hyperbolique COTANH - sinus hyperbolique inverse ARCSINH - cosinus hyperbolique inverse ARCCOSH - tangente hyperbolique inverse ARCTANH - s‚cante hyperbolique inverse ARCSECH - cotangente hyperbolique inverse ARCCOTANH - tangente TAN Ainsi que les fonctions normales (du Turbo Pascal 4.0): - sinus: SIN (Turbo) - cosinus: COS (Turbo) - logarithme n‚p‚rien LN (Turbo) - exponentielle EXP (Turbo) - racine carr‚ SQRT (Turbo) - carr‚ SQR (Turbo)

Renvois dans X, Y et K les coordonn‚es de la souris, et l'‚tat des boutons cod‚s comme pour la fonction 'Mouse_K'.

Renvoie les coordonn‚es de la souris, ainsi que l'‚tat de ses boutons. Voyez leur codage pour la fonction 'Mouse_K'.

Sfct. 10h = Modifier un registre du CNA vid‚o.

Sfct. 9 = Lire les 16 registres de palette plus le registre de surbalayage.

Cette procedure renvoie la date courante.

renvoie le caractŠre en minuscule ou lui-meme

met la chaine en majuscules.

******************************************************************************** Fonction 10h = D‚finir le contenu des registres de palette et les attributs d'intensit‚ et de clignotement. ********************************************************************************

Cette proc‚dure renvoie l'heure systŠme.

Est vraie si le tampon clavier contient des caractŠres.

cache le curseur de la souris et met Mouse_Curs … FALSE

calcul de xˆn avec x r‚Šl et n entier

Permet le calibrage d'un joystick analogique.

Cette unite contient diverses procedures qui permettent d'‚changer les valeurs de deux variables pass‚es en paramŠtres.

Syntaxe: swap_[type des variables] (variable_1, variable_2);

[variable_1 et variable_2 sont de type pr‚cis‚ derriŠre "SWAP_"]

Auteur: Patrick Pr‚martin Date: 22/11/1992. 29/11/1992. 06/11/1992. 12/12/1992. Langage: Turbo Pascal 6.0 Date: 23/03/1995. 17/04/1995. Langage: Borland Pascal 7.0 But: Faire en sorte que les programmes de Olf Software tournent … la mˆme vitesse quelque soit la machine...

Compl‚mente la chaine par des espaces.

renvoie la longueur de la chaine

visualisation sur la derniere ligne

saisie d un entier compris entre INF et SUP

cr‚ation d'une fenˆtre ayant un cadre de couleur sur fond noir

cr‚ation de fenˆtre avec cadre de couleur forme/fond

cr‚ation d'une fenˆtre avec cadre (forme/fond) et fond de couleur

efface le bloc sp‚cifi‚ du tampon