Svenska ElektronikForumet

Kod: Markera allt

FUNCTION SPI : INT
VAR_INPUT
	input: BOOL;
END_VAR
VAR
	// Räknare
	COUNT: INT;
	// Array tempBit
	tempBit: ARRAY [0..11] OF BOOL; 
	// Delay
	DELAY: TON;
	DELAY_Start: BOOL;
END_VAR
 


// OM CS är FALSE så börjar CLK ticka. 

IF input = FALSE THEN	
	// Sätt CS till FALSE.
	GVL.CS := input;
	// Skapa en räknare
	COUNT := 0;
	
	// Loppa 17 gånger
	WHILE COUNT <= 17 DO
		// Sätt CLK till FALSE.
		GVL.CLK := FALSE;
		
		IF COUNT = O THEN
			// Sätt MOSI till TRUE - Startbit
			GVL.MOSI := TRUE;
		ELSIF COUNT = 1 THEN
			// Sätt MOSI till TRUE - SGL/DIFF
			GVL.MOSI := TRUE;
		ELSIF COUNT = 2 THEN
			// Sätt MOSI till FALSE - D2
			GVL.MOSI := FALSE;
		ELSIF COUNT = 3 THEN
			// Sätt MOSI till FALSE - D1
			GVL.MOSI := FALSE;
		ELSIF COUNT = 4 THEN
			// Sätt MOSI till FALSE - D0
			GVL.MOSI := FALSE;
		ELSIF COUNT = 5 THEN
			// Utför inget
		ELSIF COUNT = 6 THEN
			// Null bit
			tempBit[0] := GVL.MISO;
		ELSIF COUNT = 7 THEN
			// B9
			tempBit[1] := GVL.MISO;
		ELSIF COUNT = 8 THEN
			// B8
			tempBit[2] := GVL.MISO;
		ELSIF COUNT = 9 THEN
			// B7
			tempBit[3] := GVL.MISO;
		ELSIF COUNT = 10 THEN
			// B6
			tempBit[4] := GVL.MISO;
		ELSIF COUNT = 11 THEN
			// B5
			tempBit[5] := GVL.MISO;
		ELSIF COUNT = 12 THEN
			// B4
			tempBit[6] := GVL.MISO;
		ELSIF COUNT = 13 THEN
			// B3
			tempBit[7] := GVL.MISO;
		ELSIF COUNT = 14 THEN
			// B2
			tempBit[8] := GVL.MISO;
		ELSIF COUNT = 15 THEN
			// B1
			tempBit[9] := GVL.MISO;
		ELSIF COUNT = 16 THEN
			// B0
			tempBit[10] := GVL.MISO;
		ELSIF COUNT = 17 THEN
			// Sätt CS som TRUE.
		    GVL.CS := TRUE;
		END_IF
		
		// Vänta 100 ms
		DELAY(IN := DELAY_Start, PT:= T#100MS); 
		// Sätt CLK till TRUE.
		GVL.CLK := TRUE;
		// Vänta 100 ms
		DELAY(IN := DELAY_Start, PT:= T#100MS); 
		
		// Räkna
		COUNT := COUNT + 1;
	END_WHILE
	
	// Nu är data mottaget. Räkna ut det nu!
	SPI := ASCII(tempBit);
END_IF

Kod: Markera allt

WORD Result;
Result = 0;
for(X = 0; X < 11; X++)
  {
  Clk = true;
  Result <<= 1;
  if(Din) Result++;
  Clk = false;
  }