Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 26 Mai 2011, 0:08
Le plus simple serait de recopier tous les programmes qui s'en servent ou y sont dédiés.
Mon idée :
Code
0->W
Text(30,30,"LOADING
// début d'une boucle
...
If not(int(W/4:Texte(30,86," " //12 espaces
Text(30,86,sub("... ",1,1+int(W/4)
W+1->W
...
// fin de la boucle
Il reste à temporiser et sûrement d'autres détails. Notez que je me suis simplifié du boulot grâce aux chaînes (donc incompatible avec la 82simple)
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Jeu 26 Mai 2011, 18:42
Sinon
Code
:GraphOff \
:FonctOff \
:axeNaff ! prépare l'écran graphique
:QuadNaff /
:Effdessin /
:Text(30,35,"LOADING //affiche "LOADING" en noir sur blanc
:For(X,23,73 //comteur de l'abscisse du changement de couleur
:For(Y,29,37 //compteur de l'ordonnée du changement de couleur
:Pxl-Change(Y,X //change de couleur (fond devient noir,texte blanc
:End
:For(A,1,20 \ fait ralentir le chargement (remplacer 20 par une valeur
:End /permétant d'obtenir une vitesse adaptée
:End
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Dim 03 Juil 2011, 18:16
J'en ai un autre,il est depuis longtemp sur ma calto je ne sais pas qui l'a fais mais je le poste :p ( et j'ai un peu optimisé^^)
Code
0 -> Xmin
0 -> Ymin
94 -> Xmax
62 -> Ymax
AxesOff
FnOff
Text(19,26,"Chargement...
Horizontal 31
Horizontal 33
Pt-On(0,32
Pt-On(94,32
For(A,0,94,1 //: le "1" corespond a la vitesse du chargement.
A/94*100 -> B //: Il n'y a que 94 pixel et non 100
Int((B) -> B //: Pour "tronquer" Z
Text(37,35,B,"/100
Ligne(0,32,0+A,32
End
Voila
---------------------- "Des millions de gens ont vu tomber une pomme, Newton est le seul a s'être demandé pourquoi ."
"L'urgent est fait, l'impossible est en cours.
un probléme a toujours une solution, la solution est de trouver le probléme, pour les miracles, prévoir un délai ...
"