[83] ecran -> créer un générique

voilà pour les programmateurs, un algorithme qu'on peut réutiliser dans un prog:

ça permet de faire défiler du texte à l'écran.
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



J'ai un problème avec ton programme, voici ce que j'obtiens:

[Vous devez être inscrit et connecté pour voir cette image]

Sinon bon anniversaire !

j'ai dit écrire une phrase plus longue que l'écran.
(+ de 23 caractères).

merci pour l'anniv.^^

Programme ajouté au site:

Lien: [Vous devez être inscrit et connecté pour voir ce lien]

Image: [Vous devez être inscrit et connecté pour voir ce lien]

Téléchargement:
83p: [Vous devez être inscrit et connecté pour voir ce lien]
8xp: [Vous devez être inscrit et connecté pour voir ce lien]

Au pire alexis tu mets

ESPACE Ti avec beaucoup d'espace genre une quinzaine