PROCEDURE TRACER_GRAPHE()
// Création du graphe histogramme empilé
grCrée("GRAPH_TAUX",grHistoEmpilé) // nom du graphe
// Destination du graphe
grDestinationChamp("GRAPH_TAUX",Image1)
// Création de la police // optionnel
sMaPolice,sMapoliceRouge est une Police
sMaPolice = PoliceCrée("Arial", 8, iGras)
// Police des étiquettes
grPoliceEtiquette("GRAPH_TAUX", sMaPolice)
// Police de la légende
grPoliceLégende("GRAPH_TAUX", sMaPolice)
// Police du titre du graphe
grPoliceTitre("GRAPH_TAUX", sMaPolice)
// Police du titre des axes
grPoliceTitreAxe("GRAPH_TAUX", sMaPolice)
// Modification de la graduation de début et de fin sur l'axe horizontal
// du graphe "MonGraphe". La graduation ira de 0 à 120
grOrigine("GRAPH_TAUX",0,120, grOrdonnée)
// L'axe vertical du graphe "MonGraphe" est gradué avec
// une fréquence de graduations de 5 en 5
grGraduation("GRAPH_TAUX",5,grOrdonnée)
// Modification du titre de l'axe vertical et horizontal du graphe "MonGraphe"
grTitreAxe("GRAPH_TAUX", "Taux de remplissage en %", grOrdonnée) // vertical
grTitreAxe("GRAPH_TAUX", "Dates",grAbscisse)// horizontal
// Affichage des étiquettes
grLibellé("GRAPH_TAUX", grAfficheEtiquette, Vrai)
// Ajout des données
nValeur,I sont entiers
// TABLE Mémoire à 3 colonnes seules les colonnes 2 et 3 sont utiles ici
// col. 2 est un entier
// col. 3 est une chaine
POUR I=1 A TableOccurrence(TABLE) // lecture des données de la table TABLE
grCouleurSérie("GRAPH_TAUX",1,iVertClair)
grCouleurSérie("GRAPH_TAUX",2,iJauneClair)
grCouleurSérie("GRAPH_TAUX",3, iRougeClair)
grCouleurSérie("GRAPH_TAUX",4, iNoir)
// Avec table1[i][2], nous récupérons la valeur de chaque ligne
// la valeur 1 ou 2 ou 3 ou 4 correspondent au numéro de la série.
nValeur = TABLE[I][2] // nvaleur varie de 0 à 120 dans la colonne[2] de Table
SI nvaleur<P ALORS
grAjouteDonnée("GRAPH_TAUX",1,nvaleur) // 1= N° de série
grAjouteDonnée("GRAPH_TAUX",2,0) // 2= N° série
grAjouteDonnée("GRAPH_TAUX",3,0) // 3
grAjouteDonnée("GRAPH_TAUX",4,0) // 4
SINON
SI 50<nvaleur<u ALORS
grAjouteDonnée("GRAPH_TAUX",1,50)
grAjouteDonnée("GRAPH_TAUX",2,nvaleur-50)
grAjouteDonnée("GRAPH_TAUX",3,0)
grAjouteDonnée("GRAPH_TAUX",4,0)
SINON
SI 75<nvaleur<0 ALORS
grAjouteDonnée("GRAPH_TAUX",1,50)
grAjouteDonnée("GRAPH_TAUX",2,25)
grAjouteDonnée("GRAPH_TAUX",3,nvaleur-75)
grAjouteDonnée("GRAPH_TAUX",4,0)
SINON
SI nvaleur>100 ALORS
grAjouteDonnée("GRAPH_TAUX",1,50)
grAjouteDonnée("GRAPH_TAUX",2,25)
grAjouteDonnée("GRAPH_TAUX",3,25)
grAjouteDonnée("GRAPH_TAUX",4,nvaleur-100)
FIN
FIN
FIN
FIN
nvaleur=0 // remise à zéro
//Donne un libellé au catégorie
//i correspond au numéro de la catégorie
// Avec table[i][3], nous récupérons le libellé des lignes de la 3eme colonne du tableau.
grEtiquetteCatégorie("GRAPH_TAUX",I,TABLE[I][3])
FIN
// Initialisation des étiquettes légende de série 1 à 4
grEtiquetteSérie("GRAPH_TAUX", 1, "de 0% à 50%")
grEtiquetteSérie("GRAPH_TAUX", 2, "de 51% à 75%")
grEtiquetteSérie("GRAPH_TAUX", 3, "de 76% à 100%")
grEtiquetteSérie("GRAPH_TAUX", 4, "supérieur à 100%")
grLégende("GRAPH_TAUX", grADroite)
// Dessin du graphe
grDessine("GRAPH_TAUX") |