Discussion :

[barbaritta]

salut , merci d'avance de bien vouloir m'aider si vous avez le temps

Trouver une solution en langage pascal sachant que j utilise la version Tpw:
Ecrire un programme qui défile le nom et le prenom de l'utilisateur de la droite vers la gauche sur la ligne du milieu de l'écran

[Alcatîz]

Bonjour et bienvenue !

Le texte se trouve-t-il dans un contrôle ou bien est-il dessiné directement sur la fenêtre du programme ?

[dot-_-net]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
name:=nom+prenom;
for i:=1 to 500 do
begin
gotoxy(i,400,name);
delay(20);
clrscr;
end;

[krachik]

Bonjour tu es sûr que ce que tu ecris va faire ce que tu veux la ?
gotoxy() prend en parametre que 2 parametre gotoxy(PositionX,PositionY),donc ce qui veut dire qu'on est en mode console la taille (80x25) ne le supportera pas,a moins que tu veux faire ton truc en mode graphique
et je ne crois pas que avec 400 soit au milieu de la fenetre........
Aussi ça serait sympa de mettre un petit mot avec ton code et utiliser les balises codes pour les mettre en forme.
Alors mode console ou mode graphique ?
Pour simuler le deplacement ....................?
@+

[dot-_-net]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
name:=nom+prenom;
for i:=1 to 500 do
begin
gotoxy(i,400,name);
delay(20);
clrscr;
end;

Désole j’ai confondu le gotoxy avec le outtextxy

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
name:=nom+prenom;
for i:=1 to 25 do
begin
gotoxy(i,40);
write(name);
delay(20);
clrscr;
end;

[darrylsite]

Désole j’ai confondu le gotoxy avec le outtextxy

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
name:=nom+prenom;
for i:=1 to 25 do
begin
gotoxy(i,40);
write(name);
delay(20);
clrscr;
end;

Supposons que tu a plusieurs trucl' ecran, comment vas tu faire pour deplacer que le texte que tu veux sur l' ecran ? Là est la vrai question.
La technique est simple. Pour effacer, tu dessine le meme texte avec la couleur de fond avant de le deplacer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
name:=nom+prenom;
x:=5;
y:=2;
dx:=2;
dy:=1;
ymax:=15;
ymin:=0;
xmax:=30;
xmin:=0;
repeat
textcolor(2);
gotoxy(x,y);
write(name);
delay(100);
{si le fond est en noir}
gotoxy(x,y);
textcolor(0);
write(name);
x:=x+dx;
y:=y+dy;
if (y>ymax) or (y<ymin) then
 dy:=-dy;
if (x>xmax) or (x<xmin) then
 dx:=-dx;
wite(name);
until keypressed;
clrscr;
...

J' ai un peu abusé abusé avec le code, mais j' ai pensé que se sera util pour toi de faire balancer le texte sur l' ecran.