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 42 43 | //---- Client init ----\\ IF NOT xInit THEN ExamplePuzzle.ID := 0; ExamplePuzzle.Name := 'Example Puzzle'; ExamplePuzzle.GUID := '00000000-0000-0000-0000-000000000000'; ExamplePuzzle.LockCommands[0]:= 'Hello'; ExamplePuzzle.KeyCommands[0]:= 'World'; ExamplePuzzle.LockCommands[1]:= 'Foo'; ExamplePuzzle.KeyCommands[1]:= 'Bar'; END_IF //---- UI handling ----\\ 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(); ExamplePuzzle : PuzzleClient; // 00000000-0000-0000-0000-00000000000 puzzle : ExamplePuzzleStateMachine; xAbort : BOOL; xActingStateComplete: BOOL; xClear : BOOL; xHold : BOOL; xReset : BOOL; xStart : BOOL; xStop : BOOL; xSuspend : BOOL; xUnHold : BOOL; xUnSuspend : BOOL; END_VAR |