Forum TI-Planet.org

voila j'ai ces deux code le premier marche tres bien et le deuxieme me change la valeur de la variable A...

Code: Select all

:A=10?13→V
:A=11?16→V
:A=12?21→V
:A=13?27→V
:A=14?32→V
:A=15?39→V
:A=16?45→V


Code: Select all

:A=10?13
:A=11?16
:A=12?21
:A=13?27
:A=14?32
:A=15?39
:A=16?45
:→V


c'est a s'en mordre les doight le premier code marche parfaitement et le deuxieme code me change la valeur de A en lui mettant comme valeur 16

remplace tous les retours à la ligne par des virgules, sauf pour →V, tu devrais avoir un truc comme ça :

Code: Select all

:A=10?13,A=11?16,A=12?21,A=13?27,A=14?32,A=15?39,A=16?45
:→V

Normalement ça devrait marcher.

Code: Select all

Data(13,13,16,21,27,32,39,45)→Str1V
{A-10+Str1V}→V

(Et là, kindermoumoute arrive et fait encore pire).

Oui, je sais qu'on peut optimiser comme ça mais ça ne m'arrange pas du tout ^^ En attendant est-ce que tu vois un problème dans ce code, Hayleia ?

Code: Select all

:"sacha"→STR​O
:"stefanell​i"[00​]"stef"​[00]
:for(Z,0​,2
:text(0,,​strde​v(STRO​,Z
:sub(PAU
:end


Il marche très très bien mais me fait bugger tout le reste de mon code O_o

Déjà, prend l'habitude de fermer tes parenthèses en Axe. Cela ne prendra pas plus de place dans l'exécutable et ça évitera des bugs avec le compilateur qui risque de chercher une parenthèse au mauvais endroit.
Ensuite, peut-être que tu utilises la variable Z ailleurs dans ton code, ce qui expliquerait le bug vu qu'elle est mise à 2 (ou 3) en sortie de boucle, je sais pas ?

Non. Pas du tout. La variable Z, je l'utilise pour toutes les boucles et j'ai vérifié : en fait, dès que j'ai ce code et que j'appuie sur le bouton Enter ça m'arrête le prog en laissant le buffer uniquement à l'écran O_o

C'est l'erreur classique d'utiliser les points d'interrogation à tout bout de champ.
Hayleia, j'aime pas ta solution, mais je vais tester si c'est plus optimisé que ça :

Code: Select all

:!If A-10
:13
:Else!If -1
:16
:Else!If -1
:21
:Else!If -1
:27
:Else!If -1
:32
:Else!If -1
:39
:Else!If -1
:45
:Else
:.La valeur par défaut si A n'est égal à aucune de ces valeurs
:End
:→V

EDIT : Bravo hayleia, ton optimisation est bien plus intéressante ! Par contre j'utiliserais une constante si j'étais toi :

Code: Select all

Data(13,16,21,27,32,39,45)-10→Str1V
{A+Str1V}→V

je suis entièrement d'accord avec kinder.
J'aurais dit pareil s'il avait pas déjà posté.