// Nom du graphe
sNomGraphe est une chaîne = "MonGraphe"
// Définition du type de graphe
grCrée(sNomGraphe, grHisto)
// Destination du graphe
grDestinationFen(sNomGraphe, "", sNomGraphe)
grFenTaille(sNomGraphe, 10,10,650,490)
// Autres textes
sMaPolice2 est une Police
sMaPolice2 = PoliceCrée("Arial", 8, iNormal)
grPoliceTitreAxe(sNomGraphe, sMaPolice2)
grPoliceEtiquette(sNomGraphe, sMaPolice2)
grPoliceLégende(sNomGraphe, sMaPolice2)
// Titre de l'axe des abscisses
grTitreAxe(sNomGraphe, "Titre de l'axe horizontal", grAbscisse)
// Titre de l'axe des ordonnées
grTitreAxe(sNomGraphe, "Titre de l'axe vertical", grOrdonnée)
// Position de la légende
grLégende(sNomGraphe, grSans)
// Quadrillage horizontal
grQuadrillage(sNomGraphe, Vrai, grAbscisse)
// Affichage des valeurs
grLibellé(sNomGraphe, grAfficheValeur, Vrai)
// Série n°1
// Couleur de la série
grCouleurSérie(sNomGraphe, 1, RVB(228, 182, 45))
// Légende de la série
grEtiquetteSérie(sNomGraphe, 1, "Série 1")
// Libellés des catégories
grSourceEtiquetteCatégorie("MonGraphe", grColonneTable, "table1.Colonne1")
// Espacement entre les barres
grHistoEspacement(sNomGraphe, 2)
// Exemple de données
grAjouteDonnée(sNomGraphe, 1, 7)
grAjouteDonnée(sNomGraphe, 1, 8)
grAjouteDonnée(sNomGraphe, 1, 9)
grAjouteDonnée(sNomGraphe, 1, 14)
// Dessin du graphe
grDessine(sNomGraphe)