Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> REFLEX (223 octets )

REFLEX (223 octets )

Auteur

Message

tarken

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 15 Sep 2009, 15:04

Posté le : Jeu 23 Sep 2010, 22:15

Ça fait un petit moment que je n'ai pas programmé. J'ai donc fait ce petit jeu pour "m'échauffer".
Le but du jeu est d'appuyer le plus vite possible quand le zéro apparait à l'écran, dans la limite du temps imparti.
Il n'est vraiment pas parfait, donc n'hésitez pas a le modifier.
PS: _ correspond à un espace

Code

:EffEcr
:Disp"PRET ?"
:For(Z,1,3
:Output(2,7,Z
:69!
:69!
:69!
:69!
:69!
:End
:EffEcr
:0->S
:100->T
:LblA
:While1
:codeTouche->K
:IfK=105:T-10->T
:entaleat(1,10)->A
:69!
:IfA=1:GotoC
:End
:LblC
:Output(4,7,"O
:While1
:Output(1,1,"___
:Output(1,1,T
:codeTouche->K
:T-1->T
:IfK=105:GotoD
IfT=<0:GotoW
:End
:LblD
:Output(4,7,"_
:S+1->S
:GotoA
:LblW
:Disp"VOTRE SCORE EST",S

Persalteas

Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Sam 25 Sep 2010, 15:19

oui c'est pas mal et même super bien pour quelqu'un qui en a pas fait depuis longtemps.

Google_AdSense

linkakro

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

Posté le : Sam 25 Sep 2010, 18:04

J'adore ce jeu

. Ca me rappelle un minijeu d'un autre support.
Je le trouve bien fait (surtout pour un échauffement) à part quelques détails qui ne nécessitent pas d'intervention.

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

Tarken
Invité

Posté le : Dim 26 Sep 2010, 7:19

J'ai moi même amélioré le début en remplaçant

Code

:EffEcr
:Disp"PRET ?"
:For(Z,1,3
:Output(2,7,Z
:69!
:69!
:69!
:69!
:69!
:End

Par

Code

CoordNAFF
AxesNAFF
0->Ymin
0->Xmin
94->Xmax
62->Ymax

Effdessin

Horizontale 31
Horizontale 33
pt-On(0,32
pt-On(94,32

for(L,0,94
pt-On(L,32
End

C'est un prog de Boomer901 qui a bien sa place ici.

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> REFLEX (223 octets )

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

Flux RSS