Comment créer un texte défilant ?
Comment créer un texte défilant ?
En mode texte ou graphique??
Si c'est en mode texte
Code:
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 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.
Maintenant c'est à toi de jouer colorer le texte défilant ,faire avancer ta chaine vite ou lentement ....
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 .
et vint le 20siècle et l'homme se mit à réflechir comme la machine auteur: diden138
Langage: Pascal,OCaml,Delphi,c/c++.
Langages web:Xhtml,Css,Php/Mysql,Javascript,Actionscript 2.0
Plate forme:Windows XP Pro SP2./Red Hat 9.0/SUSE 10.2
Config :Intel P4 3.2GHZ,2MO cach,512 RAM.
Outils:Tp7,objective caml,Delphi 6 perso, C++builder 6,Visual C++ Express edition sous win,code-block sous linux(Ubuntu) .
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager