Diff of /branches/VisonGame1805/Display_Escape_PLC/Plc Logic/Application/Function Blocks/IO_1/Coordinate_Panel_StateMachine/svnobj [000000] .. [r59]  Maximize  Restore

Switch to unified view

a b/branches/VisonGame1805/Display_Escape_PLC/Plc Logic/Application/Function Blocks/IO_1/Coordinate_Panel_StateMachine/svnobj
1
Gx_lÚ@!0…jüov+Ÿ<…€}System.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument    L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
2
TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagText$IF NOT xInit THEN N UM            (    sName := 'Normal Operation', ì                    dwSupportedStates := PACK_ML.State.All - PACK_ML.State.Suspending - PACK_ML.State.Suspended - PACK_ML.State.UnSuspending - PACK_ML.Holding - PACK_ML.Held - PACK_ML.UnHolding, Ô                    dwAllowsLeavingFromStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, Ö                    dwAllowsEnteringIntoStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, \                   eInitialState := PACK_ML.State.Aborted,0                     xActive := TRUE);   xInit := TRUE; . Latitude_Rev [1] := 2;0 Latitude_Rev [2] := 20;0   Latitude_Rev [3] := 0;   2 longitude_Rev [1] := 51;2 longitude_Rev [2] := 27;2 longitude_Rev [3] := 15;END_IF !4IF Client.bReadyToPLC THEN":   CASE Client.iCommandToPLC OF#" 0 :    //Handshake$   1 :    //Lock%       IF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[0]) =  0 THEN      &0       //First Lock Function'2         Lock_Start_CO := TRUE;(    END_IF) 2 :    //Key*Ž     IF SysStrCmp(Client.sCommandToPLC, Client.KeyCommands[0]) =  0 THEN    +6       //Echo first key example,Ž          SendCommand(Command:= CommandType.Key,Value:=Client.KeyCommands[0]);- 3 :    //IO. 4 :    //Media/   5 :    //Hint0 6 :    //State 1l    IF SysStrCmp(Client.sCommandToPLC, 'SC') =  0 THEN      2&       StateComplete();3x    ELSIF SysStrCmp(Client.sCommandToPLC, 'Start') =  0 THEN      4       Start();5v    ELSIF SysStrCmp(Client.sCommandToPLC, 'Stop') =  0 THEN    6       Stop();7x      ELSIF SysStrCmp(Client.sCommandToPLC, 'Reset') =  0 THEN      8       Reset();9x    ELSIF SysStrCmp(Client.sCommandToPLC, 'Abort') =  0 THEN      :       Abort();;x    ELSIF SysStrCmp(Client.sCommandToPLC, 'Clear') =  0 THEN      <       Clear();=v    ELSIF SysStrCmp(Client.sCommandToPLC, 'Hold') =  0 THEN    >       Hold();?z      ELSIF SysStrCmp(Client.sCommandToPLC, 'UnHold') =  0 THEN    @       Unhold(); A|    ELSIF SysStrCmp(Client.sCommandToPLC, 'Suspend') =  0 THEN      B       Suspend();C€       ELSIF SysStrCmp(Client.sCommandToPLC, 'UnSuspend') =  0 THEN      D       UnSuspend();E    F END_CASEG6 Client.iCommandToPLC := 0;H8 Client.sCommandToPLC := '';I:   Client.bReadyToPLC := FALSE;J.CASE UM.CurrentState OFK,PACK_ML.State.Stopped:L   ;M,PACK_ML.State.Aborted:N&PACK_ML.State.Idle:O2PACK_ML.State.Complete : P.PACK_ML.State.Execute :Q> IF Client.ActualStep > 0 THEN;R”    bl(ENABLE := TRUE,TIMELOW := T#250MS,TIMEHIGH:= T#500MS, OUT => x_Flash);S,   T1on (PT := T#10S);    T END_IFU@ IF Client.ActualStep = 30 THEN;V$  T1on.IN := TRUE;W
3
    ELSEX$ T1on.IN := FALSE;Y4   CASE Client.ActualStep OFZ      0:[Z       i_CDPX_Window := 1;                         // Idle Window\       ]0       IF Lock_Start_CO THEN^8            Client.ActualStep := 10;_       END_IF`4    //   IF x_Start_..... THENa<      //      Client.ActualStep := 50;b    //   END_IFc4    10: // Input Coordinatesd,       i_CDPX_Window := 2;e4         Lock_Start_CO := FALSE;f&         IF x_Check THEN;g`          Client.ActualStep := Client.ActualStep + 10;h8       f_trig (CLK:=x_Reset_CO);i(         IF f_trig.Q THEN;j:            Latitude_Input [1] := 0 ;k:            Latitude_Input [2] := 0 ;l:            Latitude_Input [3] := 0 ;m            n<          Longitude_Input [1] := 0 ;o<          Longitude_Input [2] := 0 ;p<          Longitude_Input [3] := 0 ;q(       IF x_Faulty THEN;rd            sMessage_Coordinate := 'Mismatch Coordinates';sZ          Client.Message := 'Mismatch Coordinates';t4      20: // Check CoordinatesuX       IF Latitude_Input [1] = Latitude_Rev [1] v\         AND Latitude_Input [2] = Latitude_Rev [2]  w^         //AND Latitude_Input [3] = Latitude_Rev [3] x\       AND Longitude_Input [1] = Longitude_Rev [1]y\         AND Longitude_Input [2] = Longitude_Rev [2]zb         //AND Longitude_Input [3] = Longitude_Rev [3] {       THEN;|^            sMessage_Coordinate := 'Coordinates match';}T            Client.Message := 'Coordinates match';~,          x_Faulty   := FALSE;         ELSE€*             x_Faulty := TRUE;`           Client.ActualStep := Client.ActualStep - 10;‚4       30: // Match Coordinatesƒ$          IF T1on.Q THEN;„<              Latitude_Input [1] := 0 ;…<              Latitude_Input [2] := 0 ;†<              Latitude_Input [3] := 0 ;‡
4
                ˆ>                Longitude_Input [1] := 0 ;‰>                Longitude_Input [2] := 0 ;Š>                Longitude_Input [3] := 0 ;‹\          sMessage_Coordinate := 'Enter Coordinates';ŒP        Client.Message:= 'Enter Coordinates';4        Client.ActualStep := 0;Ž
5
       50:2        //i_CDPX_Window := 2; 8          //x_Start_..... := FALSE:‘  END_CASE;’2PACK_ML.State.Resetting :“0 Lock_Start_CO := FALSE;”"  StateComplete();•0PACK_ML.State.Starting :–4PACK_ML.State.Completing :—0PACK_ML.State.Aborting :˜.PACK_ML.State.Stopping:™2PACK_ML.State.Clearing :  šEND_CASE›VIF NOT x_EmergencyGF AND x_EmergencyFF THENœ(     //Emergency Abort.  Abort();   žLClient.ActualState := UM.CurrentState;Ÿ>messageQueue(Client := Client); Interface¡L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}¢XFUNCTION_BLOCK Coordinate_Panel_StateMachine£VAR_IN_OUT¤&  Client : IOClient;¥END_VAR¦VAR§0  UM   : PACK_ML.UnitMode; ¨l    xInit             : BOOL := FALSE; // Flag for initialization©X  Lock_Start_CO          : BOOL;       // start commandª,    x_TestOff             : BOOL;«$  bl                 : blink;¬(    x_Flash             : BOOL;­N  Latitude_Input         : ARRAY[0..3] OF INT;®J  Latitude_Rev         : ARRAY[0..3] OF INT;¯P  Longitude_Input       : ARRAY[0..3] OF INT;°N  Longitude_Rev          : ARRAY[0..3] OF INT;±n  sMessage_Coordinate    : STRING := 'Enter Coordinates';   ²(    x_Check             : BOOL;³<  x_Faulty            : BOOL   := FALSE ;´,    f_trig               : F_TRIG; µ,    x_Reset_CO            : BOOL;¶   T1on               : TON;·:    i_CDPX_Window       : INT := 1 ;¸:    messageQueue : MessageQueue;¹"UniqueIdGeneratorº288»POULevel¼L{8e575c5b-1d37-49c6-941b-5c0ec7874787}½Standard¾ ChildObjectGuids¿8System.Collections.ArrayListÀ,AddAttributeSubsequentÁboolÐÐ-ÐÐ   E
6
ÄÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÊÚÐ-ÐÐ
­ËÚÐ-ÐÐ
­ÌÚÐ-ÐÐ
­ÍÚÐ-ÐÐ
­ÎÚÐ-ÐÐ
­ÈÚÐ-ÐÐ
­ÉÚÐ-ÐÐ
­ ÚÐ-ÐÐ
­!ÚÐ- ÐÐ
­"ÚÐ- ÐÐ
­#ÚÐ-!ÐÐ
­$ÚÐ-"ÐÐ
­%ÚÐ-#ÐÐ
­&ÚÐ-$ÐÐ
­'ÚÐ-%ÐÐ
­(ÚÐ-&ÐÐ
­)ÚÐ-'ÐÐ
­-ÚÐ-(ÐÐ
­.ÚÐ-)ÐÐ
­/ÚÐ-*ÐÐ
­0ÚÐ-+ÐÐ
­1ÚÐ-,ÐÐ
­2ÚÐ-(ÐÐ
­3ÚÐ--ÐÐ
­4ÚÐ-.ÐÐ
­5ÚÐ-/ÐÐ
­6ÚÐ-0ÐÐ
­7ÚÐ-1ÐÐ
­8ÚÐ-2ÐÐ
­9ÚÐ-3ÐÐ
­:ÚÐ-4ÐÐ
­;ÚÐ-5ÐÐ
­<ÚÐ-6ÐÐ
­=ÚÐ-7ÐÐ
­>ÚÐ-8ÐÐ
­?ÚÐ-9ÐÐ
­@ÚÐ-:ÐÐ
­AÚÐ-;ÐÐ
­BÚÐ-<ÐÐ
­CÚÐ-=ÐÐ
­DÚÐ->ÐÐ
­EÚÐ-?ÐÐ
­FÚÐ-@ÐÐ
­GÚÐ-AÐÐ
­HÚÐ-BÐÐ
­IÚÐ-CÐÐ
­JÚÐ-DÐÐ
­KÚÐ-(ÐÐ
­LÚÐ-EÐÐ
­MÚÐ-FÐÐ
­NÚÐ-ÐÐ
­OÚÐ-GÐÐ
­PÚÐ-HÐÐ
­QÚÐ-IÐÐ
­RÚÐ-ÐÐ
­SÚÐ- ÐÐ
­TÚÐ- ÐÐ
­UÚÐ- ÐÐ
­VÚÐ- ÐÐ
­WÚÐ- ÐÐ
­XÚÐ-JÐÐ
­YÚÐ-KÐÐ
­ZÚÐ-LÐÐ
­[ÚÐ-MÐÐ
­\ÚÐ-LÐÐ
­]ÚÐ-NÐÐ
­^ÚÐ-LÐÐ
­_ÚÐ-OÐÐ
­`ÚÐ-LÐÐ
­aÚÐ-PÐÐ
­ýÚÐ- ÐÐ
­bÚÐ-QÐÐ
­•ÚÐ-RÐÐ
­ÚÐ-SÐÐ
­þÚÐ-TÐÐ
­ÚÐ-ÐÐ
­ÚÐ-UÐÐ
­ÚÐ-VÐÐ
­   ÚÐ-WÐÐ
­
7
ÚÐ-XÐÐ
­ÚÐ-TÐÐ
­ÚÐ- ÐÐ
­˜ÚÐ-YÐÐ
­üÚÐ-EÐÐ
­¤ÚÐ-ZÐÐ
­ÚÐ-[ÐÐ
­
ÚÐ-\ÐÐ
­öÚÐ-]ÐÐ
­úÚÐ-^ÐÐ
­ûÚÐ-_ÐÐ
­øÚÐ-\ÐÐ
­ÚÐ-`ÐÐ
­ÚÐ-aÐÐ
­ôÚÐ-bÐÐ
­õÚÐ-ÐÐ
­šÚÐ-cÐÐ
­ÚÐ-dÐÐ
­óÚÐ-eÐÐ
­÷ÚÐ- ÐÐ
­ ÚÐ-fÐÐ
­«ÚÐ-gÐÐ
­¬ÚÐ-_ÐÐ
­œÚÐ-hÐÐ
­¹ÚÐ-iÐÐ
­ºÚÐ-jÐÐ
­ÂÚÐ-kÐÐ
­ÃÚÐ-lÐÐ
­ÄÚÐ-mÐÐ
­ÅÚÐ-nÐÐ
­ÆÚÐ-oÐÐ
­ÇÚÐ-pÐÐ
­»ÚÐ-_ÐÐ
­ÁÚÐ-\ÐÐ
­´ÚÐ-qÐÐ
­·ÚÐ-rÐÐ
­ØÚÐ-sÐÐ
­¶ÚÐ-_ÐÐ
­ÏÚÐ-\ÐÐ
­ÚÐ-tÐÐ
­£ÚÐ-uÐÐ
­ÐÚÐ-vÐÐ
­ÑÚÐ-wÐÐ
­ÒÚÐ-xÐÐ
­ÓÚÐ-yÐÐ
­ÔÚÐ-zÐÐ
­ÖÚÐ-{ÐÐ
­¸ÚÐ-|ÐÐ
­×ÚÐ-}ÐÐ
­ÙÚÐ-~ÐÐ
­­ÚÐ-gÐÐ
­¯ÚÐ-ÐÐ
­±ÚÐ-€ÐÐ
­°ÚÐ-ÐÐ
­®ÚÐ-_ÐÐ
­žÚÐ-EÐÐ
­ŸÚÐ-‚ÐÐ
­ÚÐ-EÐÐ
­áÚÐ-ƒÐÐ
­íÚÐ-„ÐÐ
­îÚÐ-…ÐÐ
­ïÚÐ-†ÐÐ
­ðÚÐ-‡ÐÐ
­ñÚÐ-ˆÐÐ
­òÚÐ-‰ÐÐ
­ìÚÐ-ŠÐÐ
­ÚÐ-‡ÐÐ
­æÚÐ-‹ÐÐ
­éÚÐ-ŒÐÐ
­âÚÐ-ÐÐ
­ãÚÐ-_ÐÐ
­èÚÐ-\ÐÐ
­ÝÚÐ-,ÐÐ
­¢ÚÐ-EÐÐ
­ÚÐ-\ÐÐ
­ÚÐ-ŽÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-\ÐÐ
­ÚÐ-\ÐÐ
­›ÚÐ-‘ÐÐ
­ÚÐ-ÐÐ
­cÚÐ-’ÐÐ
­ÚÐ-“ÐÐ
­dÚÐ-”ÐÐ
­eÚÐ-•ÐÐ
­fÚÐ-”ÐÐ
­ŠÚÐ-–ÐÐ
­‹ÚÐ-”ÐÐ
­ŒÚÐ-—ÐÐ
­ÚÐ-”ÐÐ
­ŽÚÐ-˜ÐÐ
­ÚÐ-“ÐÐ
­ÚÐ-”ÐÐ
­ÚÐ-™ÐÐ
­nÚÐ-”ÐÐ
­oÚÐ-šÐÐ
­pÚÐ- ÐÐ
­ÚÐ-›ÐÐ
­ÚÐ-œÐÐ
­vÚÐ-ÐÐ
­ÚÐ-ÐÐ
­uÚÐ- ÐÐ
­   ÚÐ-žÐÐ
­ÚÐ- ÐÐ
­ÚÐ- ÐÐ
­ÚÐ-ŸР¡Ð  E
8
ÐÐ
­ÚÐ-¢ÐÐ
­
9
ÚÐ-£ÐÐ
­ÚÐ-¤ÐÐ
­ÚÐ-¥ÐÐ
­ÚÐ-¦ÐÐ
­ÚÐ-§ÐÐ
­ÚÐ- ÐÐ
­ÚÐ-¨ÐÐ
­ÚÐ-©ÐÐ
­‘ÚÐ-ªÐÐ
­–ÚÐ-«ÐÐ
­—ÚÐ-¬ÐÐ
­¥ÚÐ-­ÐÐ
­§ÚÐ-®ÐÐ
­¦ÚÐ-¯ÐÐ
­¨ÚÐ-°ÐÐ
­©ÚÐ-±ÐÐ
­²ÚÐ-²ÐÐ
­³ÚÐ-³ÐÐ
­¿ÚÐ-´ÐÐ
­ÀÚÐ-µÐÐ
­ßÚÐ-¶ÐÐ
­ÚÐ-·ÐÐ
­ ÚÐ-¸ÐÐ
­ÚÐ-¥й-ºл¼-½¾¿ÐÀÁ­