Discussion :

[xam44]

Bonjour,
j'essaye de faire deux boucles l'une dans l'autre pour faire varier deux parmètres.
Je pense mal déclarer mes paramètres pour mon noe(),mon but est de pouvoir récupérer les coordonnées de mes nœuds et les appelés dans un fichier texte.
si quelqu'un peut m'aider a comprendre cela

merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
    Private Sub détermination_noeuds_elements()
 
 
        Dim j, i, x, pas, lg As Integer
        Dim noe() As Double
 
        lg = CInt(tblg.Text)
        pas = CInt(tbpas.Text)
 
        nbnoe = 15 'celui-ci variera d'ou ma boucle
 
        For i = 1 To nbnoe Step 1
            y = 0
 
            For j = 0 To lg Step pas
 
                noe(i) = i & Space(1) & x & Space(1) & y
 
'noe i = "i" "espace" "coordonnée de x" "espace" "coordonnée de y"
'exemple: noe 1 = 1 550 0
 
            Next j
        Next i
 
    End Sub

[Bluedeep]

C'est quoi ta question exactement, par ce que , là, c'est pas clair.

Accessoirement, dans le bout de code que tu as posté, la boucle interne ne fait rien.

[tomlev]

et noe est déclaré mais jamais initialisé...

[Bluedeep]

et noe est déclaré mais jamais initialisé...

Tiens, je l'avais pas vu ça.

[xam44]

La deuxième boucle était pour x= j donc que j'ai changé en j

Que veux tu dire par "et noe est déclaré mais jamais initialisé..", c'est peut être cela mon pbm...

Ce que je veux c'est attribué à noe(i) des paramètres.
ces paramètres changeront après en fonction du nombre de noeud.

pour que plus tard je puisse appelé le noe(i) que je souhaite et récupérer ces paramètres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub détermination_noeuds_elements()
 
 
        Dim j, i, x, pas, lg As Integer
        Dim noe() As Double
 
        lg = CInt(tblg.Text)
        pas = CInt(tbpas.Text)
 
        nbnoe = 15 'celui-ci variera d'ou ma boucle
 
        For i = 1 To nbnoe Step 1
            y = 0
 
            For j = 0 To lg Step pas
 
                noe(i) = i & Space(1) & j & Space(1) & y
 
'noe i = "i" "espace" "coordonnée de x" "espace" "coordonnée de y"
'exemple: noe 1 = 1 550 0
 
            Next j
        Next i
 
    End Sub

[tomlev]

Que veux tu dire par "et noe est déclaré mais jamais initialisé..", c'est peut être cela mon pbm...

Ben tu déclares noe en disant que c'est un tableau de Double, mais jamais tu ne dis quelle taille il doit faire... Il faudrait faire un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Redim noe(nbnoe)