|
|
|
|
|
|
|
|
|
|
- Liste des éléments fils
Liste des éléments fils Le code suivant permet de : - Initialiser le champ Arbre,
- Lister les éléments "fils" du noeud "Desserts" dans l'arbre "ARBRE_RecetteTV". 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 "Desserts".
- Enrouler tous les éléments de l'arbre.
// Initialisation de l'arbre
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")
ArbreDéroule(ARBRE_RecetteTV,"Recette" + TAB + "Dessert"+ TAB + "Glace")
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 brulée","SUIVAN5-.BMP")
ArbreAjoute(ARBRE_RecetteTV,"Recette" + TAB + "Dessert" + TAB + "Vacherin","SUIVAN5-.BMP")
ArbreDéroule(ARBRE_RecetteTV,"Recette" + TAB + "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 "Desserts"
Res est un entier
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
// Enroule l'arbre
ArbreEnroule(ARBRE_RecetteTV, "Recette")
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|