Code : Tout sélectionner

<?
//Ce script calcule la consommation de mazout, par jour et par mois
//Il est appelé par les règles "Mazout Chaudiere On", "Mazout Chaudiere Off" et "Mazout Chaudiere Stats"
//Version 1.0, Thierry Branca, Mai 2017
//
//Paramètre "Command" peut prendre les valeurs suivantes
//On: Enclenchement du brûleur
//Off: Arrêt du brûleur
//Stats: A exécuter avant minuit, par exemple 23h56. Le script met à jour les variable "MazoutStatJ" et "MazoutStatM",
//       et MazoutJ et MazoutM si la chaudière est en fonction.
//       Donc important, à exécuter uniquement 1x par jour, et entre 23h00 et minuit.
//Reset: pour remettre à zéro toutes les variables (Etats virtuels + variables sur la box)
//
//Et les autres paramètres:
//Parameter "MazoutJ"     = Consommation depuis minuis
//Parameter "MazoutM"     = Consommation depuis le début du mois
//Parameter "MazoutStatJ" = Consommation journalière
//Parameter "MazoutStatM" = Consommation mensuelle
//
//Exemple d'appel:
//http://localhost/script/?exec=MazoutConso.php&Command=On&MazoutJ=AAAAAA&MazoutM=BBBBBB&MazoutStatJ=CCCCCC&MazoutStatM=DDDDDD
//
//Mon gicleur
//Gicleur Danfoss, Brûleur Elco VB 1.20
//0.3 USGal/heure, 1USGal = 3,785411784 litres   ==> 1.1356235352 l/heure
//
//Variables sauvegardées sur la box eedomus
//ChaudiereElapse :Durée totale d'enclenchement de la chaudière, en secondes
//ChaudiereLastOn :Timestamp dernier enclenchement de la chaudière



////////////////////////////////////////
//MAIN
////////////////////////////////////////

//Débit du gicleur : A adapter selon le débit du gicleur, doit être en litres par seconde
$Gicleur = 1.1356235352/3600.0;                      //1.1356235352 l/h, divisé en 3600 pour obtenir le débit l/s

$ChaudiereLastOn = loadVariable('ChaudiereLastOn');  //Récupère la variable ChaudiereLastOn sauvée sur la box
$ChaudiereElapse = loadVariable('ChaudiereElapse');  //Récupère la variable ChaudiereElapse sauvée sur la box

$MazoutJ_id = getArg('MazoutJ','-1');                //Récupère le paramètre MazoutJ
$MazoutM_id = getArg('MazoutM','-1');                //Récupère le paramètre MazoutM
$MazoutStatJ_id = getArg('MazoutStatJ','-1');        //Récupère le paramètre MazoutStatJ
$MazoutStatM_id = getArg('MazoutStatM','-1');        //Récupère le paramètre MazoutStatM

//echo "MazoutJ_id: ",  $MazoutJ_id , "\n";          //Debug 
//echo "MazoutM_id: " , $MazoutM_id , "\n";          //Debug
//echo "MazoutStatJ_id: ",  $MazoutStatJ_id , "\n";  //Debug
//echo "MazoutStatM_id: " , $MazoutStatM_id , "\n";  //Debug

$t = getValue($MazoutJ_id);  $MazoutJ=$t['value'];   //Récupère la valeur prédente de MazoutJ
$t = getValue($MazoutM_id);  $MazoutM=$t['value'];   //Récupère la valeur prédente de MazoutM
//echo "Previous MazoutJ: ",  $MazoutJ , "\n";       //Debug
//echo "Previous MazoutM: " , $MazoutM , "\n";       //Debug   
//var_dump($t);                                      //Debug



$Command = getArg('Command','-1');                   //Command, doit être On, Off, Stats ou Reset
//echo "Command: " , $Command , "\n";                //Debug           


switch ($Command) {

  //On/////////////////////
  case "On":
    If ($ChaudiereLastOn == 0) {                              //Test la séquence. Erreur si LastOn <> 0. Le script est appelé consécutivement avec "On". Dans ce cas, on ignore
      SaveVariable('ChaudiereLastOn', strtotime("now"));      //Sauve l'heure actuelle dans la variable sur la box ChaudiereLastOn
    }                                                         //On ignore donc si mauvaise séquence
  break;                                                      //And exit

  //Off/////////////////////
  case "Off":
    If ($ChaudiereLastOn <> 0) {                              //Test la séquence. $ChaudiereLastOn doit être différent de 0
      //Met à jour le temps total pendant lequel la chaudière est enclenchée
      //Mais ignore les On/Off trop courts (<= 3min), dûs à d'autres bruits (e.g. porte qui claque, etc)
      $Now=strtotime("now");
      $Elapse = $Now - $ChaudiereLastOn;
      If ($Elapse > 180)  {                                    //Ignore tout enclenchement inférieur à 180s
        $ChaudiereElapse=$ChaudiereElapse + $Elapse ;          //Comptabilise le dernier enclenchement
        saveVariable('ChaudiereElapse', $ChaudiereElapse);     //Sauve le nouveau temps total
        setValue($MazoutJ_id, $MazoutJ + $Elapse * $Gicleur);  //Met à jour la conso depuis minuit
        setValue($MazoutM_id, $MazoutM + $Elapse * $Gicleur);  //Met à jour la conso depuis le début du mois
        saveVariable('ChaudiereLastOn', 0);                    //Sauve ChaudiereLastOn à "0" pour contrôler les séquences On-Off. Elles doivent se succéder
      }
    }                                                       //Ne fait rien si la séquence n'est pas bonne
  break;                                                    //And exit


  //Stats/////////////////////
  case "Stats":
   
    $Delta=0;                                               //Contiendra la consommation en cours si le brûleur est enclenché
 
    //Comptabilise l'enclenchement en cours si le brûleur est en fonction
    If ($ChaudiereLastOn <> 0) {                            //Chaudière est en fonctionnement si $ChaudiereLastOn <> 0
      $Now=strtotime("now");
      $Elapse = $Now - $ChaudiereLastOn;

      $ChaudiereElapse=$ChaudiereElapse + $Elapse ;         //Comptabilise le dernier enclenchement
      saveVariable('ChaudiereElapse', $ChaudiereElapse);    //Sauve le nouveau temps total
      saveVariable('ChaudiereLastOn', strtotime("now"));    //Sauve l'heure actuelle dans la variable sur la box ChaudiereLastOn
 
      $Delta=$Elapse * $Gicleur;                            //Met à jour la variable $Delta avec la consommation du brûleur en cours
    }   
   
    setValue($MazoutStatJ_id, $MazoutJ + $Delta);           //Met à jour la conso du jour précédent
    setValue($MazoutJ_id, 0, false);                        //Réinitialise le compteur journalier
    setValue($MazoutM_id, $MazoutM + $Delta);               //Met à jour la conso depuis le début du mois
   

    //Nouveau mois?
    $tomorrow = date("d", strtotime("+1 day"));             //Dernier jour du mois si demain, c'est le 1er
    //echo "Tomorrow= ", $tomorrow, "\n";                   //Debug
    $h=date("G");                                           //Heure, format 0 to 23
    if ($tomorrow == 1 AND $h == 23) {
      setValue($MazoutStatM_id, $MazoutM + $Delta, false);  //Met à jour la conso du mois précédent
      setValue($MazoutM_id, 0, false);                      //Réinitialise le compteur mensuel
    };

  break;                                                    //And exit

  //Reset///////////////////// 
  case "Reset":
   
    saveVariable('ChaudiereElapse', 0);                    //Met à zéro les variables sur la box
    saveVariable('ChaudiereLastOn', 0);                   
   
    setValue($MazoutJ_id, 0, false);                       //Et les Etats virtuels
    setValue($MazoutM_id, 0, false);     
    setValue($MazoutStatJ_id, 0, false);
    setValue($MazoutStatM_id, 0, false);
  break;                                                   //And exit


  default:                     //Au cas ou
  break;

} //switch

?>


Cen a écrit:Super! Bien joué
Si tu as des idées d'amélioration, je suis preneur