Seneca Z-D-IN
Detaljer
- Typ
- Drivrutin
- Upplaggd av
- Ove Jansson, Abelko Innovation
- Version
- 1
- Uppdaterad
- 2013-08-27
- Skapad
- 2013-08-27
- Kategori
- IO enheter, Modbus
- Visningar
- 3112
Beskrivning
Seneca Z-D-IN (fem digitala ingångar)
Bruksanvisning
Hur man installerar typdefinitionerna och driftsätter modulerna finns beskrivet i användarmanualen, kapitel 18.7. För inkopplingsanvisningar och liknande, se modulens manual. Den kan hämtas från Senecas hemsida: http://www.seneca.it/
Det finns ett skript för att konfigurera Seneca enheter
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
DEVICETYPE SenecaZDIN NAMED "Seneca Z-D-IN" TYPEID 21001
IS
PARAMETER
Id :"Address";
Filter:"Filter" ["ms"];
PUBLIC
DI_1 :"DI1";
DI_2 :"DI2";
DI_3 :"DI3";
DI_4 :"DI4";
DI_5 :"DI5";
PRIVATE
BAUDRATE 38400;
CHECKSUM MODBUS SWAPPED;
TELEGRAM ReadInputs NAMED "Read Inputs" IS
QUESTION
DATA[0] := BYTE(Id);
DATA[1] := HEX(03);
DATA[2] := HEX(00);
DATA[3] := HEX(01);
DATA[4] := HEX(00);
DATA[5] := HEX(01);
ANSWER SIZE 7
DATA[0] = BYTE(Id);
DATA[1] = HEX(03);
DATA[2] = HEX(02);
DATA[3] -> RWORD(IF (DATA MOD 2) > 0 THEN DI_1 := 1; ELSE DI_1 := 0; ENDIF;
IF (FLOOR(DATA / 2) MOD 2) > 0 THEN DI_2 := 1; ELSE DI_2 := 0; ENDIF;
IF (FLOOR(DATA / 4) MOD 2) > 0 THEN DI_3 := 1; ELSE DI_3 := 0; ENDIF;
IF (FLOOR(DATA / 8) MOD 2 )> 0 THEN DI_4 := 1; ELSE DI_4 := 0; ENDIF;
IF (FLOOR(DATA / 16) MOD 2 )> 0 THEN DI_5 := 1; ELSE DI_5 := 0; ENDIF;
);
TIMEOUT 300
END;
TELEGRAM WriteFilt NAMED "W FilterSetting" IS
QUESTION
DATA[0] := BYTE(Id);
DATA[1] := HEX(06);
DATA[2] := RWORD(7);
DATA[4] := RWORD(Filter);
ANSWER SIZE 8
DATA[0] = BYTE(Id);
DATA[1] = HEX(06);
TIMEOUT 300
END;
END;
IS
PARAMETER
Id :"Address";
Filter:"Filter" ["ms"];
PUBLIC
DI_1 :"DI1";
DI_2 :"DI2";
DI_3 :"DI3";
DI_4 :"DI4";
DI_5 :"DI5";
PRIVATE
BAUDRATE 38400;
CHECKSUM MODBUS SWAPPED;
TELEGRAM ReadInputs NAMED "Read Inputs" IS
QUESTION
DATA[0] := BYTE(Id);
DATA[1] := HEX(03);
DATA[2] := HEX(00);
DATA[3] := HEX(01);
DATA[4] := HEX(00);
DATA[5] := HEX(01);
ANSWER SIZE 7
DATA[0] = BYTE(Id);
DATA[1] = HEX(03);
DATA[2] = HEX(02);
DATA[3] -> RWORD(IF (DATA MOD 2) > 0 THEN DI_1 := 1; ELSE DI_1 := 0; ENDIF;
IF (FLOOR(DATA / 2) MOD 2) > 0 THEN DI_2 := 1; ELSE DI_2 := 0; ENDIF;
IF (FLOOR(DATA / 4) MOD 2) > 0 THEN DI_3 := 1; ELSE DI_3 := 0; ENDIF;
IF (FLOOR(DATA / 8) MOD 2 )> 0 THEN DI_4 := 1; ELSE DI_4 := 0; ENDIF;
IF (FLOOR(DATA / 16) MOD 2 )> 0 THEN DI_5 := 1; ELSE DI_5 := 0; ENDIF;
);
TIMEOUT 300
END;
TELEGRAM WriteFilt NAMED "W FilterSetting" IS
QUESTION
DATA[0] := BYTE(Id);
DATA[1] := HEX(06);
DATA[2] := RWORD(7);
DATA[4] := RWORD(Filter);
ANSWER SIZE 8
DATA[0] = BYTE(Id);
DATA[1] = HEX(06);
TIMEOUT 300
END;
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.