voila une petite étude que j'avais fait il y a quelque temps basée sur ma consommation d'eau. Tu peux peut-être t'en servir?
fichier.asp:
<html>
<head>
<meta http-equiv="Content-Language" content="en-gb">
<title>Conso H2O</title>
</head>
<body>
<%
TABLE="conso_eau"
Set aobjConn = CreateObject("ADODB.Connection")
aobjConn.Open(G_CONNECTION_STRING)
aDateTime = left(Now(),10)
jour=left(now(),2)
moi = left (now(),5)
moi=right (moi,2)
aujourdhui=jour&moi
astrQuery = "SELECT * FROM "& TABLE & " WHERE device='p1'"
Set aobjRS = aobjConn.Execute(astrQuery)
Datelue = aobjRS.Fields.Item(0)
ValeurCompteurH2O=aobjRS.Fields.Item(4)
premierevaleur=1
compteur=0
evolution=0
dujour=1
if dujour=1 then
While NOT(aobjRS.EOF)
ValeurCompteurH2O = aobjRS.Fields.Item(4)
Datelue = aobjRS.Fields.Item(0)
jourlu=left(Datelue,2)
moilu=left(Datelue,5)
moilu=right (moilu,2)
aujourdhuilu=jourlu&moilu
If NOT(aobjRS.EOF) Then
if aujourdhui=aujourdhuilu then
if premierevaleur=1 then
heure1=left(right (Datelue,8),2)
absys="|" & heure1
valeurs=0
evolution=ValeurCompteurH2O-valeurdedepart
derniereValeurCompteurH2O=ValeurCompteurH2O
premierevaleur=2
else
heure2=left(right (Datelue,8),2)
evolution=ValeurCompteurH2O-derniereValeurCompteurH2O
valeurs=valeurs&","&evolution
last=evolution
if heure<>heure2 then
absys=absys&"|" & heure2
heure=left(right (Datelue,8),2)
end if
derniertemps=left(right (Datelue,8),2)
end if
end if
valeurdedepart=ValeurCompteurH2O
aobjRS.MoveNext
end if
Wend
aobjConn.Close
Set aobjRS = Nothing
Set aobjConn = Nothing
titre ="Consomation H2O VĂ©olia jour:"&aujourdhui
typegraph ="lc"
AxisStr1=heure
MaxVal=last
end if
'****calcaul par moi
dumoi=0
total=0
compte=0
last=0
if dumoi=1 then
While NOT(aobjRS.EOF)
ValeurcompteurH2O = aobjRS.Fields.Item(4)
Datelue = aobjRS.Fields.Item(0)
jourlu=left(Datelue,2)
moilu=left(Datelue,5)
moilu=right (moilu,2)
aujourdhuilu=jourlu&moilu
If NOT(aobjRS.EOF) Then
if moi=moilu then 'moi recherché
if premierevaleur=1 then
jourencour=jourlu
valeurs=0
absys="|" & jourencour
premierevaleur=2
end if
if jourlu=jourencour then 'c'est le mĂŞme jour
jourdavant=jourencour'sauvegarde le jour actuel pour la calcul au chgt de jour
nombredelitres=ValeurcompteurH2O-valeurdedepart 'calcul par rapport à la dernièer valeur du jour sauvegardée
derniereValeurcompteurH2O=ValeurcompteurH2O'sauvegarde la valeur pour le calcul du prochain jour
meilleurlast=nombredelitres
if meilleurlast >last then 'recherche de la valeur la plus élevée
last=meilleurlast
end if
else 'ce n'est plus le mĂŞme jour
valeurs=valeurs & "," & nombredelitres 'ajoute la somme calculée pour les absys
nombredelitres=ValeurcompteurH2O-jourdavant ' dernier calcul du jour antérieur
total=total+valeurjour
valeurdedepart=derniereValeurcompteurH2O'fixe la valeur de départ pour le calcul suivant
jourencour=jourlu 'fixe la valeur du nouveau jour
meilleurlast=valeurjour
absys=absys & "|" &jourencour 'ajoute le jour pour les datas de l'absys
end if
else
valeurdedepart=ValeurcompteurH2O
end if
aobjRS.MoveNext
end if
Wend
valeurs=valeurs & "," & nombredelitres
aobjConn.Close
Set aobjRS = Nothing
Set aobjConn = Nothing
titre ="Consomation H2O VĂ©olia moi:"&moi
typegraph ="bvg"
AxisStr1=jourlu
MaxVal=last
end if
'************** GRAPHIQUE *******************
taillegraph ="600x300"
axey ="chxr=0,0," &AxisStr1&"|1,0,"&MaxVal+1
axex ="chxt=x,y&chds=0,"&MaxVal
response.write "<td colspan=""4"">"
response.write "<p align=""center"">"
response.write "<img src=""http://chart.apis.google.com/chart?"
response.write "&" & axex & ""
response.write "&" & axey & ""
'response.write "&chbh=10,5,10"
response.write "&cht="& typegraph & ""
response.write "&chs="& taillegraph & ""
response.write "&chd=t:"& valeurs & ""
response.write "&chtt=" & titre & ""
response.write "&chdl=Litres"
response.write "&chls=1&chg=-1,0"
response.write "&chm=N,FF0000,0,-1,8|D,000000,0,-1,1"
response.write "&chts=FF0000,10.5"
response.write """/>"
response.write "</td></p>"
'***********************************************
%>
</TBODY>
