Startseite Erkunden Hilfe
Anmelden
jcech
/
E-Zylinder-Linien-SPS
Beobachten 1
Favorit hinzufügen 0
Fork 0
Dateien Issues 0 Pull-Requests 0 Wiki
Struktur: 2b9737941b
Branches Tags
E-Zylinder-L...
/
Logical
/
Zylinder
/
Zylinder_Kurve2
/
Main.st

Main.st 2.4 KB
Verlauf Originalformat

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475 
  1. 

  2. PROGRAM _INIT
    3. 

  3. 

  4. 	RTInfo_0(enable:=1);
    5. 

  5. 	 
    6. 

  6. END_PROGRAM
    7. 

  7. 

  8. PROGRAM _CYCLIC
    9. 

  9. 	
    10. 

  10. (* #############################################################################################################
    11. 

  11.    #############################         	     Kurve 2	               #####################################
    12. 

  12.    ############################################################################################################# *)
    13. 

  13. 

  14. 	IF  gKurve_2.Cmd.Stopper = KMD_AUSFAHREN THEN
    15. 

  15. 		gKurve_2.Outputs.Stopper_einfahren := FALSE;
    16. 

  16. 		gKurve_2.Times.Stopper_AusZeit := TRUE;
    17. 

  17. 		gKurve_2.Times.Stopper_EinZeit := FALSE;
    18. 

  18. 		gKurve_2.Cmd.Stopper := KMD_FERTIG;
    19. 

  19. 		gKurve_2.Status.Stopper := STATUS_BUSY;
    20. 

  20. 	END_IF
    21. 

  21. 

  22. 	IF  gKurve_2.Cmd.Stopper = KMD_EINFAHREN THEN
    23. 

  23. 		gKurve_2.Outputs.Stopper_einfahren := TRUE;
    24. 

  24. 		gKurve_2.Times.Stopper_AusZeit := FALSE;
    25. 

  25. 		gKurve_2.Times.Stopper_EinZeit := TRUE;
    26. 

  26. 		gKurve_2.Cmd.Stopper := KMD_FERTIG;
    27. 

  27. 		gKurve_2.Status.Stopper := STATUS_BUSY;
    28. 

  28. 	END_IF
    29. 

  29. 

  30. 	(* Status, Zylinderposition ausgeben *)
    31. 

  31. 	IF (gKurve_2.Inputs.Stopper_eingefahren = TRUE) AND (gKurve_2.Inputs.Stopper_ausgefahren = FALSE) THEN
    32. 

  32. 		gKurve_2.Status.Stopper := STATUS_EINGEFAHREN;
    33. 

  33. 	ELSIF (gKurve_2.Inputs.Stopper_eingefahren = FALSE) AND (gKurve_2.Inputs.Stopper_ausgefahren = TRUE) THEN
    34. 

  34. 		gKurve_2.Status.Stopper := STATUS_AUSGEFAHREN;
    35. 

  35. 	ELSE
    36. 

  36. 		gKurve_2.Status.Stopper := STATUS_BUSY;
    37. 

  37. 	END_IF
    38. 

  38. 

  39. 	(* Zeitüberwachung Eingefahren*)
    40. 

  40. 	IF (gKurve_2.Times.Stopper_EinZeit = TRUE AND gKurve_2.Status.Stopper <> STATUS_EINGEFAHREN) OR (gKurve_2.Times.Stopper_AusZeit = TRUE AND gKurve_2.Status.Stopper <> STATUS_AUSGEFAHREN) THEN
    41. 

  41. 		gKurve_2.Times.Stopper_ZeitRun := gKurve_2.Times.Stopper_ZeitRun + (RTInfo_0.cycle_time/1000);
    42. 

  42. 

  43. 		IF (gKurve_2.Times.Stopper_EinZeit = TRUE AND gKurve_2.Status.Stopper = STATUS_EINGEFAHREN)
    44. 

  44. 			OR (gKurve_2.Times.Stopper_AusZeit = TRUE AND gKurve_2.Status.Stopper = STATUS_AUSGEFAHREN)THEN
    45. 

  45. 		(* lPortal_Mittelanschlag_EinZeit := FALSE;
    46. 

  46. 		 lPortal_Mittelanschlag_AusZeit := FALSE; *)
    47. 

  47. 			gKurve_2.Times.Stopper_ZeitRun := 0;
    48. 

  48. 		END_IF
    49. 

  49. 

  50. 

  51. 		IF gKurve_2.Times.Stopper_ZeitRun >= 5000 THEN
    52. 

  52. 			gKurve_2.Status.Stopper := STATUS_ERROR;
    53. 

  53. 

  54. 			IF gKurve_2.Times.Stopper_EinZeit = TRUE THEN
    55. 

  55. 				gError[0] := 1;
    56. 

  56. 			END_IF
    57. 

  57.          
    58. 

  58. 			IF gKurve_2.Times.Stopper_AusZeit = TRUE THEN
    59. 

  59. 				gError[1] := 1;
    60. 

  60. 			END_IF
    61. 

  61. 

  62. 		END_IF
    63. 

  63. 

  64. 	ELSE
    65. 

  65. 		gKurve_2.Times.Stopper_ZeitRun := 0;
    66. 

  66. 	END_IF
    67. 

  67. 	 
    68. 

  68. END_PROGRAM
    69. 

  69. 

  70. PROGRAM _EXIT
    71. 

  71. 	(* Insert code here *)
    72. 

  72. 	 
    73. 

  73. END_PROGRAM
    74. 

  74. 

  75.