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;
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.