Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ModbusMaster(
- ENABLE :=TRUE, (*JESLI DOSTANIEMY ZAPLATE USTAWIC TRUE!!!*)
- bCOM_PORT := 2,
- cbCOM_BAUDRATE := 960,
- cpCOM_PARITY := 0,
- csCOM_STOPBITS :=2,
- cbsCOM_BYTESIZE := 8,
- cfCOM_FLOW_CONTROL := 4 ,
- TimeOut := t#500ms,
- StartFunction :=START ,
- ExtQuery :=Zapytanie ,
- Response :=Odpowiedz ,
- MB_Error =>ModbusMasterErr ,
- );
- TimerOpoznienia(IN:= NOT START, PT:= CzasOpoznienia);
- (*Opoznienie przejscia do kolejnego kroku*)
- (*IF Opoznienie.xOutput THEN*)
- IF TimerOpoznienia.Q THEN
- CASE Stan OF
- 0:
- Zapytanie.FunctionCode := 3;
- Zapytanie.Read_Quantity := 46;
- Zapytanie.Read_StartAddress := 2;
- Zapytanie.SlaveAddress := 1;
- START := TRUE;
- Stan := 1;
- 1:
- NW1_ModbusErr := ModbusMasterErr;
- IF NW1_ModbusErr = 0 THEN Centrala2PLC(Odpowiedz := Odpowiedz, obszar := 1, NrCentrali := 1); END_IF
- Stan := 2;
- 2:
- Zapytanie.FunctionCode := 3;
- Zapytanie.Read_Quantity := 46;
- Zapytanie.Read_StartAddress := 2;
- Zapytanie.SlaveAddress := 2;
- START := TRUE;
- Stan := 3;
- 3:
- NW2_ModbusErr := ModbusMasterErr;
- IF NW2_ModbusErr = 0 THEN Centrala2PLC(Odpowiedz := Odpowiedz, obszar := 1, NrCentrali := 2); END_IF
- Stan := 4;
- Zapytanie.FunctionCode := 3;
- Zapytanie.Read_Quantity := 52;
- Zapytanie.Read_StartAddress := 54;
- Zapytanie.SlaveAddress := 1;
- START := TRUE;
- Stan := 5;
- 5:
- NW1_ModbusErr := ModbusMasterErr;
- IF NW1_ModbusErr = 0 THEN Centrala2PLC(Odpowiedz := Odpowiedz, obszar := 2, NrCentrali := 1); END_IF
- Stan := 6;
- 6:
- Zapytanie.FunctionCode := 3;
- Zapytanie.Read_Quantity := 52;
- Zapytanie.Read_StartAddress := 54;
- Zapytanie.SlaveAddress := 2;
- START := TRUE;
- Stan := 7;
- 7:
- NW2_ModbusErr := ModbusMasterErr;
- IF NW2_ModbusErr = 0 THEN Centrala2PLC(Odpowiedz := Odpowiedz, obszar := 2, NrCentrali := 2); END_IF
- Stan := 8;
- 8:
- Zapytanie.FunctionCode := 3;
- Zapytanie.Read_Quantity := 36;
- Zapytanie.Read_StartAddress := 148;
- Zapytanie.SlaveAddress := 1;
- START := TRUE;
- Stan := 9;
- 9:
- NW1_ModbusErr := ModbusMasterErr;
- IF NW1_ModbusErr = 0 THEN Centrala2PLC(Odpowiedz := Odpowiedz, obszar := 3, NrCentrali := 1); END_IF
- Stan := 10;
- 10:
- Zapytanie.FunctionCode := 3;
- Zapytanie.Read_Quantity := 36;
- Zapytanie.Read_StartAddress := 148;
- Zapytanie.SlaveAddress := 2;
- START := TRUE;
- Stan := 11;
- 11:
- NW2_ModbusErr := ModbusMasterErr;
- IF NW2_ModbusErr = 0 THEN Centrala2PLC(Odpowiedz := Odpowiedz, obszar := 3, NrCentrali := 2); END_IF
- Stan := 12;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement