Main.st 51 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169
  1. PROGRAM _INIT
  2. RTInfo_0(enable:=1);
  3. Wartezeit_OPCUA := 1100;
  4. gMerker_Tisch_1_RFID_UID_STR := '0';
  5. gMerker_Tisch_2_RFID_UID_STR := '0';
  6. gMerker_Tisch_3_RFID_UID_STR := '0';
  7. gMerker_Tisch_4_RFID_UID_STR := '0';
  8. gMerker_Tisch_5_RFID_UID_STR := '0';
  9. gMerker_Tisch_6_RFID_UID_STR := '0';
  10. gMerker_Tisch_7_RFID_UID_STR := '0';
  11. gMerker_Tisch_8_RFID_UID_STR := '0';
  12. END_PROGRAM
  13. PROGRAM _CYCLIC
  14. //********************************** Tisch 1 ***********************************************
  15. (* Lesen *)
  16. gMerker_Tisch_1_RFID_Vorhanden := gTisch_1_RFID_Read[0].0; (* Auslesen ob Chip vor Lesekopf *) //Cech-Comment: Wenn dieses Bit gesetzt ist, dann ist ein Datenträger im LEsebereich
  17. //Cech-Comment: Diese zehn Integer-Werte sind im Balluff-Manual MAN_BIS_M_4XX_045_... Kap.9.2 S48 beschrieben
  18. // Die TAG-UID wird automatisch nach einem TAG-PResent vom Lesekopf ausgelesen und in das LEseregister geschrieben; da braucht kein LEsebefehl ausgegeben werden
  19. // IF gMerker_Tisch_1_Auftrag_Lesen = TRUE THEN
  20. // // gMerker_Lesen_Fertig := FALSE;
  21. // gTisch_1_RFID_Write[1] := 1;(* Befehl Datenträger lesen *)
  22. // gTisch_1_RFID_Write[2] := 0;
  23. // gTisch_1_RFID_Write[3] := 0;
  24. // gTisch_1_RFID_Write[4] := 8; (* Anzahl Bytes Lowbytes *)
  25. // gTisch_1_RFID_Write[5] := 0;
  26. // gTisch_1_RFID_Write[6] := 0;
  27. // gTisch_1_RFID_Write[7] := 0;
  28. // gTisch_1_RFID_Write[8] := 0;
  29. // gTisch_1_RFID_Write[9] := 1;
  30. // gTisch_1_RFID_Write[0].0 := TRUE; (*Cech: Bit0: nuer Auftrag an Reader, Bit2:Reset, Bit5:Kopfabschaltung, Bit6: Toggeln für längere Abfragen/Aufträge, wenn SPS bereit ist, weitere Daten zu übernehmen*)
  31. // END_IF
  32. (* Schreiben *)
  33. (* Befehlsdaten *)
  34. // IF gMerker_neuen_Befehl_schreiben = TRUE THEN
  35. // gTisch_1_RFID_Write[1] := 2; (* Datenträger beschreiben *)
  36. // gTisch_1_RFID_Write[2] := 0; (* Daten *)
  37. // gTisch_1_RFID_Write[3] := 0; (* Daten *)
  38. // gTisch_1_RFID_Write[4] := 8; (* Anzahl Bytes Lowbytes *)
  39. // gTisch_1_RFID_Write[5] := 0; (* Daten *)
  40. // gTisch_1_RFID_Write[6] := 0; (* Daten *)
  41. // gTisch_1_RFID_Write[7] := 0; (* Daten *)
  42. // gTisch_1_RFID_Write[8] := 0; (* Daten *)
  43. // gTisch_1_RFID_Write[0].0 := TRUE; (* neuer Auftrag steht an *)
  44. // END_IF
  45. (* Write Variable nullen *)
  46. // IF gMerker_Tisch_1_alles_nullen = TRUE THEN
  47. // gTisch_1_RFID_Write[1] := 0;
  48. // gTisch_1_RFID_Write[2] := 0;
  49. // gTisch_1_RFID_Write[3] := 0;
  50. // gTisch_1_RFID_Write[4] := 0;
  51. // gTisch_1_RFID_Write[5] := 0;
  52. // gTisch_1_RFID_Write[6] := 0;
  53. // gTisch_1_RFID_Write[7] := 0;
  54. // gTisch_1_RFID_Write[8] := 0;
  55. // gTisch_1_RFID_Write[0] := 0;
  56. // END_IF
  57. // gTisch_1_RFID_Write[9] := gTisch_1_RFID_Write[0];
  58. CASE Tisch_1_RFID OF
  59. //Cech-Implement-Beginn: Hier soll die UID aus dem TAg nach Tag-Present rausgeholt und auf 8Byte-Array gMerker_Tisch_1_RFID_UID übergeben werden, damit die UID für Centurio über Opc-Ua übergeben werden kannn
  60. 0: IF gTisch_1_RFID_Read[0] = 129 (*AND gTisch_1_RFID_Write[0].0 = FALSE*) THEN //Cech-Comment: Wenn der TAG im Lesebereich ist und der Lesekopf betriebsbereit ist ( Read[0] = 1000 0001 ), aber noch kein Lesebefehl ausgegeben wurde, dann liefert der TAG automatisch die UID zurück
  61. // gMerker_Debug_Test_Counter_RFID := 00; //Cech-Comment: eingefügt für TEstzwecke
  62. // gMerker_Tisch_1_RFID_UID[0] := gTisch_1_RFID_Read[1];
  63. // gMerker_Tisch_1_RFID_UID[1] := gTisch_1_RFID_Read[2];
  64. // gMerker_Tisch_1_RFID_UID[2] := gTisch_1_RFID_Read[3];
  65. // gMerker_Tisch_1_RFID_UID[3] := gTisch_1_RFID_Read[4];
  66. // gMerker_Tisch_1_RFID_UID[4] := gTisch_1_RFID_Read[5];
  67. // gMerker_Tisch_1_RFID_UID[5] := gTisch_1_RFID_Read[6];
  68. // gMerker_Tisch_1_RFID_UID[6] := gTisch_1_RFID_Read[7];
  69. // gMerker_Tisch_1_RFID_UID[7] := gTisch_1_RFID_Read[8];
  70. // gMerker_Tisch_1_RFID_UID_STRARR[0] := USINT_TO_STRING (gTisch_1_RFID_Read[1]);
  71. // gMerker_Tisch_1_RFID_UID_STRARR[1] := USINT_TO_STRING (gTisch_1_RFID_Read[2]);
  72. // gMerker_Tisch_1_RFID_UID_STRARR[2] := USINT_TO_STRING (gTisch_1_RFID_Read[3]);
  73. // gMerker_Tisch_1_RFID_UID_STRARR[3] := USINT_TO_STRING (gTisch_1_RFID_Read[4]);
  74. // gMerker_Tisch_1_RFID_UID_STRARR[4] := USINT_TO_STRING (gTisch_1_RFID_Read[5]);
  75. // gMerker_Tisch_1_RFID_UID_STRARR[5] := USINT_TO_STRING (gTisch_1_RFID_Read[6]);
  76. // gMerker_Tisch_1_RFID_UID_STRARR[6] := USINT_TO_STRING (gTisch_1_RFID_Read[7]);
  77. // gMerker_Tisch_1_RFID_UID_STRARR[7] := USINT_TO_STRING (gTisch_1_RFID_Read[8]);
  78. gMerker_Tisch_1_STRING_HELPER := '';
  79. gMerker_Tisch_1_RFID_UID_STR := '';
  80. FOR i := 1 TO 8 DO
  81. gMerker_Tisch_1_STRING_HELPER := USINT_TO_STRING (gTisch_1_RFID_Read[i]);
  82. IF LEN(gMerker_Tisch_1_STRING_HELPER) = 1 THEN //Cech-Comment: Wenn der String nur 1 ZEichen ist, muss mit 2 Nullen links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  83. gMerker_Tisch_1_STRING_HELPER := CONCAT('00', gMerker_Tisch_1_STRING_HELPER);
  84. ELSIF LEN(gMerker_Tisch_1_STRING_HELPER) = 2 THEN //Cech-Comment: Wenn der String nur 2 Zeichen ist, muss mit 1 Null links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  85. gMerker_Tisch_1_STRING_HELPER := CONCAT('0', gMerker_Tisch_1_STRING_HELPER);
  86. END_IF;
  87. gMerker_Tisch_1_RFID_UID_STR := CONCAT( gMerker_Tisch_1_RFID_UID_STR, gMerker_Tisch_1_STRING_HELPER );
  88. END_FOR
  89. Tisch_1_RFID := 5;
  90. END_IF
  91. 5: IF gMerker_Tisch_1_RFID_Vorhanden = FALSE AND gTisch_1.Status.Stopper = STATUS_EINGEFAHREN THEN
  92. gMerker_Tisch_1_RFID_UID_STR := '0';
  93. Tisch_1_RFID := 0;
  94. END_IF
  95. //Cech-Implement-Ende
  96. // 5: IF gMerker_Tisch_1_RFID_Vorhanden = TRUE AND gMerker_Tisch_1_RFID_Reset = FALSE (*AND gMerker_Tisch_1_lesen_fertig = FALSE*) THEN
  97. // gMerker_Debug_Test_Counter_RFID := 05; //Cech-Comment: eingefügt für TEstzwecke
  98. // gMerker_Tisch_1_Auftrag_Lesen := TRUE;
  99. // Tisch_1_RFID := 10;
  100. // END_IF
  101. // 10: lWarten_RFID_Fehler_Tisch_1 := lWarten_RFID_Fehler_Tisch_1 + (RTInfo_0.cycle_time/1000);
  102. // IF gTisch_1_RFID_Read[0] = 135 THEN //135 : 1000 0111 / Cech-Comment: Bit: 0...Tag im Lesebereich, 1...Auftragsbearbeitung läuft, 2...Auftrag fehlerlos beendet, 3...Auftrag fehlerhaft bearbeitet, 5...Wenn toggelt: Sensor bereit, weitere Daten zu übermitteln, 6...Sensor abgeschaltet, 7...Sensor bereit
  103. // gMerker_Debug_Test_Counter_RFID := 10; //Cech-Comment: eingefügt für TEstzwecke
  104. // gMerker_RFID_Value_Tisch_1 := gTisch_1_RFID_Read[1];
  105. // // gMerker_RFID_Tisch_1_gelesen := TRUE;
  106. // // gMerker_Tisch_1_lesen_fertig := TRUE;
  107. // lWarten_RFID_Fehler_Tisch_1 := 0;
  108. // Tisch_1_RFID := 15;
  109. // ELSIF lWarten_RFID_Fehler_Tisch_1 >= 5000 AND gTisch_1_RFID_Read[0] <> 135 THEN //Wenn nach 5s noch keine fehlerfreie Rückmeldung vom LEser gekommen ist, dann wird der Leser resetiert und alles wieder rückgesetzt ab 100:
  110. // gMerker_Debug_Test_Counter_RFID := 11; //Cech-Comment: eingefügt für TEstzwecke
  111. // gMerker_Tisch_1_Auftrag_Lesen := FALSE;
  112. // gMerker_Tisch_1_RFID_Reset := TRUE;
  113. // lWarten_RFID_Fehler_Tisch_1 := 0;
  114. // Tisch_1_RFID := 100;
  115. // END_IF
  116. // 15:
  117. // IF gMerker_RFID_Value_Tisch_1 <> 0 THEN //ungleich 0 von gTisch_1_RFID_Read[1] bedeutet einen Fehlercode; ohne Fehler muss das 00h sein
  118. // gMerker_Debug_Test_Counter_RFID := 15; //Cech-Comment: eingefügt für TEstzwecke
  119. // gMerker_RFID_Tisch_1_gelesen := TRUE;
  120. // gMerker_Tisch_1_lesen_fertig := TRUE;
  121. // Tisch_1_RFID := 20;
  122. // ELSIF gMerker_RFID_Value_Tisch_1 = 0 THEN //kein Fehler beim Lesen
  123. // gMerker_Debug_Test_Counter_RFID := 16; //Cech-Comment: eingefügt für TEstzwecke
  124. // gMerker_RFID_Tisch_1_gelesen := FALSE;
  125. // gMerker_Tisch_1_lesen_fertig := FALSE;
  126. // Tisch_1_RFID := 100;
  127. // END_IF
  128. // 20: lWarten_fuer_OPCUA_Tisch_1 := lWarten_fuer_OPCUA_Tisch_1 + (RTInfo_0.cycle_time/1000);
  129. // IF gMerker_Tisch_1_RFID_Vorhanden = FALSE AND gTisch_1.Inputs.Vor_Stopper = FALSE AND lWarten_fuer_OPCUA_Tisch_1 >= Wartezeit_OPCUA THEN
  130. // gMerker_Debug_Test_Counter_RFID := 20; //Cech-Comment: eingefügt für TEstzwecke
  131. // gMerker_Tisch_1_Auftrag_Lesen := FALSE;
  132. // gMerker_RFID_Value_Tisch_1 := 0;
  133. // gTisch_1_RFID_Write[0] := 4; //SW-Reset des RFID-Sensors
  134. // gMerker_Tisch_1_RFID_UID_STR := '0';
  135. // Tisch_1_RFID := 30;
  136. // END_IF
  137. // 30:
  138. // IF gTisch_1_RFID_Read[0] = 0 THEN
  139. // gMerker_Debug_Test_Counter_RFID := 30; //Cech-Comment: eingefügt für TEstzwecke
  140. // gTisch_1_RFID_Write[0] := 0;
  141. // Tisch_1_RFID := 0;
  142. // END_IF
  143. // 100: //Hier geht es weiter, wenn die Daten fehlerfrei empfangen wurden
  144. // IF gMerker_Tisch_1_Auftrag_Lesen = FALSE AND gMerker_Tisch_1_RFID_Reset = TRUE THEN
  145. // gMerker_Debug_Test_Counter_RFID := 100; //Cech-Comment: eingefügt für TEstzwecke
  146. // gTisch_1_RFID_Write[0] := 4; //SW-Reset des RFID-Sensors
  147. // gMerker_RFID_Value_Tisch_1 := 0;
  148. // gMerker_Tisch_1_RFID_UID_STR := '0';
  149. // Tisch_1_RFID := 110;
  150. // END_IF
  151. // 110:
  152. // IF gTisch_1_RFID_Read[0] = 0 THEN
  153. // gMerker_Debug_Test_Counter_RFID := 110; //Cech-Comment: eingefügt für TEstzwecke
  154. // gMerker_Tisch_1_alles_nullen := TRUE;
  155. // Tisch_1_RFID := 120;
  156. // END_IF
  157. // 120:
  158. // IF gTisch_1_RFID_Write[0] = 0 AND gTisch_1_RFID_Write[1] = 0 AND gTisch_1_RFID_Write[2] = 0 AND gTisch_1_RFID_Write[3] = 0 AND gTisch_1_RFID_Write[4] = 0 AND gTisch_1_RFID_Write[5] = 0 AND gTisch_1_RFID_Write[6] = 0 AND gTisch_1_RFID_Write[7] = 0 AND gTisch_1_RFID_Write[8] = 0 AND gTisch_1_RFID_Write[9] = 0 THEN
  159. // gMerker_Debug_Test_Counter_RFID := 120; //Cech-Comment: eingefügt für TEstzwecke
  160. // gMerker_Tisch_1_alles_nullen := FALSE;
  161. // gMerker_Tisch_1_RFID_Reset := FALSE;
  162. // Tisch_1_RFID := 0;
  163. // END_IF
  164. END_CASE
  165. // SCHREIBEN AUF ALLE GLEICH
  166. // CASE RFID_Schreiben OF
  167. // 0:
  168. // IF gMerker_Tisch_1_RFID_Vorhanden = TRUE AND gMerker_OPCUA_Schreibauftrag = TRUE AND gMerker_Tisch_1_lesen_fertig = TRUE THEN
  169. // gTisch_1_RFID_Write[0] := 4; // Kopf-Reset
  170. // RFID_Schreiben := 10;
  171. // END_IF
  172. // 10:
  173. // IF gTisch_1_RFID_Read[0] = 0 THEN
  174. // gMerker_Tisch_1_alles_nullen := TRUE;
  175. // RFID_Schreiben := 20;
  176. // END_IF
  177. // 20:
  178. // IF gTisch_1_RFID_Write[0] = 0 AND gTisch_1_RFID_Write[1] = 0 AND gTisch_1_RFID_Write[2] = 0 AND gTisch_1_RFID_Write[3] = 0 AND gTisch_1_RFID_Write[4] = 0 AND gTisch_1_RFID_Write[5] = 0 AND gTisch_1_RFID_Write[6] = 0 AND gTisch_1_RFID_Write[7] = 0 AND gTisch_1_RFID_Write[8] = 0 AND gTisch_1_RFID_Write[9] = 0 THEN
  179. // gMerker_Tisch_1_alles_nullen := FALSE;
  180. // gMerker_neuen_Befehl_schreiben := TRUE;
  181. // RFID_Schreiben := 30;
  182. // END_IF
  183. // 30:
  184. // IF gTisch_1_RFID_Read[0] = 163 THEN //163 : 10100011 betriebsbereit; toggelbit zeigt an dass Kopf bereit weitere Daten zu übermitteln; Auftrag erkannt und entgegengenommen; Datenträger im Lesebereich;
  185. // gMerker_neuen_Befehl_schreiben := FALSE;
  186. // gMerker_Tisch_1_alles_nullen := TRUE;
  187. // RFID_Schreiben := 40;
  188. // END_IF
  189. // 40:
  190. // IF gTisch_1_RFID_Write[0] = 0 AND gTisch_1_RFID_Write[1] = 0 AND gTisch_1_RFID_Write[2] = 0 AND gTisch_1_RFID_Write[3] = 0 AND gTisch_1_RFID_Write[4] = 0 AND gTisch_1_RFID_Write[5] = 0 AND gTisch_1_RFID_Write[6] = 0 AND gTisch_1_RFID_Write[7] = 0 AND gTisch_1_RFID_Write[8] = 0 AND gTisch_1_RFID_Write[9] = 0 THEN
  191. // gMerker_Tisch_1_alles_nullen := FALSE;
  192. // gTisch_1_RFID_Write[1] := gMerker_OPCUA_Seriennummer_Test;
  193. // gTisch_1_RFID_Write[2] := 0;
  194. // gTisch_1_RFID_Write[3] := 0;
  195. // gTisch_1_RFID_Write[4] := 0;
  196. // gTisch_1_RFID_Write[5] := 0;
  197. // gTisch_1_RFID_Write[6] := 0;
  198. // gTisch_1_RFID_Write[7] := 0;
  199. // gTisch_1_RFID_Write[8] := 0;
  200. // gTisch_1_RFID_Write[0] := 65; //65: 0100 0001 das obere Bit zeigt an, durch Toggelung, dass die Linien-SPS bereit ist, Daten vom Kopf zu empfangen
  201. // RFID_Schreiben := 50;
  202. // END_IF
  203. // 50:
  204. // IF gTisch_1_RFID_Read[0] = 167 THEN //167 1010 0111, Kopf bereit;Kopf bereit für neue Daten; Auftrag ohne Fehler beendet; Auftrag erkannt und entgegengenommen; Datenträger im LEsebereich des Kopfes
  205. // gMerker_Tisch_1_alles_nullen := TRUE;
  206. // RFID_Schreiben := 60;
  207. // END_IF
  208. //
  209. // 60:
  210. // IF gTisch_1_RFID_Write[0] = 0 AND gTisch_1_RFID_Write[1] = 0 AND gTisch_1_RFID_Write[2] = 0 AND gTisch_1_RFID_Write[3] = 0 AND gTisch_1_RFID_Write[4] = 0 AND gTisch_1_RFID_Write[5] = 0 AND gTisch_1_RFID_Write[6] = 0 AND gTisch_1_RFID_Write[7] = 0 AND gTisch_1_RFID_Write[8] = 0 AND gTisch_1_RFID_Write[9] = 0 THEN
  211. // gMerker_Tisch_1_alles_nullen := FALSE;
  212. // gMerker_OPCUA_Schreibauftrag := FALSE;
  213. // gMerker_Tisch_1_lesen_fertig := FALSE;
  214. // // gMerker_Tisch_1_Auftrag_Lesen := TRUE;
  215. // RFID_Schreiben := 0; // war 70
  216. // END_IF
  217. // 70:
  218. // IF gMerker_Tisch_1_RFID_Vorhanden = FALSE THEN
  219. // // gMerker_Tisch_1_Auftrag_Lesen := FALSE;
  220. // RFID_Schreiben := 0;
  221. // END_IF
  222. // END_CASE
  223. //********************************** Tisch 2 ***********************************************
  224. (* Lesen *)
  225. gMerker_Tisch_2_RFID_Vorhanden := gTisch_2_RFID_Read[0].0; (* Auslesen ob Chip vor Lesekopf *)
  226. // IF gMerker_Tisch_2_Auftrag_Lesen = TRUE THEN
  227. // // gMerker_Lesen_Fertig := FALSE;
  228. // gTisch_2_RFID_Write[1] := 1;(* Befehl Datenträger lesen *)
  229. // gTisch_2_RFID_Write[2] := 0;
  230. // gTisch_2_RFID_Write[3] := 0;
  231. // gTisch_2_RFID_Write[4] := 8; (* Anzahl Bytes Lowbytes *)
  232. // gTisch_2_RFID_Write[5] := 0;
  233. // gTisch_2_RFID_Write[6] := 0;
  234. // gTisch_2_RFID_Write[7] := 0;
  235. // gTisch_2_RFID_Write[8] := 0;
  236. // gTisch_2_RFID_Write[9] := 1;
  237. // gTisch_2_RFID_Write[0].0 := TRUE;
  238. // END_IF
  239. (* Write Variable nullen *)
  240. // IF gMerker_Tisch_2_alles_nullen = TRUE THEN
  241. // gTisch_2_RFID_Write[1] := 0;
  242. // gTisch_2_RFID_Write[2] := 0;
  243. // gTisch_2_RFID_Write[3] := 0;
  244. // gTisch_2_RFID_Write[4] := 0;
  245. // gTisch_2_RFID_Write[5] := 0;
  246. // gTisch_2_RFID_Write[6] := 0;
  247. // gTisch_2_RFID_Write[7] := 0;
  248. // gTisch_2_RFID_Write[8] := 0;
  249. // gTisch_2_RFID_Write[0] := 0;
  250. // END_IF
  251. // gTisch_2_RFID_Write[9] := gTisch_2_RFID_Write[0];
  252. CASE Tisch_2_RFID OF
  253. //Cech-Implement-Beginn: Hier soll die UID aus dem TAg nach Tag-Present rausgeholt und auf 8Byte-Array gMerker_Tisch_1_RFID_UID übergeben werden, damit die UID für Centurio über Opc-Ua übergeben werden kannn
  254. 0: IF gTisch_2_RFID_Read[0] = 129 AND gTisch_2_RFID_Write[0].0 = FALSE THEN //Cech-Comment: Wenn der TAG im Lesebereich ist und der Lesekopf betriebsbereit ist ( Read[0] = 1000 0001 ), aber noch kein Lesebefehl ausgegeben wurde
  255. gMerker_Tisch_2_STRING_HELPER := '';
  256. gMerker_Tisch_2_RFID_UID_STR := '';
  257. FOR i := 1 TO 8 DO
  258. gMerker_Tisch_2_STRING_HELPER := USINT_TO_STRING (gTisch_2_RFID_Read[i]);
  259. IF LEN(gMerker_Tisch_2_STRING_HELPER) = 1 THEN //Cech-Comment: Wenn der String nur 1 ZEichen ist, muss mit 2 Nullen links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  260. gMerker_Tisch_2_STRING_HELPER := CONCAT('00', gMerker_Tisch_2_STRING_HELPER);
  261. ELSIF LEN(gMerker_Tisch_2_STRING_HELPER) = 2 THEN //Cech-Comment: Wenn der String nur 2 Zeichen ist, muss mit 1 Null links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  262. gMerker_Tisch_2_STRING_HELPER := CONCAT('0', gMerker_Tisch_2_STRING_HELPER);
  263. END_IF;
  264. gMerker_Tisch_2_RFID_UID_STR := CONCAT( gMerker_Tisch_2_RFID_UID_STR, gMerker_Tisch_2_STRING_HELPER );
  265. END_FOR
  266. Tisch_2_RFID := 5;
  267. END_IF
  268. 5: IF gMerker_Tisch_2_RFID_Vorhanden = FALSE AND gTisch_2.Status.Stopper = STATUS_EINGEFAHREN THEN
  269. gMerker_Tisch_2_RFID_UID_STR := '0';
  270. Tisch_2_RFID := 0;
  271. END_IF
  272. //Cech-Implement-Ende
  273. // 5: IF gMerker_Tisch_2_RFID_Vorhanden = TRUE AND gTisch_2.Inputs.Vor_Stopper = TRUE AND gMerker_Tisch_2_RFID_Reset = FALSE (*AND gMerker_Tisch_2_lesen_fertig = FALSE*) THEN
  274. // gMerker_Tisch_2_Auftrag_Lesen := TRUE;
  275. // Tisch_2_RFID := 10;
  276. // END_IF
  277. //
  278. // 10: lWarten_RFID_Fehler_Tisch_2 := lWarten_RFID_Fehler_Tisch_2 + (RTInfo_0.cycle_time/1000);
  279. // IF gTisch_2_RFID_Read[0] = 135 THEN
  280. // gMerker_RFID_Value_Tisch_2 := gTisch_2_RFID_Read[1];
  281. // // gMerker_RFID_Tisch_2_gelesen := TRUE;
  282. // // gMerker_Tisch_2_lesen_fertig := TRUE;
  283. // lWarten_RFID_Fehler_Tisch_2 := 0;
  284. // Tisch_2_RFID := 15;
  285. // ELSIF lWarten_RFID_Fehler_Tisch_2 >= 5000 AND gTisch_2_RFID_Read[0] <> 135 THEN
  286. // gMerker_Tisch_2_Auftrag_Lesen := FALSE;
  287. // gMerker_Tisch_2_RFID_Reset := TRUE;
  288. // lWarten_RFID_Fehler_Tisch_2 := 0;
  289. // Tisch_2_RFID := 100;
  290. // END_IF
  291. //
  292. // 15:
  293. // IF gMerker_RFID_Value_Tisch_2 <> 0 THEN
  294. // gMerker_RFID_Tisch_2_gelesen := TRUE;
  295. // gMerker_Tisch_2_lesen_fertig := TRUE;
  296. // Tisch_2_RFID := 20;
  297. // ELSIF gMerker_RFID_Value_Tisch_2 = 0 THEN
  298. // gMerker_RFID_Tisch_2_gelesen := FALSE;
  299. // gMerker_Tisch_2_lesen_fertig := FALSE;
  300. // Tisch_2_RFID := 100;
  301. // END_IF
  302. // 20: lWarten_fuer_OPCUA_Tisch_2 := lWarten_fuer_OPCUA_Tisch_2 + (RTInfo_0.cycle_time/1000);
  303. // IF gMerker_Tisch_2_RFID_Vorhanden = FALSE AND gTisch_2.Inputs.Vor_Stopper = FALSE AND lWarten_fuer_OPCUA_Tisch_2 >= Wartezeit_OPCUA THEN
  304. // gMerker_Tisch_2_Auftrag_Lesen := FALSE;
  305. // gMerker_RFID_Value_Tisch_2 := 0;
  306. // gTisch_2_RFID_Write[0] := 4;
  307. // gMerker_Tisch_2_RFID_UID_STR := '0';
  308. // Tisch_2_RFID := 30;
  309. // END_IF
  310. //
  311. // 30:
  312. // IF gTisch_2_RFID_Read[0] = 0 THEN
  313. // gTisch_2_RFID_Write[0] := 0;
  314. // Tisch_2_RFID := 0;
  315. // END_IF
  316. //
  317. // 100:
  318. // IF gMerker_Tisch_2_Auftrag_Lesen = FALSE AND gMerker_Tisch_2_RFID_Reset = TRUE THEN
  319. // gTisch_2_RFID_Write[0] := 4;
  320. // gMerker_RFID_Value_Tisch_2 := 0;
  321. // Tisch_2_RFID := 110;
  322. // gMerker_Tisch_2_RFID_UID_STR := '0';
  323. // END_IF
  324. // 110:
  325. // IF gTisch_2_RFID_Read[0] = 0 THEN
  326. // gMerker_Tisch_2_alles_nullen := TRUE;
  327. // Tisch_2_RFID := 120;
  328. // END_IF
  329. //
  330. // 120:
  331. // IF gTisch_2_RFID_Write[0] = 0 AND gTisch_2_RFID_Write[1] = 0 AND gTisch_2_RFID_Write[2] = 0 AND gTisch_2_RFID_Write[3] = 0 AND gTisch_2_RFID_Write[4] = 0 AND gTisch_2_RFID_Write[5] = 0 AND gTisch_2_RFID_Write[6] = 0 AND gTisch_2_RFID_Write[7] = 0 AND gTisch_2_RFID_Write[8] = 0 AND gTisch_2_RFID_Write[9] = 0 THEN
  332. // gMerker_Tisch_2_alles_nullen := FALSE;
  333. // gMerker_Tisch_2_RFID_Reset := FALSE;
  334. // Tisch_2_RFID := 0;
  335. // END_IF
  336. END_CASE
  337. //********************************** Tisch 3 ***********************************************
  338. (* Lesen *)
  339. gMerker_Tisch_3_RFID_Vorhanden := gTisch_3_RFID_Read[0].0; (* Auslesen ob Chip vor Lesekopf *)
  340. // IF gMerker_Tisch_3_Auftrag_Lesen = TRUE THEN
  341. // // gMerker_Lesen_Fertig := FALSE;
  342. // gTisch_3_RFID_Write[1] := 1;(* Befehl Datenträger lesen *)
  343. // gTisch_3_RFID_Write[2] := 0;
  344. // gTisch_3_RFID_Write[3] := 0;
  345. // gTisch_3_RFID_Write[4] := 8; (* Anzahl Bytes Lowbytes *)
  346. // gTisch_3_RFID_Write[5] := 0;
  347. // gTisch_3_RFID_Write[6] := 0;
  348. // gTisch_3_RFID_Write[7] := 0;
  349. // gTisch_3_RFID_Write[8] := 0;
  350. // gTisch_3_RFID_Write[9] := 1;
  351. // gTisch_3_RFID_Write[0].0 := TRUE;
  352. // END_IF
  353. (* Write Variable nullen *)
  354. // IF gMerker_Tisch_3_alles_nullen = TRUE THEN
  355. // gTisch_3_RFID_Write[1] := 0;
  356. // gTisch_3_RFID_Write[2] := 0;
  357. // gTisch_3_RFID_Write[3] := 0;
  358. // gTisch_3_RFID_Write[4] := 0;
  359. // gTisch_3_RFID_Write[5] := 0;
  360. // gTisch_3_RFID_Write[6] := 0;
  361. // gTisch_3_RFID_Write[7] := 0;
  362. // gTisch_3_RFID_Write[8] := 0;
  363. // gTisch_3_RFID_Write[0] := 0;
  364. // END_IF
  365. // gTisch_3_RFID_Write[9] := gTisch_3_RFID_Write[0];
  366. CASE Tisch_3_RFID OF
  367. //Cech-Implement-Beginn: Hier soll die UID aus dem TAg nach Tag-Present rausgeholt und auf 8Byte-Array gMerker_Tisch_1_RFID_UID übergeben werden, damit die UID für Centurio über Opc-Ua übergeben werden kannn
  368. 0: IF gTisch_3_RFID_Read[0] = 129 AND gTisch_3_RFID_Write[0].0 = FALSE THEN //Cech-Comment: Wenn der TAG im Lesebereich ist und der Lesekopf betriebsbereit ist ( Read[0] = 1000 0001 ), aber noch kein Lesebefehl ausgegeben wurde
  369. gMerker_Tisch_3_STRING_HELPER := '';
  370. gMerker_Tisch_3_RFID_UID_STR := '';
  371. FOR i := 1 TO 8 DO
  372. gMerker_Tisch_3_STRING_HELPER := USINT_TO_STRING (gTisch_3_RFID_Read[i]);
  373. IF LEN(gMerker_Tisch_3_STRING_HELPER) = 1 THEN //Cech-Comment: Wenn der String nur 1 ZEichen ist, muss mit 2 Nullen links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  374. gMerker_Tisch_3_STRING_HELPER := CONCAT('00', gMerker_Tisch_3_STRING_HELPER);
  375. ELSIF LEN(gMerker_Tisch_3_STRING_HELPER) = 2 THEN //Cech-Comment: Wenn der String nur 2 Zeichen ist, muss mit 1 Null links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  376. gMerker_Tisch_3_STRING_HELPER := CONCAT('0', gMerker_Tisch_3_STRING_HELPER);
  377. END_IF;
  378. gMerker_Tisch_3_RFID_UID_STR := CONCAT( gMerker_Tisch_3_RFID_UID_STR, gMerker_Tisch_3_STRING_HELPER );
  379. END_FOR
  380. Tisch_3_RFID := 5;
  381. END_IF
  382. 5: IF gMerker_Tisch_3_RFID_Vorhanden = FALSE AND gTisch_3.Status.Stopper = STATUS_EINGEFAHREN THEN
  383. gMerker_Tisch_3_RFID_UID_STR := '0';
  384. Tisch_3_RFID := 0;
  385. END_IF
  386. //Cech-Implement-Ende
  387. // 5: IF gMerker_Tisch_3_RFID_Vorhanden = TRUE AND gTisch_3.Inputs.Vor_Stopper = TRUE AND gMerker_Tisch_3_RFID_Reset = FALSE (*AND gMerker_Tisch_3_lesen_fertig = FALSE*) THEN
  388. // gMerker_Tisch_3_Auftrag_Lesen := TRUE;
  389. // Tisch_3_RFID := 10;
  390. // END_IF
  391. // 10: lWarten_RFID_Fehler_Tisch_3 := lWarten_RFID_Fehler_Tisch_3 + (RTInfo_0.cycle_time/1000);
  392. // IF gTisch_3_RFID_Read[0] = 135 THEN
  393. // gMerker_RFID_Value_Tisch_3 := gTisch_3_RFID_Read[1];
  394. // // gMerker_RFID_Tisch_3_gelesen := TRUE;
  395. // // gMerker_Tisch_3_lesen_fertig := TRUE;
  396. // lWarten_RFID_Fehler_Tisch_3 := 0;
  397. // Tisch_3_RFID := 15;
  398. // ELSIF lWarten_RFID_Fehler_Tisch_3 >= 5000 AND gTisch_3_RFID_Read[0] <> 135 THEN
  399. // gMerker_Tisch_3_Auftrag_Lesen := FALSE;
  400. // gMerker_Tisch_3_RFID_Reset := TRUE;
  401. // lWarten_RFID_Fehler_Tisch_3 := 0;
  402. // Tisch_3_RFID := 100;
  403. // END_IF
  404. // 15:
  405. // IF gMerker_RFID_Value_Tisch_3 <> 0 THEN
  406. // gMerker_RFID_Tisch_3_gelesen := TRUE;
  407. // gMerker_Tisch_3_lesen_fertig := TRUE;
  408. // Tisch_3_RFID := 20;
  409. // ELSIF gMerker_RFID_Value_Tisch_3 = 0 THEN
  410. // gMerker_RFID_Tisch_3_gelesen := FALSE;
  411. // gMerker_Tisch_3_lesen_fertig := FALSE;
  412. // Tisch_3_RFID := 100;
  413. // END_IF
  414. // 20: lWarten_fuer_OPCUA_Tisch_3 := lWarten_fuer_OPCUA_Tisch_3 + (RTInfo_0.cycle_time/1000);
  415. // IF gMerker_Tisch_3_RFID_Vorhanden = FALSE AND gTisch_3.Inputs.Vor_Stopper = FALSE AND lWarten_fuer_OPCUA_Tisch_3 >= Wartezeit_OPCUA THEN
  416. // gMerker_Tisch_3_Auftrag_Lesen := FALSE;
  417. // gMerker_RFID_Value_Tisch_3 := 0;
  418. // gTisch_3_RFID_Write[0] := 4;
  419. // gMerker_Tisch_3_RFID_UID_STR := '0';
  420. // Tisch_3_RFID := 30;
  421. // END_IF
  422. // 30:
  423. // IF gTisch_3_RFID_Read[0] = 0 THEN
  424. // gTisch_3_RFID_Write[0] := 0;
  425. // Tisch_3_RFID := 0;
  426. // END_IF
  427. // 100:
  428. // IF gMerker_Tisch_3_Auftrag_Lesen = FALSE AND gMerker_Tisch_3_RFID_Reset = TRUE THEN
  429. // gTisch_3_RFID_Write[0] := 4;
  430. // gMerker_RFID_Value_Tisch_3 := 0;
  431. // gMerker_Tisch_3_RFID_UID_STR := '0';
  432. // Tisch_3_RFID := 110;
  433. // END_IF
  434. // 110:
  435. // IF gTisch_3_RFID_Read[0] = 0 THEN
  436. // gMerker_Tisch_3_alles_nullen := TRUE;
  437. // Tisch_3_RFID := 120;
  438. // END_IF
  439. // 120:
  440. // IF gTisch_3_RFID_Write[0] = 0 AND gTisch_3_RFID_Write[1] = 0 AND gTisch_3_RFID_Write[2] = 0 AND gTisch_3_RFID_Write[3] = 0 AND gTisch_3_RFID_Write[4] = 0 AND gTisch_3_RFID_Write[5] = 0 AND gTisch_3_RFID_Write[6] = 0 AND gTisch_3_RFID_Write[7] = 0 AND gTisch_3_RFID_Write[8] = 0 AND gTisch_3_RFID_Write[9] = 0 THEN
  441. // gMerker_Tisch_3_alles_nullen := FALSE;
  442. // gMerker_Tisch_3_RFID_Reset := FALSE;
  443. // Tisch_3_RFID := 0;
  444. // END_IF
  445. END_CASE
  446. //********************************** Tisch 4 ***********************************************
  447. (* Lesen *)
  448. gMerker_Tisch_4_RFID_Vorhanden := gTisch_4_RFID_Read[0].0; (* Auslesen ob Chip vor Lesekopf *)
  449. // IF gMerker_Tisch_4_Auftrag_Lesen = TRUE THEN
  450. // // gMerker_Lesen_Fertig := FALSE;
  451. // gTisch_4_RFID_Write[1] := 1;(* Befehl Datenträger lesen *)
  452. // gTisch_4_RFID_Write[2] := 0;
  453. // gTisch_4_RFID_Write[3] := 0;
  454. // gTisch_4_RFID_Write[4] := 8; (* Anzahl Bytes Lowbytes *)
  455. // gTisch_4_RFID_Write[5] := 0;
  456. // gTisch_4_RFID_Write[6] := 0;
  457. // gTisch_4_RFID_Write[7] := 0;
  458. // gTisch_4_RFID_Write[8] := 0;
  459. // gTisch_4_RFID_Write[9] := 1;
  460. // gTisch_4_RFID_Write[0].0 := TRUE;
  461. // END_IF
  462. (* Write Variable nullen *)
  463. // IF gMerker_Tisch_4_alles_nullen = TRUE THEN
  464. // gTisch_4_RFID_Write[1] := 0;
  465. // gTisch_4_RFID_Write[2] := 0;
  466. // gTisch_4_RFID_Write[3] := 0;
  467. // gTisch_4_RFID_Write[4] := 0;
  468. // gTisch_4_RFID_Write[5] := 0;
  469. // gTisch_4_RFID_Write[6] := 0;
  470. // gTisch_4_RFID_Write[7] := 0;
  471. // gTisch_4_RFID_Write[8] := 0;
  472. // gTisch_4_RFID_Write[0] := 0;
  473. // END_IF
  474. // gTisch_4_RFID_Write[9] := gTisch_4_RFID_Write[0];
  475. CASE Tisch_4_RFID OF
  476. //Cech-Implement-Beginn: Hier soll die UID aus dem TAg nach Tag-Present rausgeholt und auf 8Byte-Array gMerker_Tisch_1_RFID_UID übergeben werden, damit die UID für Centurio über Opc-Ua übergeben werden kannn
  477. 0: IF gTisch_4_RFID_Read[0] = 129 AND gTisch_4_RFID_Write[0].0 = FALSE THEN //Cech-Comment: Wenn der TAG im Lesebereich ist und der Lesekopf betriebsbereit ist ( Read[0] = 1000 0001 ), aber noch kein Lesebefehl ausgegeben wurde
  478. gMerker_Tisch_4_STRING_HELPER := '';
  479. gMerker_Tisch_4_RFID_UID_STR := '';
  480. FOR i := 1 TO 8 DO
  481. gMerker_Tisch_4_STRING_HELPER := USINT_TO_STRING (gTisch_4_RFID_Read[i]);
  482. IF LEN(gMerker_Tisch_4_STRING_HELPER) = 1 THEN //Cech-Comment: Wenn der String nur 1 ZEichen ist, muss mit 2 Nullen links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  483. gMerker_Tisch_4_STRING_HELPER := CONCAT('00', gMerker_Tisch_4_STRING_HELPER);
  484. ELSIF LEN(gMerker_Tisch_4_STRING_HELPER) = 2 THEN //Cech-Comment: Wenn der String nur 2 Zeichen ist, muss mit 1 Null links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  485. gMerker_Tisch_4_STRING_HELPER := CONCAT('0', gMerker_Tisch_4_STRING_HELPER);
  486. END_IF;
  487. gMerker_Tisch_4_RFID_UID_STR := CONCAT( gMerker_Tisch_4_RFID_UID_STR, gMerker_Tisch_4_STRING_HELPER );
  488. END_FOR
  489. Tisch_4_RFID := 5;
  490. END_IF
  491. 5: IF gMerker_Tisch_4_RFID_Vorhanden = FALSE AND gTisch_4.Status.Stopper = STATUS_EINGEFAHREN THEN
  492. gMerker_Tisch_4_RFID_UID_STR := '0';
  493. Tisch_4_RFID := 0;
  494. END_IF
  495. //Cech-Implement-Ende
  496. // 5: IF gMerker_Tisch_4_RFID_Vorhanden = TRUE AND gTisch_4.Inputs.Vor_Stopper = TRUE AND gMerker_Tisch_4_RFID_Reset = FALSE (*AND gMerker_Tisch_4_lesen_fertig = FALSE*) THEN
  497. // gMerker_Tisch_4_Auftrag_Lesen := TRUE;
  498. // Tisch_4_RFID := 10;
  499. // END_IF
  500. //
  501. // 10: lWarten_RFID_Fehler_Tisch_4 := lWarten_RFID_Fehler_Tisch_4 + (RTInfo_0.cycle_time/1000);
  502. // IF gTisch_4_RFID_Read[0] = 135 THEN
  503. // gMerker_RFID_Value_Tisch_4 := gTisch_4_RFID_Read[1];
  504. // // gMerker_RFID_Tisch_4_gelesen := TRUE;
  505. // // gMerker_Tisch_4_lesen_fertig := TRUE;
  506. // lWarten_RFID_Fehler_Tisch_4 := 0;
  507. // Tisch_4_RFID := 15;
  508. // ELSIF lWarten_RFID_Fehler_Tisch_4 >= 5000 AND gTisch_4_RFID_Read[0] <> 135 THEN
  509. // gMerker_Tisch_4_Auftrag_Lesen := FALSE;
  510. // gMerker_Tisch_4_RFID_Reset := TRUE;
  511. // lWarten_RFID_Fehler_Tisch_4 := 0;
  512. // Tisch_4_RFID := 100;
  513. // END_IF
  514. // 15:
  515. // IF gMerker_RFID_Value_Tisch_4 <> 0 THEN
  516. // gMerker_RFID_Tisch_4_gelesen := TRUE;
  517. // gMerker_Tisch_4_lesen_fertig := TRUE;
  518. // Tisch_4_RFID := 20;
  519. // ELSIF gMerker_RFID_Value_Tisch_4 = 0 THEN
  520. // gMerker_RFID_Tisch_4_gelesen := FALSE;
  521. // gMerker_Tisch_4_lesen_fertig := FALSE;
  522. // Tisch_4_RFID := 100;
  523. // END_IF
  524. // 20: lWarten_fuer_OPCUA_Tisch_4 := lWarten_fuer_OPCUA_Tisch_4 + (RTInfo_0.cycle_time/1000);
  525. // IF gMerker_Tisch_4_RFID_Vorhanden = FALSE AND gTisch_4.Inputs.Vor_Stopper = FALSE AND lWarten_fuer_OPCUA_Tisch_4 >= Wartezeit_OPCUA THEN
  526. // gMerker_Tisch_4_Auftrag_Lesen := FALSE;
  527. // gMerker_RFID_Value_Tisch_4 := 0;
  528. // gTisch_4_RFID_Write[0] := 4;
  529. // gMerker_Tisch_4_RFID_UID_STR := '0';
  530. // Tisch_4_RFID := 30;
  531. // END_IF
  532. // 30:
  533. // IF gTisch_4_RFID_Read[0] = 0 THEN
  534. // gTisch_4_RFID_Write[0] := 0;
  535. // Tisch_4_RFID := 0;
  536. // END_IF
  537. //
  538. // 100:
  539. // IF gMerker_Tisch_4_Auftrag_Lesen = FALSE AND gMerker_Tisch_4_RFID_Reset = TRUE THEN
  540. // gTisch_4_RFID_Write[0] := 4;
  541. // gMerker_RFID_Value_Tisch_4 := 0;
  542. // gMerker_Tisch_4_RFID_UID_STR := '0';
  543. // Tisch_4_RFID := 110;
  544. // END_IF
  545. // 110:
  546. // IF gTisch_4_RFID_Read[0] = 0 THEN
  547. // gMerker_Tisch_4_alles_nullen := TRUE;
  548. // Tisch_4_RFID := 120;
  549. // END_IF
  550. //
  551. // 120:
  552. // IF gTisch_4_RFID_Write[0] = 0 AND gTisch_4_RFID_Write[1] = 0 AND gTisch_4_RFID_Write[2] = 0 AND gTisch_4_RFID_Write[3] = 0 AND gTisch_4_RFID_Write[4] = 0 AND gTisch_4_RFID_Write[5] = 0 AND gTisch_4_RFID_Write[6] = 0 AND gTisch_4_RFID_Write[7] = 0 AND gTisch_4_RFID_Write[8] = 0 AND gTisch_4_RFID_Write[9] = 0 THEN
  553. // gMerker_Tisch_4_alles_nullen := FALSE;
  554. // gMerker_Tisch_4_RFID_Reset := FALSE;
  555. // Tisch_4_RFID := 0;
  556. // END_IF
  557. //
  558. END_CASE
  559. //********************************** Tisch 5 ***********************************************
  560. (* Lesen *)
  561. gMerker_Tisch_5_RFID_Vorhanden := gTisch_5_RFID_Read[0].0; (* Auslesen ob Chip vor Lesekopf *)
  562. // IF gMerker_Tisch_5_Auftrag_Lesen = TRUE THEN
  563. // // gMerker_Lesen_Fertig := FALSE;
  564. // gTisch_5_RFID_Write[1] := 1;(* Befehl Datenträger lesen *)
  565. // gTisch_5_RFID_Write[2] := 0;
  566. // gTisch_5_RFID_Write[3] := 0;
  567. // gTisch_5_RFID_Write[4] := 8; (* Anzahl Bytes Lowbytes *)
  568. // gTisch_5_RFID_Write[5] := 0;
  569. // gTisch_5_RFID_Write[6] := 0;
  570. // gTisch_5_RFID_Write[7] := 0;
  571. // gTisch_5_RFID_Write[8] := 0;
  572. // gTisch_5_RFID_Write[9] := 1;
  573. // gTisch_5_RFID_Write[0].0 := TRUE;
  574. // END_IF
  575. //
  576. // (* Write Variable nullen *)
  577. //
  578. // IF gMerker_Tisch_5_alles_nullen = TRUE THEN
  579. // gTisch_5_RFID_Write[1] := 0;
  580. // gTisch_5_RFID_Write[2] := 0;
  581. // gTisch_5_RFID_Write[3] := 0;
  582. // gTisch_5_RFID_Write[4] := 0;
  583. // gTisch_5_RFID_Write[5] := 0;
  584. // gTisch_5_RFID_Write[6] := 0;
  585. // gTisch_5_RFID_Write[7] := 0;
  586. // gTisch_5_RFID_Write[8] := 0;
  587. // gTisch_5_RFID_Write[0] := 0;
  588. // END_IF
  589. //
  590. // gTisch_5_RFID_Write[9] := gTisch_5_RFID_Write[0];
  591. //
  592. CASE Tisch_5_RFID OF
  593. //Cech-Implement-Beginn: Hier soll die UID aus dem TAg nach Tag-Present rausgeholt und auf 8Byte-Array gMerker_Tisch_1_RFID_UID übergeben werden, damit die UID für Centurio über Opc-Ua übergeben werden kannn
  594. 0: IF gTisch_5_RFID_Read[0] = 129 AND gTisch_5_RFID_Write[0].0 = FALSE THEN //Cech-Comment: Wenn der TAG im Lesebereich ist und der Lesekopf betriebsbereit ist ( Read[0] = 1000 0001 ), aber noch kein Lesebefehl ausgegeben wurde
  595. gMerker_Tisch_5_STRING_HELPER := '';
  596. gMerker_Tisch_5_RFID_UID_STR := '';
  597. FOR i := 1 TO 8 DO
  598. gMerker_Tisch_5_STRING_HELPER := USINT_TO_STRING (gTisch_5_RFID_Read[i]);
  599. IF LEN(gMerker_Tisch_5_STRING_HELPER) = 1 THEN //Cech-Comment: Wenn der String nur 1 ZEichen ist, muss mit 2 Nullen links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  600. gMerker_Tisch_5_STRING_HELPER := CONCAT('00', gMerker_Tisch_5_STRING_HELPER);
  601. ELSIF LEN(gMerker_Tisch_5_STRING_HELPER) = 2 THEN //Cech-Comment: Wenn der String nur 2 Zeichen ist, muss mit 1 Null links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  602. gMerker_Tisch_5_STRING_HELPER := CONCAT('0', gMerker_Tisch_5_STRING_HELPER);
  603. END_IF;
  604. gMerker_Tisch_5_RFID_UID_STR := CONCAT( gMerker_Tisch_5_RFID_UID_STR, gMerker_Tisch_5_STRING_HELPER );
  605. END_FOR
  606. Tisch_5_RFID := 5;
  607. END_IF
  608. 5: IF gMerker_Tisch_5_RFID_Vorhanden = FALSE AND gTisch_5.Status.Stopper = STATUS_EINGEFAHREN THEN
  609. gMerker_Tisch_5_RFID_UID_STR := '0';
  610. Tisch_5_RFID := 0;
  611. END_IF
  612. //Cech-Implement-Ende
  613. // 5: IF gMerker_Tisch_5_RFID_Vorhanden = TRUE AND gTisch_5.Inputs.Vor_Stopper = TRUE AND gMerker_Tisch_5_RFID_Reset = FALSE (*AND gMerker_Tisch_5_lesen_fertig = FALSE*) THEN
  614. // gMerker_Tisch_5_Auftrag_Lesen := TRUE;
  615. // Tisch_5_RFID := 10;
  616. // END_IF
  617. //
  618. // 10: lWarten_RFID_Fehler_Tisch_5 := lWarten_RFID_Fehler_Tisch_5 + (RTInfo_0.cycle_time/1000);
  619. // IF gTisch_5_RFID_Read[0] = 135 THEN
  620. // gMerker_RFID_Value_Tisch_5 := gTisch_5_RFID_Read[1];
  621. // // gMerker_RFID_Tisch_5_gelesen := TRUE;
  622. // // gMerker_Tisch_5_lesen_fertig := TRUE;
  623. // lWarten_RFID_Fehler_Tisch_5 := 0;
  624. // Tisch_5_RFID := 15;
  625. // ELSIF lWarten_RFID_Fehler_Tisch_5 >= 5000 AND gTisch_5_RFID_Read[0] <> 135 THEN
  626. // gMerker_Tisch_5_Auftrag_Lesen := FALSE;
  627. // gMerker_Tisch_5_RFID_Reset := TRUE;
  628. // lWarten_RFID_Fehler_Tisch_5 := 0;
  629. // Tisch_5_RFID := 100;
  630. // END_IF
  631. //
  632. // 15:
  633. // IF gMerker_RFID_Value_Tisch_5 <> 0 THEN
  634. // gMerker_RFID_Tisch_5_gelesen := TRUE;
  635. // gMerker_Tisch_5_lesen_fertig := TRUE;
  636. // Tisch_5_RFID := 20;
  637. // ELSIF gMerker_RFID_Value_Tisch_5 = 0 THEN
  638. // gMerker_RFID_Tisch_5_gelesen := FALSE;
  639. // gMerker_Tisch_5_lesen_fertig := FALSE;
  640. // Tisch_5_RFID := 100;
  641. // END_IF
  642. //
  643. // 20: lWarten_fuer_OPCUA_Tisch_5 := lWarten_fuer_OPCUA_Tisch_5 + (RTInfo_0.cycle_time/1000);
  644. // IF gMerker_Tisch_5_RFID_Vorhanden = FALSE AND gTisch_5.Inputs.Vor_Stopper = FALSE AND lWarten_fuer_OPCUA_Tisch_5 >= Wartezeit_OPCUA THEN
  645. // gMerker_Tisch_5_Auftrag_Lesen := FALSE;
  646. // gMerker_RFID_Value_Tisch_5 := 0;
  647. // gTisch_5_RFID_Write[0] := 4;
  648. // gMerker_Tisch_5_RFID_UID_STR := '0';
  649. // Tisch_5_RFID := 30;
  650. // END_IF
  651. //
  652. // 30:
  653. // IF gTisch_5_RFID_Read[0] = 0 THEN
  654. // gTisch_5_RFID_Write[0] := 0;
  655. // Tisch_5_RFID := 0;
  656. // END_IF
  657. //
  658. // 100:
  659. // IF gMerker_Tisch_5_Auftrag_Lesen = FALSE AND gMerker_Tisch_5_RFID_Reset = TRUE THEN
  660. // gTisch_5_RFID_Write[0] := 4;
  661. // gMerker_RFID_Value_Tisch_5 := 0;
  662. // gMerker_Tisch_5_RFID_UID_STR := '0';
  663. // Tisch_5_RFID := 110;
  664. // END_IF
  665. //
  666. // 110:
  667. // IF gTisch_5_RFID_Read[0] = 0 THEN
  668. // gMerker_Tisch_5_alles_nullen := TRUE;
  669. // Tisch_5_RFID := 120;
  670. // END_IF
  671. // 120:
  672. // IF gTisch_5_RFID_Write[0] = 0 AND gTisch_5_RFID_Write[1] = 0 AND gTisch_5_RFID_Write[2] = 0 AND gTisch_5_RFID_Write[3] = 0 AND gTisch_5_RFID_Write[4] = 0 AND gTisch_5_RFID_Write[5] = 0 AND gTisch_5_RFID_Write[6] = 0 AND gTisch_5_RFID_Write[7] = 0 AND gTisch_5_RFID_Write[8] = 0 AND gTisch_5_RFID_Write[9] = 0 THEN
  673. // gMerker_Tisch_5_alles_nullen := FALSE;
  674. // gMerker_Tisch_5_RFID_Reset := FALSE;
  675. // Tisch_5_RFID := 0;
  676. // END_IF
  677. END_CASE
  678. //********************************** Tisch 6 ***********************************************
  679. (* Lesen *)
  680. gMerker_Tisch_6_RFID_Vorhanden := gTisch_6_RFID_Read[0].0; (* Auslesen ob Chip vor Lesekopf *)
  681. // IF gMerker_Tisch_6_Auftrag_Lesen = TRUE THEN
  682. // gMerker_Lesen_Fertig := FALSE;
  683. // gTisch_6_RFID_Write[1] := 1;(* Befehl Datenträger lesen *)
  684. // gTisch_6_RFID_Write[2] := 0;
  685. // gTisch_6_RFID_Write[3] := 0;
  686. // gTisch_6_RFID_Write[4] := 8; (* Anzahl Bytes Lowbytes *)
  687. // gTisch_6_RFID_Write[5] := 0;
  688. // gTisch_6_RFID_Write[6] := 0;
  689. // gTisch_6_RFID_Write[7] := 0;
  690. // gTisch_6_RFID_Write[8] := 0;
  691. // gTisch_6_RFID_Write[9] := 1;
  692. // gTisch_6_RFID_Write[0].0 := TRUE;
  693. // END_IF
  694. //
  695. // (* Write Variable nullen *)
  696. //
  697. // IF gMerker_Tisch_6_alles_nullen = TRUE THEN
  698. // gTisch_6_RFID_Write[1] := 0;
  699. // gTisch_6_RFID_Write[2] := 0;
  700. // gTisch_6_RFID_Write[3] := 0;
  701. // gTisch_6_RFID_Write[4] := 0;
  702. // gTisch_6_RFID_Write[5] := 0;
  703. // gTisch_6_RFID_Write[6] := 0;
  704. // gTisch_6_RFID_Write[7] := 0;
  705. // gTisch_6_RFID_Write[8] := 0;
  706. // gTisch_6_RFID_Write[0] := 0;
  707. // END_IF
  708. // gTisch_6_RFID_Write[9] := gTisch_6_RFID_Write[0];
  709. CASE Tisch_6_RFID OF
  710. //Cech-Implement-Beginn: Hier soll die UID aus dem TAg nach Tag-Present rausgeholt und auf 8Byte-Array gMerker_Tisch_1_RFID_UID übergeben werden, damit die UID für Centurio über Opc-Ua übergeben werden kannn
  711. 0: IF gTisch_6_RFID_Read[0] = 129 (*AND gTisch_6_RFID_Write[0].0 = FALSE *) THEN //Cech-Comment: Wenn der TAG im Lesebereich ist und der Lesekopf betriebsbereit ist ( Read[0] = 1000 0001 ), aber noch kein Lesebefehl ausgegeben wurde
  712. gMerker_Tisch_6_STRING_HELPER := '';
  713. gMerker_Tisch_6_RFID_UID_STR := '';
  714. FOR i := 1 TO 8 DO
  715. gMerker_Tisch_6_STRING_HELPER := USINT_TO_STRING (gTisch_6_RFID_Read[i]);
  716. IF LEN(gMerker_Tisch_6_STRING_HELPER) = 1 THEN //Cech-Comment: Wenn der String nur 1 ZEichen ist, muss mit 2 Nullen links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  717. gMerker_Tisch_6_STRING_HELPER := CONCAT('00', gMerker_Tisch_6_STRING_HELPER);
  718. ELSIF LEN(gMerker_Tisch_6_STRING_HELPER) = 2 THEN //Cech-Comment: Wenn der String nur 2 Zeichen ist, muss mit 1 Null links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  719. gMerker_Tisch_6_STRING_HELPER := CONCAT('0', gMerker_Tisch_6_STRING_HELPER);
  720. END_IF;
  721. gMerker_Tisch_6_RFID_UID_STR := CONCAT( gMerker_Tisch_6_RFID_UID_STR, gMerker_Tisch_6_STRING_HELPER );
  722. END_FOR
  723. Tisch_6_RFID := 5;
  724. END_IF
  725. 5: IF gMerker_Tisch_6_RFID_Vorhanden = FALSE AND gTisch_6.Status.Stopper = STATUS_EINGEFAHREN THEN
  726. gMerker_Tisch_6_RFID_UID_STR := '0';
  727. Tisch_6_RFID := 0;
  728. END_IF
  729. //Cech-Implement-Ende
  730. // 5: IF gMerker_Tisch_6_RFID_Vorhanden = TRUE AND gTisch_6.Inputs.Vor_Stopper = TRUE AND gMerker_Tisch_6_RFID_Reset = FALSE AND gMerker_block_RFID_read_Tisch_6 = FALSE (*AND gMerker_Tisch_6_lesen_fertig = FALSE*) THEN
  731. // gMerker_Tisch_6_Auftrag_Lesen := TRUE;
  732. // Tisch_6_RFID := 10;
  733. // END_IF
  734. // 10: lWarten_RFID_Fehler_Tisch_6 := lWarten_RFID_Fehler_Tisch_6 + (RTInfo_0.cycle_time/1000);
  735. // IF gTisch_6_RFID_Read[0] = 135 THEN
  736. // gMerker_RFID_Value_Tisch_6 := gTisch_6_RFID_Read[1];
  737. // // gMerker_RFID_Tisch_6_gelesen := TRUE;
  738. // // gMerker_Tisch_6_lesen_fertig := TRUE;
  739. // lWarten_RFID_Fehler_Tisch_6 := 0;
  740. // Tisch_6_RFID := 15;
  741. // ELSIF lWarten_RFID_Fehler_Tisch_6 >= 5000 AND gTisch_6_RFID_Read[0] <> 135 THEN
  742. // gMerker_Tisch_6_Auftrag_Lesen := FALSE;
  743. // gMerker_Tisch_6_RFID_Reset := TRUE;
  744. // lWarten_RFID_Fehler_Tisch_6 := 0;
  745. // Tisch_6_RFID := 100;
  746. // END_IF
  747. // 15:
  748. // IF gMerker_RFID_Value_Tisch_6 <> 0 THEN
  749. // gMerker_RFID_Tisch_6_gelesen := TRUE;
  750. // gMerker_Tisch_6_lesen_fertig := TRUE;
  751. // Tisch_6_RFID := 20;
  752. // ELSIF gMerker_RFID_Value_Tisch_6 = 0 THEN
  753. // gMerker_RFID_Tisch_6_gelesen := FALSE;
  754. // gMerker_Tisch_6_lesen_fertig := FALSE;
  755. // Tisch_6_RFID := 100;
  756. // END_IF
  757. // 20: (* lWarten_fuer_OPCUA_Tisch_6 := lWarten_fuer_OPCUA_Tisch_6 + (RTInfo_0.cycle_time/1000) ;*)
  758. // IF gMerker_Tisch_6_RFID_Vorhanden = FALSE (* gTisch_6.Inputs.Vor_Stopper = FALSE *) AND gTisch_6.Inputs.Nach_Stopper = TRUE (* AND lWarten_fuer_OPCUA_Tisch_6 >= Wartezeit_OPCUA *) THEN
  759. // gMerker_Tisch_6_Auftrag_Lesen := FALSE;
  760. // gMerker_RFID_Value_Tisch_6 := 0;
  761. // gTisch_6_RFID_Write[0] := 4;
  762. // gMerker_Tisch_6_RFID_UID_STR := '0';
  763. // Tisch_6_RFID := 30;
  764. // END_IF
  765. // 30:
  766. // IF gTisch_6_RFID_Read[0] = 0 THEN
  767. // gTisch_6_RFID_Write[0] := 0;
  768. // Tisch_6_RFID := 0;
  769. // END_IF
  770. // 100:
  771. // IF gMerker_Tisch_6_Auftrag_Lesen = FALSE AND gMerker_Tisch_6_RFID_Reset = TRUE THEN
  772. // gTisch_6_RFID_Write[0] := 4;
  773. // // gMerker_RFID_Value_Tisch_6 := 0;
  774. // gMerker_Tisch_6_RFID_UID_STR := '0';
  775. // Tisch_6_RFID := 110;
  776. // END_IF
  777. // 110:
  778. // IF gTisch_6_RFID_Read[0] = 0 THEN
  779. // gMerker_Tisch_6_alles_nullen := TRUE;
  780. // Tisch_6_RFID := 120;
  781. // END_IF
  782. // 120:
  783. // IF gTisch_6_RFID_Write[0] = 0 AND gTisch_6_RFID_Write[1] = 0 AND gTisch_6_RFID_Write[2] = 0 AND gTisch_6_RFID_Write[3] = 0 AND gTisch_6_RFID_Write[4] = 0 AND gTisch_6_RFID_Write[5] = 0 AND gTisch_6_RFID_Write[6] = 0 AND gTisch_6_RFID_Write[7] = 0 AND gTisch_6_RFID_Write[8] = 0 AND gTisch_6_RFID_Write[9] = 0 THEN
  784. // gMerker_Tisch_6_alles_nullen := FALSE;
  785. // gMerker_Tisch_6_RFID_Reset := FALSE;
  786. // Tisch_6_RFID := 0;
  787. // END_IF
  788. END_CASE
  789. //********************************** Tisch 7 ***********************************************
  790. (* Lesen *)
  791. gMerker_Tisch_7_RFID_Vorhanden := gTisch_7_RFID_Read[0].0; (* Auslesen ob Chip vor Lesekopf *)
  792. // IF gMerker_Tisch_7_Auftrag_Lesen = TRUE THEN
  793. // // gMerker_Lesen_Fertig := FALSE;
  794. // gTisch_7_RFID_Write[1] := 1;(* Befehl Datenträger lesen *)
  795. // gTisch_7_RFID_Write[2] := 0;
  796. // gTisch_7_RFID_Write[3] := 0;
  797. // gTisch_7_RFID_Write[4] := 8; (* Anzahl Bytes Lowbytes *)
  798. // gTisch_7_RFID_Write[5] := 0;
  799. // gTisch_7_RFID_Write[6] := 0;
  800. // gTisch_7_RFID_Write[7] := 0;
  801. // gTisch_7_RFID_Write[8] := 0;
  802. // gTisch_7_RFID_Write[9] := 1;
  803. // gTisch_7_RFID_Write[0].0 := TRUE;
  804. // END_IF
  805. (* Write Variable nullen *)
  806. // IF gMerker_Tisch_7_alles_nullen = TRUE THEN
  807. // gTisch_7_RFID_Write[1] := 0;
  808. // gTisch_7_RFID_Write[2] := 0;
  809. // gTisch_7_RFID_Write[3] := 0;
  810. // gTisch_7_RFID_Write[4] := 0;
  811. // gTisch_7_RFID_Write[5] := 0;
  812. // gTisch_7_RFID_Write[6] := 0;
  813. // gTisch_7_RFID_Write[7] := 0;
  814. // gTisch_7_RFID_Write[8] := 0;
  815. // gTisch_7_RFID_Write[0] := 0;
  816. // END_IF
  817. // gTisch_7_RFID_Write[9] := gTisch_7_RFID_Write[0];
  818. CASE Tisch_7_RFID OF
  819. //Cech-Implement-Beginn: Hier soll die UID aus dem TAg nach Tag-Present rausgeholt und auf 8Byte-Array gMerker_Tisch_1_RFID_UID übergeben werden, damit die UID für Centurio über Opc-Ua übergeben werden kannn
  820. 0: IF gTisch_7_RFID_Read[0] = 129 AND gTisch_7_RFID_Write[0].0 = FALSE THEN //Cech-Comment: Wenn der TAG im Lesebereich ist und der Lesekopf betriebsbereit ist ( Read[0] = 1000 0001 ), aber noch kein Lesebefehl ausgegeben wurde
  821. gMerker_Tisch_7_STRING_HELPER := '';
  822. gMerker_Tisch_7_RFID_UID_STR := '';
  823. FOR i := 1 TO 8 DO
  824. gMerker_Tisch_7_STRING_HELPER := USINT_TO_STRING (gTisch_7_RFID_Read[i]);
  825. IF LEN(gMerker_Tisch_7_STRING_HELPER) = 1 THEN //Cech-Comment: Wenn der String nur 1 ZEichen ist, muss mit 2 Nullen links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  826. gMerker_Tisch_7_STRING_HELPER := CONCAT('00', gMerker_Tisch_7_STRING_HELPER);
  827. ELSIF LEN(gMerker_Tisch_7_STRING_HELPER) = 2 THEN //Cech-Comment: Wenn der String nur 2 Zeichen ist, muss mit 1 Null links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  828. gMerker_Tisch_7_STRING_HELPER := CONCAT('0', gMerker_Tisch_7_STRING_HELPER);
  829. END_IF;
  830. gMerker_Tisch_7_RFID_UID_STR := CONCAT( gMerker_Tisch_7_RFID_UID_STR, gMerker_Tisch_7_STRING_HELPER );
  831. END_FOR
  832. Tisch_7_RFID := 5;
  833. END_IF
  834. 5: IF gMerker_Tisch_7_RFID_Vorhanden = FALSE AND gTisch_7.Status.Stopper = STATUS_EINGEFAHREN THEN
  835. gMerker_Tisch_7_RFID_UID_STR := '0';
  836. Tisch_7_RFID := 0;
  837. END_IF
  838. //Cech-Implement-Ende
  839. // 5: IF gMerker_Tisch_7_RFID_Vorhanden = TRUE AND gTisch_7.Inputs.Vor_Stopper = TRUE AND gMerker_Tisch_7_RFID_Reset = FALSE (*AND gMerker_Tisch_7_lesen_fertig = FALSE*) THEN
  840. // gMerker_Tisch_7_Auftrag_Lesen := TRUE;
  841. // Tisch_7_RFID := 10;
  842. // END_IF
  843. //
  844. // 10: lWarten_RFID_Fehler_Tisch_7 := lWarten_RFID_Fehler_Tisch_7 + (RTInfo_0.cycle_time/1000);
  845. // IF gTisch_7_RFID_Read[0] = 135 THEN
  846. // gMerker_RFID_Value_Tisch_7 := gTisch_7_RFID_Read[1];
  847. // // gMerker_RFID_Tisch_7_gelesen := TRUE;
  848. // // gMerker_Tisch_7_lesen_fertig := TRUE;
  849. // lWarten_RFID_Fehler_Tisch_7 := 0;
  850. // Tisch_7_RFID := 15;
  851. // ELSIF lWarten_RFID_Fehler_Tisch_7 >= 5000 AND gTisch_7_RFID_Read[0] <> 135 THEN
  852. // gMerker_Tisch_7_Auftrag_Lesen := FALSE;
  853. // gMerker_Tisch_7_RFID_Reset := TRUE;
  854. // lWarten_RFID_Fehler_Tisch_7 := 0;
  855. // Tisch_7_RFID := 100;
  856. // END_IF
  857. // 15:
  858. // IF gMerker_RFID_Value_Tisch_7 <> 0 THEN
  859. // gMerker_RFID_Tisch_7_gelesen := TRUE;
  860. // gMerker_Tisch_7_lesen_fertig := TRUE;
  861. // Tisch_7_RFID := 20;
  862. // ELSIF gMerker_RFID_Value_Tisch_7 = 0 THEN
  863. // gMerker_RFID_Tisch_7_gelesen := FALSE;
  864. // gMerker_Tisch_7_lesen_fertig := FALSE;
  865. // Tisch_7_RFID := 100;
  866. // END_IF
  867. //
  868. // 20: lWarten_fuer_OPCUA_Tisch_7 := lWarten_fuer_OPCUA_Tisch_7 + (RTInfo_0.cycle_time/1000);
  869. // IF gMerker_Tisch_7_RFID_Vorhanden = FALSE AND gTisch_7.Inputs.Vor_Stopper = FALSE AND lWarten_fuer_OPCUA_Tisch_7 >= Wartezeit_OPCUA THEN
  870. // gMerker_Tisch_7_Auftrag_Lesen := FALSE;
  871. // gMerker_RFID_Value_Tisch_7 := 0;
  872. // gTisch_7_RFID_Write[0] := 4;
  873. // gMerker_Tisch_7_RFID_UID_STR := '0';
  874. // Tisch_7_RFID := 30;
  875. // END_IF
  876. // 30:
  877. // IF gTisch_7_RFID_Read[0] = 0 THEN
  878. // gTisch_7_RFID_Write[0] := 0;
  879. // Tisch_7_RFID := 0;
  880. // END_IF
  881. // 100:
  882. // IF gMerker_Tisch_7_Auftrag_Lesen = FALSE AND gMerker_Tisch_7_RFID_Reset = TRUE THEN
  883. // gTisch_7_RFID_Write[0] := 4;
  884. // gMerker_RFID_Value_Tisch_7 := 0;
  885. // gMerker_Tisch_7_RFID_UID_STR := '0';
  886. // Tisch_7_RFID := 110;
  887. // END_IF
  888. // 110:
  889. // IF gTisch_7_RFID_Read[0] = 0 THEN
  890. // gMerker_Tisch_7_alles_nullen := TRUE;
  891. // Tisch_7_RFID := 120;
  892. // END_IF
  893. // 120:
  894. // IF gTisch_7_RFID_Write[0] = 0 AND gTisch_7_RFID_Write[1] = 0 AND gTisch_7_RFID_Write[2] = 0 AND gTisch_7_RFID_Write[3] = 0 AND gTisch_7_RFID_Write[4] = 0 AND gTisch_7_RFID_Write[5] = 0 AND gTisch_7_RFID_Write[6] = 0 AND gTisch_7_RFID_Write[7] = 0 AND gTisch_7_RFID_Write[8] = 0 AND gTisch_7_RFID_Write[9] = 0 THEN
  895. // gMerker_Tisch_7_alles_nullen := FALSE;
  896. // gMerker_Tisch_7_RFID_Reset := FALSE;
  897. // Tisch_7_RFID := 0;
  898. // END_IF
  899. END_CASE
  900. //********************************** Tisch 8 ***********************************************
  901. (* Lesen *)
  902. gMerker_Tisch_8_RFID_Vorhanden := gTisch_8_RFID_Read[0].0; (* Auslesen ob Chip vor Lesekopf *)
  903. // IF gMerker_Tisch_8_Auftrag_Lesen = TRUE THEN
  904. // // gMerker_Lesen_Fertig := FALSE;
  905. // gTisch_8_RFID_Write[1] := 1;(* Befehl Datenträger lesen *)
  906. // gTisch_8_RFID_Write[2] := 0;
  907. // gTisch_8_RFID_Write[3] := 0;
  908. // gTisch_8_RFID_Write[4] := 8; (* Anzahl Bytes Lowbytes *)
  909. // gTisch_8_RFID_Write[5] := 0;
  910. // gTisch_8_RFID_Write[6] := 0;
  911. // gTisch_8_RFID_Write[7] := 0;
  912. // gTisch_8_RFID_Write[8] := 0;
  913. // gTisch_8_RFID_Write[9] := 1;
  914. // gTisch_8_RFID_Write[0].0 := TRUE;
  915. // END_IF
  916. //
  917. // (* Write Variable nullen *)
  918. //
  919. // IF gMerker_Tisch_8_alles_nullen = TRUE THEN
  920. // gTisch_8_RFID_Write[1] := 0;
  921. // gTisch_8_RFID_Write[2] := 0;
  922. // gTisch_8_RFID_Write[3] := 0;
  923. // gTisch_8_RFID_Write[4] := 0;
  924. // gTisch_8_RFID_Write[5] := 0;
  925. // gTisch_8_RFID_Write[6] := 0;
  926. // gTisch_8_RFID_Write[7] := 0;
  927. // gTisch_8_RFID_Write[8] := 0;
  928. // gTisch_8_RFID_Write[0] := 0;
  929. // END_IF
  930. // gTisch_8_RFID_Write[9] := gTisch_8_RFID_Write[0];
  931. //
  932. CASE Tisch_8_RFID OF
  933. //Cech-Implement-Beginn: Hier soll die UID aus dem TAg nach Tag-Present rausgeholt und auf 8Byte-Array gMerker_Tisch_1_RFID_UID übergeben werden, damit die UID für Centurio über Opc-Ua übergeben werden kannn
  934. 0: IF gTisch_8_RFID_Read[0] = 129 AND gTisch_8_RFID_Write[0].0 = FALSE THEN //Cech-Comment: Wenn der TAG im Lesebereich ist und der Lesekopf betriebsbereit ist ( Read[0] = 1000 0001 ), aber noch kein Lesebefehl ausgegeben wurde
  935. gMerker_Tisch_8_STRING_HELPER := '';
  936. gMerker_Tisch_8_RFID_UID_STR := '';
  937. FOR i := 1 TO 8 DO
  938. gMerker_Tisch_8_STRING_HELPER := USINT_TO_STRING (gTisch_8_RFID_Read[i]);
  939. IF LEN(gMerker_Tisch_8_STRING_HELPER) = 1 THEN //Cech-Comment: Wenn der String nur 1 ZEichen ist, muss mit 2 Nullen links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  940. gMerker_Tisch_8_STRING_HELPER := CONCAT('00', gMerker_Tisch_8_STRING_HELPER);
  941. ELSIF LEN(gMerker_Tisch_8_STRING_HELPER) = 2 THEN //Cech-Comment: Wenn der String nur 2 Zeichen ist, muss mit 1 Null links verlängert werden, sonst wird ID verstümmelt und ist dadurch nicht mehr eindeutig über alle 8 Bytes der UID
  942. gMerker_Tisch_8_STRING_HELPER := CONCAT('0', gMerker_Tisch_8_STRING_HELPER);
  943. END_IF;
  944. gMerker_Tisch_8_RFID_UID_STR := CONCAT( gMerker_Tisch_8_RFID_UID_STR, gMerker_Tisch_8_STRING_HELPER );
  945. END_FOR
  946. Tisch_8_RFID := 5;
  947. END_IF
  948. 5: IF gMerker_Tisch_8_RFID_Vorhanden = FALSE AND gTisch_8.Status.Stopper = STATUS_EINGEFAHREN THEN
  949. gMerker_Tisch_8_RFID_UID_STR := '0';
  950. Tisch_8_RFID := 0;
  951. END_IF
  952. //Cech-Implement-Ende
  953. // 5: IF gMerker_Tisch_8_RFID_Vorhanden = TRUE AND gTisch_8.Inputs.Vor_Stopper = TRUE AND gMerker_Tisch_8_RFID_Reset = FALSE (*AND gMerker_Tisch_8_lesen_fertig = FALSE*) THEN
  954. // gMerker_Tisch_8_Auftrag_Lesen := TRUE;
  955. // Tisch_8_RFID := 10;
  956. // END_IF
  957. //
  958. // 10: lWarten_RFID_Fehler_Tisch_8 := lWarten_RFID_Fehler_Tisch_8 + (RTInfo_0.cycle_time/1000);
  959. // IF gTisch_8_RFID_Read[0] = 135 THEN
  960. // gMerker_RFID_Value_Tisch_8 := gTisch_8_RFID_Read[1];
  961. // // gMerker_RFID_Tisch_8_gelesen := TRUE;
  962. // // gMerker_Tisch_8_lesen_fertig := TRUE;
  963. // lWarten_RFID_Fehler_Tisch_8 := 0;
  964. // Tisch_8_RFID := 15;
  965. // ELSIF lWarten_RFID_Fehler_Tisch_8 >= 5000 AND gTisch_8_RFID_Read[0] <> 135 THEN
  966. // gMerker_Tisch_8_Auftrag_Lesen := FALSE;
  967. // gMerker_Tisch_8_RFID_Reset := TRUE;
  968. // lWarten_RFID_Fehler_Tisch_8 := 0;
  969. // Tisch_8_RFID := 100;
  970. // END_IF
  971. // 15:
  972. // IF gMerker_RFID_Value_Tisch_8 <> 0 THEN
  973. // gMerker_RFID_Tisch_8_gelesen := TRUE;
  974. // gMerker_Tisch_8_lesen_fertig := TRUE;
  975. // Tisch_8_RFID := 20;
  976. // ELSIF gMerker_RFID_Value_Tisch_8 = 0 THEN
  977. // gMerker_RFID_Tisch_8_gelesen := FALSE;
  978. // gMerker_Tisch_8_lesen_fertig := FALSE;
  979. // Tisch_8_RFID := 100;
  980. // END_IF
  981. // 20: lWarten_fuer_OPCUA_Tisch_8 := lWarten_fuer_OPCUA_Tisch_8 + (RTInfo_0.cycle_time/1000);
  982. // IF gMerker_Tisch_8_RFID_Vorhanden = FALSE AND gTisch_8.Inputs.Vor_Stopper = FALSE AND lWarten_fuer_OPCUA_Tisch_8 >= Wartezeit_OPCUA THEN
  983. // gMerker_Tisch_8_Auftrag_Lesen := FALSE;
  984. // gMerker_RFID_Value_Tisch_8 := 0;
  985. // gTisch_8_RFID_Write[0] := 4;
  986. // gMerker_Tisch_8_RFID_UID_STR := '0';
  987. // Tisch_8_RFID := 30;
  988. // END_IF
  989. // 30:
  990. // IF gTisch_8_RFID_Read[0] = 0 THEN
  991. // gTisch_8_RFID_Write[0] := 0;
  992. // Tisch_8_RFID := 0;
  993. // END_IF
  994. // 100:
  995. // IF gMerker_Tisch_8_Auftrag_Lesen = FALSE AND gMerker_Tisch_8_RFID_Reset = TRUE THEN
  996. // gTisch_8_RFID_Write[0] := 4;
  997. // gMerker_RFID_Value_Tisch_8 := 0;
  998. // gMerker_Tisch_8_RFID_UID_STR := '0';
  999. // Tisch_8_RFID := 110;
  1000. // END_IF
  1001. // 110:
  1002. // IF gTisch_8_RFID_Read[0] = 0 THEN
  1003. // gMerker_Tisch_8_alles_nullen := TRUE;
  1004. // Tisch_8_RFID := 120;
  1005. // END_IF
  1006. // 120:
  1007. // IF gTisch_8_RFID_Write[0] = 0 AND gTisch_8_RFID_Write[1] = 0 AND gTisch_8_RFID_Write[2] = 0 AND gTisch_8_RFID_Write[3] = 0 AND gTisch_8_RFID_Write[4] = 0 AND gTisch_8_RFID_Write[5] = 0 AND gTisch_8_RFID_Write[6] = 0 AND gTisch_8_RFID_Write[7] = 0 AND gTisch_8_RFID_Write[8] = 0 AND gTisch_8_RFID_Write[9] = 0 THEN
  1008. // gMerker_Tisch_8_alles_nullen := FALSE;
  1009. // gMerker_Tisch_8_RFID_Reset := FALSE;
  1010. // Tisch_8_RFID := 0;
  1011. // END_IF
  1012. END_CASE
  1013. OPCUA_TEST_1;
  1014. OPCUATEST2;
  1015. OPCUATEST3;
  1016. END_PROGRAM
  1017. PROGRAM _EXIT
  1018. (* Insert code here *)
  1019. END_PROGRAM