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*)
- (*Opoznienie(xInput:= NOT (Start OR Opoznienie.xOutput), dwTon_10tel_s:= CzasOpoznienia, dwToff_10tel_s:= CzasOpoznienia);*)
- (*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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement