Hope - бесплатня программа для диагностики хонд Опции

Я в тол не возьму какие нолики, напиши сюда логи какие нибудь хотябы

Я в тол не возьму какие нолики, напиши сюда логи какие нибудь хотябы

Я жаль не заскриншетил...Точно кодыне припомню...

Ну типа вот так:
С 4пина:
18-09-2011 19:55:50 ______PC-->ECU:20 05 76 0A 5B
18-09-2011 19:55:51 ______ECU-->PC:20 05 00 10 CB
18-09-2011 19:55:51 ______ECU-->PC:20 05 00 10 CB
18-09-2011 19:55:51 ______ECU-->PC:20 05 00 10 CB
С 5пина:
18-09-2011 19:55:50 ______PC-->ECU:20 05 76 0A 5B
18-09-2011 19:55:51 ______ECU-->PC:00 00 00 00 CB
18-09-2011 19:55:51 ______ECU-->PC:00 00 00 00 CB
18-09-2011 19:55:51 ______ECU-->PC:00 00 00 00 CB

И как бы молчит ...

ну, так просто не отвечает мозг и все, пин то правильный подключаешь?

ну, так просто не отвечает мозг и все, пин то правильный подключаешь?

Да подключал прально. Может подтяжка +12 многовато? как думаешь?
Как разобраться?

у меня на 12в не робит.

у меня на 12в не робит.

Да? Ну хоть чуток меня обнадежил. Сегодня доработал свой адаптер на переключение напряжения
подтяжки +12 и +5(которого не было). Свою коннектил на +12В , хотя сомневался. А вот друга
Аккорд и не захотел обмен данными на +12В, возможно из-за этого. Завтра постараюсь испытат ,
результат отпишу.
Кстати хотел узнать -возможно и ОБДтул у меня и не коннектился из-за +12???

не скачивается .

на первой странице добавил ссылку на зеркало.

Скажите а подойдет программа для хонда партнер 1997года?

как много ответов!!!!!!!!!!!!!!!!!!!!!!Всем большое спасибо....................

Сообщение отредактировал zorro81 - 12.10.11 - 04:19

Попробуй, должна работать.

to Mayhem:
Хочу использовать твой просмоторщик для своей приблуды (БК на базе КПК). Как записывать байты - я понял из логов, что первые 3 байта означают - это тоже понятно....Не пойму, что значит 4-ый байт, и почему у него разница с предыдущим значением 22-23??? Это типа время между записями пакетов?? Шаг?? Объясни, плиз.

блин, я уж и сам не помню)) ща гляну.

это миллисекуды делёные на 200.
вот процедура чтения файла:

Содержание:

Код

procedure TForm1.LoadLogClick(Sender: TObject);
var
  LogFile:file of byte;
  Buffer: array [0..$6F] of byte;
  t: array [0..3] of byte;
  NowT:dword;
  i,j,k:dword;
begin
  OpenDialog1.Execute; //запускаем диалог
  Form1.Caption:='Просмотр логов HondaLogger '+OpenDialog1.FileName;
  AssignFile(LogFile, OpenDialog1.FileName); //ассоциируем файл с областью памяти
  Reset(LogFile); //открываем файл для чтения/записи
  setlength(index,filesize(logfile) div $74);
  setlength(AllValues,length(index),Data.FormulasCout);
  setlength(FullBuffer,length(index),$70);
  Scroll.Max:=high(index);
  SpinEdit4.MaxValue:=high(index);
  SpinEdit4.Value:=1;
  SpinEdit5.MaxValue:=high(index);
  SpinEdit5.Value:=high(index);
  Scroll.Smooth:=false;
  Seek(LogFile,0);
  StringGrid2.RowCount:=length(index);
  for k:=0 to high(index) do begin
    BlockRead(LogFile,t,4); //читаем первые 4 байта
    NowT:=t[0]*3600*200+t[1]*60*200+t[2]*200+t[3]; //переводим байты во время
    index[k].TimeI:=NowT;
    index[k].TimeS:=inttostr(t[0])+':'+inttostr(t[1])+':'+inttostr(t[2]);
    BlockRead(LogFile,Buffer,$70); //читаем кадр (он всегда длинной 70 байт)
    move(Buffer[0],FullBuffer[k,0],$70); //дльше идёт обработка данных....
    for i:=0 to Data.FormulasCout-1 do begin
      for j:=0 to Data.Formulas[i].PeremsCout-1 do
        case Data.Formulas[i].Perems[j].Vid of
        0: begin
             if not Data.Formulas[i].Perems[j].bit then
               Data.Formuls[i].DS[j]:=Buffer[Data.Formulas[i].Perems[j].Offset]
             else
               Data.Formuls[i].DS[j]:=(Buffer[Data.Formulas[i].Perems[j].Offset] and (1 shl (Data.Formulas[i].Perems[j].bitnum - 1))) shr (Data.Formulas[i].Perems[j].bitnum - 1);
           end;
        1:  Data.Formuls[i].DS[j]:=Data.Formulas[Data.Formulas[i].Perems[j].ForNum].Value;
        2:  if (k>1) and (index[k].TimeI-index[k-1].TimeI<200) then
                Data.Formuls[i].DS[j]:=(index[k].TimeI-index[k-1].TimeI)/200
              else Data.Formuls[i].DS[j]:=1;
         end;
      Data.Formulas[i].Value:=Data.Formuls[i].proc;
      AllValues[k,i]:=Data.Formulas[i].Value;
     end;
    Scroll.Position:=k;
   end;
  Index[0].TimeI:=Index[1].TimeI;
  CloseFile(LogFile);
  DrawTime;
  Scale:=0.2;
  GridSize.Caption:=IntToStr(Round(500/Scale))+' мс';
  reDraw;
  Scroll.Position:=DeltaInd;
  Scroll.Smooth:=true;
  reDraw;
end;

не забудь, для просмоторщика нужен заполненный конфиг.

Сообщение отредактировал Mayhem - 14.10.11 - 14:38

Приветствую всех форумовчан!!! Я на форуме недавно!!! У меня такой вопрос: подойдет ли такой k-line адаптер на микросхемах КР1006ВИ1 к предложенному програмному обеспечению? Какие драйвера подойдут?
Вот, собственно здесь схема:
http://www.autoelectric.ru/diagnostic/adapters/adapters.htm

подойдет ли такой k-line адаптер

Там-же написано, что это K-L-line адаптер...?

Я имею ввиду на счет совместимости? И какие драйвера?

Тебе нижняя половина схемы не нужна, зачем усложнять? Четыре микросхемы, ты плату травить собрался? Возми шнурок от телефона, дешевле будет. Проверено работает... upd: причём по usb, а в твоём адаптере com...

Сообщение отредактировал Шурик - 14.10.11 - 18:37

Спасибо за помощь!!!

это миллисекуды делёные на 200.
вот процедура чтения файла:

Содержание:

Код

procedure TForm1.LoadLogClick(Sender: TObject);
var
  LogFile:file of byte;
  Buffer: array [0..$6F] of byte;
  t: array [0..3] of byte;
  NowT:dword;
  i,j,k:dword;
begin
  OpenDialog1.Execute; //запускаем диалог
  Form1.Caption:='Просмотр логов HondaLogger '+OpenDialog1.FileName;
  AssignFile(LogFile, OpenDialog1.FileName); //ассоциируем файл с областью памяти
  Reset(LogFile); //открываем файл для чтения/записи
  setlength(index,filesize(logfile) div $74);
  setlength(AllValues,length(index),Data.FormulasCout);
  setlength(FullBuffer,length(index),$70);
  Scroll.Max:=high(index);
  SpinEdit4.MaxValue:=high(index);
  SpinEdit4.Value:=1;
  SpinEdit5.MaxValue:=high(index);
  SpinEdit5.Value:=high(index);
  Scroll.Smooth:=false;
  Seek(LogFile,0);
  StringGrid2.RowCount:=length(index);
  for k:=0 to high(index) do begin
    BlockRead(LogFile,t,4); //читаем первые 4 байта
    NowT:=t[0]*3600*200+t[1]*60*200+t[2]*200+t[3]; //переводим байты во время
    index[k].TimeI:=NowT;
    index[k].TimeS:=inttostr(t[0])+':'+inttostr(t[1])+':'+inttostr(t[2]);
    BlockRead(LogFile,Buffer,$70); //читаем кадр (он всегда длинной 70 байт)
    move(Buffer[0],FullBuffer[k,0],$70); //дльше идёт обработка данных....
    for i:=0 to Data.FormulasCout-1 do begin
      for j:=0 to Data.Formulas[i].PeremsCout-1 do
        case Data.Formulas[i].Perems[j].Vid of
        0: begin
             if not Data.Formulas[i].Perems[j].bit then
               Data.Formuls[i].DS[j]:=Buffer[Data.Formulas[i].Perems[j].Offset]
             else
               Data.Formuls[i].DS[j]:=(Buffer[Data.Formulas[i].Perems[j].Offset] and (1 shl (Data.Formulas[i].Perems[j].bitnum - 1))) shr (Data.Formulas[i].Perems[j].bitnum - 1);
           end;
        1:  Data.Formuls[i].DS[j]:=Data.Formulas[Data.Formulas[i].Perems[j].ForNum].Value;
        2:  if (k>1) and (index[k].TimeI-index[k-1].TimeI<200) then
                Data.Formuls[i].DS[j]:=(index[k].TimeI-index[k-1].TimeI)/200
              else Data.Formuls[i].DS[j]:=1;
         end;
      Data.Formulas[i].Value:=Data.Formuls[i].proc;
      AllValues[k,i]:=Data.Formulas[i].Value;
     end;
    Scroll.Position:=k;
   end;
  Index[0].TimeI:=Index[1].TimeI;
  CloseFile(LogFile);
  DrawTime;
  Scale:=0.2;
  GridSize.Caption:=IntToStr(Round(500/Scale))+' мс';
  reDraw;
  Scroll.Position:=DeltaInd;
  Scroll.Smooth:=true;
  reDraw;
end;

не забудь, для просмоторщика нужен заполненный конфиг.

Спасибо, дружище!