Diff of /branches/PackMLState/Main_Escape_PLC/Plc Logic/Application/Function Blocks/IO/LightStateMachine/svnobj [r14] .. [r15]  Maximize  Restore

Switch to side-by-side view

--- a/branches/PackMLState/Main_Escape_PLC/Plc Logic/Application/Function Blocks/IO/LightStateMachine/svnobj
+++ b/branches/PackMLState/Main_Escape_PLC/Plc Logic/Application/Function Blocks/IO/LightStateMachine/svnobj
@@ -1,6 +1,5 @@
-Gx_lï#!0…jüoÞó³ó|é
-‚.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}
-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;\rbl(ENABLE := TRUE,TIMELOW := T#250MS,TIMEHIGH:= T#500MS);]Interface^L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}_@FUNCTION_BLOCK LightStateMachine`VAR_IN_OUTa&	Client : IOClient;bEND_VARcVARd0	UM	: PACK_ML.UnitMode; ej	xInit				: BOOL := FALSE; // Flag for initializationf	bl : blink;g"UniqueIdGeneratorh522iPOULeveljL{8e575c5b-1d37-49c6-941b-5c0ec7874787}kStandardl ChildObjectGuidsm8System.Collections.ArrayListn,AddAttributeSubsequentoboolÐÐ-ÐÐ	E
-fÐÐ
­ÚÐ-ÐÐ
­žÚÐ-ÐÐ
­ŸÚÐ-ÐÐ
­ ÚÐ-ÐÐ
­¡ÚÐ-ÐÐ
­¢ÚÐ-ÐÐ
­£ÚÐ-ÐÐ
­¥ÚÐ-ÐÐ
­¦ÚÐ-ÐÐ
­§ÚÐ-ÐÐ
­¨ÚÐ-ÐÐ
­©ÚÐ-ÐÐ
­ªÚÐ-ÐÐ
­«ÚÐ-ÐÐ
­¬ÚÐ-ÐÐ
­­ÚÐ-ÐÐ
­®ÚÐ-ÐÐ
­¯ÚÐ-ÐÐ
­°ÚÐ- ÐÐ
­	ÚÐ-!ÐÐ
­²ÚÐ-"ÐÐ
­³ÚÐ-#ÐÐ
­
-ÚÐ-$ÐÐ
­»ÚÐ-%ÐÐ
­¼ÚÐ-&ÐÐ
­½ÚÐ-'ÐÐ
­¾ÚÐ-(ÐÐ
­¿ÚÐ-)ÐÐ
­ÀÚÐ-*ÐÐ
­ÁÚÐ-+ÐÐ
­ÂÚÐ-,ÐÐ
­ÃÚÐ--ÐÐ
­ÄÚÐ-.ÐÐ
­ÅÚÐ-/ÐÐ
­ÆÚÐ-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
-ÐÐ
­ÚÐ-_ÐÐ
­ÚÐ-`ÐÐ
­ÚÐ-aÐÐ
­ÚÐ-bÐÐ
­ÚÐ-cÐÐ
­
ÚÐ-dÐÐ
­ÚÐ-ÐÐ
­ÚÐ-eÐÐ
­'ÚÐ-fÐÐ
­ÚÐ-ÐÐ
­ÚÐ-bÐÐ
­ÚÐ-Ðg-hÐij-klmÐno­
\ No newline at end of file
+Gx_lã$!0…jü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}
+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
+hÐÐ
­ÚÐ-ÐÐ
­žÚÐ-ÐÐ
­ŸÚÐ-ÐÐ
­ ÚÐ-ÐÐ
­¡ÚÐ-ÐÐ
­¢ÚÐ-ÐÐ
­£ÚÐ-ÐÐ
­¥ÚÐ-ÐÐ
­¦ÚÐ-ÐÐ
­§ÚÐ-ÐÐ
­¨ÚÐ-ÐÐ
­©ÚÐ-ÐÐ
­ªÚÐ-ÐÐ
­«ÚÐ-ÐÐ
­¬ÚÐ-ÐÐ
­­ÚÐ-ÐÐ
­®ÚÐ-ÐÐ
­¯ÚÐ-ÐÐ
­°ÚÐ- ÐÐ
­	ÚÐ-!ÐÐ
­²ÚÐ-"ÐÐ
­³ÚÐ-#ÐÐ
­
+ÚÐ-$ÐÐ
­»ÚÐ-%ÐÐ
­¼ÚÐ-&ÐÐ
­½ÚÐ-'ÐÐ
­¾ÚÐ-(ÐÐ
­¿ÚÐ-)ÐÐ
­ÀÚÐ-*ÐÐ
­ÁÚÐ-+ÐÐ
­ÂÚÐ-,ÐÐ
­ÃÚÐ--ÐÐ
­ÄÚÐ-.ÐÐ
­ÅÚÐ-/ÐÐ
­ÆÚÐ-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
+ÐÐ
­ÚÐ-`ÐÐ
­ÚÐ-aÐÐ
­ÚÐ-bÐÐ
­ÚÐ-cÐÐ
­ÚÐ-dÐÐ
­
ÚÐ-eÐÐ
­ÚÐ-ÐÐ
­ÚÐ-fÐÐ
­'ÚÐ-gÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­
ÚÐ-hÐÐ
­ÚÐ-ÐÐ
­ÚÐ-cÐÐ
­ÚÐ-Ði-jÐkl-mnoÐpq­
\ No newline at end of file