Discussion :

[ahmed nour meriem]

Salut,

svp je cherche une solution d'un programme qui permet de défiler le nom de l'utilisateur de la droite vers la gauche sur la ligne du milieu de l'écran.

Merci bien.

[darrylsite]

Un exemple de texte défilant est disponible ici :http://darrylsite.com/
et Bonne année 2011

[ahmed nour meriem]

Merci bien, c'est très intéressant mais c'est un peu compliqué.

[darrylsite]

merci bien c très intéressant mais c un peu compliqué

Je ne vois pas ce qui est compliqué dans ce code :

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
 
program trace;
uses crt;
 
procedure defile(nom : string);
 procedure gauche;
   var i:integer;
   aux:char;
 begin
  nom:=copy(nom,2,length(nom))+copy(nom,1,1);
 end;
 
begin
 repeat
 textcolor(2);
 gotoxy(10,10);
 write(copy(nom, 0, 50));
 delay(200);
 textcolor(0);
 gotoxy(25,25);
 write(copy(nom, 0, 50));
 gauche;
 until keypressed;
end;
 
begin
 clrscr;
 defile('.:: They love to be held, talked too but if you press the wrong button you''ll be disconnected!');
end.

Le trick, c'est de couper le debut de la chaine et de le mettre à l'autre bout. Puis d'afficher la nouvelle chaine.