[r4]: / trunk / MEGAIO_FB / connector / AfterReadInputs / svnobj  Maximize  Restore  History

Download this file

39 lines (39 with data), 3.0 kB

Gx_lÖ!0…jüo-·ëKЁÄÕ«žSystem.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}	Id
longTagText
2SUPER^.AfterReadInputs();(IF _iState = 10 THEN"	timer(IN:=TRUE);"	IF timer.Q THEN	(		FOR adc:=0 TO 7 DOn		len := readregister(16#7 + 2 * adc,ADR(Buffer), 2);		$			IF len = 2 THENŠ				value := BYTE_TO_REAL(Buffer[1]) + BYTE_TO_REAL(Buffer[0]) * 256;V				adcVoltages[adc] := value * 3.3 / 4095;N				adcRaw[adc] := REAL_TO_UINT(value);			END_IF			END_FOR		F		opto := read8(MEGAIO_OPTO_ADD);  (		FOR len:=0 TO 7 DO~			optoIn[len] := USINT_TO_BOOL(SHL(2#00000001, len) AND opto);:		gpio:= read8(GPIO_VAL_ADD);(		FOR len:=0 TO 5 DO ~			gpioIn[len] := USINT_TO_BOOL(SHL(2#00000001, len) AND gpio);!&		timer(IN:=FALSE);"	END_IF		#END_IF$Interface%L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}&8METHOD AfterReadInputs : INT'VAR(<	Buffer : ARRAY[0..3] OF BYTE;)	adc: USINT;*	value: REAL;+	len: DINT;	,	opto: USINT;-	gpio: USINT;	.END_VARÐÐÐEÐÐ	
­=ÚÐ-
ÐÐ	
­>ÚÐ-ÐÐ	
­?ÚÐ-ÐÐ	
­AÚÐ-ÐÐ	
­BÚÐ-ÐÐ	
­TÚÐ-ÐÐ	
­WÚÐ-ÐÐ	
­YÚÐ-ÐÐ	
­ZÚÐ-ÐÐ	
­[ÚÐ-ÐÐ	
­_ÚÐ-ÐÐ	
­UÚÐ-ÐÐ	
­VÚÐ-ÐÐ	
­hÚÐ-ÐÐ	
­eÚÐ-ÐÐ	
­fÚÐ-ÐÐ	
­gÚÐ-ÐÐ	
­bÚÐ-ÐÐ	
­iÚÐ-ÐÐ	
­jÚÐ-ÐÐ	
­mÚÐ-ÐÐ	
­nÚÐ- ÐÐ	
­kÚÐ-ÐÐ	
­LÚÐ-!ÐÐ	
­@ÚÐ-"ÐÐ	
­ÚÐ-#Ð$%ÐE
ÐÐ	
­ÚÐ-&ÐÐ	
­:ÚÐ-'ÐÐ	
­MÚÐ-(ÐÐ	
­PÚÐ-)ÐÐ	
­QÚÐ-*ÐÐ	
­OÚÐ-+ÐÐ	
­dÚÐ-,ÐÐ	
­lÚÐ--ÐÐ	
­ÚÐ-.ÐÐ	
­ÚÐ-