PrgmCHR

Chronométre :

PrgmCHR:

Pas mal
Le design peut être amélioré, mais sinon sa va

Pas mal, malheureusement, la vitesse dépend des piles de ta calculatrice

Comme je suis de bonne humeur, je t'aide à l'optimiser, (même si je ne suis pas sûr que ce soit ce que tu veuilles faire  )

pour ça, tu as besoin de connaître quelques nouvelles fonctions ,à commencer par EffVar ([prgm]+[alpha]+[tan])
Elle permet de supprimer la variable qui le suit de la mémoire, dès qu'on appelle cette variable à nouveau, son contenu est à 0!
En plus on peut faire suivre la fonction directement d'une instruction, sans rajouter les deux points  

tu peux ainsi faire:

Code:

EffVar AEffVar B

J'ai aussi vu que tu utilises beaucoup de goto dans tes programmes, pas uniquement celui la
Dans la plupart des cas, tu peux les remplacer par une boucle While et Repeat, tu sembles déjà les connaître alors je ne vais pas expliquer plus  

code optimisé:

Code:


DelVar ADelVar BEffEcr
Output(1,6,"MINUTES
Output(2,6,"SECONDES
Fixe 0
Repeat K/=105
codeTouche->K
Output(1,1,B
Output(2,1,A
69!
69!
69!
A+.3703703704->A
If A=60
EffVar AB+1->B
If K=95
Pause
If K=85
DelVar ADelVar B
Output(1,1,"     //2 espaces
Output(2,1,"     //2espaces
End


J'espère ne pas trop avoir changé le code d'origine, il devrait aller un peu plus vite car il n'y a pas de Disp dans la boucle principale, les Disp sont gourmands en temps.
Si quelque-chose bug, c'est entièrement de ma faute, je ne l'ai pas encore testé !


J'ai rajouté la fonction Pause et remis le Reset(tu l'avais peut-être oublié avec le Lbl 0).

Si tu ne comprends pas quelque-chose, n'hésite pas à demander, tu peux aussi te référer à ce topic pour optimiser:
https://tout82.forumactif.org/t50-candide-ou-l-optimisation

Bienvenue sur le forum

En fait il avait déjà posté le code sur l'ancien fofo, et on l'avait aidé à l'optimiser
http://tout82.free.fr/forum/sujet.php?sujet=3825

Voici le code (de Linka):

Code:

Fixe 0
EffEcr
0
Repeat codeTouche=105
Text(0,0,Rép/60,"MINUTES",60partDéc(Rép/60),"SECONDES
Rép+1
For(W,0,15 //ajuster ce 15 à la valeur idéale
End 
End
Float

Trois "69!" à la suite, ce n'est pas très optimisé, je pense...