[r83]: / trunk / Monarco / Test_FB / svnobj  Maximize  Restore  History

Download this file

39 lines (37 with data), 3.5 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
FUNCTION_BLOCK Test_FB EXTENDS SPI
VAR_INPUT
	// 2000 .. 2003
	byDigitalOut : BYTE;
	// 2100 .. 2101
	awAnalogOut : ARRAY[0..1] OF WORD;
	// 2200 .. 2207
	byControlByte : BYTE;	
	// 2300 .. 2302
	byHWConfig : BYTE;
	// 2400 .. 2407
	byUserLeds : BYTE;
	// 2500..2507
	byUserLedMask : BYTE;
END_VAR
VAR_OUTPUT
	// 1000 .. 1003
	byDigitalIn : BYTE;
	// 1100 .. 1101
	awAnalogIn : ARRAY[0..1] OF WORD;
VAR
	_xOperational		: BOOL;
	_AfterReadInputs	: UINT;
	_BeforeWriteOutputs : UINT; 
	_bDI : BYTE;
	_WAI0 : WORD;
	_WAI1 : WORD;	
SUPER^();
CASE _iState OF
0:
	IF SUPER^.init() THEN
		_iState := 1;
	END_IF	
1:	
	_iState := 10;
	
END_CASE
_xOperational := ( _istate >= 1 );