Racer

Salut a tous et a toutes pour mon premier post sur ce forum je vais vous présenter un programme que j'ai fait a la fin de mon brevet de français (et oui je me faisais chier)
le but est simple c'est de faire le meilleur score possible en évitant les obstacles.

Code:

:ClrHome
:0->S
:15->H
:4->X
:4->Y
:Lbl 1
:If Y=3
:Goto 2
:If Y=6
:Goto 2
:ClrHome
:H-1->H
:Getkey->K
:If K=25
:Y-1->Y
:If K=34
:Y+1->24
:If K=24
:X-1->X
:Output(Y,X,")
:Output(Z,H,"*
:OutPut(3,1,"----------------
:Output(6,1,"----------------
:If H=1
:Goto 9
:If H=X and Y#Z
:Goto 1
:If H#X
:Goto 1
:If H=X and Y=Z
:Goto 2
:Lbl 2
:ClrHome
:Output(3,4,"PERDU
:Output(4,1,"SCORE:
:Output(4,9,S
:Stop

Voila le programme est très simple mais marche parfaitement je n'es pour l'instant décelé aucun bug mon programme pèse 277 octets pour le moment mais je pense l'améliorer donc il risque d’être plus lourds ensuite

pour info le -> représente la touche STO qui est situé au dessus de ON
et le # correspond au signe inégale que l'on trouve en faisait Scnd+Math/test +2

Cela se présente bien.

Ceci n'a aucune utilité. Le label 2 et la suite seront lus peu importe la condition si la lecture parvient jusque là.

Code:

:If H=X and Y=Z
:Goto 2
:Lbl 2

Songe aussi que ces conditions se simplifient.
:If H=X and Y#Z
:Goto 1
:If H#X
:Goto 1
Il suffit d'écrire
:If Y#Z or H#X
:Goto 1

Code:

Je ne trouve pas de label 9.
:If H=1
:Goto 9

Tu devrais utiliser une boucle et placer comme condition de sortie la collision plutôt que tester toutes les conditions de poursuite du jeu.
Par ailleurs utiliser une boucle plutôt que des Goto est souvent préférable pour la rigueur et les bugs.

Autre chose:

Code:

0->S

C'est mieux d'écrire ça:

Code:

DelVar S

Cette suite aussi:

Code:


:Lbl 1
:If Y=3
:Goto 2
:If Y=6
:Goto 2
:ClrHome // celui la est plus utile que le premier, donc tu peux effacer le premier.
:H-1->H
:Getkey->K
:If K=25
:Y-1->Y
:If K=34
:Y+1->24 //t'es sur que t'as aucun bug??? Je mettrais plutôt Y, non?
:If K=24
:X-1->X

Ça se simplifie en utilisant Rép/Ans au lieu de K. Et comme linkakro disait les conditions se simplifient.

Code:

Lbl 1
If Y=3 or Y=6
Goto 2
ClrHome
H-1->H
Getkey
If Rép=24
X-1->X
If Rép=25
Y-1->Y
If Rép=34
Y+1->Y

Voilà pour ce que j'ai pu voir. Et oui un repeat ou un while n'a jamais fait de mal , au contraire, c'est plus rapide, plus lisible, et plus léger pour le programme, or on sait combien notre ti-82stats a besoin, de la mémoire.
A l'avenir tout topic qui présente ton programme ou un autre (celui que t'as aimé) se postent dans la catégorie "programmes des internautes" et non ti82stats. Ici c'est plus pour les topics sur un modèle en particulier.
En tout cas, bravo pour ton programme, je ne l'ai pas testé, mais j'essaierais plus tard!!!
Continue comme ça

rpgcreator a écrit:
Ça se simplifie en utilisant Rép/Ans au lieu de K. Et comme linkakro disait les conditions se simplifient.

Code:

Lbl 1
If Y=3 or Y=6
Goto 2
ClrHome
H-1->H
Getkey
If Rép=24
X-1->X
If Rép=25
Y-1->Y
If Rép=34
Y+1->Y

Je conteste. Les calculs de X et Y modifient Rép/Ans. Donc si la première condition K=Rép=24 est vraie alors la prochaine condition ne sera plus K=Rép=25 mais X-1=Rép=25. Heureusement les coordonnées du TI-Basic dans l'écran principal sont inférieures à 16 donc ne peuvent valider les conditions 25/26/34 si une précédente 24 est vraie. Mais cette hypothèse basée sur cet écran précis ne me plaît pas.

Où se trouve la condition 26 de la touche droite ???

Avec un DelVar, faites seulement attention à ce qui vient derrière.

Lorsque le jeu aura plusieurs lignes d'obstacles le vrai défi commencera au vu de toutes les solutions.

LPehix a écrit:   Salut a tous et a toutes pour mon premier post sur ce forum je vais vous présenter un programme que j'ai fait a la fin de mon brevet de français (et oui je me faisais chier)

On a droit à la calto maintenant au brevet de français?   

Sa me penser à l'un de mes programmes, http://tiplanet.org/forum/archives_voir.php?id=16549

Sinon beau travail ;-)

Bonjour
j'ai essayé ton programme mais pas réussi à le faire fonctionner correctement
tu as du faire des fautes de frappe en recopiant
:Y+1->24  // Y+1->Y ?
:Output(Y,X,")  //es-tu sûr ?  il y a un espace après le " je suppose
:Output(Z,H,"* // le Z tu le sors d'où ? jamais utilisé ailleurs dans le programme ..
Le Stop à la fin n'est pas utile car le programme s’arrête quoiqu'il en soit
mais c'est bien continue ! tu arrives dans la partie debuggage

Wistaro a écrit:Sa me penser à l'un de mes programmes, http://tiplanet.org/forum/archives_voir.php?id=16549

Sinon beau travail ;-)

ça marche pour une ti82stats fr ?

jo2geek a écrit:

Wistaro a écrit:Sa me penser à l'un de mes programmes, http://tiplanet.org/forum/archives_voir.php?id=16549

Sinon beau travail ;-)

ça marche pour une ti82stats fr ?

Oui il fonctionne sur ti82stats. Je crois qu'il l'avait posté sur le tout82ancien. Le bandeau d'information mentionne la catégorie 82stats. Le chemin d'hébergement n'est pas la seule information.

Je confirme les encouragements, mais je souligne qu'il y a encore beaucoup chemin à faire.

jo2geek a écrit:Bonjour
j'ai essayé ton programme mais pas réussi à le faire fonctionner correctement
tu as du faire des fautes de frappe en recopiant
:Y+1->24  // Y+1->Y ?
:Output(Y,X,")  //es-tu sûr ?  il y a un espace après le " je suppose
:Output(Z,H,"* // le Z tu le sors d'où ? jamais utilisé ailleurs dans le programme ..
Le Stop à la fin n'est pas utile car le programme s’arrête quoiqu'il en soit
mais c'est bien continue ! tu arrives dans la partie debuggage

Wistaro a écrit:Sa me penser à l'un de mes programmes, http://tiplanet.org/forum/archives_voir.php?id=16549

Sinon beau travail ;-)

ça marche pour une ti82stats fr ?

Il ne s'agit pas d'une erreur de recopiage, étant donné que j'ai extrait le programme de ma calculatrice par cable USB.
Je me permet de fournir un lien vers le topic original: http://www.tout82.org/t108-prgm-ti-road?highlight=ti+road

je crois que là on mélange les 2 programmes...
l'erreur de recopiage n'est pas le tien Wistaro

jo2geek a écrit:je crois que là on mélange les 2 programmes...
l'erreur de recopiage n'est pas le tien Wistaro

Les deux programmes?

Il parlait de celui de LPehix, pas du tiens

m@thieu41 a écrit:Il parlait de celui de LPehix, pas du tiens

exactement

D'accord :p

Et c'est normal, car on ne peut rien affecter a une valeur. Je n'ai pas le temps de tester le programme... :'(

m@thieu41 a écrit:

LPehix a écrit:   Salut a tous et a toutes pour mon premier post sur ce forum je vais vous présenter un programme que j'ai fait a la fin de mon brevet de français (et oui je me faisais chier)

On a droit à la calto maintenant au brevet de français?   

Waaaoouuuh trop de la bombe x) !!!!!
Mais... Depuis quand on a une graphique en 3eme ??????? WTF

C'est génial x) On s'est tous fait avoir avec la petite casio verte fx92 2D+, alors qu'eux ont une graphique !

Nan mais je pense que c'est des cas particuliers
C'est les casio/ti collèges qui sont conseillées normalement.