Poster un nouveau sujet Poster une réponse
Chrono
Auteur Message
SpinyShip
Invité
Posté le : Dim 04 Déc 2011, 17:15   Citer 


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".

  Haut de page Bas de page 
 
sandro



Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Dim 04 Déc 2011, 17:25   Citer 

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
 Adresse email Haut de page Bas de page 
 
The K



Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Dim 04 Déc 2011, 21:00   Citer 


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
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
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 ...
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
sandro



Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Lun 05 Déc 2011, 18:59   Citer 

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
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 05 Déc 2011, 19:02   Citer 

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
 Adresse email Haut de page Bas de page 
 
sandro



Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Lun 05 Déc 2011, 19:16   Citer 

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
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 05 Déc 2011, 22:29   Citer 

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
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 06 Déc 2011, 12:42   Citer 

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

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 06 Déc 2011, 18:20   Citer 

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



----------------------
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
 Adresse email Haut de page Bas de page 
 
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mar 06 Déc 2011, 19:31   Citer 

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 happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 06 Déc 2011, 20:10   Citer 

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
 Adresse email Haut de page Bas de page 
 
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mer 07 Déc 2011, 15:12   Citer 

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 happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 07 Déc 2011, 19:26   Citer 

Mince j'avais oublié que les fonctions du type ">FRAC" ne fonctionnent pas dans Output... minied.gif 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
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink