640?wx_fmt=png&from=appmsg.jpg

R_trig_0(CLK:=bSwitch);

F_trig_0(CLK:=bSwitch);



IF R_trig_0.Q  THEN

  IF  bLight_EW THEN

     iState:= 30;

  ELSE

    iState := 10;

  END_IF

END_IF



IF F_trig_0.Q THEN

  iState:=0;

END_IF



ton1(IN:=(iState=10),PT:=T#7S);

ton2(IN:=(iState=20),PT:=T#3S);

ton3(IN:=(iState=30),PT:=T#7S);

ton4(IN:=(iState=40),pt:=T#3S);



CASE iState OF

0:

  g_light:=FALSE;

  Y_light:=FALSE;

  r_light:=FALSE;

10:

  g_light:=TRUE;

  Y_light:=FALSE;

  r_light:=FALSE;

  IF ton1.Q THEN

    iState:=20;

  END_IF

20:

  g_light:=FALSE;

  Y_light:=TRUE;

  r_light:=FALSE;

  IF ton2.Q THEN

    iState:=30;

  END_IF

30:

  g_light:=FALSE;

  Y_light:=FALSE;

  r_light:=TRUE;



  IF ton3.Q THEN

    iState:=40;

  END_IF

40:

  blink_0(ENABLE:= TRUE, TIMELOW:= T#500MS, TIMEHIGH:= T#500MS, OUT=>Y_light );

  g_light:=FALSE;

  r_light:=TRUE;



  IF ton4.Q THEN

    blink_0(ENABLE:= FALSE);

    iState:=10;

  END_IF

END_CASE