| BANNER (162 octets) |
| Auteur |
Message |
tarken
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 15 Sep 2009, 15:04
|
Posté le : Dim 26 Sep 2010, 16:41
|
|
 |
Voici un petit programme qui permet de faire défiler du texte a l'écran.
J'avais pensé a le réutiliser dans des programmes plus complexes mais là j'ai trop la flemme.
BANNER :
| Code | :EffEcr
:Input"?",Chaine1
:Chaine1+"_______________"->Chaine1 (15 espaces)
:longueur(Chaine1)->A
:While1
:EffEcr
:For(B,1,A-1
:IfB<=16:17-B->C
:IfB>16:1->C
:IfB<=16:1->D
:IfB>16:abs(14-B)->D
:IfB<=16:B->E
:IfB>16:16->E
:Output(4,C,sous-Chaine(Chaine1,D,E
:69!
:69!
:End
:End |
|
 |
  |
| |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Lun 27 Sep 2010, 21:01
|
|
|
et voilà en graphique:
condition: il faut que le texte soit plus long qu'une largeur d'écran, si vous mettez un seul mot ça marche pas.
| Code |
:Input Str1
:For(X,94,0,-4
:Text(28,X,Str1
:For(B,1,50):End
:End
:0->Z
:Lbl A
:For(A,1,length(Str1
:Text(28,0,sub(Str1,A,length(Str1)-A+1
:If A=iPart(length(Str1)/2) and Z=1:Then
:0->Z
:A+2->A
:sub(Str1,A,length(Str1)-A+1)->Str1
:length(Str1)->A
:End
:If A=length(Str1)-38:Then
:Str1+" "+Str1->Str1
:1->Z
:End
:End
:Goto A
|
|
| |
|
| |
tarken
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 15 Sep 2009, 15:04
|
Posté le : Lun 27 Sep 2010, 21:48
|
|
|
Si je peut me permettre, mon programme marche avec n'importe quelle chaine, qu'elle soit plus longue ou plus courte que l'écran. Il suffit de rajouter quelques conditions et ca prend a peine plus de place.
|
| |
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Lun 27 Sep 2010, 21:54
|
|
|
je n'ai pas critiqué ton programme une demi-seconde.
c'est juste une autre possibilité, c'est tout.
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
tarken
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 15 Sep 2009, 15:04
|
Posté le : Lun 27 Sep 2010, 22:08
|
|
|
OK . quoique je reconnais que ce programme a un intérêt assez limité.
Mais en ce moment je suis plus sur des petits utilitaires que sur des plus gros programmes.
|
| |
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Mer 29 Sep 2010, 15:56
|
|
|
tu as raison c'est dix fois mieux je trouve.
|
| |
|
| |
