Forum | TOUT sur la TI-82

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

Prgm RAPID

Auteur

Message

lolio67

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 12 Jan 2010, 18:56

Posté le : Mar 19 Jan 2010, 18:42

Bonjour ,

Comme promis voila un autre de mes programmes

Il s'agit d'un jeu ou il faut appuyer le plus de fois sur entrer en 15 secondes

Voila le code du jeu RAPID V1.0 (250 octets )en version basique(sans menu ni meilleurs scores)pour ceux qui on des problemes de memoire

La version 2.0 va arriver tres prochainement avec des menus sous menu(meilleurs scores)et choix de la durée du jeux (15,30ou 45 secondes) il me reste quelques bug a corriger

mais la on ma volé ma ti 83+ aujourd'hui

donc je doit me rabattre sur ma 82stats pour la correction des bug

(heureusement tout mes prgms sont sauvegardé sur mon pc

)

Bref voila:

PrgmRAPID V1.0

Lbl 2
0->X
Clrhome
For(A,1,100)
Output(4,7,”PRET”
End
Clrhome
For(B,1,100)
End
Clrhome
For(C,1,300)
Output(4,7,”GO!!”
Output(6,7,X
Getkey->K
If K=105
X+1->X :End :Goto1
If K(pas egal a )105
End :Goto 1
Lbl 1
Pause
Output(3,4,”TON SCORE”
Output(4,4,”EST”
Output(4,8,X
Output(8,3, « 1=QUITTER »
Output(7,3, “0=RECOMENCER”
Lbl 4
Getkey->D
If D=102
Goto 2
If D=92
Goto 3
Goto 4
Lbl 3
Clrhome
Output(1,1,”

Si vous avez des modif ou problemes n'hesitez pas
Bon recopiage

lolio67

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 12 Jan 2010, 18:56

Posté le : Mer 20 Jan 2010, 15:21

Voila la deuxieme version ,Beaucoup plus lourde mais aussi beaucoup plus complete

Prgm RAPIDV2

:Lbl 7
:ClrHome
:Menu(" RAPID V2.0","15 SEC",1,"30 SEC",2,"45 SEC",3,"MEILLEUR SCORE",4,"RESET SCORES",10,"QUITTER",99
:Lbl 10
:50->Q:"LIO"->Str2
:100->L:"LIO"->Str3
:150->M:"LIO"->Str4
:Goto 7
:Lbl 1
:0->E
:300->E:Goto 5
:Lbl 2
:0->E
:600->E:Goto 5
:Lbl 3
:0->E
:900->E:Goto 5
:Lbl 5
:0->X
:0->Z
:ClrHome
:For(A,1,100)
:Output(4,7,"PRET"
:End
:For(B,1,100)
:End
:For(C,1,E)
:Output(4,7,"GO!!"
:Output(6,7,X
:Output(1,2,Z
:Z+1->Z
:getKey->K
:If K=105
:Then
:X+1->X:End:Goto 8
:If K(different de )105
:End:Goto 8
:Lbl 8
:If E=300 and X>Q
:Then
:X->Q:Goto 12
:Else
:If E=600 and X>L
:Then
:X->L:Goto 12
:Else
:If E=900 and X>M
:Then
:X->M:Goto 12
:Else
:ClrHome
:Output(3,4,"TON SCORE"
:Output(4,4,"EST:"
:Output(4,8,X
:Output(8,3,"1=MENU"
:Output(7,3,"0=RECOMENCER"
:Lbl 6
:Repeat D(different de) 0
:getKey->D
:End
:If D=102
:Goto 5
:If D=92
:Goto 7
:Goto 6
:Lbl 12
:ClrHome
:Output(3,4,"MEILLEUR
:Output(5,5,"SCORE!!
:If E=300
:Input "TON NOM:",Str2
:If E=600
:Input "TON NOM:",Str3
:If E=900
:Input "TON NOM:",Str4
:Goto 7
:Lbl 4
:Menu("MEILLEURS SCORES","EN 15 SEC",14,"EN 30 SEC",15,"EN 45 SEC",16,"RETOUR",7
:Lbl 14
:Output(2,1,"MEILLEUR SCORE:"
:Output(4,7,Q
:Output(6,1,"PAR:"
:Output(6,6,Str2
:Pause
:Goto 4
:Lbl 15
:Output(2,1,"MEILLEUR SCORE:"
:Output(4,7,L
:Output(6,1,"PAR:
:Output(6,6,Str3
:Pause
:Goto 4
:Lbl 16
:Output(2,1,"MEILLEUR SCORE:"
:Output(4,7,M
:Output(6,1,"PAR:"
:Output(6,6,Str4
:Pause
:Goto 4
:Lbl 99
:ClrHome
:Output(4,4,"BY LOLIO67"
:Pause
:Clrhome
:Output(1,1,"

Bon recopiage

Vos ameliorations , methodes pour gain de memoire ou critiques sont les bienvenues

linkakro

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

Posté le : Mer 20 Jan 2010, 17:15

Code

Lbl 1
:0->E
:300->E:Goto 5
:Lbl 2
:0->E
:600->E:Goto 5
:Lbl 3
:0->E
:900->E:Goto 5

Dans cette partie les 0->E ne servent à rien.

Personnellement je n'ai que faire des meilleurs scores mais bravo.

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

lolio67

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 12 Jan 2010, 18:56

Posté le : Jeu 21 Jan 2010, 20:19

D'accord avec toi mais je les ais mis parce que sinnon quand on choisi l'option 30

secondes apres avoir joué avec l'option 15 sec au lieu d'avoir 600 dans E je me

retrouve avec 900 dans E

Bref merci de ton commentaire ,je vais essayer de resoudre ce bug ^^

olivier
Invité

Posté le : Mer 27 Jan 2010, 16:08

dans ce programme (le premier) ca me renvoi en erreur à la ligne rouge pourquoi?

Lbl 2
0->X
Clrhome
For(A,1,100)
Output(4,7,”PRET”
End
Clrhome
For(B,1,100)
End
Clrhome
For(C,1,300)
Output(4,7,”GO!!”
Output(6,7,X
Getkey->K
If K=105
X+1->X :End :Goto1
If K(pas egal a )105
End :Goto 1
Lbl 1
Pause
Output(3,4,”TON SCORE”
Output(4,4,”EST”
Output(4,8,X
Output(8,3, « 1=QUITTER »
Output(7,3, “0=RECOMENCER”
Lbl 4
Getkey->D
If D=102
Goto 2
If D=92
Goto 3
Goto 4
Lbl 3
Clrhome
Output(1,1,”

lolio67

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 12 Jan 2010, 18:56

Posté le : Mer 27 Jan 2010, 16:29

Salut

If K=105
X+1->X :End :Goto1
If K(pas egal a )105

Je pense qu'il faut que tu rajoute une ligne :

If K=105
X+1->X
End
Goto1
If K(pas egal a )105

Tu changes rien mais tu met juste a la ligne ^^

et pareil si sa te met une erreur a :

If K(pas egal a )105
End :Goto 1

Essaye ca pour voir

olivier
Invité

Posté le : Mer 27 Jan 2010, 17:05

ca me renvoi toujours a une erreur (en vert)

If K=105
X+1->X
End
Goto1
If K(pas egal a )105

lolio67

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 12 Jan 2010, 18:56

Posté le : Mer 27 Jan 2010, 17:21

Esaye voir en renplacant

If K=105
X+1->X :End :Goto1
If K(pas egal a )105
End :Goto 1

Par:

If K=105
Then
X+1->X
End
Goto1
Esle
End
Goto 1

olivier
Invité

Posté le : Mer 27 Jan 2010, 17:28

ok MERCI maintenant ca m'y met mais ca met go! et dès que j'appui 1fois ca met
TON SCORE
ESTGO!!

0
0=RECOMMENCER
1=QUITTER

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Mer 27 Jan 2010, 17:30

J'ai pas lu ce qui est avant mais en tous cas faut rajouter 4 espaces après le "EST"

lolio67

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 12 Jan 2010, 18:56

Posté le : Mer 27 Jan 2010, 17:34

Ca veut dire que la calto prend pas en compte le end
Faut que tu remette ca qui avait avant et
Juste mettre ce qui est en rouge a la ligne

comme ca :

If K=105
X+1->X :End
:Goto1
If K(pas egal a )105
End :Goto 1
Lbl 1

normalement ca devrait marcher mdr

olivier
Invité

Posté le : Mer 27 Jan 2010, 17:58

erreur à ce niveau: If K=105
X+1->X :End
:Goto1
If K(pas egal a )105
End :Goto 1
Lbl 1

sypotu

Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Mer 27 Jan 2010, 18:01

il est sensé fermer quoi ce end ?

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

Google_AdSense

olivier
Invité

Posté le : Mer 27 Jan 2010, 18:08

I don't know

lolio67

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 12 Jan 2010, 18:56

Posté le : Mer 27 Jan 2010, 18:13

Il ferme la boucle for

For(C,1,300)
Output(4,7,”GO!!”
Output(6,7,X
Getkey->K
If K=105
X+1->X :End :Goto1
If K(pas egal a )105
End :Goto 1

Google_AdSense

sypotu

Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Mer 27 Jan 2010, 18:15

pourquoi tu n'écris pas :

Code

For(C,1,300)
Output(4,7,"GO!!"
Output(6,7,X
Getkey->K
If K=105
X+1->X
End :Goto 1

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

olivier

Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 27 Jan 2010, 18:08

Posté le : Mer 27 Jan 2010, 18:37

getkey c'est bien codetouche?

sypotu

Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Mer 27 Jan 2010, 18:38

ouai c'est ça

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

olivier

Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 27 Jan 2010, 18:08

Posté le : Mer 27 Jan 2010, 18:38

sypotu tu est un dieu! j'ai fait comme ca et ca marche nikel =) ALLELUILLA mes freres! ^^

Google_AdSense

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

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

Flux RSS