|
|
|
|
|
|
|
|
|
|
- Enrouler/Dérouler un arbre par programmation
- Exemple
Enrouler/Dérouler un champ Arbre par programmation (syntaxe préfixée)
Enrouler/Dérouler un arbre par programmation - Pour enrouler un arbre par programmation, il suffit d'utiliser la fonction <Arbre>.Enroule.
- Pour dérouler un arbre par programmation, il suffit d'utiliser la fonction <Arbre>.ListeFils combinée avec une procédure locale spécifique.
Les différents codes suivants permettent : - d'initialiser un champ Arbre.
- de dérouler une partie du champ Arbre.
- d'enrouler le champ Arbre.
- Initialiser le champ Arbre par programmation :
ARBRE_RecetteTV.Ajoute("Recette" + TAB + "Dessert", "GATEAU-.BMP", "GATEAU-.BMP")
ARBRE_RecetteTV.Ajoute("Recette" + TAB + "Dessert" + TAB + "Glace")
ARBRE_RecetteTV.Ajoute("Recette" + TAB + "Dessert" + TAB + "Glace" + ...
TAB + "Vanille", "SUIVAN5-.BMP")
ARBRE_RecetteTV.Ajoute("Recette" + TAB + "Dessert" + TAB + "Glace" + ...
TAB + "Fraise", "SUIVAN5-.BMP")
ARBRE_RecetteTV.Ajoute("Recette" + TAB + "Dessert" + TAB + "Glace" + ...
TAB + "Chocolat", "SUIVAN5-.BMP")
ARBRE_RecetteTV.Ajoute("Recette" + TAB + "Dessert" + TAB + "Coupe")
ARBRE_RecetteTV.Ajoute("Recette" + TAB + "Dessert" + TAB + "Coupe" + ...
TAB + "Pêche Melba", "SUIVAN5-.BMP")
ARBRE_RecetteTV.Ajoute("Recette" + TAB + "Dessert" + TAB + "Coupe" + ...
TAB + "Poire belle hélène", "SUIVAN5-.BMP")
ARBRE_RecetteTV.Ajoute("Recette" + TAB + "Dessert" + TAB + "Coupe" + ...
TAB + "Colonel", "SUIVAN5-.BMP")
ARBRE_RecetteTV.Ajoute("Recette" + TAB + "Dessert" + TAB + "Tarte aux pommes")
ARBRE_RecetteTV.Ajoute("Recette" + TAB + "Dessert" + TAB + "Tarte aux pommes" + ...
TAB + "à la crème fraîche", "SUIVAN5-.BMP")
ARBRE_RecetteTV.Ajoute("Recette" + TAB + "Dessert" + TAB + "Tarte aux pommes" + ...
TAB + "au calvados", "SUIVAN5-.BMP")
ARBRE_RecetteTV.Ajoute("Recette" + TAB + "Dessert" + TAB + "Crème brûlée", "SUIVAN5-.BMP")
ARBRE_RecetteTV.Ajoute("Recette" + TAB + "Dessert" + TAB + "Vacherin", "SUIVAN5-.BMP")
- Dérouler tous les éléments : La procédure "DérouleTout" est appelée pour chaque "fils" trouvé. Cette procédure déroule tous les noeuds "fils" enroulés du noeud "Dessert".
Res = ARBRE_RecetteTV.ListeFils("Recette" + TAB + "Dessert", "DérouleTout")
PROCÉDURE DérouleTout(ARBRE_RecetteTV, CheminFils, FilsTrouvé, Niveau, Pointeur)
SI ARBRE_RecetteTV.TypeElément(CheminFils + FilsTrouvé) = aFeuille ALORS
RETOUR
SINON
SI ARBRE_RecetteTV.Etat(CheminFils + FilsTrouvé) = aEnroule ALORS
ARBRE_RecetteTV.Déroule(CheminFils + FilsTrouvé)
FIN
FIN
- Enrouler le noeud "Dessert".
Res = ARBRE_RecetteTV.Enroule("Recette" + TAB + "Dessert")
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|