|
|
|
|
|
|
|
|
|
|
- Enrouler/Dérouler un arbre par programmation
- Exemple
Enrouler/Dérouler un champ Arbre par programmation
Enrouler/Dérouler un arbre par programmation - Pour enrouler un arbre par programmation, il suffit d'utiliser la fonction ArbreEnroule.
- Pour dérouler un arbre par programmation, il suffit d'utiliser la fonction ArbreListeFils 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 :
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert", "GATEAU-.BMP", "GATEAU-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Glace")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Glace" + ...
TAB + "Vanille", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Glace" + ...
TAB + "Fraise", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Glace" + ...
TAB + "Chocolat", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Coupe")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Coupe" + ...
TAB + "Pêche Melba", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Coupe" + ...
TAB + "Poire belle hélène", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Coupe" + ...
TAB + "Colonel", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Tarte aux pommes")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Tarte aux pommes" + ...
TAB + "à la crème fraîche", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Tarte aux pommes" + ...
TAB + "au calvados", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "Recette" + TAB + "Dessert" + TAB + "Crème brûlée", "SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV, "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".
// Liste les "fils" du noeud "Desserts" dans l'arbre "ARBRE_RecetteTV"
// La procédure "DérouleTout" est appelée
// pour chaque "fils" trouvé du noeud "Dessert"
Res = ArbreListeFils(ARBRE_RecetteTV, "Recette" + TAB + "Dessert", "DérouleTout")
// Procédure locale "DérouleTout"
// Cette procédure déroule tous les noeuds "fils" enroulés du noeud "Desserts"
PROCÉDURE DérouleTout(ARBRE_RecetteTV, CheminFils, FilsTrouvé, Niveau, Pointeur)
// L'élément trouvé est-il une feuille ?
SI ArbreTypeElément(ARBRE_RecetteTV, CheminFils + FilsTrouvé) = aFeuille ALORS
RETOUR  // Retour à la fonction ArbreListeFils
SINON
// L'élément trouvé est-il enroulé ?
SI ArbreEtat(ARBRE_RecetteTV, CheminFils + FilsTrouvé) = aEnroule ALORS
ArbreDéroule(ARBRE_RecetteTV, CheminFils + FilsTrouvé)
FIN
FIN
- Enrouler le noeud "Dessert".
// Enroule le noeud "Dessert" dans l'arbre "ARBRE_RecetteTV"
Res = ArbreEnroule(ARBRE_RecetteTV, "Recette" + TAB + "Dessert")
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|