+- 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]