Main.st 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459
  1. PROGRAM _INIT
  2. Tisch_6 := 0;
  3. Tisch_6_Manuell := 0;
  4. Tisch_6_Automatik :=0; //Cech-Implement
  5. gTisch_6.Cmd.Stopper := KMD_EINFAHREN;
  6. gTisch_6.Cmd.Vorstopper := KMD_EINFAHREN;
  7. gTisch_6.Cmd.Aushebeeinheit := KMD_EINFAHREN;
  8. RTInfo_0(enable:=1);
  9. gMerker_Laser_Einstellen_fertig := FALSE; //Cech-Implement
  10. END_PROGRAM
  11. PROGRAM _CYCLIC
  12. gTisch_6;
  13. IF gMerker_Laser_Manuell = TRUE THEN
  14. gDO_Start_Laser := FALSE;
  15. gDO_Laser_Seitentuer_oeffnen := FALSE;
  16. END_IF
  17. IF gMerker_Laser_Automatik = TRUE THEN
  18. gDO_Laser_Seitentuer_oeffnen := FALSE;
  19. END_IF
  20. //Cech-Comment: Hier wird der Status der Soft-Buttons am Hauptpanel abgefragt. Wenn die Freigabe erteilt ist, sind die anderen 5 Tasten (Ausheber, Vorstopperm, Stopper, Start-Laser und Doppelt-lasern aktiviert)
  21. IF gVK_Freigabe_manuell = TRUE AND gVK_Stopper_Tisch_6 = TRUE THEN
  22. gTisch_6.Cmd.Stopper := KMD_AUSFAHREN;
  23. ELSIF gVK_Freigabe_manuell = TRUE AND gVK_Stopper_Tisch_6 = FALSE THEN
  24. gTisch_6.Cmd.Stopper := KMD_EINFAHREN;
  25. END_IF
  26. IF gVK_Freigabe_manuell = TRUE AND gVK_Vorstopper_Tisch_6 = TRUE THEN
  27. gTisch_6.Cmd.Vorstopper := KMD_AUSFAHREN;
  28. ELSIF gVK_Freigabe_manuell = TRUE AND gVK_Vorstopper_Tisch_6 = FALSE THEN
  29. gTisch_6.Cmd.Vorstopper := KMD_EINFAHREN;
  30. END_IF
  31. IF gVK_Freigabe_manuell = TRUE AND gVK_Aushebeeinheit_Tisch_6 = TRUE THEN
  32. gTisch_6.Cmd.Aushebeeinheit := KMD_AUSFAHREN;
  33. ELSIF gVK_Freigabe_manuell = TRUE AND gVK_Aushebeeinheit_Tisch_6 = FALSE THEN
  34. gTisch_6.Cmd.Aushebeeinheit := KMD_EINFAHREN;
  35. END_IF
  36. IF gVK_Freigabe_manuell = TRUE AND gVK_doppelt_Lasern = TRUE THEN
  37. gDO_doppelt_lasern := TRUE;
  38. ELSIF gVK_Freigabe_manuell = TRUE AND gVK_doppelt_Lasern = FALSE THEN
  39. gDO_doppelt_lasern := FALSE;
  40. END_IF
  41. IF gVK_Freigabe_manuell = TRUE AND gVK_Start_Laser = TRUE THEN //Cech-Comment:
  42. gDO_Start_Laser := TRUE;
  43. ELSIF gVK_Freigabe_manuell = TRUE AND gVK_Start_Laser = FALSE THEN
  44. gDO_Start_Laser := FALSE;
  45. END_IF
  46. IF gVK_Absaugung = FALSE THEN //Cech-Implement zum Aktivieren und deaktivieren der LAserabsaugung über einen Button am Control-Panel-PC
  47. gDO_Laser_Absaugung := FALSE; //Cech-Implement zum Aktivieren und deaktivieren der LAserabsaugung über einen Button am Control-Panel-PC
  48. END_IF //Cech-Implement zum Aktivieren und deaktivieren der LAserabsaugung über einen Button am Control-Panel-PC
  49. IF gVK_Absaugung = TRUE AND (gDO_Start_Laser = TRUE OR gMerker_Laser_Manuell = TRUE) THEN //Cech-Implement zum Aktivieren und deaktivieren der LAserabsaugung über einen Button am Control-Panel-PC
  50. gDO_Laser_Absaugung := TRUE; //Cech-Implement zum Aktivieren und deaktivieren der LAserabsaugung über einen Button am Control-Panel-PC
  51. END_IF //Cech-Implement zum Aktivieren und deaktivieren der LAserabsaugung über einen Button am Control-Panel-PC
  52. //Cech-Comment: Alles neutralsieren, wenn die Station deaktiviert wurde mit dem Soft-Button am Hauptbildschirm
  53. IF gTaster_Tisch_6_aus = TRUE THEN
  54. gTisch_6.Cmd.Stopper := KMD_EINFAHREN;
  55. gTisch_6.Cmd.Vorstopper := KMD_EINFAHREN;
  56. gTisch_6.Cmd.Aushebeeinheit := KMD_EINFAHREN;
  57. gMerker_RFID_Tisch_6_gelesen := TRUE;
  58. Tisch_6_Automatik := 0;
  59. Tisch_6 := 0;
  60. Tisch_6_Manuell := 0;
  61. END_IF
  62. //Cech-Comment: In diesem und den nachfolgenden IFs werden die drei möglichen Zustände von der LAser-SPS (MAnuell, Halbauto, Auto) auf die Linien-SPS übernommen
  63. IF gDI_Laser_Automatik = TRUE AND gDI_Laser_Manuell = FALSE THEN
  64. gMerker_Laser_Automatik := TRUE;
  65. gMerker_Laser_Halbautomatik := FALSE;
  66. gMerker_Laser_Manuell := FALSE;
  67. END_IF
  68. IF gDI_Laser_Manuell = TRUE AND gDI_Laser_Automatik = FALSE THEN
  69. gMerker_Laser_Automatik := FALSE;
  70. gMerker_Laser_Halbautomatik := FALSE;
  71. gMerker_Laser_Manuell := TRUE;
  72. END_IF
  73. IF gDI_Laser_Manuell = FALSE AND gDI_Laser_Automatik = FALSE THEN
  74. gMerker_Laser_Automatik := FALSE;
  75. gMerker_Laser_Halbautomatik := TRUE;
  76. gMerker_Laser_Manuell := FALSE;
  77. END_IF
  78. CASE Tisch_6_Manuell OF //Cech-Comment: Handbetrieb (meiner Meinung nach nicht sauber, Fehler drinnen)
  79. 0: // Cech-Comment: Ich schätze, dass hier der manuelle Laserbetrieb initiiert wird, indem eine WST-"Beladung" initiiert wird (IF: WST in LASer und wird ausgefahren, ELSE-IF: Kein WSt in LAser)
  80. IF gMerker_Laser_Manuell = TRUE AND gMerker_Laser_Halbautomatik = FALSE AND gMerker_Laser_Automatik = FALSE AND gTisch_6.Inputs.Vor_Stopper = TRUE AND Tisch_6 = 0 THEN
  81. gTisch_6.Cmd.Aushebeeinheit := KMD_EINFAHREN;
  82. gTisch_6.Cmd.Stopper := KMD_EINFAHREN;
  83. Tisch_6_Manuell := 10;
  84. ELSIF gMerker_Laser_Manuell = TRUE AND gMerker_Laser_Halbautomatik = FALSE AND gMerker_Laser_Automatik = FALSE AND gTisch_6.Inputs.Vor_Stopper = FALSE AND Tisch_6 = 0 THEN
  85. gTisch_6.Cmd.Aushebeeinheit := KMD_AUSFAHREN;
  86. gTisch_6.Cmd.Stopper := KMD_AUSFAHREN;
  87. gTisch_6.Cmd.Vorstopper := KMD_AUSFAHREN;
  88. Tisch_6_Manuell := 20;
  89. END_IF
  90. 10: //Cech-Comment: Warten, bis der WST die Station verlassen hat und alles ausfahren (Warum Aushebeeinheit?)
  91. IF gTisch_6.Inputs.Nach_Stopper = TRUE THEN
  92. gTisch_6.Cmd.Aushebeeinheit := KMD_AUSFAHREN; //Im Handbetrieb wird jeenfalls die Aushebeeinheit ausgefahren. Wahrscheinlich, damit händisch ein WST oder Sonstiges eingelegt werden kann
  93. gTisch_6.Cmd.Stopper := KMD_AUSFAHREN;
  94. gTisch_6.Cmd.Vorstopper := KMD_AUSFAHREN;
  95. Tisch_6_Manuell := 20;
  96. END_IF
  97. 20: //Cech-Comment: Wenn HAndbetrieb beendet wird am LAser-Umschalter, dann wird die Aushebeeinheit runtergafehren und die LAserabsaugung ausgeschaltet
  98. IF gMerker_Laser_Manuell = FALSE THEN
  99. gTisch_6.Cmd.Aushebeeinheit := KMD_EINFAHREN;
  100. gDO_Laser_Absaugung := FALSE;
  101. Tisch_6_Manuell := 30;
  102. END_IF
  103. 30: //Cech-Comment: Warten, bis die Aushebeeinheit unten ist. Dann wird der Stopper eingefahren, wenn ein WST wartet, bzw. der Prozess von vorne gestartet, wenn kein WST beim Vorstopper wartet
  104. lWarten_Aushebeeinheit_Tisch_6 := lWarten_Aushebeeinheit_Tisch_6 + (RTInfo_0.cycle_time/1000);
  105. IF gTisch_6.Inputs.Vor_Stopper = TRUE AND lWarten_Aushebeeinheit_Tisch_6 >= 500 THEN
  106. gTisch_6.Cmd.Stopper := KMD_EINFAHREN;
  107. lWarten_Aushebeeinheit_Tisch_6 := 0;
  108. Tisch_6_Manuell := 40;
  109. ELSIF gTisch_6.Inputs.Vor_Stopper = FALSE AND lWarten_Aushebeeinheit_Tisch_6 >= 500 THEN
  110. lWarten_Aushebeeinheit_Tisch_6 := 0;
  111. Tisch_6_Manuell := 0;
  112. END_IF
  113. 40: // ... und der Stopper wird wieder ausgefahren
  114. IF gTisch_6.Inputs.Nach_Stopper = TRUE THEN
  115. gTisch_6.Cmd.Stopper := KMD_AUSFAHREN;
  116. Tisch_6_Manuell := 0;
  117. END_IF
  118. END_CASE
  119. CASE Tisch_6 OF //Cech-Comment: Halbautomatik; Hier wird ein WST eingefahren bzw. auch ausgefahren;
  120. 0: //Cech-Comment: Wenn ein WST vor dem LAser wartet und der Stausensor nicht anschlägt, aber der RFID gelesen wurde, wird die Aushebeeinheit hochgefahren (offensichtlich befindet sich ein WST in der Station
  121. IF gMerker_Laser_Manuell = FALSE AND gMerker_Laser_Halbautomatik = TRUE AND gMerker_Laser_Automatik = FALSE AND Tisch_6_Manuell = 0 AND gTisch_6.Inputs.Vor_VorStopper = TRUE AND gTisch_6.Inputs.Vor_Stopper = TRUE AND gTisch_6.Inputs.Stausensor = FALSE AND gTaster_Tisch_6_aus = FALSE AND gMerker_RFID_Tisch_6_gelesen = TRUE THEN
  122. gTisch_6.Cmd.Aushebeeinheit := KMD_AUSFAHREN;
  123. gMerker_RFID_Tisch_6_gelesen := FALSE;
  124. Tisch_6 := 10;
  125. //Cech-Comment: Wen kein WST wartet aber RFID gelesen wurde, dann wird auch die Aushebeeinheit ausgefahren (offensichtlich befindet sich ein WST in der Station)
  126. ELSIF gMerker_Laser_Manuell = FALSE AND gMerker_Laser_Halbautomatik = TRUE AND gMerker_Laser_Automatik = FALSE AND Tisch_6_Manuell = 0 AND gTisch_6.Inputs.Vor_VorStopper = FALSE AND gTisch_6.Inputs.Vor_Stopper = TRUE AND gTisch_6.Inputs.Stausensor = FALSE AND gTaster_Tisch_6_aus = FALSE AND gMerker_RFID_Tisch_6_gelesen = TRUE THEN
  127. gTisch_6.Cmd.Aushebeeinheit := KMD_AUSFAHREN;
  128. gMerker_RFID_Tisch_6_gelesen := FALSE;
  129. Tisch_6 := 10;
  130. //Cech-Comment: Wenn kein WST in der Station, aber einer davor, dann werden die Sietentüren geöffnet und der Vorstopper wird freigegeben
  131. ELSIF gMerker_Laser_Manuell = FALSE AND gMerker_Laser_Halbautomatik = TRUE AND gMerker_Laser_Automatik = FALSE AND Tisch_6_Manuell = 0 AND gTisch_6.Inputs.Vor_VorStopper = TRUE AND gTisch_6.Inputs.Vor_Stopper = FALSE AND gTaster_Tisch_6_aus = FALSE THEN
  132. gDO_Laser_Seitentuer_oeffnen := TRUE;
  133. gTisch_6.Cmd.Vorstopper := KMD_EINFAHREN;
  134. Tisch_6 := 200; /// war 110
  135. //Cech-Comment: Wenn entweder Vorstopper oder Stopper eingefahren sind, dann werden beide wieder ausgefahren
  136. ELSIF gMerker_Laser_Manuell = FALSE AND gMerker_Laser_Halbautomatik = TRUE AND gMerker_Laser_Automatik = FALSE AND Tisch_6_Manuell = 0 AND gTaster_Tisch_6_aus = FALSE AND (gTisch_6.Inputs.Stopper_eingefahren = TRUE OR gTisch_6.Inputs.Vorstopper_eingefahren = TRUE) THEN
  137. gTisch_6.Cmd.Stopper := KMD_AUSFAHREN;
  138. gTisch_6.Cmd.Vorstopper := KMD_AUSFAHREN;
  139. Tisch_6 := 0;
  140. END_IF
  141. //
  142. 10: //Cech-Comment: Ich schätze, mit diesen Ports wird das LASern aus Liniensicht freigegeben (mit Start Absaugung) und bereits das Port für das Öffnen der Seitentüren gesetzt, damit LAser-SPS öffnet, wenn gelasert wurde
  143. IF (*gTisch_6.Status.Aushebeeinheit = STATUS_AUSGEFAHREN*) gTisch_6.Outputs.Aushebeeinheit_ausfahren = TRUE AND gTisch_6.Outputs.Aushebeeinheit_einfahren = FALSE THEN
  144. gDO_Start_Laser := TRUE;
  145. gDO_Laser_Seitentuer_oeffnen := TRUE; //!!!!!!!!!!!!!!!!!!!!!!Cech-Comment: Könnte mir vorstellen, dass hier ein FALSE hergehört und unter 20: dann gDO_Laser_Seitentuer_oeffnen := TRUE; das müsste ich ausprobieren
  146. Tisch_6 := 20;
  147. END_IF
  148. 20: //Cech-Comment: Wenn der grüne TAster gedrückt wurde (Offensichtlich ist das LAsern beendet und der WST kann ausgefahren werden) dann wird der WST ausgefahren
  149. IF gTisch_6.Inputs.Start = TRUE THEN //Cech-Comment: Dieser Input ist der grüne Taster unter dem Panal-PC, der HW-mäßig auf den Input 0 der 16 Input-Kanäle des Input-Moduls verdrahtet ist
  150. gDO_Start_Laser := FALSE;
  151. gDO_Laser_Absaugung := FALSE;
  152. gDO_Laser_Seitentuer_oeffnen := FALSE; //!!!!!!!!!!!!!!!!!!!!!!Cech-Comment: Könnte mir vorstellen, dass hier ein TRUE hergehört und unter 10: dann gDO_Laser_Seitentuer_oeffnen := FALSE; das müsste ich ausprobieren
  153. gTisch_6.Cmd.Aushebeeinheit := KMD_EINFAHREN;
  154. Tisch_6 := 30;
  155. END_IF
  156. 30: //Cech-Comment: WST wird rausgelassen
  157. IF (*gTisch_6.Status.Aushebeeinheit = STATUS_EINGEFAHREN*) gTisch_6.Outputs.Aushebeeinheit_einfahren = TRUE AND gTisch_6.Outputs.Aushebeeinheit_ausfahren = FALSE THEN
  158. gTisch_6.Cmd.Stopper := KMD_EINFAHREN;
  159. Tisch_6 := 40;
  160. END_IF
  161. 40: //Cech-Comment: Wenn der NAchstopper_Sensor einmal ein ...
  162. IF gTisch_6.Inputs.Nach_Stopper = TRUE THEN
  163. Tisch_6 := 45;
  164. END_IF
  165. 45: // ... und wieder aus geht, dann kann der Stopper wieder ausgefahren werden
  166. IF gTisch_6.Inputs.Nach_Stopper = FALSE THEN
  167. gTisch_6.Cmd.Stopper := KMD_AUSFAHREN;
  168. Tisch_6 := 50;
  169. END_IF
  170. 50: //Cech-Comment: WEnn der WST am Stausensor vorbei ist, also ein ...
  171. IF gTisch_6.Inputs.Stausensor = TRUE THEN
  172. Tisch_6 := 60;
  173. END_IF
  174. 60: // ... und wieder aus, dann wird der Prozess von oben wieder begonnen
  175. IF gTisch_6.Inputs.Stausensor = FALSE THEN
  176. Tisch_6 := 0;
  177. END_IF
  178. //
  179. // Cech-Comment: von hier bis excl. 200 wird nicht durchfahren
  180. 110:
  181. IF gTisch_6.Inputs.Nach_Vorstopper = TRUE THEN
  182. Tisch_6 := 120;
  183. END_IF
  184. 120:
  185. IF gTisch_6.Inputs.Nach_Vorstopper = FALSE THEN
  186. gTisch_6.Cmd.Vorstopper := KMD_AUSFAHREN;
  187. Tisch_6 := 130;
  188. END_IF
  189. 130:
  190. IF (*gTisch_6.Inputs.Vor_Stopper = TRUE AND*) gTisch_6.Status.Vorstopper = STATUS_AUSGEFAHREN THEN
  191. (*gDO_Laser_Seitentuer_oeffnen := FALSE;*)
  192. Tisch_6 := 0;
  193. END_IF
  194. 200: //Cech-Comment: Wenn WST am Ausfahrsensor des Stoppers
  195. IF gTisch_6.Inputs.Nach_Vorstopper = TRUE THEN
  196. Tisch_6 := 210;
  197. END_IF
  198. 210: //Cech-Comment: WEnn WST am Ausfahrsensor vorbei, dann wird der Stopper wieder ausgefahren
  199. IF gTisch_6.Inputs.Nach_Vorstopper = FALSE THEN
  200. gTisch_6.Cmd.Vorstopper := KMD_AUSFAHREN;
  201. Tisch_6 := 220;
  202. END_IF
  203. 220: // ... und geprüft, ab der SW-Status des Stoppers auf ausgefahren steht
  204. IF (*gTisch_6.Inputs.Vor_Stopper = TRUE AND*) gTisch_6.Status.Vorstopper = STATUS_AUSGEFAHREN THEN
  205. Tisch_6 := 230;
  206. END_IF
  207. 230: // Cech-Comment: ... und auch tatsächlich schon ausgefahren ist und von vorne begonnen
  208. IF gTisch_6.Inputs.Vor_Stopper = TRUE THEN
  209. Tisch_6 := 0;
  210. END_IF
  211. END_CASE
  212. CASE Tisch_6_Automatik OF
  213. 0: //Cech-Comment: Hier werden die Stati vom LaSerwahlschalter und den Stoppern, Schaltern und Sensoren der Station 6 abgefragt und entsprechend in die Case-Schleife verzweigt
  214. IF gMerker_Laser_Manuell = FALSE AND gMerker_Laser_Halbautomatik = FALSE AND gMerker_Laser_Automatik = TRUE AND gTisch_6.Inputs.Vor_VorStopper = TRUE AND gTisch_6.Inputs.Vor_Stopper = TRUE AND gTisch_6.Inputs.Stausensor = FALSE AND gMerker_RFID_Tisch_6_gelesen = TRUE AND gTaster_Tisch_6_aus = FALSE THEN //Cech-Comment: gTAster_Tisch_6_aus ist der Softbutton am MAain-Panel, wo jede Station deaktiviert werden kann
  215. gMerker_Debug_Test_Counter := 010; //Cech-Implement
  216. lWarten_Laser_Dauer := 0; //Cech-Implement
  217. gTisch_6.Cmd.Aushebeeinheit := KMD_AUSFAHREN;
  218. gMerker_RFID_Tisch_6_gelesen := FALSE;
  219. Tisch_6_Automatik := 10;
  220. ELSIF gMerker_Laser_Manuell = FALSE AND gMerker_Laser_Halbautomatik = FALSE AND gMerker_Laser_Automatik = TRUE AND gTisch_6.Inputs.Vor_VorStopper = FALSE AND gTisch_6.Inputs.Vor_Stopper = TRUE AND gTisch_6.Inputs.Stausensor = FALSE AND gMerker_RFID_Tisch_6_gelesen = TRUE AND gTaster_Tisch_6_aus = FALSE THEN //Cech-Comment: gTAster_Tisch_6_aus ist der Softbutton am MAain-Panel, wo jede Station deaktiviert werden kann
  221. gMerker_Debug_Test_Counter := 020; //Cech-Implement
  222. lWarten_Laser_Dauer := 0; //Cech-Implement
  223. gTisch_6.Cmd.Aushebeeinheit := KMD_AUSFAHREN;
  224. gMerker_RFID_Tisch_6_gelesen := FALSE;
  225. Tisch_6_Automatik := 10;
  226. //Cech-Comment: Wenn ein WST wartet und keiner in der STation ist, weiters entweder der Stausensor anschlägt und/oder der RFID nicht gelesen wird !!!! Ergibt keinen Sinn für mich!!!! Ev. soll das saubere Anfangsbedingungen schaffen
  227. ELSIF gMerker_Laser_Manuell = FALSE AND gMerker_Laser_Halbautomatik = FALSE AND gMerker_Laser_Automatik = TRUE AND gTisch_6.Inputs.Vor_VorStopper = TRUE AND gTisch_6.Inputs.Vor_Stopper = FALSE AND gTaster_Tisch_6_aus = FALSE THEN //Cech-Comment: gTAster_Tisch_6_aus ist der Softbutton am MAain-Panel, wo jede Station deaktiviert werden kann
  228. gMerker_Debug_Test_Counter := 030; //Cech-Implement
  229. lWarten_Laser_Dauer := 0; //Cech-Implement
  230. gDO_Laser_Seitentuer_oeffnen := TRUE;
  231. gTisch_6.Cmd.Vorstopper := KMD_EINFAHREN;
  232. Tisch_6_Automatik := 200; // war 110
  233. ELSIF gMerker_Laser_Manuell = FALSE AND gMerker_Laser_Halbautomatik = FALSE AND gMerker_Laser_Automatik = TRUE AND (gTisch_6.Inputs.Stopper_eingefahren = TRUE OR gTisch_6.Inputs.Vorstopper_eingefahren = TRUE) AND gTaster_Tisch_6_aus = FALSE THEN //Cech-Comment: gTAster_Tisch_6_aus ist der Softbutton am MAain-Panel, wo jede Station deaktiviert werden kann
  234. gMerker_Debug_Test_Counter := 040; //Cech-Implement
  235. lWarten_Laser_Dauer := 0; //Cech-Implement
  236. gTisch_6.Cmd.Stopper := KMD_AUSFAHREN;
  237. gTisch_6.Cmd.Vorstopper := KMD_AUSFAHREN;
  238. Tisch_6_Automatik := 0;
  239. END_IF
  240. //
  241. 10: //Cech-Comment: Laserport zum Starten des Lasers an die Laser-SPS wird eingeschaltet
  242. IF (*gTisch_6.Status.Aushebeeinheit = STATUS_AUSGEFAHREN*) gTisch_6.Outputs.Aushebeeinheit_ausfahren = TRUE AND gTisch_6.Outputs.Aushebeeinheit_einfahren = FALSE AND gMerker_Laser_Einstellen_fertig = TRUE THEN //Cech-Implement gMerker_Laser_Einstellen_fertig von Cech eingefügt
  243. IF gMerker_Laser_Doppelzylinder = TRUE THEN
  244. gDO_doppelt_lasern := TRUE;
  245. END_IF
  246. gMerker_Debug_Test_Counter := 100; //Cech-Implement
  247. gDO_Start_Laser := TRUE; // Cech-Implement, Comment: Das entspricht dem Port "WST in Position", wie es Hr.Ziegler von Bluhm nennt. Wenn Centurio den gMerker_Laser_Einstellen_fertig auf TRUE gesetzt hat darf LAserung gestartet werden
  248. IF gVK_Absaugung = TRUE THEN
  249. gDO_Laser_Absaugung := TRUE;
  250. END_IF
  251. Tisch_6_Automatik := 15;
  252. END_IF
  253. 15: //Cech-Comment: Nach 1000ms wird das Startsignal an den Laser zurückgenommen und weiter mit 20
  254. lWarten_Laser_Startsignal := lWarten_Laser_Startsignal + (RTInfo_0.cycle_time/1000);
  255. IF lWarten_Laser_Startsignal >= 1000 THEN
  256. // gDO_Start_Laser := FALSE; !!!!!!!!!!!!!!!!Dies geht nicht, weil Hr.Ziegler offensichtlich keinen Handshake programmiert hat, sondern "LAsern-fertig" gleich setzt, wenn wir sagen, dass Start-LAser low wird. Es wird nicht fertiggelasert.
  257. gMerker_Debug_Test_Counter := 150;
  258. IF gMerker_Laser_Doppelzylinder = TRUE THEN
  259. Tisch_6_Automatik := 18;
  260. ELSIF gMerker_Laser_Doppelzylinder = FALSE THEN
  261. Tisch_6_Automatik :=20;
  262. END_IF
  263. END_IF
  264. 18:
  265. IF (gDI_Laser_fertig = TRUE AND gDI_keiner_Stoerung_Laser = TRUE)THEN (* OR lWarten_Laser_Dauer >= 10000 THEN *) //WEnn das Handshake in LaserSPS aktiv wird, dann kann das ELSIF theoretisch wieder weggenommen werdenTHEN
  266. // Und hier, beim Doppelzylinder darf die ZEit nicht überprüft werden, weil der Bediener die Doppeltaster drücken muss nach Einstellung von File und Seriennummer
  267. //Cech-Implement-Anfang
  268. gMerker_Debug_Test_Counter := 200;
  269. gDO_Start_Laser := FALSE;
  270. gMerker_Laser_Einstellen_fertig := FALSE; //Cech-Implement
  271. gMerker_Laser_Doppelzylinder := FALSE;
  272. // gDO_Laser_Seitentuer_oeffnen := TRUE;
  273. //gTisch_6.Cmd.Aushebeeinheit := KMD_EINFAHREN;
  274. //gMerker_RFID_Value_Tisch_6 := 0;
  275. //gMerker_block_RFID_read_Tisch_6 := TRUE; //Cech-Comment: Der MErker wenn TRUE blockiert das RFID-LEsen während des Einfahrens der Aushebeeinheit, um nicht neu zu beginnen (RFID kann beim Ausheben die VErbindung verlieren, das soll verhindert werden)
  276. Tisch_6_Automatik := 20;
  277. // ELSIF (gDI_Laser_fertig = TRUE AND gDI_keiner_Stoerung_Laser = FALSE)
  278. // gDO_Start_Laser := FALSE;
  279. // gMerker_Laser_Einstellen_fertig := FALSE;
  280. //Cech-Implement-Ende
  281. END_IF
  282. 20: //Cech-Comment: Wenn vom LAser das Signal "WST bereit zum ABtransport", also LAsern fertig, kommt, dann wird die Aushebeeinheit eingefahren, der RFID-Wert der Station auf "0" gesetzt
  283. lWarten_Laser_Dauer := lWarten_Laser_Dauer + (RTInfo_0.cycle_time/1000); //Cech-Implement
  284. IF (gDI_Laser_fertig = TRUE AND gDI_keiner_Stoerung_Laser = TRUE) OR lWarten_Laser_Dauer >= 10000 THEN //WEnn das Handshake in LaserSPS aktiv wird, dann kann das ELSIF theoretisch wieder weggenommen werdenTHEN
  285. //Cech-Implement-Anfang
  286. gMerker_Debug_Test_Counter := 200;
  287. gDO_Start_Laser := FALSE;
  288. gMerker_Laser_Einstellen_fertig := FALSE; //Cech-Implement
  289. gMerker_Laser_Doppelzylinder := FALSE;
  290. gDO_doppelt_lasern := FALSE;
  291. // gDO_Laser_Seitentuer_oeffnen := TRUE;
  292. gTisch_6.Cmd.Aushebeeinheit := KMD_EINFAHREN;
  293. gMerker_RFID_Value_Tisch_6 := 0;
  294. gMerker_block_RFID_read_Tisch_6 := TRUE; //Cech-Comment: Der MErker wenn TRUE blockiert das RFID-LEsen während des Einfahrens der Aushebeeinheit, um nicht neu zu beginnen (RFID kann beim Ausheben die VErbindung verlieren, das soll verhindert werden)
  295. Tisch_6_Automatik := 30;
  296. // ELSIF (gDI_Laser_fertig = TRUE AND gDI_keiner_Stoerung_Laser = FALSE)
  297. // gDO_Start_Laser := FALSE;
  298. // gMerker_Laser_Einstellen_fertig := FALSE;
  299. //Cech-Implement-Ende
  300. END_IF
  301. 30: //Cech-Comment: Stopper wird eingefahren
  302. IF (*gTisch_6.Status.Aushebeeinheit = STATUS_EINGEFAHREN*) gTisch_6.Outputs.Aushebeeinheit_einfahren = TRUE AND gTisch_6.Outputs.Aushebeeinheit_ausfahren = FALSE THEN
  303. gMerker_Debug_Test_Counter := 300;
  304. gTisch_6.Cmd.Stopper := KMD_EINFAHREN;
  305. Tisch_6_Automatik := 40;
  306. END_IF
  307. 40: //Cech-Comment: schauen, wenn der WST die Station wirklich verlassen hat
  308. IF gTisch_6.Inputs.Nach_Stopper = TRUE THEN
  309. gMerker_Debug_Test_Counter := 400;
  310. gDO_Laser_Absaugung := FALSE;
  311. Tisch_6_Automatik := 45;
  312. END_IF
  313. 45: //Cech-Comment: Wenn der WST weg ist, wird der Stopper ausgefahren und der RFID-Leser wieder "scharf" geschaltet
  314. IF gTisch_6.Inputs.Nach_Stopper = FALSE THEN
  315. gTisch_6.Cmd.Stopper := KMD_AUSFAHREN;
  316. gMerker_block_RFID_read_Tisch_6 := FALSE; //Cech-Comment: Damit wird das RFID-Lesen nicht mehr "blockiert"
  317. gMerker_Debug_Test_Counter := 450;
  318. Tisch_6_Automatik := 50;
  319. END_IF
  320. 50: //Cech-Comment: Wenn der Stausensor nach dem Laser den WST anzeigt und ...
  321. IF gTisch_6.Inputs.Stausensor = TRUE THEN
  322. gMerker_Debug_Test_Counter := 500;
  323. Tisch_6_Automatik := 60;
  324. END_IF
  325. 60: //Cech-Comment: ...und vorbei ist, dann wird der Prozess wieder von Vorne begonnen
  326. IF gTisch_6.Inputs.Stausensor = FALSE THEN
  327. gMerker_Debug_Test_Counter := 600;
  328. Tisch_6_Automatik := 0;
  329. END_IF
  330. //
  331. //Cech-Comment: Wird meiner Meinung nach im Augenblick nicht mehr ausgeführt bis excl. 200:
  332. 110:
  333. IF gTisch_6.Inputs.Nach_Vorstopper = TRUE THEN
  334. Tisch_6_Automatik := 120;
  335. END_IF
  336. 120:
  337. IF gTisch_6.Inputs.Nach_Vorstopper = FALSE THEN
  338. gTisch_6.Cmd.Vorstopper := KMD_AUSFAHREN;
  339. Tisch_6_Automatik := 130;
  340. END_IF
  341. 130:
  342. IF (*gTisch_6.Inputs.Vor_Stopper = TRUE AND*) gTisch_6.Status.Vorstopper = STATUS_AUSGEFAHREN THEN
  343. Tisch_6_Automatik := 0;
  344. END_IF
  345. //Cech-Comment: Wird meiner Meinung nach im Augenblick nicht mehr ausgeführt seit 110:
  346. 200: //Cech-Comment: Warten, bis ein WST den Stopper sicher verlassen hat ...
  347. IF gTisch_6.Inputs.Nach_Vorstopper = TRUE THEN
  348. gMerker_Debug_Test_Counter := 2000;
  349. Tisch_6_Automatik := 210;
  350. END_IF
  351. 210: // .... dann wird der Stopper ausgefahren
  352. IF gTisch_6.Inputs.Nach_Vorstopper = FALSE THEN
  353. gTisch_6.Cmd.Vorstopper := KMD_AUSFAHREN;
  354. gMerker_Debug_Test_Counter := 2100;
  355. Tisch_6_Automatik := 220;
  356. END_IF
  357. 220: // .... Wenn dann der Stopper ausgefahren ist, dann
  358. IF (*gTisch_6.Inputs.Vor_Stopper = TRUE AND*) gTisch_6.Status.Vorstopper = STATUS_AUSGEFAHREN THEN
  359. gMerker_Debug_Test_Counter := 2200;
  360. Tisch_6_Automatik := 230;
  361. END_IF
  362. 230: // ... wird wieder von Vorne begonnen
  363. IF gTisch_6.Inputs.Vor_Stopper = TRUE THEN
  364. gMerker_Debug_Test_Counter := 2300;
  365. Tisch_6_Automatik := 0;
  366. END_IF
  367. END_CASE
  368. END_PROGRAM
  369. PROGRAM _EXIT
  370. (* Insert code here *)
  371. END_PROGRAM