Faire facilement des animation - Page 1

Il faut créer et sauvegarder les images avec l'écran graphique puis lancer le programme.

Prgm
PopUp {"Français","English"},langue
If langue=1 Then
Dialog
Title "VAnimation"
Text "Créez vos animations sur TI!"
Request "Nom du projet",nom
EndDlog
Else
Dialog
Title "VAnimate"
Text "Create your animations on TI!"
Request "Project name",nom
EndDlog
EndIf
"animate\"&nomname
Try
getType(#name)tt
Else
If langue=1
Text "Erreur: fichier système"
If langue=2
Text "Error: systeme file"
Stop
EndTry
If getType(#name)="NONE" Then
If langue=1
PopUp {"Créer","Quitter"},t
If langue=2
PopUp {"Create","Exit"},t
If t=2
Stop
{}#name
EndIf
getType(#name)tt
If tt"LIST" Then
If langue=1
Text "Erreur: fichier système"
If langue=2
Text "error: systemefile"
Stop
EndIf
Loop
If langue=1 Then
Dialog
Title "Fenêtre principale"
DropDown "Ouvrir fenêtre",{"Voir images","Ajouter image","Animation","Quitter"},t
EndDlog
Else
Dialog
Title "Main window"
DropDown "Open window",{"Look picture","Add picture","Animation"},t
EndDlog
EndIf
If t=1 Then
If langue=1 Then
Dialog
Title "Voir/Editer images"
DropDown "Image",#name,img
EndDlog
Else
Dialog
Title "Look/Edit pictures"
DropDown "Picture",#name,img
EndDlog
EndIf
name&string(img)picname
RplcPic #picname,0,0
Pause
EndIf
If t=2 Then
If langue=1
Request "Nom",nom
If langue=2
Request "Name",nom
RplcPic #nom
dim(#name)+1ttt
name&string(ttt)nom
StoPic #nom
nom#name[ttt]
EndIf
If t=3 Then
If langue=1 Then
Dialog
Title "Gestion du diaporama"
Request "Temps d'attente ",attente
Request "Nombre de cycles",cycles
EndDlog
Else
Dialog
Title "Animation admin"
Request "Wait time ",attente
Request "Number of cycles",cycles
EndDlog
EndIf

dim(name)ttt
right(name,ttt-8)tttt
For i,1,dim(#name)
ClrIO
Disp "Chargement image "&string(i)&"/"&string(dim(#name))
name&string(i)u
right(u,ttt-7)uu
CopyVar #u,#uu
Archive #uu
EndFor
CyclePic tttt,dim(#name),expr(attente),expr(cycles)
For i,1,dim(#name)
name&string(i)u
right(u,ttt-7)uu
Unarchiv #uu
DelVar #uu
EndFor
EndIf
If t=4 Then
DispHome
Stop
EndIf
EndLoop
E

Hem, envoie plutôt le fichier du prog en fichier joint, ici certains carac ne sortent pas.

J'y ai pensé, mais il fallait que je le mette sur un serveur. Voici le lien pour [URL=http://serveur1.archive-host.com/membres/up/396533741/Temp/animateanimate.txt] télécharger le fichier: [B]animateanimate.txt[/B][/URL] .
Une fois le téléchargement fini, il faut modifier l'extantion: remplacer .txt par .9xp (mon hébergeur m'interdit certaines extentions)

EDIT: C'est pas la peine, téléchargez ici

Tu peux utiliser la fonction en dessous des smileys (enfin je crois)

Voici pour TI-92+: Fichier joint : animate.animate.9xu
Voici pour TI-89: Fichier joint : animate.animate.89u