[r79]: / trunk / Monarco / Monarco_FB / utility / dataTransfer / svnobj  Maximize  Restore  History

Download this file

46 lines (46 with data), 4.4 kB

Gx_lü!0…jüo«=“6)¯ÏDSystem.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
L//init temporay buffer before filling;6// determine size of bufferbudiBufSize 						:= SIZEOF( THIS^._abyIntTxBuf );r(* Sets CRC16 checksum, for Tx byte array [24] and [25]*)bCRC 							:= THIS^.getCRC( THIS^._abyIntTxBuf );\THIS^._abyIntTxBuf[24]			:= WORD_TO_BYTE(CRC);jTHIS^._abyIntTxBuf[25]			:= WORD_TO_BYTE(SHR(CRC,8));// Send, RecvŽxDone := THIS^.transferExt( pabyTxBuffer := ADR( THIS^._abyIntTxBuf ), ô						 pabyRxBuffer := ADR( tmpRxBuf ), 		// write result into a temporary buffer for post-analysis. Beware that the received answser is from the last question, not the current question.@						 udiLen		  := udiBufSize, 0						 uiDelayus	  := 5,6						 udispeedHz	  := 0); $IF NOT xDone THEN (	// Send / Recv failR	DataTransfer := eMonarcoComStatus.ERROR;"	_iState := 1000;ELSE 	// OK?!B	IF THIS^.checkCRC(tmpRxBuf) THEN"H		//CRC okay, return the recv buffer#D		THIS^._abyIntRxBuf 	:= tmpRxBuf;$X		DataTransfer		:= eMonarcoComStatus.SUCCES;%
	ELSE&P		//CRC not okay, return an empty buffer'$		flush(tmpRxBuf);(Z		DataTransfer		:= eMonarcoComStatus.CrcFail;)	END_IF*END_IF;+Interface,L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}-l(* Handles the SPI data transfer to the Monarco HAT *).XMETHOD  dataTransfer : MNR.eMonarcoComStatus/*VAR                 	0Š	tmpRxBuf			: ARRAY [0..(ParamList.MONARCO_STRUCT_SIZE-1)] OF BYTE;  1@	udiBufSize			: UDINT;          2"	xDone				: BOOL;3 	CRC					: WORD;4END_VARÐÐÐE#ÐÐ	
­MÚÐ-
ÐÐ	
­OÚÐ-ÐÐ	
­PÚÐ-ÐÐ	
­QÚÐ-ÐÐ	
­kÚÐ-ÐÐ	
­mÚÐ-ÐÐ	
­nÚÐ-ÐÐ	
­oÚÐ-ÐÐ	
­lÚÐ-ÐÐ	
­jÚÐ-ÐÐ	
­RÚÐ-ÐÐ	
­SÚÐ-ÐÐ	
­TÚÐ-ÐÐ	
­UÚÐ-ÐÐ	
­VÚÐ-ÐÐ	
­WÚÐ-ÐÐ	
­qÚÐ-ÐÐ	
­XÚÐ-ÐÐ	
­YÚÐ-ÐÐ	
­ZÚÐ-ÐÐ	
­[ÚÐ-ÐÐ	
­sÚÐ-ÐÐ	
­\ÚÐ-ÐÐ	
­]ÚÐ- ÐÐ	
­^ÚÐ-!ÐÐ	
­_ÚÐ-"ÐÐ	
­`ÚÐ-#ÐÐ	
­aÚÐ-$ÐÐ	
­bÚÐ-%ÐÐ	
­cÚÐ-&ÐÐ	
­dÚÐ-'ÐÐ	
­eÚÐ-#ÐÐ	
­fÚÐ-(ÐÐ	
­gÚÐ-)ÐÐ	
­hÚÐ-*Ð+,ÐEÐÐ	
­DÚÐ--ÐÐ	
­EÚÐ-.ÐÐ	
­FÚÐ-/ÐÐ	
­GÚÐ-0ÐÐ	
­HÚÐ-1ÐÐ	
­IÚÐ-2ÐÐ	
­pÚÐ-3ÐÐ	
­ÞÚÐ-4