Poster un nouveau sujet Poster une réponse
(Jeu) ENTER (Jeu)
Auteur Message
S.L



Autorisation : Membre
Nb de messages : 101
Inscrit le : Jeu 02 Jui 2011, 15:17
Posté le : Lun 09 Juil 2012, 10:14   Citer 

Voici un jeu où il faut appuyer le plus de fois sur enter/entrer dans un temps limité.

Nom: ENTER
Taille: 263 octets
Auteur: S.L

-> : flèche sto
<= : signe inférieur ou égal
TI Stats.fr (fonctions en Français)

Code
PROGRAM:ENTER
:EffEcr
:Output(4,4,"COMMENCER
:Pause
:0->C
:10->D
:EffEcr
:While 1
:Output(2,2,"APPUYEZ
:Output(3,2,"SUR ENTER!
:Output(4,2,C
:codeTouche->K
:If K=105
:C+1->C
:If K=45:Then:EffEcr:Stop:End
:If D=0 et C>50:Then:EffEcr
:Disp "BRAVO TU","ES UN VRAI GEEK!","SCORE:",C
:Pause
:Stop
:End
:If D=0 et C<=50:Then:EffEcr
:Disp "NEWBIE... SCORE:",C
:Pause
:Stop
:End
:Output(7,2,D
:Output(7,7,"S
:D-0.1->D
:End



Bon jeu à tous! cupsmiley.gif

----------------------
L'homme est né pour programmer.
Émulateur de TI en ligne! Chat de Tout82!
Mes jeux: Bouge!;WallJump;Mouche;Enter;UPMario;Mémoriz;Copter;Pong2P;Pokémon;MineCraft
Mes Prog: XCodeX;IMC;Matrix;Noël

SL-TIProg :site en cours de création.
 Adresse email Haut de page Bas de page 
 
jln78
Invité
Posté le : Lun 16 Juil 2012, 16:00   Citer 

je ne comprends pas pourquoi le compte a rebours ne marche pas ...

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 16 Juil 2012, 20:02   Citer 

Je ne sais pas bien ce qui peut être faux (tant dans le code que dans le recopiage), je trouve plus simple de l'optimiser.

Code
EffEcr
Output(4,4,"COMMENCER
Pause
0->C
10->D
EffEcr
Output(2,2,"APPUYEZ
Output(3,2,"SUR ENTER!
For(D,1,100
Output(4,2,C
codeTouche->K
If K=105
C+1->C
Output(7,2,D/10
Output(7,7,"S

If K=45:Then:EffEcr:Stop:End  // facultatif, c'est pour quitter

For(B,1,10  // modifiez le 10 jusqu'à ce que le chrono s'écoule bien en 10s
End

End
EffEcr
If C>50:Then
Disp "BRAVO TU","ES UN VRAI GEEK!","SCORE:
Pause C
End
If C<=50:Then
Disp "NEWBIE... SCORE:"
Pause C
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 
 
Google_AdSense



Publicité    



 
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mar 17 Juil 2012, 17:44   Citer 

On peut encore facilement optimiser :


Code
EffEcr
Output(4,4,"COMMENCER
Pause
EffVar C10->D
EffEcr
Output(2,2,"APPUYEZ
Output(3,2,"SUR ENTER!
For(D,1,100
Output(4,2,C
C+(codeTouche=105 -> C
Output(7,2,D/10
Output(7,7,"S

If K=45:Then:EffEcr:Stop:End  // facultatif, c'est pour quitter

For(B,1,10  // modifiez le 10 jusqu'à ce que le chrono s'écoule bien en 10s
End

End
EffEcr
If C>50:Disp "BRAVO TU","ES UN VRAI GEEK!","SCORE:
If C<=50:Disp "NEWBIE... SCORE:
Pause C



----------------------
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 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mer 25 Juil 2012, 11:02   Citer 


Code
EffEcr
Output(4,4,"COMMENCER
Pause
EffVar C10->D
Output(3,5,"APPUYEZ
Output(4,3,"SUR ENTRER !
For(D,1,100
Output(6,2,C
C+(codeTouche=105 -> C
Output(8,2,D/10
Output(8,7,"S

If K=45:Then:EffEcr:Stop:End  // facultatif, c'est pour quitter

For(B,1,10  // modifiez le 10 jusqu'à ce que le chrono s'écoule bien en 10s
End

End
EffEcr
If C>50:Disp "BRAVO TU","ES UN VRAI GEEK!","SCORE: ",C
If C<=50:Disp "NEWBIE... SCORE: ",C



----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 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 25 Juil 2012, 13:56   Citer 

Concernant la dernière modification, ce n'est pas intéressant de placer un C dans chaque disp (8 octets).
Il est plus intéressant de placer un C à la fin (2octets), sans même de commande Pause ni Disp. (qui donnerait 3 octets)
Cela supprimme au passage l'horible "Fait"

Le 10->D est devenu innutile depuis que j'ai utilisé une boucle For.
C'est un oubli.
Je place donc le EffVar C, proposé par la suite, devant la commande EffEcr pour garder une optimisation mais en restant lisible.

Code
EffVar CEffEcr
Output(4,4,"COMMENCER
Pause
Output(3,5,"APPUYEZ
Output(4,3,"SUR ENTRER !
For(D,1,100
Output(6,2,C
C+(codeTouche=105 -> C
Output(8,2,D/10
Output(8,7,"S

If K=45:Then:EffEcr:Stop:End  // facultatif, c'est pour quitter

For(B,1,10  // modifiez le 10 jusqu'à ce que le chrono s'écoule bien en 10sec
End

End
EffEcr
If C>50:Disp "BRAVO TU","ES UN VRAI GEEK!","SCORE:
If C<=50:Disp "NEWBIE... SCORE:
C

Comme la boucle For ne contient que des instructions d'affichage, la variable Rép n'est jamais modifiée par autre chose que la ligne du codeTouche.
Je remplace donc C par Rép.
J'ai cependant un doute.

Code
EffEcr
Output(4,4,"COMMENCER
Pause
Output(3,5,"APPUYEZ
Output(4,3,"SUR ENTRER !
0
For(D,1,100
Output(6,2,Rép
Rép+(codeTouche=105
Output(8,2,D/10
Output(8,7,"S

If K=45:Then:EffEcr:Stop:End  // facultatif, c'est pour quitter

For(B,1,10  // modifiez le 10 jusqu'à ce que le chrono s'écoule bien en 10sec
End

End
EffEcr
If Rép>50:Disp "BRAVO TU","ES UN VRAI GEEK!","SCORE:
If Rép<=50:Disp "NEWBIE... SCORE:
Rép



----------------------
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 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mer 25 Juil 2012, 14:27   Citer 

Pas bête le coups du C.
Euh... Bin oui normalement çà marche, à première vu je ne vois pas d'erreur.
J'essais...

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
NINJACODEUR-3000



Autorisation : Membre
Nb de messages : 35
Inscrit le : Jeu 15 Jui 2023, 8:21
Posté le : Jeu 15 Jui 2023, 14:41   Citer 

le programme et très bien mais lorsque tu appuie sur entrer à la dernière seconde tu nas pas le temps de voir t'on score crazy.gif

voila la solution:

Code

PROGRAM:ENTER
:EffEcr
:Output(4,4,"COMMENCER
:Pause
:0->C
:10->D
:EffEcr
:While 1
:Output(2,2,"APPUYEZ
:Output(3,2,"SUR ENTER!
:Output(4,2,C
:codeTouche->K
:If K=105
:C+1->C
:If K=45:Then:EffEcr:Stop:End
:If D=0 et C>50:Then:EffEcr
:Disp "BRAVO TU","ES UN VRAI GEEK!","SCORE:",C
:Pause
:Stop
:End
:If D=0 et C<=50:Then:EffEcr
:Disp "NEWBIE... SCORE:",C
:Pause
:Stop
:End
:Output(7,2,D
:Output(7,7,"S
:D-0.1->D
:Pause
:End



 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