Forum

Catégorie : Programmes
Forum : Aide à la programmation
Vues : 623
Réponses : 5
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Loading

Chocolat le 25/05/2011 à 23:46
Bonjour/bonsoir,

Je cherche un code permettant de crée une barre de chargement :
Code

EffEcran
Horizontale 3
Horizontale 1
Ombre(1,3)


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
linkakro le 26/05/2011 à 00: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)
Sangohan38 le 26/05/2011 à 18:32
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
sandro le 26/05/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
Chocolat le 26/05/2011 à 21:43
Merci a vous trois
Programaths le 03/07/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 happy.gif
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.