[r67]: / trunk / IoDrvMEGAIO / MEGAIO / MEGAIO / connector / AfterReadInputs / svnobj  Maximize  Restore  History

Download this file

11 lines (10 with data), 3.3 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
SUPER^.AfterReadInputs();
IF _iState = 10 THEN
	timer(IN:=TRUE);
	IF timer.Q THEN	
		FOR adc:=0 TO 7 DO
		len := readregister(16#7 + 2 * adc,ADR(Buffer), 2);		
			IF len = 2 THEN
			udtInput.optoIn[len] := USINT_TO_BOOL(SHL(2#00000001, len) AND opto);
		gpio:= read8(GPIO_VAL_ADD);
		FOR len:=0 TO 5 DO