[r34]: / trunk / Display_Escape_PLC / Plc Logic / Application / Function Blocks / Puzzle / ByteSwapPuzzleStateMachine / svnobj  Maximize  Restore  History

Download this file

29 lines (27 with data), 23.8 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
ChildObjectGuids
AddAttributeSubsequent
IF NOT xInit THEN	
	UM				(		sName := 'Normal Operation', 
							dwAllowsLeavingFromStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, 
		IF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[0]) =  0 THEN		
			overrideKey := TRUE;			
		ELSIF SysStrCmp(Client.sCommandToPLC, 'UnSuspend') =  0 THEN		
			UnSuspend();
		
	END_CASE
	Client.iCommandToPLC := 0;
	Client.sCommandToPLC := '';
	Client.bReadyToPLC := FALSE;
CASE UM.CurrentState OF
PACK_ML.State.Stopped:
	;
PACK_ML.State.Aborted:
PACK_ML.State.Idle:
PACK_ML.State.Complete :	
PACK_ML.State.Execute :
	CASE Client.Mode OF
		Mode.Mode1:
			IF puzzleTimer.iProcess = 25 THEN
				SendCommand(Command := CommandType.Media ,Value := 'Padlock K000367');	
			END_IF			
			IF puzzleTimer.iProcess = 75 THEN
				IF Client.ActualStep <= 10 THEN