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

Switch to side-by-side 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,4 +1,5 @@
-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}
-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
-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
-ÐÐ
­ÚÐ-eÐÐ
­ÚÐ-fÐÐ
­ÚÐ-gÐÐ
­ÚÐ-hÐÐ
­ÚÐ-iÐÐ
­
ÚÐ-jÐÐ
­ÚÐ-ÐÐ
­ÚÐ-kÐÐ
­'ÚÐ-lÐÐ
­ÚÐ-ÐÐ
­ÚÐ-hÐÐ
­ÚÐ-Ðm-nÐop-qrsÐtu­
\ 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