Pump växling och motionering

Detaljer

Typ
Program
Upplaggd av
Jens Marklund, Abelko Innovation
Version
2
Uppdaterad
2013-08-13
Skapad
2013-05-17
Kategori
Allmän automation, Värme
Visningar
2629

Beskrivning

För pump motionering och tvilling pump växling

Bruksanvisning

saknas

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

%För pump motionering och tvilling pump växling
%
ROUTINE PUMP
  ALIAS
    REGPUMP = CHANNEL[100]; %Startsignal Pumpar
    DO1 = CHANNEL[21]; %Manöver pump 1
    DO2 = CHANNEL[34]; %Manöver pump 2
    pumpExcercise = CALENDAR[1]; %Pumpmotionerings kalender
    shiftCal = CALENDAR[2];   %Pumpskiftes kalender
  VAR
  lastCall;
    currentPump;
  BEGIN
   IF (lastCall = 0) AND (shiftCal = 1) THEN 
      currentPump := (NOT currentPump); 
    ENDIF; 
    lastCall := shiftCal; 
    DO1 <- (currentPump AND REGPUMP) OR pumpExcercise; 
    DO2 <- ((NOT currentPump) AND REGPUMP) OR pumpExcercise; 
  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.