Discussion :

[gogo_tpw]

Comment créer un texte défilant ?

[diden138]

En mode texte ou graphique??
Si c'est en mode texte
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
 
program defile;
uses crt;
var espace,s:string; x:integer;
begin
clrscr;
espace:=' ';
write('Entrer le texte que vous voulez defiler');
readln(s);
clrscr;
repeat
delay(900);///pour crée l'effet de defilement
delline;///pour supprimer à chaque foie la ligne courante et faire avancer ta chaine de caractére///
x:=wherex;
if x>=80 then  ///si on a atteint le nombre de colonne maximum on efface tout et on recomence la réolution en mode texte est de 80 colonne par 25 lignes si je ne me trompe pas ///
begin
clrscr;
gotoxy(0,0);
espace:=' ';
end;
write(espace+s);
espace:=espace+'';
 
until keypressed;
end.

Si c'est en mode graphique

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 defile;
 
Uses crt,Graph ;
Var VGA, VGAHi : integer ;espace,s:string;x,y:integer;
BEGIN
write('Entrez le Texte que vous voulez defiler');
readln(s);
espace:=' ';
InitGraph (VGA, VGAHi, 'c:\Tp7\bgi') ;
x:=0;y:=200;
repeat
delay(1000);
clearviewport;
setcolor(red);
outtextxy(x,y,espace+s);
x:=x+100;
espace:=espace+'  ';
 
x:=wherex;
if x>=640 then 
                   begin
                    clearviewport;
                    espace:=' ';
                    x:=0;
                   end;
until keypressed;
closegraph;
END .

Maintenant c'est à toi de jouer colorer le texte défilant ,faire avancer ta chaine vite ou lentement ....