Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Loading
Auteur Message
Chocolat



Autorisation : Membre
Nb de messages : 74
Inscrit le : Mar 24 Mai 2011, 19:08
Posté le : Mer 25 Mai 2011, 23:46   Citer 

Bonjour/bonsoir,

Je cherche un code permettant de crée une barre de chargement :
[code][
EffEcran
Horizontale 3
Horizontale 1
Ombre(1,3)
/code]

Mais j'aimerais afficher dedans en petit Loading... Avec les points qui bougent ( 1 point puis 2 et ensuite 3 et encore 1 ensuite 2 ....etc.)

Merci d'avance

----------------------
.
.
.
.
.
.
.
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 26 Mai 2011, 0:08   Citer 

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)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Jeu 26 Mai 2011, 18:32   Citer 

Si tu n'as pas envie d'utiliser les chaînes, tu as toujours cette méthode:


Code
Text(28,16,"MELANGE EN COURS
0->E
For(A,1,100
If E=0
Text(28,74,"      "
If E>0
Text(28,72+2E,".
E+1->E
If E=4
DelVar E
End



Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Jeu 26 Mai 2011, 18:42   Citer 

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
 Adresse email Haut de page Bas de page 
 
Chocolat



Autorisation : Membre
Nb de messages : 74
Inscrit le : Mar 24 Mai 2011, 19:08
Posté le : Jeu 26 Mai 2011, 21:43   Citer 

Merci a vous trois

----------------------
.
.
.
.
.
.
.
 Adresse email Haut de page Bas de page 
 
Programaths



Autorisation : Membre
Nb de messages : 178
Inscrit le : Sam 02 Avr 2011, 12:53
Posté le : Dim 03 Juil 2011, 18:16   Citer 

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 happy.gif

----------------------
"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 ...
"
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa