Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Bandeau de texte.
ld le 17/02/2011 à 08:55
Voici un tout petit programme original qui permet tout
simplement de faire défiler un bandeau contenant du texte.
Je ne sais pas si quelqu'un l'a déjà poster, dans le doute...
Prgm : Bandeau, par Davin. 51 octéts.
Code
:While 1
:For(A,1,N
:Output(1,1,sous-Chaîne("Votre texte",A,16
:For(B,0,90:End
:End:End
Pour connaître la valeur a mettre à la place de N:
(Nombre de caractére du texte)-15.
Si le nombre de caractére du texte est paire et si il
est supérieur à 16 !
Ex: "ABCDEFGHIJKLMNOPQRSTUVWXYZ"=26
On met 26-15=11 à la place de N.
Malheuresement je n'ais pas trouver la formule pour un
nombre impaire, je vous laisse chercher.
archimeti le 17/02/2011 à 11:48
stylé ton prgrm^^linkakro le 17/02/2011 à 18:38
Ce type de programme a en effet été maintes fois abordé.
Je ne vois pas le problème des impairs : A s'incrémente toujours de 1 et ça fonctionne pour 25 lettres.ld le 18/02/2011 à 10:56
Ok ! Tank You !
patate007 le 18/02/2011 à 11:10
C'est sympa comme programme
Mais pourquoi ne pas enregistrer la chaîne dans une variable et utiliser la fonction longueur() pour éviter à l'utilisateur de calculer ? Je sais c'est pas bien dur de soustraire 11 mais ça fais plus propre
Persalteas le 18/02/2011 à 14:01
c'est plus lourd, surtout.
mais c'est vrai que tu peux. le mieux, c'est même de faire un input au début du programme, comme ça le texte change à chaque fois selon ton envie, pas besoin d'éditer le code source.
donc:
Code
:input Chaine1
:longueur(Chaine1->L
:While 1
:For(A,1,L
:Output(1,1,sous-Chaîne(Chaine1,A,16
:For(B,0,90:End
:End:End
donc voilà...
et puisque tu as oublié de préciser de ne pas hésiter si on avait des idées d'amélioration, et bien j'impose mon idée d'amélioration:
pourquoi ne pas essayer en mode graphique ?
pourquoi ne pas essayer à la verticale ?
pourquoi ne pas essayer en graphique, à la verticale ? (celui là, je l'ai posté sur le forum, mais j'ai mis du temps à le faire...)
ld le 18/02/2011 à 16:48
Ah ! Çà c'est cool ! Bon bin... encore merci.
Akmdad le 19/02/2011 à 01:15
ben en tout cas bonne chance!!
et merci!!Persalteas le 19/02/2011 à 10:36
tiens, césar est mort, le lien de ta photo d'avatar n'existe plus?ld le 22/02/2011 à 15:58
Bouse ! J'ai changer d'avatar pour un encore plus cocasse, mais tu as raison le lien semble mort.
Mais césar ne vieillit pas, il mûrit !
Et ses cheveux ne blanchisse pas, il s'illumine !
Akmdad le 22/02/2011 à 21:49
mouais, je l'ai pas trouvé super ce film, je prefere largement mission cléopatre Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
