EffEcr
0->F
0->E
0->D
0->C
0->B
0->A
Lbl 9
Output(3,5,"CHRONO")
Output(4,4,F)
Output(4,5,E)
Output(4,6,":")
Output(4,7,D)
Output(4,8,C)
Output(4,9,":")
Output(4,10,B)
Output(4,11,A)
0->I
While I<56
I+1->I
End
A+1->A
If A=10
Then
B+1->B
0->A
End
If B=6
Then
C+1->C
0->B
End
If C=10
Then
D+1->D
0->C
End
If D=10
Then
E+1->E
0->D
End
If E=10
Then
F+1->F
0->E
End
Goto 9
Je vous le laisse et vous me dites ce que vous en pensez par contre dites le mois si on peut l'améliorer! merci d'avance
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mar 18 Oct 2011, 22:17
Pas mal, par contre, il peut être simplifié de la manière suivante :
Code
EffEcr
Output(4,7,"00:00
0 -> T
While getkey=45 //touche annul
T+1 -> T
For(A,1,N //remplacer N par une valeur adaptée
End
Output(4,11,T-60ent(T/60
Output(4,8,ent(T/60
End
Sandro
PS : il serrait peut-être aussi intéréssant de pouvoir l'arreter sans avoir à appuyer sur On
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
