UPA Script - Correção de KM S10 e Vectra

[👷 admin]

program Prog1;
var
  Code, Code_1: string;
  KM: Integer;
procedure ReadKM;
begin
  if not ReadDevice then
  begin
    MsgBox('Read Error', 'Error', MB_OK);
  end
  else
  begin
    AddMsg('Chevrolet 93C66');
    Code_1 := inttohex(GetByteHexEdit($1F1), 2) + inttohex(GetByteHexEdit($1F0), 2);
    KM := ((65535 - strtoint('$' + Code_1)) * 16);
    AddMsg('Kilometragem Atual' + ' = ' + IntToStr(KM) + ' km');
    MsgBox(IntToStr(KM) + ' km', 'KM Atual', MB_OK);
  end;
end;

procedure NewKM;
var
  n, new_KM: integer;
  n1: string;
begin
  SetProgramModifiedOnly(true);
  if InBox('Digite KM', 'Nova KM', code) then
  begin
  //nada
  end;
  if StrToInt(code) > 999999 then
  begin
    MsgBox('Valor entre 000001-999999', 'Erro', MB_OK);
    exit;
  end;

  n := StrToInt(code);
  new_KM := (65535 - (n / 16));
  n1 := IntToHex(new_KM, 4);
  SetByteHexEdit($1F0, (strtoint('$' + n1[3] + n1[4])));
  SetByteHexEdit($1F1, (strtoint('$' + n1[1] + n1[2])));
  SetByteHexEdit($1F2, (strtoint('$' + n1[3] + n1[4])));
  SetByteHexEdit($1F3, (strtoint('$' + n1[1] + n1[2])));
  SetByteHexEdit($1F4, (strtoint('$' + n1[3] + n1[4])));
  SetByteHexEdit($1F5, (strtoint('$' + n1[1] + n1[2])));
  SetByteHexEdit($1F6, (strtoint('$' + n1[3] + n1[4])));
  SetByteHexEdit($1F7, (strtoint('$' + n1[1] + n1[2])));
  SetByteHexEdit($1F8, (strtoint('$' + n1[3] + n1[4])));
  SetByteHexEdit($1F9, (strtoint('$' + n1[1] + n1[2])));
  SetByteHexEdit($1FA, (strtoint('$' + n1[3] + n1[4])));
  SetByteHexEdit($1FB, (strtoint('$' + n1[1] + n1[2])));
  SetByteHexEdit($1FC, (strtoint('$' + n1[3] + n1[4])));
  SetByteHexEdit($1FD, (strtoint('$' + n1[1] + n1[2])));
  SetByteHexEdit($1FE, (strtoint('$' + n1[3] + n1[4])));
  SetByteHexEdit($1FF, (strtoint('$' + n1[1] + n1[2])));

  RefreshHexEdit;
  if MsgBox('Programar?', 'Confirme', MB_YESNO) = IDYES then
  begin
    SetProgramModifiedOnly(true);
    ProgramDevice;
    VerifyDevice;
    ReadKM;
  end;
end;

begin
  AddDeviceGroup('APLICAÇÃO ODÔMETRO', 'Select a car');
  AddDevice('VECTRA PAINEL 93C66', '93C66', 'APLICAÇÃO ODÔMETRO', '93C66 x16');
  AddAction('Read KM', 'ReadKM', 'VECTRA PAINEL 93C66');
  AddAction('New KM', 'NewKM', 'VECTRA PAINEL 93C66');

  AddDeviceGroup('APLICAÇÃO ODÔMETRO', 'Select a car');
  AddDevice('S10 PAINEL 93C66', '93C66', 'APLICAÇÃO ODÔMETRO', '93C66 x16');
  AddAction('Read KM', 'ReadKM', 'S10 PAINEL 93C66');
  AddAction('New KM', 'NewKM', 'S10 PAINEL 93C66');
  AddMsg('GM - S10 & VECTRA - Installed '#169' 2020 FÓRUM MSBIG - www.msbig.net');
  SetProductInfo('Sample1', 'Device Script Example'#$D'Copyright'#169' 2020 FÓRUM MSBIG - www.msbig.net');
end.
Pascal
Copy