Déclaration
NUM_BIN_4 |
NbSeries |
/* Nombre de séries sur l'histogramme |
NUM_BIN_4 |
NbPoints |
/* Nombre de points sur l'histogramme |
ALPHA(250) |
TabEtiquettes(10) |
/* Tableau des étiquettes par valeurs |
NUM_BIN_4 |
NumSerie |
/* Numéro de la série à représenter |
NUM_E(15,4) |
TabPoints(10) |
/* Tableau des valeurs des points |
ALPHA(250) |
TabLabels(10) |
/* Tableau des valeurs des labels de chaque point |
NUM_E(15,4) |
TabErreurs(10) |
/* Tableau des erreurs |
*** |
|
|
Programme
******************************************* * Objet graphique Histogramme HST_01 * Une liste graphique LST_GRAPH * composée de 2 colonnes : * - Nom (Légendes) * - Nombre (Etiquettes) ******************************************* * Paramétrage des titres en haut de l'histogramme * HST_01:TITRE_PRINCIPAL = 'HARDIS' ******************************************* * Définir la série en cours (1) – Dessin et préparation de l'histogramme * Axes, légendes, titres... * Nombre de points, Légendes, Etiquettes * * Initialisation du tableau de légendes TabLegendes = *blank NbPoints = 0 * Parcours de toutes les lignes de la liste lecture_lst LST_GRAP:LISTE NbPoints = NbPoints + 1 * Dessin de l'étiquette pour chaque point TabEtiquettes(NbPoints) = ZZ_COL_NOM fin_lecture_lst NbSeries = 1 appeler_methode HST_01 definir_graphique NbSeries NbPoints TabEtiquettes TabLegendes ******************************************** * Dessiner le graphe pour la série (1) – Afficher les valeurs * NumSerie = 1 NbPoints = 0 * Parcours de la liste lecture_lst LST_GRAP:LISTE NbPoints = NbPoints + 1 * Dessine les barres TabPoints(NbPoints) = ZZ_COL_NBRE * Affiche les valeurs TabLabels(NbPoints) = ZZ_COL_NBRE fin_lecture_lst * appeler_methode HST_01 definir_donnees NumSerie TabPoints TabLabels TabErreurs |
