+- Fóruns (https://www.msbig.net)
+-- Fórum: Grupo Leves (https://www.msbig.net/forumdisplay.php?fid=28)
+--- Fórum: Chevrolet - GM - Opel (https://www.msbig.net/forumdisplay.php?fid=76)
+---- Fórum: Eletrônica Embarcada (https://www.msbig.net/forumdisplay.php?fid=78)
+----- Fórum: IMMO/Decode/Reset (https://www.msbig.net/forumdisplay.php?fid=162)
+----- Tópico: UPA Script - Leitura Caixinha Opel 2 (/showthread.php?tid=3219)
UPA Script - Leitura Caixinha Opel 2 - 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($85),2)+inttohex(GetByteHexEdit($86),2);
MsgBox( Code, 'Code www.msbig.net', MB_OK or MB_ICONINFORMATION );
end;
end;
begin
AddDeviceGroup( 'APLICAÇÃO GM', 'Select a Device' );
AddDevice( 'CAIXINHA OPEL2', 'TMS370Cx02', 'APLICAÇÃO GM', 'TMS370Cx02');
AddAction( 'Read Code', 'ReadCode', 'CAIXINHA OPEL2' );
AddOpenFileAction( 'Ver Foto', 'CAIXINHA OPEL2', 'i02.jpg' );
AddMsg('GM - CAIXINHA OPEL2 TMS370Cx02 - Installed '#169' 2020 MSBig - www.msbig.net');
SetProductInfo( 'Sample1', 'Device Script Example'#$D'Copyright'#169' 2020 MSBig - www.msbig.net' );
end.