Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 976
Réponses : 3
Type : discussion
Etat : réponses autorisées

Annimation

charlesjean le 28/02/2013 à 21:10
bonjour,
un ami a moi avait fait un prgm comme celui-ci:
Code
lbl 1
Disp "o
Disp " o
Disp "  o
Disp "   o
Disp "    o
Disp "     o
Disp "      o
Disp "       o
Disp "        o
Disp "         o
Disp "          o
Disp "           o
Disp "            o
Disp "             o
Disp "              o
Disp "               o
Disp "                o
Disp "               o
Disp "              o
Disp "             o
Disp "            o
Disp "           o
Disp "          o
Disp "         o
Disp "        o
Disp "       o
Disp "      o
Disp "     o
Disp "    o
Disp "   o
Disp "  o
Disp " o
Goto 1

ce qui m'a donné l'idée de ces deux codes:


celui-ci pour editer vos annimations:
Code
" "ü ( ) Str1
2ü ( ) H
If A
Then
Lbl 1
End
If H=1
Then
0ü ( ) H
sub(Str1,2,length(Str1)-1)ü ( ) Str1
End
If H=2
1ü ( ) H
Input "",Str2
If length(Str2)=16
Then
Str1+Str2ü ( ) Str1
Goto 1
End
If length(Str2)<16
Then
While length(Str2)<16
Str2+" "ü ( ) Str2
End
Str1+Str2ü ( ) Str1
Goto 1
End
Str1+sub(Str2,1,16)ü ( ) Str1
If 1
Goto 1

et celui-là pour les annimer:
Code
ClrHome
If fPart(length(Str1)/16)
Then
Output(1,1,"ERREUR LANCEZ   LE PPOGRAMME    EDIT"
Stop
End
Input "RALENTISSEURS:",R
Lbl 1
For(A,1,length(Str1),16)
Disp sub(Str1,A,16)
For(B,1,R)
69!
End
End
Goto 1

bonnes annimations!
thomas le 01/03/2013 à 11:16
A quoi correspondent les instructions (length) et (strl)?
linkakro le 01/03/2013 à 11:56
--- thomas

Le catalogue dans ma signature est là pour éviter ces questions.
length est dans le catalogue et signifie longueur.
Str1 est dans le menu var+7 et signifie Chaîne1.
Ce programme est incompatible avec la ti82 non-stat.

--- charlesjean

Il n'y a pas besoin de 69! pour ralentir. Il faut juste saisir un grand nombre R si on n'use pas de 69! et cela permet d'ajuster plus précisément et de façon plus stable selon le modèle de ti et la ram libre.

Il est possible de gérer un éditeur avec un unique Input et la commande manuelle 2nde+rappel+2nde+Rép. Ainsi il suffit d'un Input et d'une commande. (méthode de TXT de Maxence)

Placer un Goto1 dans une alternative et palier aux bugs en plaçant le Lbl1 dans un Then est horrible. Il est largement préférable d'utiliser uniquement des boucles. Mais je ne peux pas t'y forcer.
charlesjean le 01/03/2013 à 21:48
je reconnais que je l'ai refais à la vas vite car il a été supprimé une fois;et j'ai voulu y faire des testes (comme le lbl dans un then)!