Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Chrono

Chrono

Auteur

Message

SpinyShip
Invité

Posté le : Dim 04 Déc 2011, 17:15

Code

:EffEcr
:EffVar A
:EffVar B
:EffVar C
:EffVar D
:EffVar E
:EffVar F
:EffVar I
:EffVar K
:While 1
:Output(4,6,"CHRONO")
:Output(5,12,A)
:Output(5,11,B)
:Output(5,10,":")
:Output(5,9,C)
:Output(5,8,D)
:Output(5,7,":")
:Output(5,6,E)
:Output(5,5,F)
:While I<21
:codeTouche->K
:If K=105:Then
:Output(8,1,"Pause ")
:Pause
:End
:Output(8,1," ")
:I+1->I
:End
:0->I
:A+1->A
:If A>9:Then
:0->A
:B+1->B
:If B>5:Then
:0->B
:C+1->C
:If C>9:Then
:0->C
:D+1->D
:If D>5:Then
:0->D
:E+1->E
:If E>9:Then
:0->E
:F+1->F
:If F>9:Then
:Goto 00
:End
:End
:End
:End
:End
:End
:End
Lbl 00

Pour mettre en pause, appuyez sur la touche "entrer".

sandro

Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58

Posté le : Dim 04 Déc 2011, 17:25

Si tu veut, tu peut l'optimiser :

Code

:EffEcr
:EffVar AEffVar BEffVar CEffVar DEffVar EEffVar FEffVar IEffVar KWhile 1
:Output(4,6,"CHRONO
:Output(5,12,A
:Output(5,11,B
:Output(5,10,":
:Output(5,9,C
:Output(5,8,D
:Output(5,7,":
:Output(5,6,E
:Output(5,5,F
:While I<21
:codeTouche->K
:If K=105:Then
:Output(8,1,"Pause
:Pause
:End
:Output(8,1," "
:I+1->I
:End
:EffVar IA+1->A
:If A>9:Then
:EffVar AB+1->B
:If B>5:Then
:EffVar BC+1->C
:If C>9:Then
:EffVar CD+1->D
:If D>5:Then
:EffVar DE+1->E
:If E>9:Then
:EffVar EF+1->F
:If F>9:Stop
:End
:End
:End
:End
:End
:End

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes

The K

Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07

Posté le : Dim 04 Déc 2011, 21:00

Code

If A>9
EffVar AB+1->B

Sans then si end, ça ne marche pas ?

----------------------
La la la ...

Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL

Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO

Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind

Mes nouveaux programmes de calcul formel : FCarré FPrime

Projet base de données : ici mais abandonné. Trop de travail ...

sandro

Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58

Posté le : Lun 05 Déc 2011, 18:59

en gros, c'est l'équivalent de

Code

If A>9
Then
EffVar A
B+1->B
End

Mais j'ai suprimé le then, le end ET le saut de ligne, dnc ça passe.

Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Lun 05 Déc 2011, 19:02

Les Then et End actuellement présents demeurent indispensables si les tests sont nécessairement imbriqués.
Sinon un alogorithme avec liste devrait marcher.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

sandro

Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58

Posté le : Lun 05 Déc 2011, 19:16

J'ai juste supprimé 1 End, donc ça ne devrait pas poser de problème (le problème est un If ???:EffVar AEnd

Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Lun 05 Déc 2011, 22:29

Peu utile, mais histoire de...
Pas testé

Code

:EffEcr
:EffListe L1
:{9,5,9,5,9,9->L2
:6->dim(L1
:While 1
:Output(4,6,"CHRONO
:For(W,1,3
:Output(5,15-3W,L1(W
:Output(5,14-3W,L1(W
:End
:Output(5,10,":
:Output(5,7,":
:EffVar IWhile I<21
:codeTouche->K
:If K=105:Then
:Output(8,1,"Pause
:Pause
:End
:Output(8,1," "
:I+1->I
:End
:EffVar IL1(1)+1->L1(1
:1->W
:While L1(W)>L2(W
:If L1(6)=10:Stop
:0->L1(W
:1+L1(W+1->L1(W+1
:W+1->W
:End
:End

Code

:EffEcr
:EffVar A
:While 1
:Output(4,6,"CHRONO
:Output(5,5,A>DMS // >DMS est dans le menu angle
:EffVar IWhile I<21
:codeTouche->K
:If K=105:Then
:Output(8,1,"Pause
:Pause
:End
:Output(8,1," "
:I+1->I
:End
:A+1/3600->A
:End

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mar 06 Déc 2011, 12:42

On peut pas faire encore mieux?

Code

:EffEcr
:EffListe L1
:EffVar A
:While 1
:Output(4,6,"CHRONO
:Output(5,5,A>DMS // >DMS est dans le menu angle
:EffVar IWhile I<21
:If codetouche=105
Pause "PAUSE"
:Output(8,1," "
:I+1->I
:End
:A+1/3600->A
:End

Certes, s'pas esthétique mais sa me semble pas mal pour raccourcir.

Sangohan38

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Mar 06 Déc 2011, 18:20

Puisque tu aimes les optimisations :

Code

:EffEcr
:For(A,0,E99,1/60^2 // E=[2nde]+[,]
:Output(4,6,"CHRONO
:Output(5,5,A>DMS // >DMS est dans le menu angle
:For(I,0,20
:If codetouche=105
:Pause "PAUSE"
:Output(8,1," "
:End
:End

snap

Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17

Posté le : Mar 06 Déc 2011, 19:31

Pas besoin du effvar A si tu as for(A,
xD

Code

:EffEcr
:EffListe L1
:For(A,0,E99,1/60^2 // E=[2nde]+[,]
:Output(4,6,"CHRONO
:Output(5,5,A>DMS // >DMS est dans le menu angle
:For(I,0,20
:If codetouche=105
:Pause "PAUSE
:Output(8,1," "
:End
:End

D'ailleurs pourquoi EffListe L1?

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes

Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Mar 06 Déc 2011, 20:10

J'ai juste oublié des étapes dans mes opérations de copier/coller et réécriture.
C'est corrigé.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

snap

Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17

Posté le : Mer 07 Déc 2011, 15:12

D'ailleur j'ai mis le programme sur ma calto et il ne veut pas faire le : output(5,5,A>DMS
Pour que sa marche il faudrai mettre Effecran après le for et mettre Disp "","","","",A>DMS

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes

Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Mer 07 Déc 2011, 19:26

Mince j'avais oublié que les fonctions du type ">FRAC" ne fonctionnent pas dans Output...

Désolé.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Chrono

Page générée en 9 requêtes

Flux RSS