[83]Plus ou moins

Voici un petit programme que j'ai créer moi-même, je remercie d’ailleurs le site du zéro sans qui je n'aurais jamais su programmer en TI Basic

Pour ce qui est du programme, il dispose de:

• Un menu principal avec "règles", "quitter" et "jouer" et un sous-menu qui permet de choisir le nombre de joueur, donc si il y a un joueur, on joue contre l'ordinateur.
  

• Un deuxième menu permettant de dire si on rejoue avec le même mode de jeu ou si on retourne au menu principal.
  

• Un compte-tour qui affiche le résultat à la fin
  

• Un système qui affiche en cas d'erreur si c'est plus ou moins et vous rappelle votre réponse (le message n'est jamais effacé pour vous rappeler l'indice)
  

maintenant, voici le code:

Code:

AxesNAFF
effecr
effdessin
texte(25,25,"PLUS OU MOINS")
pause
lbl 01
menu("MENU PRINCIPAL","JOUER",02,"REGLE",03,"QUITTER",04)
lbl 03
effecr
effdessin
texte(0,0,"TROUVER LE NOMBRE MYSTERE")
texte(6,0,"ENTRE 1 ET 100'')
pause
goto 01
lbl 02
effecr
effdessin
menu("JEU","JOUEUR",06"ORDINATEUR",05)
effecr
effdessin
lbl 06
2->J
texte(0,0,"JOUEUR 1, CHOISISSEZ UN")
texte(6,0,"NOMBRE MYSTERE")
150>X
input "MYSTERE:",X
pause
effecr
effdessin
goto 07
end
lbl 05
entalea(1,99)->X
1->J
goto 07
lbl 07
texte(0,0,"JOUEUR 2, QUEL EST LE")
texte(6,0,"NOMBRE MYSTERE?")
pause
while R[égal barré]X
input "REPONSE:",R
effecr
if R=X
then
disp "VICTOIRE"
pause
menu("ENCORE?","OUI",90,"NON",91)
lbl 90
effecr
effdessin
if J=1
then
goto 05
else
goto 06
end
lbl 91
goto 01
pause
end
if R<X
then
disp "PLUS"
pause
end
if R>X
then
disp "MOINS"
pause
end
end
lbl 04

Pour ce qui est de:

while R[égal barré]X

Je n'ai rien trouvé qui correspondait et comme je ne voulais pas que vous marquiez des bêtises, je l'ai noté comme ça, sachez qu'il faut remplacer le couple de crochet par ce qu'il y a marqué dedans

Bien !! tu ne peux pas savoir comme je suis heureux de te voir poster un programme ce soir ! ça me rappelle à quoi sert ce forum (si tu as jeté un coup d'oeil dans les sujets du dessus tu a compris de quoi je parle.)


d'habitude, le égal barré s'écrit =/= sur les forums, c'est une convention, tout le monde comprend.

Simplement, pourquoi avoir mit autant de "EffEcr:Effdessin" ?

Pour un premier programme, c'est bien.
Après, tu peux toujours essayer de t'inspirer des programmes du concours (plus ou moins) pour améliorer le tien (celui de persalteas par exemple ! :D ).
Après, comme persalteas l'a dit tu pourrais encore optimiser.

pour les effecr/effdessin, je ne veux pas que l'on se retrouve rapidement avec:
PLUS
MOINS
MOINS
PLUS
...

je ne veux pas encombrer l'écran

Si t'écris seulement sur un des deux écrans, t'effaces l'écran concerné, c'est tout.
Après, pour les autres optimisations :

-enlève tout ce qui est parenthèses/guillemets à la fin
-pour ce qui est de l'affichage de "Plus" ou de "Moins" : tu vas forcément exécuter un Pause, donc enlève le des conditions et mets-le qu'une seule fois
-toujours pour cette partie-là : si tu fais ce que je t'ai dit, alors tu te retrouves avec une seule instruction dans chacune des deux conditions : tu peux donc enlever les "Then" et les "End", si tu le fais la TI comprendra qu'il n'y a que la première instruction après la condition qu'elle devra exécuter.

Voilà.