Форум РадиоКот

Код: Выделить всё

  Lpt.WritePort(GetCurrentPort,LPT_DATA_REG,0); // SCK = 0 MOSI = 0 RESET = 0 VCC = 0. Везде нули
  VCC; // VCC = 1
  Delay(40); // ждем 40мс с запасом

  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  MOSI;
  SCK; // SCK = 1 MOSI = 1
  SCK; // SCK = 0
  SCK; // SCK = 1 MOSI = 1
  SCK; // SCK = 0
  MOSI;
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  MOSI;
  SCK; // SCK = 1 MOSI = 1
  SCK; // SCK = 0
  MOSI;
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  MOSI;
  SCK; // SCK = 1 MOSI = 1
  SCK; // SCK = 0


  SCK; // SCK = 1 MOSI = 1
  SCK; // SCK = 0
  SCK; // SCK = 1 MOSI = 1
  SCK; // SCK = 0
  MOSI;
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  MOSI;
  SCK; // SCK = 1 MOSI = 1
  SCK; // SCK = 0
  MOSI;
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  MOSI;
  SCK; // SCK = 1 MOSI = 1
  SCK; // SCK = 0
  MOSI;
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0


  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  Memo1.Lines.Add(MISO); // читаю что на ноге MISO
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  Memo1.Lines.Add(MISO); // читаю что на ноге MISO
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  Memo1.Lines.Add(MISO); // читаю что на ноге MISO
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  Memo1.Lines.Add(MISO); // читаю что на ноге MISO
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  Memo1.Lines.Add(MISO); // читаю что на ноге MISO
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  Memo1.Lines.Add(MISO); // читаю что на ноге MISO
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0 
  Memo1.Lines.Add(MISO); // читаю что на ноге MISO
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  Memo1.Lines.Add(MISO); // читаю что на ноге MISO


  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0
  SCK; // SCK = 1 MOSI = 0
  SCK; // SCK = 0

Код: Выделить всё

var
  spi_cmd: array [1..4] of byte;
  spi_out: array [1..4] of byte;

Код: Выделить всё

procedure TForm1.SPISend (spi_cmd : array of byte);
var
  cnt_byte, cnt_bit, pin: byte;
  temp_in, temp_out: string;
begin
  for cnt_byte:=1 to 4 do begin
    temp_in:= IntToBin(spi_cmd[cnt_byte],8);
    temp_out:= '';

    for cnt_bit:=8 downto 1 do begin
      if SCK_HIGH then SCK;

      if MOSI_HIGH then
        pin:= 1 else
        pin:= 0;

      if StrToInt(temp_in[cnt_bit]) <> pin then
        MOSI;

      SCK;  // 1, фронт импульса

      {Delay(10); // Длительность импульса}

      If MISO_HIGH then
        temp_out:= temp_out+'1' else
        temp_out:= temp_out+'0';

      SCK;  // 0, спад импульса
    end;

    spi_out[cnt_byte]:= BinToInt(temp_out);

  end;

end;

Код: Выделить всё

MISO_HIGH : boolean; // Возвращает true если на входе 1
MOSI_HIGH : boolean; // Возвращает true если на входе 1
SCK_HIGH : boolean; // Возвращает true если на входе 1

MISO,MOSI,SCK,VCC,RESET // Инвертирует значение на ножке. Если было 1 сделает 0 и наоборот.

Код: Выделить всё

  Lpt.WritePort(GetCurrentPort,LPT_DATA_REG,0); // SCK = 0 MOSI = 0 RESET = 0 VCC = 0
  VCC; // VCC = 1
  Delay(100);

  spi_cmd[1]:= $ac;
  spi_cmd[2]:= $53;
  spi_cmd[3]:= 0;
  spi_cmd[4]:= 0;

  SPISend(spi_cmd);

  if spi_out[3] <> $53 then
    Application.MessageBox('Синхронизация не прошла. Эхо не получено!','ERROR',MB_OK);