[r8]: / branches / SBSI / Display_Escape_PLC / Plc Logic / Application / Puzzle / SBSI_PRG / svnobj  Maximize  Restore  History

Download this file

42 lines (40 with data), 4.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
29
30
31
32
33
34
35
36
37
38
39
40
41
IF NOT xInit THEN		
	SBSI_puzzle.ID := 3;
	SBSI_puzzle.Name := 'Example Puzzle';
	SBSI_puzzle.GUID := '00000000-0000-0000-0000-000000000000';
	SBSI_puzzle.LockCommands[0]:= 'Hello';
	SBSI_puzzle.KeyCommands[0]:= 'World';
	
	SBSI_puzzle.LockCommands[1]:= 'Foo';
	SBSI_puzzle.KeyCommands[1]:= 'Bar';
END_IF
IF xAbort THEN
	puzzle.Abort();
IF xClear THEN
	puzzle.Clear();
IF xHold THEN
	puzzle.Hold();
IF xReset THEN
	puzzle.Reset();
IF xStart THEN
	puzzle.Start();
IF xStop THEN
	puzzle.Stop();
IF xSuspend THEN
	puzzle.Suspend();
IF xUnHold THEN
	puzzle.UnHold();
IF xUnSuspend THEN
	puzzle.UnSuspend();
	SBSI_puzzle : PuzzleClient; // 8e3ae27e-1058-402e-adcf-758eb81632ba
	puzzle : SBSIPuzzleStateMachine;
	xAbort				: BOOL;
	xActingStateComplete: BOOL;
	xClear				: BOOL;
	xHold				: BOOL;
	xReset				: BOOL;
	xStart				: BOOL;
	xStop				: BOOL;
	xSuspend			: BOOL;
	xUnHold				: BOOL;
	xUnSuspend			: BOOL;
END_VAR