программирование PIC

[Lex_DJ]

кто нибудь откликнитесь. Может моя тема кому нибудь интересна, может кто сможет помочь.....

[bopohok]

кто нибудь откликнитесь. Может моя тема кому нибудь интересна, может кто сможет помочь.....

Чем помочь? Спеть или станцевать ? Можете более подробно сказать в чём именно заключается ваша проблема?

[Lex_DJ]

проблемма такая: https://kazus.ru/forum/topics/7355.html. Тема по поводу программы для программатора. Обсуждать начали, но до конца не дошли. Я переписал все что было, но так ни чего не получается.

procedure tform1.LPTClk(Cl:integer);
  begin
    if cl=1 then
      begin
      if pin3=false then
      buttonpin3;
      end
    else
      begin
      if pin3=true then
      buttonpin3
      end;
  end;

procedure tform1.LPTMklr;
  begin
  if not pin12=false then
  begin
    if (pin5=true) and (pin6=false) then
        begin
        buttonpin5;
        buttonpin6;
        end
    else
    if (pin5=false) and (pin6=false) then
        buttonpin6
    else
    if (pin5=true) and (pin6=true) then
    buttonpin5;
  end
  else
  begin
  LPTReset;
  MessageDlg('Регистр MKLR не готов, попробуйте ещё раз', mtError, [mbOK], 0);
  end;
  if pin2=false then
  buttonpin2;
  end;

procedure tform1.LPTPwd;
  begin
  if pin2=true then
  buttonpin2;
  if pin6=false then
  buttonpin6;
  end;

procedure tform1.sendcmd_to_chip(cmd:integer);
var
  i:integer;
  g:integer;
  begin
  LPTMklr;
  lpt.Delay(5);
  LPTPwd;
    if pin4=true then
       buttonpin4;
    for i:=0 to 5 do
    begin
      LPTClk(1);
      g:= (cmd shr i) and 1;
      lpt.WritePort(GetCurrentPort, LPT_DATA_REG, g);
      lpt.Delay(10);
      LPTClk(0);
    end;
  end;

function tform1.readdata_from_chip: integer;
var
  i:integer;
  bit:integer;
  dt:integer;
  begin
      if pin4=false then
      buttonpin4;
      dt:=0;
      for i:=0 to 15 do
        begin
        LPTClk(1);
        lpt.Delay(5);
        bit:=lpt.ReadPort(GetCurrentPort, ack);
        dt:=dt + (bit shl i);
        LPTClk(0);
        end;
  readdata_from_chip:=(dt shr 1);
  end;
procedure TForm1.ReadBtnClick(Sender: TObject);
var
  firstadr, lastadr:word;
  k:Cardinal;
  l:Longint;
  data:dword;
begin
    LPTReset;
    firstadr:=0;
    lastadr:=$3FF;
    k:=(lastadr-firstadr+1);
    for l:=1 to k do
    begin
    sendcmd_to_chip(4);
    data:=readdata_from_chip;
    HexGrid1.AData[l-1]:=data and $FF;
    sendcmd_to_chip(6);
    end;
    HexGrid1.Repaint;
end;

После нажатия на кнопку небольшая пауза, после чего HexGrid заполняется числами 11111101. И всё. Не могу понять, почему. Если сможете, помогите. Заранее спасибо.

[CERGEI1982]

Это какой язык?

[vdlab]

Это какой язык?

Это Delphi.

Кстати, какой компонент используется для работы с LPT?
И не ленитесь писать коментарии.

[Lex_DJ]

Использую драйвер LPTIO.
Отправляю команду МК.
procedure tform1.sendcmd_to_chip(cmd:integer);
var
i:integer;
g:integer;
begin
LPTMklr;
lpt.Delay(5);
LPTPwd;
if pin4=true then (направление ШД, 0-передача)
buttonpin4;
Цикл 6-ти битного слова
for i:=0 to 5 do
begin
LPTClk(1);
Загружаю побитно на pin2(data0) управляющее слово.
g:= (cmd shr i) and 1;
lpt.WritePort(GetCurrentPort, LPT_DATA_REG, g);
lpt.Delay(10); (задержка)
LPTClk(0);
end;
end;

function tform1.readdata_from_chip: integer;
var
i:integer;
bit:integer;
dt:integer;
begin
if pin4=false then (направление ШД, 1-прием)
buttonpin4;
dt:=0;
for i:=0 to 15 do
begin
LPTClk(1);
lpt.Delay(5);
Присваиваю bit-у прочитанное из ACK
bit:=lpt.ReadPort(GetCurrentPort, ack);
dt:=dt + (bit shl i);
LPTClk(0);
end;
Читаю все слова
readdata_from_chip:=(dt shr 1);
end;
procedure TForm1.ReadBtnClick(Sender: TObject);
var
firstadr, lastadr:word;
k:Cardinal;
l:Longint;
data:dword;
begin
LPTReset;
firstadr:=0;
lastadr:=$3FF;
k:=(lastadr-firstadr+1);
for l:=1 to k do
begin
sendcmd_to_chip(4);(отправляю команду на чтение- 101000)
data:=readdata_from_chip;
HexGrid1.AData[l-1]:=data and $FF;(вставл.в Grid)
sendcmd_to_chip(6);(отправляю инкремент-011000)
end;
HexGrid1.Repaint;
end;
Прикладываю файлы, которые мне дали, может помогут как нибудь.
Спасибо.

Прикрепленный файл: 5436919.rar

[dini]

может кто подскажет, как программируется pic16f819 через понипрог

[yellow87]

Регистр FSR является указателем на регистры общего назначения.
Если я в него запишу 0х20 то при команде CLRF INDF обнулится регистр расположенный по этому адресу.
А мне нужна команда, которая делает так:
GOTO ‹переменная-указатель на ячейку памяти›
Эта переменная в программе будет много раз меняться.
Нужно чтобы и прыжок выполнялся на разные места.
Научите, кто знает.

[yellow87]

Вот всегда так: только задашь вопрос, а ответ тутже в голову придёт!
Команда GOTO ‹адрес› только один раз записывается в память программ и менять её в памяти не получиться.
Нужно в PCL записывать значение той переменной, которая в программе меняется!