Discussion :

[jacma]

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.

[méphistopheles]

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

explique-toi.

[ridan]

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+

[jacma]

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 :

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
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

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
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