Votre mission, si vous l'acceptez : écrire un texte défilant de gauche à droite, puis, lorsqu'il touche le bord droit de l'écran, défilant dans l'autre sens, et dès qu'il touche le bord gauche de l'écran, recommencer l'opération.
Quels outils vous faut-il ?
- Locate, pour l'affichage du texte
- des boucles
Voici une solution, parmi tant d'autres :
Code : Autre - Une solution pour le problème du texte défilant1
2
3
4
5
6
7
8
9
10
11
12
| -1
0->A
While 1
2((Ans=-1)−0.5)
A+Ans->A
For A->A To 11(Ans=1)+1 Step Ans
Locate A−(A>1),4," "
Locate A,4,"VIVE ZOZOR"
For 1->X To 333
Next
Next
WhileEnd |