For...Next (De quoi devenir dingue aussi !!! 😖 😁)

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
case
Messages : 1545
Inscription : lun. 10/sept./2007 11:13

Re: For...Next (De quoi devenir dingue aussi !!! 😖 😁)

Message par case »

Ars tu fais n’importe quoi, je me demande si tu fais exprès même ^^ voir mes commentaires

Code : Tout sélectionner

Structure co
    val.i   
    n.s 
EndStructure

Global NewList compteur.i()    ; tu defini ta liste compteur en .i et donc pas avec ta structure

For i = 1 To 4
    AddElement(compteur())
    
    compteur.co\val  = i                ; tu crée une variable structurée car tu n'utilise pas les () pour utiliser ta liste
    compteur.co\n = "toto"+Str(i)  ; et tu ajoute les 2 valeurs a ta variable mais pas a ta liste
    
    ; tu affiche l'index de ta liste mais le contenu de ta variable.
    Debug "Index : " + ListIndex(compteur()) + " à la valeur " + Str(compteur.co\val)  + " Nom : " + compteur.co\n 

Next 
tu dois faire ainsi

Code : Tout sélectionner

Structure co
    val.i   
    n.s 
EndStructure

Global NewList compteur.co()    ; defini une liste avec la structure co

For i = 1 To 4
    AddElement(compteur())      ; crée un element dans la liste
    compteur()\val  = i                ; ajoute a la liste la valeur numerique
    compteur()\n = "toto"+Str(i)   ; ajoute a l'element de la liste la valeur chaine
    ; affiche les valeurs.
    Debug "Index : " + ListIndex(compteur()) + " à la valeur " + Str(compteur()\val)  + " Nom : " + compteur()\n
Next 
ImageImage
Avatar de l’utilisateur
Ar-S
Messages : 9539
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: For...Next (De quoi devenir dingue aussi !!! 😖 😁)

Message par Ar-S »

Oh enfin ! Merci, j'ai effectivement zappé l'ajout du () effectivement. tout ça pour ça..
Merci pour le rafraîchissement @boddy @Papipp

@case : Même pas fait exprès, ça fait un moment que je suis en prog Web et que j'ai pas touché à PB, j'avais besoin de ce rafraîchissement :mrgreen:
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Répondre