UPA Script - Leitura Caixinha Opel 2

[👷 admin]

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.