Autorisation : Membre
Nb de messages : 85
Inscrit le : Dim 13 Déc 2015, 16:27
Posté le : Lun 14 Déc 2015, 8: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
---------------------- La programmation : l'avenir d'hier ...........
mes prgm pour ti82 : PrgmHEURE , PrgmCHRONOMÈTRE , PrgmQUITTER
Autorisation : Membre
Nb de messages : 30
Inscrit le : Ven 06 Nov 2015, 14:08
Posté le : Mer 16 Déc 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 :
Autorisation : Membre
Nb de messages : 856
Inscrit le : Mer 18 Juil 2012, 18:44
Posté le : Jeu 26 Jan 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