Månadsvis visninga av en energi en mätare

Detaljer

Typ
Program
Upplaggd av
Jens Marklund, Abelko Innovation
Version
1
Uppdaterad
2013-08-13
Skapad
2013-08-13
Kategori
Mätare
Visningar
2269

Beskrivning

Med detta script kan man presentera sin energiförbrukning månadsvis.
När ett år har gått så börjar scriptet skriva över förra årets aktuella månad.

Bruksanvisning

1. Skapa en kanal för varje månad Jan-Dec
2.Välj in energimätarens mätarställning
3.Skapa en kanal som visar aktuell månad.

Juridisk information

Alla skript tillhandahålls i befintligt skick och all användning sker på eget ansvar. Felaktig använding kan leda till skadad eller förstörd utrustning.

Skript kod

ROUTINE MonthWise
ALIAS
  Meter = CHANNEL[71]; %Energi
  MeterBase = CHANNEL[79]; %Meter base
  CurrentMonth = CHANNEL[80]; %Current month
  Jan = CHANNEL[83]; %Januari
  Feb = CHANNEL[84]; %Februari
  Mars = CHANNEL[85]; %Mars
  April = CHANNEL[86]; %April
  May = CHANNEL[87]; %Maj
  June = CHANNEL[88]; %Juni
  July = CHANNEL[89]; %Juli
  Aug = CHANNEL[90]; %Augusti
  Sept = CHANNEL[91]; %September
  Oct = CHANNEL[92]; %Oktober
  Nov = CHANNEL[93]; %November
  Dec = CHANNEL[94]; %December
VAR
  Month;
  Value;
BEGIN
  IF Meter > 0 THEN
  Value := Meter - MeterBase;
  Month := CurrentMonth;
  IF TIME_MONTH <> CurrentMonth THEN
    MeterBase <- Meter;
    CurrentMonth <- TIME_MONTH;
  ENDIF;

  IF Month = 1 THEN Jan <- Value;
  ELSIF Month = 2 THEN Feb <- Value;
  ELSIF Month = 3 THEN Mars <- Value;
  ELSIF Month = 4 THEN April <- Value;
  ELSIF Month = 5 THEN May <- Value;
  ELSIF Month = 6 THEN June <- Value;
  ELSIF Month = 7 THEN July <- Value;
  ELSIF Month = 8 THEN Aug <- Value;
  ELSIF Month = 9 THEN Sept <- Value;
  ELSIF Month = 10 THEN Oct <- Value;
  ELSIF Month = 11 THEN Nov <- Value;
  ELSIF Month = 12 THEN Dec <- Value;
  ENDIF;
 ENDIF;
END;

Användarnas noteringar

Du måste vara inloggad för att göra en notering. Bli medlem eller logga in. Vi använder en moderator som godkänner noteringarna innan de visas.