Binärstyrning 5 steg
Detaljer
- Typ
- Program
- Upplaggd av
- Jens Marklund, Abelko Innovation
- Version
- 3
- Uppdaterad
- 2013-11-07
- Skapad
- 2013-08-13
- Kategori
- Allmän automation, Värme, Ventilation
- Visningar
- 3619
Beskrivning
Binär styrning i fem steg av t.ex elvärme batteri
Bruksanvisning
1.Skapa en kanal där du skickar in styrsignalen 0-100%.
2.Skapa en parameter där du anger hur ofta i sekunder som uppdatering sker.
3 Skapa 5st utgångs (DO) kanaler.
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 BinStyr5Steg
ALIAS
intervall = PARAMETER[1]; % Hur ofta i sekunder som uppdatering sker
Effekt = CHANNEL[50]; % Önskad effekt 0-100%
Steg1 = CHANNEL[33]; % styrning steg 1 (1 = på, 0 = av)
Steg2 = CHANNEL[34]; % styrning steg 1 (1 = på, 0 = av)
Steg3 = CHANNEL[35]; % styrning steg 1 (1 = på, 0 = av)
Steg4 = CHANNEL[36]; % styrning steg 1 (1 = på, 0 = av)
Steg5 = CHANNEL[37]; % styrning steg 1 (1 = på, 0 = av)
VAR
test;
sek;
BEGIN
IF (sek>intervall) THEN
sek := 0;
test := ROUND((Effekt/100)*31);
IF (test & 1) THEN Steg1 <- 1; ELSE Steg1 <- 0; ENDIF;
IF (test & 2) THEN Steg2 <- 1; ELSE Steg2 <- 0; ENDIF;
IF (test & 4) THEN Steg3 <- 1; ELSE Steg3 <- 0; ENDIF;
IF (test & 8) THEN Steg4 <- 1; ELSE Steg4 <- 0; ENDIF;
IF (test & 16) THEN Steg5 <- 1; ELSE Steg5 <- 0; ENDIF;
ENDIF;
sek := sek + 1;
END;
ALIAS
intervall = PARAMETER[1]; % Hur ofta i sekunder som uppdatering sker
Effekt = CHANNEL[50]; % Önskad effekt 0-100%
Steg1 = CHANNEL[33]; % styrning steg 1 (1 = på, 0 = av)
Steg2 = CHANNEL[34]; % styrning steg 1 (1 = på, 0 = av)
Steg3 = CHANNEL[35]; % styrning steg 1 (1 = på, 0 = av)
Steg4 = CHANNEL[36]; % styrning steg 1 (1 = på, 0 = av)
Steg5 = CHANNEL[37]; % styrning steg 1 (1 = på, 0 = av)
VAR
test;
sek;
BEGIN
IF (sek>intervall) THEN
sek := 0;
test := ROUND((Effekt/100)*31);
IF (test & 1) THEN Steg1 <- 1; ELSE Steg1 <- 0; ENDIF;
IF (test & 2) THEN Steg2 <- 1; ELSE Steg2 <- 0; ENDIF;
IF (test & 4) THEN Steg3 <- 1; ELSE Steg3 <- 0; ENDIF;
IF (test & 8) THEN Steg4 <- 1; ELSE Steg4 <- 0; ENDIF;
IF (test & 16) THEN Steg5 <- 1; ELSE Steg5 <- 0; ENDIF;
ENDIF;
sek := sek + 1;
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.