Fóruns
UPA Script - Leitura Senha Sandero - Versão de Impressão

+- Fóruns (https://www.msbig.net)
+-- Fórum: Grupo Leves (https://www.msbig.net/forumdisplay.php?fid=28)
+--- Fórum: Renault (https://www.msbig.net/forumdisplay.php?fid=116)
+---- Fórum: Eletrônica Embarcada (https://www.msbig.net/forumdisplay.php?fid=118)
+----- Fórum: Painel (https://www.msbig.net/forumdisplay.php?fid=240)
+----- Tópico: UPA Script - Leitura Senha Sandero (/showthread.php?tid=3225)



UPA Script - Leitura Senha Sandero - admin - 16-07-2020

program Prog1;
var code: string;

procedure ReadCode;
begin
  if not ReadDevice then
  begin
    MsgBox('Erro de Leitura', 'Erro', MB_OK);
  end
  else
  begin
    Code := inttohex(GetByteHexEdit($142), 2) +
      inttohex(GetByteHexEdit($1A5), 2) +
      inttohex(GetByteHexEdit($1C2), 2) +
      inttohex(GetByteHexEdit($141), 2) +
      inttohex(GetByteHexEdit($1C1), 2) +
      inttohex(GetByteHexEdit($1A4), 2);
    MsgBox(Code, 'Code www.msbig.net', MB_OK or MB_ICONINFORMATION);
  end;
end;

begin
  AddDeviceGroup('APLICAÇÃO RENAULT', 'Select a Device');
  AddDevice('SANDERO - UCH 95040', 'ST95040', 'APLICAÇÃO RENAULT', 'ST95040');
  AddAction('LER SENHA', 'ReadCode', 'SANDERO - UCH 95040');
  AddOpenFileAction('Ver Foto', 'SANDERO - UCH 95040', 'i16.jpg');
  AddMsg('RENAULT - SANDERO - UCH 95040 - 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.

Esquema de Ligação:[attachment=3129]