Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
PrgmChronomètre
Ti82-Lexilus le 14/12/2015 à 08:13
Bonjour à tous
comme prevu mon programme Chronomètre
si vous avez des amélioration à apporter n'hesitez pas.
bientot une version combiné de mes programmes
Edit : Combiné mes 2 programmes Heure et Chronomètre est dur a cause du menu pause du chrono mais j'ai une idée....
Code
PrgmCHRONOMETRE
EffEcr
0->J
0->H
0->M
0->S
EffEcr
Output (1,5,"CHRONOMÈTRE
Pause
While 1
codetouch (->K
Output(3,4,J
Output(3,6,H
Output(3,8,M
Output(3,10,S
S+1->S
If S=60
Then
0->S
M+1->M
End
If M=60
Then
0->M
H+1->H
End
If H=24
Then
0->H
J+1->J
End
For(I,1,300
End
Output (3,5,"
Output(3,7,"
Output(3,9,"
Output(3,11," //Une espace pour chaque ligne
If K=105
Pause
If K=102
Then
0->H
0->M
0->S
Pause
End
If K= 45
Then
EffEcr
Stop
End
End
End
"
touche :
enter pour activer et mettre en pause
0 pour .... mettre à 0
annul pour quitter
@+
petite indication...
Code
For (I,1,300 // le 300 est a regler au préalable en fonction de votre ti sachant que c'est egale à 1s
Ruadh le 16/12/2015 à 18:02
Bonjour ! Voici une optimisation :
Code
EffVar JEffVar HEffVar MEffVar SEffEcr
Output(1,5,"CHRONOMETRE
Repeat K=45
codeTouche->K
If K=102
EffVar JEffVar HEffVar MEffVar S
Output(3,4,J
Output(3,6,H
Output(3,8,M
Output(3,10,S
If K=105 ou K=102
Pause
S+1->S
If S=60
EffVar SM+1->M
If M=60
EffVar MH+1->H
If H=24
EffVar HJ+1->J
For(I,1,300
End
End
EffEcr
Je ne sais pas si c'est voulu, mais les nombres apparaitront collés ici :
Code
Output(3,4,J
Output(3,6,H
Output(3,8,M
Output(3,10,S
Ti82-Lexilus le 20/12/2015 à 23:56
Ruadh a écrit :
Je ne sais pas si c'est voulu, mais les nombres apparaitront collés ici :
Code
Output(3,4,J
Output(3,6,H
Output(3,8,M
Output(3,10,S
Augmente le 2eme chiffre pour que les chiffres soient séparé d'un espace au pire .......
Anonyman971 le 20/05/2016 à 01:43
le chrono est accéléré. Je ne sais pas comment le ralentir. HELP!!! J'ai utilisé l'optimisation de ruhad, pas le programme du premier messagePaulo1026 le 20/05/2016 à 18:54
Il faut que tu changeq le 300 en fonction de ta calculette.
Anonyman971 le 20/05/2016 à 22:06
Sur ma ti82 advanced, j'ai remplacé par
Paulo1026 le 21/05/2016 à 13:24
oui mais il faut l'adapter pour que le chrono marche (en fait tu l'adapte avec un vrai chrono de base et après tu pourras l'utiliser)Ti82-Lexilus le 24/05/2016 à 22:15
Oui en effet le 300 est réglée pour ma ti car les piles sont pas neuves et j'ai un nombre de programmes alucinants donc le ram est lente.....aliaandy55 le 23/01/2017 à 12:40
salut !
j'ai reproduit le codage a la lettre (sur le remake et non le code d'origine en premier post.
Ca fonctionne, sauf que les variable lors que les secondes minutes heures reviennent a 0, Les variables ne s'effacent pas.
Par exemple, à 00J 00H 00M 59S, lorsque la premiere minute est atteinte, les secondes défilent comme tel:
09S, 19S, 29S,... jusqu'a 99S et a partir de là passe a 10S et recontinue normalement..
je ne sait pas si cela fait pareil aux minutes et heures.. Car je n'ai pas que ca a faire d'attendre une heure pour le voir mdr ^^
Un code pour corriger ce bug ? Est-ce que ca vous le fait aussi ? (sur TI-82 stat)m@thieu41 le 26/01/2017 à 14:20
Effectivement, il y a u petit problème.
Je propose le réajustement suivant (non optimisé):
Code
EffVar JEffVar HEffVar MEffVar SEffEcr
Output(1,5,"CHRONOMETRE
Output(3,4,"00J00H00M00S
Repeat K=45
codeTouche->K
If K=102
EffVar JEffVar HEffVar MEffVar S
If non(J
Output(3,4,0
Output(3,5-(J>9),J
If non(H
Output(3,7,0
Output(3,8-(H>9),H
If non(M
Output(3,10,0
Output(3,11-(M>9),M
If non(S
Output(3,13,0
Output(3,14-(S>9),S
If K=105 ou K=102
Pause
S+1->S
If S=60
EffVar SM+1->M
If M=60
EffVar MH+1->H
If H=24
EffVar HJ+1->J
For(I,1,300
End
End
EffEcr
Ti82-Lexilus le 05/02/2017 à 00:44
J'avais aucun bug sur ma ti ...
Tres bonne ajustement de m@thieu41 Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
