VErsuch, gleich wie _ohne_führende_Nullen ...

Logical/RFID/Main.st

@@ -83,7 +83,7 @@ PROGRAM _CYCLIC
 															//				gMerker_Tisch_1_RFID_UID_STRARR[6] := USINT_TO_STRING (gTisch_1_RFID_Read[7]);
 															//				gMerker_Tisch_1_RFID_UID_STRARR[7] := USINT_TO_STRING (gTisch_1_RFID_Read[8]);
 				gMerker_Tisch_1_STRING_HELPER := '';
-				gMerker_Tisch_1_RFID_UID_STR := '0';
+				gMerker_Tisch_1_RFID_UID_STR := '';
 				FOR i := 1 TO 8 DO
 					gMerker_Tisch_1_STRING_HELPER := USINT_TO_STRING (gTisch_1_RFID_Read[i]);
 					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
@@ -284,7 +284,7 @@ PROGRAM _CYCLIC
 //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
 		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
 				gMerker_Tisch_2_STRING_HELPER := '';
-				gMerker_Tisch_2_RFID_UID_STR := '0';
+				gMerker_Tisch_2_RFID_UID_STR := '';
 				FOR i := 1 TO 8 DO
 					gMerker_Tisch_2_STRING_HELPER := USINT_TO_STRING (gTisch_2_RFID_Read[i]);
 					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
@@ -407,7 +407,7 @@ PROGRAM _CYCLIC
 //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
 		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
 				gMerker_Tisch_3_STRING_HELPER := '';
-				gMerker_Tisch_3_RFID_UID_STR := '0';
+				gMerker_Tisch_3_RFID_UID_STR := '';
 				FOR i := 1 TO 8 DO
 					gMerker_Tisch_3_STRING_HELPER := USINT_TO_STRING (gTisch_3_RFID_Read[i]);
 					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
@@ -529,7 +529,7 @@ PROGRAM _CYCLIC
 //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
 		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
 				gMerker_Tisch_4_STRING_HELPER := '';
-				gMerker_Tisch_4_RFID_UID_STR := '0';
+				gMerker_Tisch_4_RFID_UID_STR := '';
 				FOR i := 1 TO 8 DO
 					gMerker_Tisch_4_STRING_HELPER := USINT_TO_STRING (gTisch_4_RFID_Read[i]);
 					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
@@ -651,7 +651,7 @@ PROGRAM _CYCLIC
 //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
 		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
 				gMerker_Tisch_5_STRING_HELPER := '';
-				gMerker_Tisch_5_RFID_UID_STR := '0';
+				gMerker_Tisch_5_RFID_UID_STR := '';
 				FOR i := 1 TO 8 DO
 					gMerker_Tisch_5_STRING_HELPER := USINT_TO_STRING (gTisch_5_RFID_Read[i]);
 					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
@@ -739,41 +739,13 @@ PROGRAM _CYCLIC
 
 	gMerker_Tisch_6_RFID_Vorhanden := gTisch_6_RFID_Read[0].0; (* Auslesen ob Chip vor Lesekopf *)
 	
-///	IF gMerker_Tisch_6_Auftrag_Lesen = TRUE THEN
-		//			gMerker_Lesen_Fertig := FALSE;
-///		gTisch_6_RFID_Write[1] := 1;(* Befehl Datenträger lesen *)
-///		gTisch_6_RFID_Write[2] := 0;
-///		gTisch_6_RFID_Write[3] := 0;
-///		gTisch_6_RFID_Write[4] := 8;  (* Anzahl Bytes Lowbytes *)
-///		gTisch_6_RFID_Write[5] := 0;
-///		gTisch_6_RFID_Write[6] := 0;
-///		gTisch_6_RFID_Write[7] := 0;
-///		gTisch_6_RFID_Write[8] := 0;
-///		gTisch_6_RFID_Write[9] := 1;
-///		gTisch_6_RFID_Write[0].0 := TRUE;
-///	END_IF
-		
-	(* Write Variable nullen *)
-	
-///	IF gMerker_Tisch_6_alles_nullen = TRUE THEN
-///		gTisch_6_RFID_Write[1] := 0;
-///		gTisch_6_RFID_Write[2] := 0;
-///		gTisch_6_RFID_Write[3] := 0;
-///		gTisch_6_RFID_Write[4] := 0;  
-///		gTisch_6_RFID_Write[5] := 0;
-///		gTisch_6_RFID_Write[6] := 0;
-///		gTisch_6_RFID_Write[7] := 0; 
-///		gTisch_6_RFID_Write[8] := 0;
-///		gTisch_6_RFID_Write[0] := 0;
-///	END_IF
-	
-///	gTisch_6_RFID_Write[9] := gTisch_6_RFID_Write[0];
+
 	
 	CASE Tisch_6_RFID OF
-//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
+		//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
 		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
 				gMerker_Tisch_6_STRING_HELPER := '';
-				gMerker_Tisch_6_RFID_UID_STR := '0';
+				gMerker_Tisch_6_RFID_UID_STR := '';
 				FOR i := 1 TO 8 DO
 					gMerker_Tisch_6_STRING_HELPER := USINT_TO_STRING (gTisch_6_RFID_Read[i]);
 					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
@@ -783,77 +755,17 @@ PROGRAM _CYCLIC
 					END_IF;
 					gMerker_Tisch_6_RFID_UID_STR := CONCAT( gMerker_Tisch_6_RFID_UID_STR, gMerker_Tisch_6_STRING_HELPER );
 				END_FOR
-///				Tisch_6_RFID := 5;
 				Tisch_6_RFID := 30;
 			END_IF
-//Cech-Implement-Ende		
-		
-///		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
-///				gMerker_Tisch_6_Auftrag_Lesen := TRUE;
-///				Tisch_6_RFID := 10;
-///			END_IF
-		
-///		10: lWarten_RFID_Fehler_Tisch_6 := lWarten_RFID_Fehler_Tisch_6 + (RTInfo_0.cycle_time/1000);
-///			IF gTisch_6_RFID_Read[0] = 135 THEN
-///				gMerker_RFID_Value_Tisch_6 := gTisch_6_RFID_Read[1];
-///				//			gMerker_RFID_Tisch_6_gelesen := TRUE;
-///				//			gMerker_Tisch_6_lesen_fertig := TRUE;
-///				lWarten_RFID_Fehler_Tisch_6 := 0;
-///				Tisch_6_RFID := 15;
-///			ELSIF lWarten_RFID_Fehler_Tisch_6 >= 5000 AND gTisch_6_RFID_Read[0] <> 135 THEN
-///				gMerker_Tisch_6_Auftrag_Lesen := FALSE;
-///				gMerker_Tisch_6_RFID_Reset := TRUE;
-///				lWarten_RFID_Fehler_Tisch_6 := 0;
-///				Tisch_6_RFID := 100;
-///			END_IF
-		
-///		15:
-///			IF gMerker_RFID_Value_Tisch_6 <> 0 THEN
-///				gMerker_RFID_Tisch_6_gelesen := TRUE;
-///				gMerker_Tisch_6_lesen_fertig := TRUE;
-///				Tisch_6_RFID := 20;
-///			ELSIF gMerker_RFID_Value_Tisch_6 = 0 THEN
-///				gMerker_RFID_Tisch_6_gelesen := FALSE;
-///				gMerker_Tisch_6_lesen_fertig := FALSE;
-///				Tisch_6_RFID := 100;
-///			END_IF				
-			
-///		20: lWarten_fuer_OPCUA_Tisch_6 := lWarten_fuer_OPCUA_Tisch_6 + (RTInfo_0.cycle_time/1000);
-///			IF (* ///gMerker_Tisch_6_RFID_Vorhanden = FALSE AND gTisch_6.Inputs.Vor_Stopper = FALSE AND *) lWarten_fuer_OPCUA_Tisch_6 >= Wartezeit_OPCUA THEN
-///				gMerker_Tisch_6_Auftrag_Lesen := FALSE;
-///	//			gMerker_RFID_Value_Tisch_6 := 0;
-///				gTisch_6_RFID_Write[0] := 4;
-///				gMerker_Tisch_6_RFID_UID_STR := '0';
-///				Tisch_6_RFID := 30;
-///			END_IF
+			//Cech-Implement-Ende		
 		
 		30: 
-			IF gTisch_6_RFID_Read[0] = 0 THEN
-///				gTisch_6_RFID_Write[0] := 0;
+			IF gMerker_Tisch_6_RFID_Vorhanden = FALSE AND gTisch_6.Inputs.Nach_Stopper = TRUE THEN
+				///				gTisch_6_RFID_Write[0] := 0;
 				gMerker_Tisch_6_RFID_UID_STR := '0';
 				Tisch_6_RFID := 0;
 			END_IF
 		
-///		100:
-///			IF gMerker_Tisch_6_Auftrag_Lesen = FALSE AND gMerker_Tisch_6_RFID_Reset = TRUE THEN
-///				gTisch_6_RFID_Write[0] := 4;
-///		//		gMerker_RFID_Value_Tisch_6 := 0;
-///				gMerker_Tisch_6_RFID_UID_STR := '0';
-///				Tisch_6_RFID := 110;
-///			END_IF
-		
-///		110:
-///			IF gTisch_6_RFID_Read[0] = 0 THEN
-///				gMerker_Tisch_6_alles_nullen := TRUE;
-///				Tisch_6_RFID := 120;
-///			END_IF
-		
-///		120:
-///			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
-///				gMerker_Tisch_6_alles_nullen := FALSE;
-///				gMerker_Tisch_6_RFID_Reset := FALSE;
-///				Tisch_6_RFID := 0;
-///			END_IF			
 				
 	END_CASE
 	
@@ -897,7 +809,7 @@ PROGRAM _CYCLIC
 //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
 		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
 				gMerker_Tisch_7_STRING_HELPER := '';
-				gMerker_Tisch_7_RFID_UID_STR := '0';
+				gMerker_Tisch_7_RFID_UID_STR := '';
 				FOR i := 1 TO 8 DO
 					gMerker_Tisch_7_STRING_HELPER := USINT_TO_STRING (gTisch_7_RFID_Read[i]);
 					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
@@ -1019,7 +931,7 @@ PROGRAM _CYCLIC
 //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
 		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
 				gMerker_Tisch_8_STRING_HELPER := '';
-				gMerker_Tisch_8_RFID_UID_STR := '0';
+				gMerker_Tisch_8_RFID_UID_STR := '';
 				FOR i := 1 TO 8 DO
 					gMerker_Tisch_8_STRING_HELPER := USINT_TO_STRING (gTisch_8_RFID_Read[i]);
 					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