View difference between Paste ID: afuR1Ub8 and wy71Neqa

-CASE #eAutomatic OF
+// Mainstate
-    #eInitState:  // Statement section case #eInitState
+
 CASE #e_CurrentState OF
 
-        #q_Error := 0;
+    #State_Idle:  // Statement section case Idle
         #q_ArmIn := 1;
-        #eErrorState := 0;
+
-        IF #ePackageCount > 0 THEN
+
-            #eAutomatic := #eConveyorOn;
+        #q_ConveyerFront := 0;
-        ELSIF #ePackageCount < 0 THEN
+        #e_Q1State := #Light_Flash;
-            #ePackageCount := 0;
+        #e_Q2State := #Light_Off;
         IF #i_StartButton AND NOT #i_AutoManualSwitch AND #i_EmergencyButton THEN
-            #eAutomatic := #eConveyorOff;
+            #e_CurrentState := #State_Automatic; // Statement section IF
         ELSIF #i_StartButton AND #i_AutoManualSwitch AND #i_EmergencyButton THEN
             #e_CurrentState := #State_Manual;
-    #eConveyorOff:  // Statement section case #eConveyorOff
+        END_IF;
-        IF #Blink THEN
+
-            #eTimer(IN := NOT #eTimer.Q,
+    #State_Automatic:  // Statement section case Automatic
         #e_Q1State := #Light_On;
-            IF #eTimer.Q THEN
+        #e_Q2State := #Light_Off;
-                #Blink := 0;
+        #q_StartLight := 1;
-                #q_ConveyerFront := #Blink;
+        "Automatic_DB"(i_ConveyerInSensor:="SensorStartCoveyer",
-                #q_ConveyerBack := #Blink;
+                       i_ConveyerOutsensor:="SensorEndConveyer",
                        i_PuckSensor:="SensorCheckPuck",
-        ELSIF NOT #i_ConveyerInSensor AND #SensorOnOld THEN
+                       i_MetalSensor:="SensorMetal",
-            #SensorOn := 1;
+                       i_ArmSensor:="SensorCheckArm",
-            #SensorOnOld := 0;
+                       i_BinSensor:="SensorBin",
-            #eAutomatic := #eConveyorOn;
+                       q_ConveyerFront=>#q_ConveyerFront,
-        ELSIF #ePackageCount > 0 THEN
+                       q_ConveyerBack=>#q_ConveyerBack,
-            #eAutomatic := #eConveyorOn;
+                       q_ArmIn=>#q_ArmIn,
                        q_ArmOut=>#q_ArmOut,
                        q_ErrorState=>#JunkTemp,
-    #eConveyorOn:  // Statement section case #eConveyorOn
+                       q_ErrorFound=>#i_ErrorFound);
 
 
-        #Blink := 1;
+        IF NOT #i_StopButton AND #i_EmergencyButton THEN
-        IF NOT #i_ConveyerInSensor AND #SensorOnOld THEN
+            #q_StartLight := 0;
-            #SensorOn := 1;
+            #e_CurrentState := #State_Idle;// Statement section IF
-            #SensorOnOld := 0;
+        ELSIF #i_ErrorFound AND #i_EmergencyButton THEN
             #q_StartLight := 0;
-            #eAutomatic := #eArmOut;
+            #e_CurrentState := #State_Error;
-        ELSIF NOT #i_ConveyerOutsensor AND #SensorOffOld THEN
+        ELSIF NOT #i_EmergencyButton THEN
-            #SensorOff := 1;
+            #q_StartLight := 0;
-            #SensorOffOld := 0;
+            #e_CurrentState := #State_Emergency;
-        ELSIF #ePackageCount < 0 THEN
+        END_IF;
-            #ePackageCount := 0;
+
-            #eAutomatic := #eErrorFound;
+    #State_Manual:  // Statement section case Manual
         #e_Q1State := #Light_Off;
         #e_Q2State := #Light_On;
-    #eArmOut:  // Statement section case #eArmOut
+        #q_StartLight := 1;
 
         IF NOT #i_StopButton AND #i_EmergencyButton THEN
-        IF NOT #i_ConveyerInSensor AND #SensorOnOld THEN
+            #q_StartLight := 0;
-            #SensorOn := 1;
+            #e_CurrentState := #State_Idle;// Statement section IF
-            #SensorOnOld := 0;
+        ELSIF NOT #i_EmergencyButton THEN
-        ELSIF NOT #i_BinSensor AND #SensorBinOld THEN
+            #q_StartLight := 0;
-            #SensorBin := 1;
+            #e_CurrentState := #State_Emergency;
-            #SensorBinOld := 0;
+        END_IF;
-            #eAutomatic := #eArmIn;
+
     #State_Error:  // Statement section case Error
-            #eErrorState := #ePuckMissing;
+        #e_Q1State := #Light_Off;
-            #eAutomatic := #eErrorFound;
+        #e_Q2State := #Light_Flash;
         #q_ResetLight := 1;
 
-    #eArmIn:  // Statement section case #eArmIn
+        IF NOT #i_EmergencyButton THEN
             #q_ResetLight := 0;
             #e_CurrentState := #State_Emergency;
-        IF NOT #i_ConveyerInSensor AND #SensorOnOld THEN
+        ELSIF #i_ResetButton AND #i_EmergencyButton THEN
-            #SensorOn := 1;
+            #q_ResetLight := 0;
-            #SensorOnOld := 0;
+            #e_CurrentState := #State_Automatic;
-        ELSIF NOT "SensorBin" AND NOT #Binfull THEN
+        END_IF;
-            #Binfull := 1;
+
-        ELSIF #ePackageCount = 0 THEN
+    #State_Emergency:  // Statement section case Emergency
-            #eAutomatic := #eConveyorOff;
+
-        ELSIF #ePackageCount > 0 THEN
+
-            #eAutomatic := #eConveyorOn;
+
         #q_ConveyerFront := 0;
         #e_Q1State := #Light_Flash;
-    #eErrorFound:  // Statement section case #eErrorFound
+        #e_Q2State := #Light_Flash;
-        #eAutomatic := #eInitState;
+        #q_ResetLight := 1;
-        #q_Error := 1;
+        IF #i_EmergencyButton AND #i_ResetButton THEN
-        #q_ErrorState := #eErrorState;
+            #q_ResetLight := 0;
             #e_CurrentState := #State_Idle;
         END_IF;
 
-IF #Binfull THEN
+    #State_Initial:  // Statement section case Init
-    #eTimer(IN := NOT #eTimer.Q,
+        IF #e_CurrentState = #State_Initial THEN
             #e_CurrentState := #State_Idle; // Statement section IF
         END_IF;
-    IF #eTimer.Q AND NOT #i_BinSensor THEN
+
-        #Binfull := 0;
+
-        #eErrorState := #eBinFull;
+CASE #e_Q1State OF
-        #eAutomatic := #eErrorFound;
+    #Light_Off:
-    ELSIF #eTimer.Q AND #i_BinSensor THEN
+        #q_LightQ1 := FALSE;
-        #Binfull := 0;
+    #Light_On:
-        #eAutomatic := #eConveyorOff;
+        #q_LightQ1 := TRUE;
     #Light_Flash:
         #e_FlashTimer(IN := NOT #e_FlashTimer.Q,
                       PT := T#500MS);
-IF #SensorOff AND #i_ConveyerOutsensor THEN
+
-    #ePackageCount := #ePackageCount - 1;
+        IF #e_FlashTimer.Q THEN
-    #SensorOff := 0;
+            #e_LightState := NOT #e_LightState;
-    #SensorOffOld := 1;
+        END_IF;
-    IF #ePackageCount = 0 THEN
+        #q_LightQ1 := #e_LightState;
-        #eAutomatic := #eConveyorOff;
+
 
-ELSIF NOT #SensorOff AND NOT #SensorOffOld THEN
+CASE #e_Q2State OF
-    #SensorOff := 0;
+    #Light_Off:
-    #SensorOffOld := 1;
+        #q_LightQ2 := FALSE;
     #Light_On:
         #q_LightQ2 := TRUE;
-IF #SensorBin AND #i_BinSensor THEN
+    #Light_Flash:
-    #ePackageCount := #ePackageCount - 1;
+        #e_FlashTimer(IN := NOT #e_FlashTimer.Q,
-    #SensorBin := 0;
+                      PT := T#500MS);
-    #SensorBinOld := 1;
+
-ELSIF NOT #SensorBin AND NOT #SensorBinOld THEN
+        IF #e_FlashTimer.Q THEN
-    #SensorBin := 0;
+            #e_LightState := NOT #e_LightState;
-    #SensorBinOld := 1;
+        END_IF;
         #q_LightQ2 := #e_LightState;
 END_CASE;
-IF #SensorOn AND #i_ConveyerInSensor THEN
+
-    #ePackageCount := #ePackageCount + 1;
+// Automatic
-    #SensorOn := 0;
+
-    #SensorOnOld := 1;
+CASE #e_ProgramState OF
-ELSIF NOT #SensorOn AND NOT #SensorOnOld THEN
+    #InitState:  // Statement section case #eInitState
-    #SensorOnOld := 1;
+
-    #Blink := 0;
+
-    #Binfull := 0;
+        #q_ErrorFound := 0;
-END_IF;
+
         #e_ErrorState := 0;
         IF #e_PackageCount > 0 THEN
             #e_ProgramState := #ConveyorOn;
         ELSIF #e_PackageCount < 0 THEN
             #e_PackageCount := 0;
         ELSE
             #e_ProgramState := #ConveyorOff;
         END_IF
         ;
     #ConveyorOff:  // Statement section case #eConveyorOff
         IF #t_Blink THEN
             #e_Timer(IN := NOT #e_Timer.Q,
                     PT := T#1000MS);
             IF #e_Timer.Q THEN
                 #t_Blink := 0;
                 #q_ConveyerFront := #t_Blink;
                 #q_ConveyerBack := #t_Blink;
             END_IF;
         ELSIF NOT #i_ConveyerInSensor AND #t_SensorOnOld THEN
             #t_SensorOn := 1;
             #t_SensorOnOld := 0;
             #e_ProgramState := #ConveyorOn;
         ELSIF #e_PackageCount > 0 THEN
             #e_ProgramState := #ConveyorOn;
         END_IF
         ;
     #ConveyorOn:  // Statement section case #eConveyorOn
         #q_ConveyerFront := 1;
         #q_ConveyerBack := 0;
         #t_Blink := 1;
         IF NOT #i_ConveyerInSensor AND #t_SensorOnOld THEN
             #t_SensorOn := 1;
             #t_SensorOnOld := 0;
         ELSIF #i_MetalSensor THEN
             #e_ProgramState := #ArmOut;
         ELSIF NOT #i_ConveyerOutsensor AND #t_SensorOffOld THEN
             #t_SensorOff := 1;
             #t_SensorOffOld := 0;
         ELSIF #e_PackageCount < 0 THEN
             #e_PackageCount := 0;
             #e_ProgramState := #ErrorFound;
         END_IF
         ;
     #ArmOut:  // Statement section case #eArmOut
         #q_ArmIn := 0;
         #q_ArmOut := 1;
         IF NOT #i_ConveyerInSensor AND #t_SensorOnOld THEN
             #t_SensorOn := 1;
             #t_SensorOnOld := 0;
         ELSIF NOT #i_BinSensor AND #t_SensorBinOld THEN
             #t_SensorBin := 1;
             #t_SensorBinOld := 0;
             #e_ProgramState := #ArmIn;
         ELSIF NOT #i_ConveyerOutsensor THEN
             #e_ErrorState := #PuckMissing;
             #e_ProgramState := #ErrorFound;
         END_IF
         ;
     #ArmIn:  // Statement section case #eArmIn
         #q_ArmOut := 0;
         #q_ArmIn := 1;
         IF NOT #i_ConveyerInSensor AND #t_SensorOnOld THEN
             #t_SensorOn := 1;
             #t_SensorOnOld := 0;
         ELSIF NOT "SensorBin" AND NOT #t_Binfull THEN
             #t_Binfull := 1;
         ELSIF #e_PackageCount = 0 THEN
             #e_ProgramState := #ConveyorOff;
         ELSIF #e_PackageCount > 0 THEN
             #e_ProgramState := #ConveyorOn;
         END_IF
         ;
     #ErrorFound:  // Statement section case #eErrorFound
         #e_ProgramState := #InitState;
         #q_ErrorFound := 1;
         #q_ErrorState := #e_ErrorState;
         ;
 END_CASE;
 
 IF #t_Binfull THEN
     #e_Timer(IN := NOT #e_Timer.Q,
             PT := T#1000MS);
 
     IF #e_Timer.Q AND NOT #i_BinSensor THEN
         #t_Binfull := 0;
         #e_ErrorState := #BinFull;
         #e_ProgramState := #ErrorFound;
     ELSIF #e_Timer.Q AND #i_BinSensor THEN
         #t_Binfull := 0;
         #e_ProgramState := #ConveyorOff;
     END_IF;
 END_IF;
 
 IF #t_SensorOff AND #i_ConveyerOutsensor THEN
     #e_PackageCount := #e_PackageCount - 1;
     #t_SensorOff := 0;
     #t_SensorOffOld := 1;
     IF #e_PackageCount = 0 THEN
         #e_ProgramState := #ConveyorOff;
     END_IF;
 ELSIF NOT #t_SensorOff AND NOT #t_SensorOffOld THEN
     #t_SensorOff := 0;
     #t_SensorOffOld := 1;
 END_IF;
 
 IF #t_SensorBin AND #i_BinSensor THEN
     #e_PackageCount := #e_PackageCount - 1;
     #t_SensorBin := 0;
     #t_SensorBinOld := 1;
 ELSIF NOT #t_SensorBin AND NOT #t_SensorBinOld THEN
     #t_SensorBin := 0;
     #t_SensorBinOld := 1;
 END_IF;
 
 IF #t_SensorOn AND #i_ConveyerInSensor THEN
     #e_PackageCount := #e_PackageCount + 1;
     #t_SensorOn := 0;
     #t_SensorOnOld := 1;
 ELSIF NOT #t_SensorOn AND NOT #t_SensorOnOld THEN
     #t_SensorOnOld := 1;
     #t_Blink := 0;
     #t_Binfull := 0;
 END_IF;
 
 //ErrorState
 
 CASE #i_ErrorState OF
     1:  // Statement section case 1
         ;
     2:  // Statement section case 2 to 4
         ;
     ELSE  // Statement section ELSE
         ;
 END_CASE;