Aller au menu - Aller au contenu

Ecrire un texte défilant

Pour accéder à cette section
Connectez-vous !
connexion_rpx
Page 1 
Pseudo Commentaire
Page 1 
Hors ligne fr213 # Posté le 25/03/2011 à 17:46:46

Une petite amélioration : :)
Code : Autre
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

1->X
1->Y
0->I

While 1
Locate X,Y,"Zozor"

If X=21            'Si on arrive à un bout de l'écran
Then 0->X          'On remet X à 0 (Elle sera incrémentée à la fin de la boucle principale)
Y+1->Y             'On incrémente Y
IfEnd

If Y=8             'Meme chose pour Y, mais cette fois, seulement lorsqu'il est égal a 8
Then 1->Y          '(cas exceptionnel quand Y=7 est quand même incrémenté,
IfEnd              'sans quoi on s'arrêterait a Y=6)

While I<6          'Boucle qui sert à rien, pour ralentir le programme,
Locate 1,1,""      'autrement trop rapide
I+1->I
WhileEnd

X+1->X             'Incrémentation de X
0->I               'Remise à 0 de I
ClrText            'On efface tout, ...

WhileEnd           'Et on recommence ! :p


Voila, ce code balaye entièrement l'écran. Arrivé à la fin de la ligne, il passe à la suivante;
Pour accéder à cette section
Connectez-vous !
connexion_rpx