dritte Steuerung nochmal wiederholt hinzugefügt

2026-06-23 09:45:04 +02:00
parent a6295901a5
commit f384644167
286 changed files with 0 additions and 72573 deletions
@@ -1,55 +0,0 @@
-FUNCTION_BLOCK "FB_EventLog_StepChange"
-{ S7_Optimized_Access := 'TRUE' }
-VERSION : 0.1
-   VAR_INPUT 
-      xInTrigger : Bool;
-      stInEventStepChangeInfo : "stEventStepChange";
-   END_VAR
-
-   VAR 
-      fbPaEventLogStepChange {InstructionName := 'Program_Alarm'; LibVersion := '1.0'} : Program_Alarm;
-      wStatus { S7_SetPoint := 'True'} : Word;
-      sLogMessage : String;
-      sDelimiter : String[1] := ',';
-      sFunction : String[15];
-      xTriggerFlag : Bool;
-   END_VAR
-
-   VAR_TEMP 
-      xError : Bool;
-      tRunProgramAlarm : Bool;
-   END_VAR
-
-
-BEGIN
-	REGION Call: Program Alarm
-	    IF #xTriggerFlag XOR #xInTrigger THEN
-	        
-	        REGION Meldetext
-	            #sDelimiter := ';';
-	            #sFunction := 'Schrittwechsel';
-	            #sLogMessage := CONCAT_STRING(IN1 := "FC_DateAsString"(),
-	                                          IN2 := #sDelimiter,
-	                                          IN3 := "FC_TimeAsString"(),
-	                                          IN4 := #sDelimiter,
-	                                          IN5 := #sFunction,
-	                                          IN6 := #sDelimiter,
-	                                          IN7 := 'Alt:',
-	                                          IN8 := DELETE(IN := INT_TO_STRING(#stInEventStepChangeInfo.nStepLast), P := 1, L := 1),
-	                                          IN9 := #sDelimiter,
-	                                          IN10 := 'Neu:',
-	                                          IN11 :=  DELETE(IN := INT_TO_STRING(#stInEventStepChangeInfo.nStep), P := 1, L := 1));
-	        END_REGION
-	        
-	        #fbPaEventLogStepChange(SIG := #xInTrigger,
-	                             SD_1 := #sLogMessage,
-	                             Status => #wStatus,
-	                             Error => #xError);
-	    END_IF;
-	END_REGION
-	
-	REGION Flanken
-	    #xTriggerFlag := #xInTrigger;
-	END_REGION
-END_FUNCTION_BLOCK
-