SPI-Temperature

read thermal sensors using SPI

Brought to you by: ingo

MIT License

Diff of /trunk/spitemp/SPITemperature.library.md [r9] .. [r10] Maximize Restore

Switch to unified view


...
SUPER^.AfterReadInputs();

IF _iState = 10 THEN

    FOR usiChannel := 0 TO 0 DO
        aby[0] := 16#FF;
        aby[1] := 16#FF;
        aby[2] := 16#FF;
        aby[3] := 16#FF;
        
        IF NOT transfer(pabyTxBuffer:=ADR(aby) , pabyRxBuffer:=ADR(aby) , udiLen:=4 , uiDelayus:=0) THEN
            _iState := 1000;
        END_IF


	a/trunk/spitemp/SPITemperature.library.md		b/trunk/spitemp/SPITemperature.library.md
	...		...
38	SUPER^.AfterReadInputs();	38	SUPER^.AfterReadInputs();
39		39
40	IF _iState = 10 THEN	40	IF _iState = 10 THEN
41		41
42	FOR usiChannel := 0 TO 0 DO	42	FOR usiChannel := 0 TO 0 DO
43	aby[0] := 1;	43	aby[0] := 16#FF;
44	aby[1] := 0;	44	aby[1] := 16#FF;
45	aby[2] := 0;	45	aby[2] := 16#FF;
46	aby[3] := 0;	46	aby[3] := 16#FF;
47		47
48	IF NOT transfer(pabyTxBuffer:=ADR(aby) , pabyRxBuffer:=ADR(aby) , udiLen:=4 , uiDelayus:=0) THEN	48	IF NOT transfer(pabyTxBuffer:=ADR(aby) , pabyRxBuffer:=ADR(aby) , udiLen:=4 , uiDelayus:=0) THEN
49	_iState := 1000;	49	_iState := 1000;
50	END_IF	50	END_IF
51		51