[r4]: / trunk / SM3_Drive_RaspiStepper / SM3_Drive_RaspiStepper / Function Blocks / myGPIO / SetPulsDir / svnobj  Maximize  Restore  History

Download this file

18 lines (17 with data), 2.2 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
{attribute 'conditionalshow'}
METHOD SetPulsDir
VAR
	Result: UDINT;
	ulOn, ulOff: UDINT;
END_VAR
VAR_INPUT
	on : BOOL;
IF _iState = 10 THEN
	IF on THEN
		ulOn := ulOn OR SHL(UDINT#1, i);
	ELSE
		ulOff := ulOff OR SHL(UDINT#1, i);
	END_IF
END_IF
IF ulOn > 0 THEN
	SysShm.SysSharedMemoryWrite(_hShmGPIOBase, 16#28, ADR(ulOff), 4, ADR(result));