Utilisation de listes

[Hrusdik]

Bonjour,

Je dois utiliser deslistes dans mon programme, je fais donc
5-tempo
1-vari
...
tempo-L1(vari)

Mais à la fin au lieu de m'afficher 5, L1(1) m'affiche le mot tempo ....

Help

[Hrusdik]

sufisait de mette string(tempo)->L1(vari)

[Hrusdik]

En faite non ca ne marche toujours pas....

Code: Select all

()
Prgm
Local i,d,l,pas,y,vari,x,tempo,val,an
""d
""x
""tempo
""val
28pas
1l
ClrIO

Dialog
Title "Taux d'evolution"
Request "Nb. d'annees",d
Request "Nb. produits",x
EndDlog
expr(d)d
expr(x)x

If d="" or d=0 or x="" or x=0 Then
goto endd
Else

For l,1,x
Lbl encore
Dialog
Title "Produit N°"string(l)
Request "Nom(6 lettres)",tempo
EndDlog
If tempo="" Then
goto encore
Else
expr(tempo)tempo
string(tempo)Lprod(l)
""tempo
EndIf
EndFor

For l,1,x
For an,1,d
Lbl again
Lprod(l)tempo
Dialog
Title string(tempo)
Text "Annee "string(an)
Request "Valeur",val
EndDlog
If val="" Then
goto again
Else
expr(val)val
string(val)Li(an)
""val
EndIf
EndFor
EndFor

For i,1,9
Disp Li(i)
Disp Lprod(i)
EndFor

EndIf 
Lbl endd


EndPrgm

[Bisam]

En fait, le problème vient de la mauvaise utilisation de la syntaxe particulière aux listes.

Il faut mettre des crochets [ ] et non des parenthèses !

Code: Select all

 tempo-Lprod[1]

Par ailleurs, il est inutile de faire successivement

Code: Select all

expr(tempo)-tempo
string(tempo)-Lprod[1]

Tu peux simplement écrire

Code: Select all

tempo-Lprod[1]

[Hrusdik]

Merci !