Main.st 47 KB

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