[TurboPascal] [retour chariot]

Question

Bonjour! en ce moment je travail sur un petit projet en turbo pascal concernant les fichiers! le travail, c'est de créer un fichier d'etudiant qui permet d'enregistrer tous les informatons concernant chaque étudiant!
alors j'aimerai savoir si il exite une fonction ou une procedure de retour chariot dans le pascal comme en langage c! sinon existe t'il une fonction similaire qui permette de gerer le retour a une ligne!
merci d'avance.

sebsauvage · Answer

writeln(), non ?

charles · Answer

ce que je veux,c'est que tantque j'ai pas saisie un nombre entre 1 et trois le curseur reste sur place!
voila ce que j'ai utilisé :
reapet

readln(codechambre.etage);
if ioresult=0 then ok:=true else ok:=false;
if ok and(codechambre.etage)<1 or (codechambre.etage>3))
then ok:=false;
if not ok then
gotoxy(33,19);
until ok;

mais a la compilation quan le curseur se positionne au niveau du readln quand j'apui sur la touche entrer le curseur va ala ligne sans se soucier du gotoxy(33,19);
alors que je veux qu'il va ala ligne19 colonne 33
oubien qu'il ne bouge pas.
comment puije gerer cela
merci

sebsauvage · Answer

Je n'ai pas assez pratiqué TurboPascal pour me rappeller s'il existe une unité pour gérer le mode texte (curseur, couleurs...).

Quelqu'un a une idée ?
Les séquences d'échappement ANSI peut-être ?

charles · Answer

c'est quoi la sequence d'echapement Ansi?

sebsauvage · Answer

ça servait beaucoup en MS-Dos avant pour changer les couleurs et déplacer le curseur.Il suffisait d'envoyer une suite de caractères particulière, et on déplaçait le curseur, etc.

sebsauvage · Answer

Je ne sais pas si c'est encore présent dans les nouvelles versions de Windows, mais on peut essayer:

Un petit coup de Google:
http://www.bluesock.org/~willg/dev/ansi.html
http://www.isthe.com/chongo/tech/comp/ansi_escapes.html
http://www.delmar.edu/Courses/CIS415L/ANSIsys.htm
...

sam3000 · Answer

salut,
tu devrais faire ça:

repeat
  gotoxy(33,19);
  read(codechambre.etage);
  if ioresult=0 then ok:=true else ok:=false;
  if ok and(codechambre.etage)<1 or (codechambre.etage>3))
  then ok:=false;
until ok;

pour la gestion de l'ecran, couleurs, curseurs... dans turbo pascal, il y a l'unité crt.tpu, tu doit l'ajouter au début de ton programme:

uses crt;

les fonctions disponibles sont plusieurs, dont:

clrscr;  {efface l'ecran}
gotoxy(x,y);  {positionner le curseur}
x:=wherex;  {déterminer la postion du curseur x,y}
y:=wherey;
textcolor(c); {fixer une couleur pour le texte}
textbackground(c); {fixer une couleur pour l'arriere plan}
textattr:=a;  {fixer les attributs de texte couleurs, clignotement,...}
textmode(m);  {mode d'affichage, ecran 80x50...}

J'espère que ça aidera!

sebsauvage · Answer

Ah merci sam3000, je ne me rappelais plus si ça existait sous TP.

[TurboPascal] [retour chariot]

8 réponses

Discussions similaires

Newsletters