[TurboPascal] [retour chariot]

writeln(), non ?

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

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 ?

c'est quoi la sequence d'echapement Ansi?

ç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.

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
...

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!

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