[VB] Organigramme d'une procédure récursive.

Bonjour
Je cherche un ou des exemples d'organigramme pour une procédure récursive. J'ai fait le code (qui fonctionne) pour une arborescence, mais je n'arrive pas à batir un organigramme qui me convienne.
Merci.

comment veut-tu modeliser ta fonction? le résultat donné à chaque appel? le nombre de réapel pour tel nombre?

explique-toi.

Salut,

Est-ce que l'arborescence va être stockée sur la base de données ??

Si c'est effectivement le cas, je te conseille de voir ce tuto de SQLPro : Gestion d'arbres par représentation intervallaire.

A+

Citation:

Envoyé par méphistopheles

comment veut-tu modeliser ta fonction? le résultat donné à chaque appel? le nombre de réapel pour tel nombre?Explique-toi.

:?: :?: :?: La procédure permet de parcourir toute les branches d'un noeud afin de sauvegarder leurs caractéristiques.
Code:

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 26 27 28 29 Private Sub WriteChild(ByVal iNodeIndex As Integer) 'Ecriture des noeuds enfants dans la table. C'est une procédure récursive pour 'parcourir dans une boucle tous les noeuds enfants. Elle identifie l'index 'du noeud ayant les enfants. Dim i As Integer Dim iTempIndex As Integer iTempIndex = TreeView1.Nodes(iNodeIndex).Child.FirstSibling.Index 'Parcours tous les noeuds enfants d'un noeud parent (dans une boucle) For i = 1 To TreeView1.Nodes(iNodeIndex).Children rsNoeuds.AddNew rsNoeuds("ID_NoeudParent") = TreeView1.Nodes(iTempIndex).Parent.Key rsNoeuds("ID_Noeud") = TreeView1.Nodes(iTempIndex).Key rsNoeuds("Nom_Noeud") = TreeView1.Nodes(iTempIndex).Text rsNoeuds("Image") = TreeView1.Nodes(iTempIndex).Image rsNoeuds("Selected_Image") = TreeView1.Nodes(iTempIndex).SelectedImage rsNoeuds.Update 'Si le noeud en cours possède des noeuds enfants, la procédure fait appel à elle même (récurcivité) If TreeView1.Nodes(iTempIndex).Children > 0 Then WriteChild (iTempIndex) End If 'Si ce n'est pas le dernier noeud enfant, on passe au noeud enfant suivant. If i <> TreeView1.Nodes(iNodeIndex).Children Then iTempIndex = TreeView1.Nodes(iTempIndex).Next.Index End If Next i End Sub
Citation:

Envoyé par ridan

Est-ce que l'arborescence va être stockée sur la base de données ??

Si c'est effectivement le cas, je te conseille de voir ce tuto de SQLPro : Gestion d'arbres par représentation intervallaire.

Du coup, tu as la réponse à ta question :wink:
J'ai jeté un coup d'oeil à l'adresse que tu m'a indiqué, mais ce n'est pas suffisant pour bien comprendre le principe exposé. Je reprendrai cela quand j'en aurait le temps, car cela a effectivement l'air d'être très intéressant. Mais il ne semble pas que l'on dessine un arbre comme avec un treeview, et pour l'instant, c'est un treewview que je dois faire.

Merci à tous deux