| Bloc de code |
|---|
* Arborescence
NUM_BIN_4 WID_NOEUD
NUM_BIN_4 WID_NOEUD_A_SUPP
NUM_BIN_4 WID_PARENT
NUM_BIN_4 WID_PARENT_1
NUM_BIN_2 WPOS_NOEUD
ALPHA(250) WTXT_NOEUD
* Images
NUM_BIN_4 WIMG(4) |
* Vider l'arborescence
| Bloc de code |
|---|
WID_NOEUD = _ARB_RACINE APPELER_METHODE ARBO SUPPRIMER WID_NOEUD NB2 |
...
| Bloc de code |
|---|
* Ajouter le noeud racine : NOMBRES WID_PARENT = _ARB_RACINE WTXT_NOEUD = 'NOMBRES' WPOS_NOEUD = _ARB_POS_FIN APPELER_METHODE ARBO AJOUTER WID_PARENT WPOS_NOEUD WTXT_NOEUD *AUCUN *AUCUN *AUCUN WID_NOEUD NB2 SI NB2 = 1 * On mémorise l'ID du noeud racine NOMBRES, qui sera parent pour le nombre 1 WID_PARENT = WID_NOEUD LECTURE_LST WLST_NB * On initialise le texte du noeud : le nombre aligné à droite, suivi de sa valeur en texte WTXT_NOEUD = &NUM_ALPHA(WNB_CH) SI WNB_CH <= 9 WTXT_NOEUD = ' ' // WTXT_NOEUD SINON_SI WNB_CH <= 99 WTXT_NOEUD = ' ' // WTXT_NOEUD SINON_SI WNB_CH <= 999 WTXT_NOEUD = ' ' // WTXT_NOEUD FIN WTXT_NOEUD = WTXT_NOEUD /// ' -> ' // WNB_LTR * Si nombre 1, on va insérer un noeud enfant * Pour les autres nombres, on va insérer un noeud frère SI WNB_CH = 1 WPOS_NOEUD = _ARB_POS_FIN SINON WPOS_NOEUD = _ARB_POS_APRES FIN * On insère le noeud APPELER_METHODE ARBO AJOUTER WID_PARENT WPOS_NOEUD WTXT_NOEUD *AUCUN *AUCUN *AUCUN WID_NOEUD NB2 * On mémorise l'ID du dernier noeud inséré afin de lui ajouter un noeud frère SI NB2 = 1 WID_PARENT = WID_NOEUD FIN FIN_LECTURE_LST FIN |
| Volet | ||
|---|---|---|
| ||
Les noeuds de l'aborescence sont précédés d'une image. Le texte de chaque noeud est d'une couleur différente. |
| Bloc de code |
|---|
* Initialisation de la liste d'images
WIMG = 0
APPELER_METHODE ARBO AJOUTER_IMAGE 'Printemps.jpg' WIMG(1) NB2
APPELER_METHODE ARBO AJOUTER_IMAGE 'Eté.jpg' WIMG(2) NB2
APPELER_METHODE ARBO AJOUTER_IMAGE 'Automne.jpg' WIMG(3) NB2
APPELER_METHODE ARBO AJOUTER_IMAGE 'Hiver.jpg' WIMG(4) NB2
* Initialisation de l'arborescence ARBO
APPELER_METHODE ARBO SUPPRIMER _ARB_RACINE NB2
APPELER_METHODE ARBO AJOUTER _ARB_RACINE _ARB_POS_FIN 'Saisons' *AUCUN *AUCUN *AUCUN WID_NOEUD NB2
APPELER_METHODE ARBO FIXER_COULEUR_TEXTE WID_NOEUD _ARB_COUL_SYSTEME NB2
APPELER_METHODE ARBO FIXER_IMAGE WID_NOEUD 0 _ARB_TOUS_ETATS NB2
APPELER_METHODE ARBO AJOUTER WID_NOEUD _ARB_POS_FIN 'Printemps' *AUCUN *AUCUN *AUCUN WID_NOEUD NB2
APPELER_METHODE ARBO FIXER_COULEUR_TEXTE WID_NOEUD _ARB_COUL_VERTFONCE NB2
APPELER_METHODE ARBO FIXER_IMAGE WID_NOEUD WIMG(1) _ARB_TOUS_ETATS NB2
APPELER_METHODE ARBO AJOUTER WID_NOEUD _ARB_POS_APRES 'Eté' *AUCUN *AUCUN *AUCUN WID_NOEUD NB2
APPELER_METHODE ARBO FIXER_COULEUR_TEXTE WID_NOEUD _ARB_COUL_BLEUFONCE NB2
APPELER_METHODE ARBO FIXER_IMAGE WID_NOEUD WIMG(2) _ARB_TOUS_ETATS NB2
APPELER_METHODE ARBO AJOUTER WID_NOEUD _ARB_POS_APRES 'Automne' *AUCUN *AUCUN *AUCUN WID_NOEUD NB2
APPELER_METHODE ARBO FIXER_COULEUR_TEXTE WID_NOEUD _ARB_COUL_ROUGEFONCE NB2
APPELER_METHODE ARBO FIXER_IMAGE WID_NOEUD WIMG(3) _ARB_TOUS_ETATS NB2
APPELER_METHODE ARBO AJOUTER WID_NOEUD _ARB_POS_APRES 'Hiver' *AUCUN *AUCUN *AUCUN WID_NOEUD NB2
APPELER_METHODE ARBO FIXER_COULEUR_TEXTE WID_NOEUD _ARB_COUL_GRISFONCE NB2
APPELER_METHODE ARBO FIXER_IMAGE WID_NOEUD WIMG(4) _ARB_TOUS_ETATS NB2 |
Articles connexes
...