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;
(* to tylko część kodu tak dla przykładu *)