EscapeRoom

2-pre-alpha

Brought to you by: florenvanolden, jeffreyb, oscarfokker, ozzy, tobivw

MIT License

Diff of /branches/SBSI/Main_Escape_PLC/Plc Logic/Application/Function Blocks/IO/LightStateMachine/svnobj [r38] .. [r39] Maximize Restore

Switch to unified view

	a/branches/SBSI/Main_Escape_PLC/Plc Logic/Application/Function Blocks/IO/LightStateMachine/svnobj		b/branches/SBSI/Main_Escape_PLC/Plc Logic/Application/Function Blocks/IO/LightStateMachine/svnobj
1	Gx_l³&!0…jüoÀ›ÉyËaÀ,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}	1	Gx_lã$!0jüoZ1ïVaË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; END_IF4IF Client.bReadyToPLC THEN: CASE Client.iCommandToPLC OF" 0 : //Handshake 1 : //LockŽ IF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[0]) = 0 THEN P Client.Message:='Turn on the laser.';!0 TurnOnLaserLight(); "” ELSIF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[1]) = 0 THEN #R Client.Message:='Turn off the laser.';$2 TurnOffLaserLight(); %” ELSIF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[2]) = 0 THEN &T Client.Message:='Turn on the status.'; '. TurnOnStatusLight();(” ELSIF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[3]) = 0 THEN )V Client.Message:='Turn off the status.'; *4 TurnOffStatusLight(); + END_IF, 2 : //Key - 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:NZ DO_First_Floor_Red_Light_Outdoor := bl.OUT; O&PACK_ML.State.Idle:P2PACK_ML.State.Complete : Q.PACK_ML.State.Execute :R2PACK_ML.State.Resetting :S, DO_Laser_ON := FALSE;TV DO_First_Floor_Red_Light_Outdoor := FALSE;U6 UM.ActingStateCompleted();V0PACK_ML.State.Starting :W4PACK_ML.State.Completing :X0PACK_ML.State.Aborting :Y.PACK_ML.State.Stopping:Z0PACK_ML.State.Clearing :[X DO_First_Floor_Red_Light_Outdoor := FALSE; \END_CASE]fIF NOT (DI_EmergencyGF AND NOT DI_EmergencyFF) THEN^( // Emergency Abort._ Abort(); `END_IF aLClient.ActualState := UM.CurrentState;brbl(ENABLE := TRUE,TIMELOW := T#250MS,TIMEHIGH:= T#500MS);cInterfacedL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}e@FUNCTION_BLOCK LightStateMachinefVAR_IN_OUTg& Client : IOClient;hEND_VARiVARj0 UM : PACK_ML.UnitMode; kj xInit : BOOL := FALSE; // Flag for initializationl bl : blink;m"UniqueIdGeneratorn520oPOULevelpL{8e575c5b-1d37-49c6-941b-5c0ec7874787}qStandardr ChildObjectGuidss8System.Collections.ArrayListt,AddAttributeSubsequentuboolÐÐ-ÐÐ E	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; END_IF4IF Client.bReadyToPLC THEN: CASE Client.iCommandToPLC OF" 0 : //Handshake 1 : //LockŽ IF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[0]) = 0 THEN T Client.Message:='Turn on the status.'; !. TurnOnStatusLight();"” ELSIF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[1]) = 0 THEN #V Client.Message:='Turn off the status.'; $: TurnOffStatusLight(); % END_IF& 2 : //Key ' 3 : //IO( 4 : //Media) 5 : //Hint* 6 : //State +l IF SysStrCmp(Client.sCommandToPLC, 'SC') = 0 THEN ,& StateComplete();-x ELSIF SysStrCmp(Client.sCommandToPLC, 'Start') = 0 THEN . Start();/v ELSIF SysStrCmp(Client.sCommandToPLC, 'Stop') = 0 THEN 0 Stop();1x ELSIF SysStrCmp(Client.sCommandToPLC, 'Reset') = 0 THEN 2 Reset();3x ELSIF SysStrCmp(Client.sCommandToPLC, 'Abort') = 0 THEN 4 Abort();5x ELSIF SysStrCmp(Client.sCommandToPLC, 'Clear') = 0 THEN 6 Clear();7v ELSIF SysStrCmp(Client.sCommandToPLC, 'Hold') = 0 THEN 8 Hold();9z ELSIF SysStrCmp(Client.sCommandToPLC, 'UnHold') = 0 THEN : Unhold(); ;\| ELSIF SysStrCmp(Client.sCommandToPLC, 'Suspend') = 0 THEN < Suspend();=€ ELSIF SysStrCmp(Client.sCommandToPLC, 'UnSuspend') = 0 THEN > UnSuspend();? @ END_CASEA6 Client.iCommandToPLC := 0;B8 Client.sCommandToPLC := '';C: Client.bReadyToPLC := FALSE;D.CASE UM.CurrentState OFE,PACK_ML.State.Stopped:F ;G,PACK_ML.State.Aborted:HZ DO_First_Floor_Red_Light_Outdoor := bl.OUT; I&PACK_ML.State.Idle:J2PACK_ML.State.Complete : K.PACK_ML.State.Execute :L2PACK_ML.State.Resetting :M, DO_Laser_ON := FALSE;NV DO_First_Floor_Red_Light_Outdoor := FALSE;O6 UM.ActingStateCompleted();P0PACK_ML.State.Starting :Q4PACK_ML.State.Completing :R0PACK_ML.State.Aborting :S.PACK_ML.State.Stopping:T0PACK_ML.State.Clearing :UX DO_First_Floor_Red_Light_Outdoor := FALSE; VEND_CASEWfIF NOT (DI_EmergencyGF AND NOT DI_EmergencyFF) THENX( // Emergency Abort.Y Abort(); ZEND_IF [LClient.ActualState := UM.CurrentState;\>messageQueue(Client := Client);]rbl(ENABLE := TRUE,TIMELOW := T#250MS,TIMEHIGH:= T#500MS);^Interface_L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}`@FUNCTION_BLOCK LightStateMachineaVAR_IN_OUTb& Client : IOClient;cEND_VARdVARe0 UM : PACK_ML.UnitMode; fj xInit : BOOL := FALSE; // Flag for initializationg bl : blink;h: messageQueue : MessageQueue;i"UniqueIdGeneratorj527kPOULevellL{8e575c5b-1d37-49c6-941b-5c0ec7874787}mStandardn ChildObjectGuidso8System.Collections.ArrayListp,AddAttributeSubsequentqboolÐÐ-ÐÐ E
3	lÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ¡ÚÐ-ÐÐ ¢ÚÐ-ÐÐ £ÚÐ-ÐÐ ¥ÚÐ-ÐÐ ¦ÚÐ-ÐÐ §ÚÐ-ÐÐ ¨ÚÐ-ÐÐ ©ÚÐ-ÐÐ ªÚÐ-ÐÐ «ÚÐ-ÐÐ ¬ÚÐ-ÐÐ ÚÐ-ÐÐ ®ÚÐ-ÐÐ ¯ÚÐ-ÐÐ °ÚÐ- ÐÐ ±ÚÐ-!ÐÐ ²ÚÐ-"ÐÐ ³ÚÐ-#ÐÐ ´ÚÐ-$ÐÐ µÚÐ-%ÐÐ ¶ÚÐ-&ÐÐ ·ÚÐ-'ÐÐ ¸ÚÐ-(ÐÐ ¹ÚÐ-)ÐÐ ºÚÐ-*ÐÐ »ÚÐ-+ÐÐ ¼ÚÐ-,ÐÐ ½ÚÐ--ÐÐ ¾ÚÐ-.ÐÐ ¿ÚÐ-/ÐÐ ÀÚÐ-0ÐÐ ÁÚÐ-1ÐÐ ÂÚÐ-2ÐÐ ÃÚÐ-3ÐÐ ÄÚÐ-4ÐÐ ÅÚÐ-5ÐÐ ÆÚÐ-6ÐÐ ÇÚÐ-7ÐÐ ÈÚÐ-8ÐÐ ÉÚÐ-9ÐÐ ÊÚÐ-:ÐÐ ËÚÐ-;ÐÐ ÌÚÐ-<ÐÐ ÍÚÐ-=ÐÐ ÎÚÐ->ÐÐ ÏÚÐ-?ÐÐ ÐÚÐ-@ÐÐ ÑÚÐ-AÐÐ ÒÚÐ-BÐÐ ÓÚÐ-CÐÐ ÔÚÐ-DÐÐ ÕÚÐ-+ÐÐ ÖÚÐ-EÐÐ ×ÚÐ-FÐÐ ØÚÐ-ÐÐ ÙÚÐ-GÐÐ ÚÚÐ-HÐÐ ÛÚÐ-IÐÐ ÜÚÐ-ÐÐ ÝÚÐ-ÐÐ ÞÚÐ-ÐÐ ßÚÐ-ÐÐ àÚÐ-ÐÐ áÚÐ-ÐÐ âÚÐ-JÐÐ ãÚÐ-KÐÐ äÚÐ-LÐÐ åÚÐ-MÐÐ æÚÐ-NÐÐ çÚÐ-LÐÐ èÚÐ-OÐÐ éÚÐ-LÐÐ êÚÐ-PÐÐ ëÚÐ-LÐÐ ìÚÐ-QÐÐ íÚÐ-LÐÐ îÚÐ-RÐÐ ïÚÐ-SÐÐ ðÚÐ-TÐÐ ñÚÐ-UÐÐ òÚÐ-VÐÐ óÚÐ-UÐÐ ôÚÐ-WÐÐ õÚÐ-UÐÐ öÚÐ-XÐÐ ÷ÚÐ-UÐÐ øÚÐ-YÐÐ ùÚÐ-SÐÐ úÚÐ-TÐÐ ûÚÐ-UÐÐ üÚÐ-ZÐÐ ýÚÐ-SÐÐ þÚÐ-[ÐÐ ÿÚÐ-UÐÐ ÚÐ-\ÐÐ ÚÐ-ÐÐ ÚÐ-]ÐÐ ÚÐ-^ÐÐ ÚÐ-_ÐÐ ÚÐ-`ÐÐ ÚÐ-ÐÐ ÚÐ-aÐÐ ÚÐ-ÐÐ %ÚÐ-bÐcdÐ E	3	hÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ¡ÚÐ-ÐÐ ¢ÚÐ-ÐÐ £ÚÐ-ÐÐ ¥ÚÐ-ÐÐ ¦ÚÐ-ÐÐ §ÚÐ-ÐÐ ¨ÚÐ-ÐÐ ©ÚÐ-ÐÐ ªÚÐ-ÐÐ «ÚÐ-ÐÐ ¬ÚÐ-ÐÐ ÚÐ-ÐÐ ®ÚÐ-ÐÐ ¯ÚÐ-ÐÐ °ÚÐ- ÐÐ ÚÐ-!ÐÐ ²ÚÐ-"ÐÐ ³ÚÐ-#ÐÐ
4	ÐÐ ÚÐ-eÐÐ ÚÐ-fÐÐ ÚÐ-gÐÐ ÚÐ-hÐÐ ÚÐ-iÐÐ ÚÐ-jÐÐ ÚÐ-ÐÐ ÚÐ-kÐÐ 'ÚÐ-lÐÐ ÚÐ-ÐÐ ÚÐ-hÐÐ ÚÐ-Ðm-nÐop-qrsÐtu	4	ÚÐ-$ÐÐ »ÚÐ-%ÐÐ ¼ÚÐ-&ÐÐ ½ÚÐ-'ÐÐ ¾ÚÐ-(ÐÐ ¿ÚÐ-)ÐÐ ÀÚÐ-*ÐÐ ÁÚÐ-+ÐÐ ÂÚÐ-,ÐÐ ÃÚÐ--ÐÐ ÄÚÐ-.ÐÐ ÅÚÐ-/ÐÐ ÆÚÐ-0ÐÐ ÇÚÐ-1ÐÐ ÈÚÐ-2ÐÐ ÉÚÐ-3ÐÐ ÊÚÐ-4ÐÐ ËÚÐ-5ÐÐ ÌÚÐ-6ÐÐ ÍÚÐ-7ÐÐ ÎÚÐ-8ÐÐ ÏÚÐ-9ÐÐ ÐÚÐ-:ÐÐ ÑÚÐ-;ÐÐ ÒÚÐ-<ÐÐ ÓÚÐ-=ÐÐ ÔÚÐ->ÐÐ ÕÚÐ-%ÐÐ ÖÚÐ-?ÐÐ ×ÚÐ-@ÐÐ ØÚÐ-ÐÐ ÙÚÐ-AÐÐ ÚÚÐ-BÐÐ ÛÚÐ-CÐÐ ÜÚÐ-ÐÐ ÝÚÐ-ÐÐ ÞÚÐ-ÐÐ ßÚÐ-ÐÐ àÚÐ-ÐÐ áÚÐ-ÐÐ âÚÐ-DÐÐ ãÚÐ-EÐÐ äÚÐ-FÐÐ åÚÐ-GÐÐ æÚÐ-HÐÐ çÚÐ-FÐÐ èÚÐ-IÐÐ éÚÐ-FÐÐ êÚÐ-JÐÐ ëÚÐ-FÐÐ ìÚÐ-KÐÐ íÚÐ-FÐÐ îÚÐ-LÐÐ ïÚÐ-MÐÐ ðÚÐ-NÐÐ ñÚÐ-OÐÐ òÚÐ-PÐÐ óÚÐ-OÐÐ ôÚÐ-QÐÐ õÚÐ-OÐÐ öÚÐ-RÐÐ ÷ÚÐ-OÐÐ øÚÐ-SÐÐ ùÚÐ-MÐÐ úÚÐ-NÐÐ ûÚÐ-OÐÐ üÚÐ-TÐÐ ýÚÐ-MÐÐ þÚÐ-UÐÐ ÿÚÐ-OÐÐ ÚÐ-VÐÐ ÚÐ-ÐÐ ÚÐ-WÐÐ ÚÐ-XÐÐ ÚÐ-YÐÐ ÚÐ-ZÐÐ ÚÐ-ÐÐ ÚÐ-[ÐÐ ÚÐ-ÐÐ ÚÐ-\ÐÐ ÚÐ-ÐÐ %ÚÐ-]Ð^_Ð E
		5	ÐÐ ÚÐ-`ÐÐ ÚÐ-aÐÐ ÚÐ-bÐÐ ÚÐ-cÐÐ ÚÐ-dÐÐ ÚÐ-eÐÐ ÚÐ-ÐÐ ÚÐ-fÐÐ 'ÚÐ-gÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-hÐÐ ÚÐ-ÐÐ ÚÐ-cÐÐ ÚÐ-Ði-jÐkl-mnoÐpq