Utilisation d'Artichow pour generer les graphiques
This commit is contained in:
Rodolphe Quiedeville
parent
302ad11dd9
commit
d5d941a7cb
@ -1,5 +1,5 @@
|
|||||||
<?PHP
|
<?PHP
|
||||||
/* Copyright (C) 2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
/* Copyright (C) 2005-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||||||
*
|
*
|
||||||
* This program is free software; you can redistribute it and/or modify
|
* This program is free software; you can redistribute it and/or modify
|
||||||
* it under the terms of the GNU General Public License as published by
|
* it under the terms of the GNU General Public License as published by
|
||||||
@ -24,18 +24,12 @@ require_once("../../htdocs/master.inc.php");
|
|||||||
require_once(DOL_DOCUMENT_ROOT."/energie/EnergieCompteur.class.php");
|
require_once(DOL_DOCUMENT_ROOT."/energie/EnergieCompteur.class.php");
|
||||||
require_once(DOL_DOCUMENT_ROOT."/energie/EnergieGroupe.class.php");
|
require_once(DOL_DOCUMENT_ROOT."/energie/EnergieGroupe.class.php");
|
||||||
|
|
||||||
include_once(JPGRAPH_DIR."jpgraph.php");
|
require_once (DOL_DOCUMENT_ROOT."/../external-libs/Artichow/BarPlot.class.php");
|
||||||
include_once(JPGRAPH_DIR."jpgraph_line.php");
|
require_once (DOL_DOCUMENT_ROOT."/../external-libs/Artichow/LinePlot.class.php");
|
||||||
include_once(JPGRAPH_DIR."jpgraph_bar.php");
|
|
||||||
include_once(JPGRAPH_DIR."jpgraph_pie.php");
|
|
||||||
include_once(JPGRAPH_DIR."jpgraph_error.php");
|
|
||||||
include_once(JPGRAPH_DIR."jpgraph_canvas.php");
|
|
||||||
|
|
||||||
$error = 0;
|
$error = 0;
|
||||||
|
|
||||||
$sql_c = "SELECT rowid";
|
$sql_c = "SELECT rowid FROM ".MAIN_DB_PREFIX."energie_compteur";
|
||||||
$sql_c .= " FROM ".MAIN_DB_PREFIX."energie_compteur";
|
|
||||||
|
|
||||||
$resql_c = $db->query($sql_c);
|
$resql_c = $db->query($sql_c);
|
||||||
|
|
||||||
if ($resql_c)
|
if ($resql_c)
|
||||||
@ -146,29 +140,28 @@ if ($resql_c)
|
|||||||
$height = 300;
|
$height = 300;
|
||||||
if (sizeof($gdatas) > 2)
|
if (sizeof($gdatas) > 2)
|
||||||
{
|
{
|
||||||
$graph = new Graph($width, $height,"auto");
|
|
||||||
|
|
||||||
$graph->SetScale("textlin");
|
|
||||||
$graph->yaxis->scale->SetGrace(2);
|
|
||||||
$graph->SetFrame(1);
|
|
||||||
$graph->img->SetMargin(40,20,20,35);
|
|
||||||
|
|
||||||
$b2plot = new LinePlot($gdatas);
|
|
||||||
|
|
||||||
$b2plot->SetColor("blue");
|
|
||||||
$b2plot->SetWeight(2);
|
|
||||||
|
|
||||||
$graph->title->Set("Consommation par jour");
|
|
||||||
|
|
||||||
$graph->xaxis->SetTickLabels($glabels);
|
|
||||||
$graph->xaxis->title->Set(strftime("%d/%m/%y %H:%M:%S", time()));
|
|
||||||
|
|
||||||
$graph->Add($b2plot);
|
|
||||||
$graph->img->SetImgFormat("png");
|
|
||||||
|
|
||||||
$file= DOL_DATA_ROOT."/energie/graph/day.".$obj_c->rowid.".png";
|
$file= DOL_DATA_ROOT."/energie/graph/day.".$obj_c->rowid.".png";
|
||||||
|
|
||||||
$graph->Stroke($file);
|
$group = new PlotGroup;
|
||||||
|
$group->setPadding(30, 10, NULL, NULL);
|
||||||
|
|
||||||
|
$graph = new Graph($width, $height);
|
||||||
|
$graph->border->hide();
|
||||||
|
$graph->setAntiAliasing(true);
|
||||||
|
|
||||||
|
$graph->title->set("Consommation par jour");
|
||||||
|
$graph->title->setFont(new Tuffy(10));
|
||||||
|
|
||||||
|
$bgcolor= new Color(222,231,236);
|
||||||
|
$graph->setBackgroundColor($bgcolor);
|
||||||
|
|
||||||
|
$plot = new LinePlot($gdatas);
|
||||||
|
|
||||||
|
$plot->xAxis->setLabelText($glabels);
|
||||||
|
$plot->xAxis->label->setFont(new Tuffy(7));
|
||||||
|
|
||||||
|
$graph->add($plot);
|
||||||
|
$graph->draw($file);
|
||||||
}
|
}
|
||||||
$width = 450;
|
$width = 450;
|
||||||
$height = 300;
|
$height = 300;
|
||||||
@ -183,27 +176,30 @@ if ($resql_c)
|
|||||||
}
|
}
|
||||||
if (sizeof($gmdatas))
|
if (sizeof($gmdatas))
|
||||||
{
|
{
|
||||||
$graph = new Graph($width, $height,"auto");
|
|
||||||
$graph->SetScale("textlin");
|
|
||||||
|
|
||||||
$graph->yaxis->scale->SetGrace(2);
|
|
||||||
$graph->SetFrame(1);
|
|
||||||
$graph->img->SetMargin(40,20,20,35);
|
|
||||||
|
|
||||||
$b2plot = new BarPlot($gmdatas);
|
|
||||||
$b2plot->SetFillColor("blue");
|
|
||||||
|
|
||||||
$graph->title->Set("Consommation par mois");
|
|
||||||
|
|
||||||
$graph->xaxis->SetTickLabels($gmlabels);
|
|
||||||
$graph->xaxis->title->Set(strftime("%d/%m/%y %H:%M:%S", time()));
|
|
||||||
|
|
||||||
$graph->Add($b2plot);
|
|
||||||
$graph->img->SetImgFormat("png");
|
|
||||||
|
|
||||||
$file= DOL_DATA_ROOT."/energie/graph/month.".$obj_c->rowid.".png";
|
$file= DOL_DATA_ROOT."/energie/graph/month.".$obj_c->rowid.".png";
|
||||||
|
|
||||||
$graph->Stroke($file);
|
$group = new PlotGroup;
|
||||||
|
$group->setPadding(30, 10, NULL, NULL);
|
||||||
|
|
||||||
|
$graph = new Graph($width, $height);
|
||||||
|
$graph->border->hide();
|
||||||
|
$graph->setAntiAliasing(true);
|
||||||
|
|
||||||
|
$graph->title->set("Consommation par mois");
|
||||||
|
$graph->title->setFont(new Tuffy(10));
|
||||||
|
|
||||||
|
$bgcolor= new Color(222,231,236);
|
||||||
|
$graph->setBackgroundColor($bgcolor);
|
||||||
|
|
||||||
|
$plot = new BarPlot($gmdatas);
|
||||||
|
$col = "blue";
|
||||||
|
$color = new $col ;
|
||||||
|
$plot->setBarColor($color);
|
||||||
|
$plot->xAxis->setLabelText($gmlabels);
|
||||||
|
$plot->xAxis->label->setFont(new Tuffy(7));
|
||||||
|
|
||||||
|
$graph->add($plot);
|
||||||
|
$graph->draw($file);
|
||||||
}
|
}
|
||||||
// Hebdomadaire
|
// Hebdomadaire
|
||||||
$width = 750;
|
$width = 750;
|
||||||
@ -217,28 +213,30 @@ if ($resql_c)
|
|||||||
}
|
}
|
||||||
if (sizeof($gwdatas))
|
if (sizeof($gwdatas))
|
||||||
{
|
{
|
||||||
$graph = new Graph($width, $height,"auto");
|
|
||||||
$graph->SetScale("textlin");
|
|
||||||
|
|
||||||
$graph->yaxis->scale->SetGrace(2);
|
|
||||||
$graph->SetFrame(1);
|
|
||||||
$graph->img->SetMargin(40,20,20,35);
|
|
||||||
|
|
||||||
$b2plot = new BarPlot($gwdatas);
|
|
||||||
$graph->xaxis->SetTickLabels($gwlabels);
|
|
||||||
|
|
||||||
$b2plot->SetFillColor("blue");
|
|
||||||
$graph->title->Set("Consommation par semaine");
|
|
||||||
|
|
||||||
$graph->xaxis->title->Set(strftime("%d/%m/%y %H:%M:%S", time()));
|
|
||||||
|
|
||||||
$graph->Add($b2plot);
|
|
||||||
|
|
||||||
$graph->img->SetImgFormat("png");
|
|
||||||
|
|
||||||
$file= DOL_DATA_ROOT."/energie/graph/week.".$obj_c->rowid.".png";
|
$file= DOL_DATA_ROOT."/energie/graph/week.".$obj_c->rowid.".png";
|
||||||
|
|
||||||
$graph->Stroke($file);
|
$group = new PlotGroup;
|
||||||
|
$group->setPadding(30, 10, NULL, NULL);
|
||||||
|
|
||||||
|
$graph = new Graph($width, $height);
|
||||||
|
$graph->border->hide();
|
||||||
|
$graph->setAntiAliasing(true);
|
||||||
|
|
||||||
|
$graph->title->set("Consommation par semaine");
|
||||||
|
$graph->title->setFont(new Tuffy(10));
|
||||||
|
|
||||||
|
$bgcolor= new Color(222,231,236);
|
||||||
|
$graph->setBackgroundColor($bgcolor);
|
||||||
|
|
||||||
|
$plot = new BarPlot($gwdatas);
|
||||||
|
$col = "blue";
|
||||||
|
$color = new $col ;
|
||||||
|
$plot->setBarColor($color);
|
||||||
|
$plot->xAxis->setLabelText($gwlabels);
|
||||||
|
$plot->xAxis->label->setFont(new Tuffy(7));
|
||||||
|
|
||||||
|
$graph->add($plot);
|
||||||
|
$graph->draw($file);
|
||||||
}
|
}
|
||||||
|
|
||||||
// Annuel
|
// Annuel
|
||||||
@ -254,28 +252,30 @@ if ($resql_c)
|
|||||||
|
|
||||||
if (sizeof($gydatas))
|
if (sizeof($gydatas))
|
||||||
{
|
{
|
||||||
$graph = new Graph($width, $height,"auto");
|
|
||||||
$graph->SetScale("textlin");
|
|
||||||
|
|
||||||
$graph->yaxis->scale->SetGrace(2);
|
|
||||||
$graph->SetFrame(1);
|
|
||||||
$graph->img->SetMargin(40,20,20,35);
|
|
||||||
|
|
||||||
$b2plot = new BarPlot($gydatas);
|
|
||||||
$graph->xaxis->SetTickLabels($gylabels);
|
|
||||||
|
|
||||||
$b2plot->SetFillColor("blue");
|
|
||||||
$graph->title->Set("Consommation annuelle");
|
|
||||||
|
|
||||||
$graph->xaxis->title->Set(strftime("%d/%m/%y %H:%M:%S", time()));
|
|
||||||
|
|
||||||
$graph->Add($b2plot);
|
|
||||||
|
|
||||||
$graph->img->SetImgFormat("png");
|
|
||||||
|
|
||||||
$file= DOL_DATA_ROOT."/energie/graph/year.".$obj_c->rowid.".png";
|
$file= DOL_DATA_ROOT."/energie/graph/year.".$obj_c->rowid.".png";
|
||||||
|
|
||||||
$graph->Stroke($file);
|
$group = new PlotGroup;
|
||||||
|
$group->setPadding(30, 10, NULL, NULL);
|
||||||
|
|
||||||
|
$graph = new Graph($width, $height);
|
||||||
|
$graph->border->hide();
|
||||||
|
$graph->setAntiAliasing(true);
|
||||||
|
|
||||||
|
$graph->title->set("Consommation annuelle");
|
||||||
|
$graph->title->setFont(new Tuffy(10));
|
||||||
|
|
||||||
|
$bgcolor= new Color(222,231,236);
|
||||||
|
$graph->setBackgroundColor($bgcolor);
|
||||||
|
|
||||||
|
$plot = new BarPlot($gydatas);
|
||||||
|
$col = "blue";
|
||||||
|
$color = new $col ;
|
||||||
|
$plot->setBarColor($color);
|
||||||
|
$plot->xAxis->setLabelText($gylabels);
|
||||||
|
$plot->xAxis->label->setFont(new Tuffy(7));
|
||||||
|
|
||||||
|
$graph->add($plot);
|
||||||
|
$graph->draw($file);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
@ -292,7 +292,10 @@ else
|
|||||||
dolibarr_syslog("Erreur SQL");
|
dolibarr_syslog("Erreur SQL");
|
||||||
dolibarr_syslog($db->error($resql_c));
|
dolibarr_syslog($db->error($resql_c));
|
||||||
}
|
}
|
||||||
|
/*************************************************************
|
||||||
|
* Groupes
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
$sql_g = "SELECT distinct fk_energie_groupe";
|
$sql_g = "SELECT distinct fk_energie_groupe";
|
||||||
$sql_g .= " FROM ".MAIN_DB_PREFIX."energie_compteur_groupe";
|
$sql_g .= " FROM ".MAIN_DB_PREFIX."energie_compteur_groupe";
|
||||||
@ -331,15 +334,21 @@ if ($resql_g)
|
|||||||
$width = 450;
|
$width = 450;
|
||||||
$height = 300;
|
$height = 300;
|
||||||
|
|
||||||
//
|
// Hebdo
|
||||||
$graph = new Graph($width, $height,"auto");
|
$file= DOL_DATA_ROOT."/energie/graph/groupe.week.".$row_g[0].".png";
|
||||||
$graph->SetScale("textlin");
|
|
||||||
|
|
||||||
$graph->SetFrame(1);
|
$group = new PlotGroup;
|
||||||
$graph->img->SetMargin(40,20,20,35);
|
$group->setPadding(30, 10, NULL, NULL);
|
||||||
$graph->img->SetImgFormat("png");
|
|
||||||
$graph->title->Set("Consommation hebdomadaire");
|
$graph = new Graph($width, $height);
|
||||||
$graph->xaxis->title->Set(strftime("%d/%m/%y %H:%M:%S", time()));
|
$graph->border->hide();
|
||||||
|
$graph->setAntiAliasing(true);
|
||||||
|
|
||||||
|
$graph->title->set("Consommation hebdomadaire");
|
||||||
|
$graph->title->setFont(new Tuffy(10));
|
||||||
|
|
||||||
|
$bgcolor= new Color(222,231,236);
|
||||||
|
$graph->setBackgroundColor($bgcolor);
|
||||||
|
|
||||||
$gbspl = array();
|
$gbspl = array();
|
||||||
foreach ($compteurs as $cx)
|
foreach ($compteurs as $cx)
|
||||||
@ -354,33 +363,35 @@ if ($resql_g)
|
|||||||
$gylabels[$i] = $key;
|
$gylabels[$i] = $key;
|
||||||
$i++;
|
$i++;
|
||||||
}
|
}
|
||||||
$bplot = new BarPlot($gydatas);
|
|
||||||
$cc = new EnergieCompteur($db,0);
|
|
||||||
$cc->fetch($cx);
|
|
||||||
$bplot->SetFillColor($cc->couleurs[$cc->energie]);
|
|
||||||
|
|
||||||
array_push($gbspl, $bplot);
|
array_push($gbspl, $bplot);
|
||||||
|
|
||||||
|
$plot = new BarPlot($gydatas);
|
||||||
|
$col = "green";
|
||||||
|
$color = new $col ;
|
||||||
|
$plot->setBarColor($color);
|
||||||
|
$plot->xAxis->setLabelText($gylabels);
|
||||||
|
$plot->xAxis->label->setFont(new Tuffy(7));
|
||||||
|
$graph->add($plot);
|
||||||
}
|
}
|
||||||
|
|
||||||
$gbplot = new GroupBarPlot($gbspl);
|
$graph->draw($file);
|
||||||
|
|
||||||
$graph->xaxis->SetTickLabels($gylabels);
|
|
||||||
$graph->Add($gbplot);
|
|
||||||
|
|
||||||
$file= DOL_DATA_ROOT."/energie/graph/groupe.week.".$row_g[0].".png";
|
|
||||||
if (sizeof($gbspl))
|
|
||||||
$graph->Stroke($file);
|
|
||||||
//
|
//
|
||||||
//
|
//
|
||||||
//
|
//
|
||||||
$graph = new Graph($width, $height,"auto");
|
$file= DOL_DATA_ROOT."/energie/graph/groupe.month.".$row_g[0].".png";
|
||||||
$graph->SetScale("textlin");
|
$group = new PlotGroup;
|
||||||
|
$group->setPadding(30, 10, NULL, NULL);
|
||||||
|
|
||||||
$graph->SetFrame(1);
|
$graph = new Graph($width, $height);
|
||||||
$graph->img->SetMargin(40,20,20,35);
|
$graph->border->hide();
|
||||||
$graph->img->SetImgFormat("png");
|
$graph->setAntiAliasing(true);
|
||||||
$graph->title->Set("Consommation mensuelle");
|
|
||||||
$graph->xaxis->title->Set(strftime("%d/%m/%y %H:%M:%S", time()));
|
$graph->title->set("Consommation mensuelle");
|
||||||
|
$graph->title->setFont(new Tuffy(10));
|
||||||
|
|
||||||
|
$bgcolor= new Color(222,231,236);
|
||||||
|
$graph->setBackgroundColor($bgcolor);
|
||||||
|
|
||||||
$gbspl = array();
|
$gbspl = array();
|
||||||
foreach ($compteurs as $cx)
|
foreach ($compteurs as $cx)
|
||||||
@ -395,34 +406,37 @@ if ($resql_g)
|
|||||||
$gylabels[$i] = $key;
|
$gylabels[$i] = $key;
|
||||||
$i++;
|
$i++;
|
||||||
}
|
}
|
||||||
$bplot = new BarPlot($gydatas);
|
|
||||||
|
|
||||||
$cc = new EnergieCompteur($db,0);
|
|
||||||
$cc->fetch($cx);
|
|
||||||
$bplot->SetFillColor($cc->couleurs[$cc->energie]);
|
|
||||||
|
|
||||||
array_push($gbspl, $bplot);
|
array_push($gbspl, $bplot);
|
||||||
|
|
||||||
|
$plot = new BarPlot($gydatas);
|
||||||
|
$col = "blue";
|
||||||
|
$color = new $col ;
|
||||||
|
$plot->setBarColor($color);
|
||||||
|
$plot->xAxis->setLabelText($gylabels);
|
||||||
|
$plot->xAxis->label->setFont(new Tuffy(7));
|
||||||
|
$graph->add($plot);
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
$gbplot = new GroupBarPlot($gbspl);
|
$graph->draw($file);
|
||||||
|
|
||||||
$graph->xaxis->SetTickLabels($gylabels);
|
|
||||||
$graph->Add($gbplot);
|
|
||||||
|
|
||||||
$file= DOL_DATA_ROOT."/energie/graph/groupe.month.".$row_g[0].".png";
|
|
||||||
if (sizeof($gbspl))
|
|
||||||
$graph->Stroke($file);
|
|
||||||
//
|
//
|
||||||
//
|
//
|
||||||
//
|
//
|
||||||
$graph = new Graph($width, $height,"auto");
|
$file= DOL_DATA_ROOT."/energie/graph/groupe.year.".$row_g[0].".png";
|
||||||
$graph->SetScale("textlin");
|
$group = new PlotGroup;
|
||||||
|
$group->setPadding(30, 10, NULL, NULL);
|
||||||
|
|
||||||
$graph->SetFrame(1);
|
$graph = new Graph($width, $height);
|
||||||
$graph->img->SetMargin(40,20,20,35);
|
$graph->border->hide();
|
||||||
$graph->img->SetImgFormat("png");
|
$graph->setAntiAliasing(true);
|
||||||
$graph->title->Set("Consommation annuelle");
|
|
||||||
$graph->xaxis->title->Set(strftime("%d/%m/%y %H:%M:%S", time()));
|
$graph->title->set("Consommation annuelle");
|
||||||
|
$graph->title->setFont(new Tuffy(10));
|
||||||
|
|
||||||
|
$bgcolor= new Color(222,231,236);
|
||||||
|
$graph->setBackgroundColor($bgcolor);
|
||||||
|
|
||||||
$gbspl = array();
|
$gbspl = array();
|
||||||
foreach ($compteurs as $cx)
|
foreach ($compteurs as $cx)
|
||||||
@ -437,23 +451,20 @@ if ($resql_g)
|
|||||||
$gylabels[$i] = $key;
|
$gylabels[$i] = $key;
|
||||||
$i++;
|
$i++;
|
||||||
}
|
}
|
||||||
$bplot = new BarPlot($gydatas);
|
|
||||||
|
|
||||||
$cc = new EnergieCompteur($db,0);
|
|
||||||
$cc->fetch($cx);
|
|
||||||
$bplot->SetFillColor($cc->couleurs[$cc->energie]);
|
|
||||||
|
|
||||||
array_push($gbspl, $bplot);
|
array_push($gbspl, $bplot);
|
||||||
|
|
||||||
|
$plot = new BarPlot($gydatas);
|
||||||
|
$col = "yellow";
|
||||||
|
$color = new $col ;
|
||||||
|
$plot->setBarColor($color);
|
||||||
|
$plot->xAxis->setLabelText($gylabels);
|
||||||
|
$plot->xAxis->label->setFont(new Tuffy(7));
|
||||||
|
$graph->add($plot);
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
$gbplot = new GroupBarPlot($gbspl);
|
$graph->draw($file);
|
||||||
|
|
||||||
$graph->xaxis->SetTickLabels($gylabels);
|
|
||||||
$graph->Add($gbplot);
|
|
||||||
|
|
||||||
$file= DOL_DATA_ROOT."/energie/graph/groupe.year.".$row_g[0].".png";
|
|
||||||
if (sizeof($gbspl))
|
|
||||||
$graph->Stroke($file);
|
|
||||||
//
|
//
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user