IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Téléchargé 6 fois
Vote des utilisateurs
1 
0 
Détails
Licence : Non renseignée
Mise en ligne le 10 décembre 2010
Plate-forme : Windows
Langue : Français
Référencé dans
Navigation

Unité pour tp7

Une unité bien pratique qui contient les fonctions

function StringToInt(s : string) : integer;
function IntToString(i : integer) : string;
procedure fenetre(X1 : integer; Y1 : integer; X2 : integer; Y2 : integer); (fenetre a double bordure)
procedure dec(i : integer; a : integer); decrementer
procedure centrer(s : string; y : integer); centre une chaine pour un y donné
procedure instcolorln(i :string;e : byte;b : byte); couleur sur une ligne e=nouvelle couleur et b = ancienne couleur
procedure instcolor(i :string;e : byte;b:byte); la même chose sans aller à la ligne
procedure pleinecran;
function on_click_button(x1,y1,x2,y2:integer):boolean; a faire marcher ^^
procedure initmouse;


j'ai crée ces quelques fonctions afin de facilité ma vie et celle de certains programmeurs.
Si vous avez des suggestion n'hésitez pas.
compilable sous tp7 dos reel et windows


Titeeee

Avatar de darrylsite
Rédacteur https://www.developpez.com
Le 04/12/2010 à 12:07
Les fonctions sont elles pour le mode console ou le mode graphique?
Avatar de EpiTouille
Membre éprouvé https://www.developpez.com
Le 05/12/2010 à 18:40
Pour le mode console, elles ont été programmer à la base sur mon NT4.00 puis porter sur Xp familiale sans aucun problèmre
Avatar de EpiTouille
Membre éprouvé https://www.developpez.com
Le 06/12/2010 à 12:11

Si vous avez un problème de compilation veuillez a mettre le même nom entre le nom du fichier .pas et le nom de l'unité; à la ligne unit.
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.