16-07-2020, 12:50:10
Atenção: Esse Script deve ser utilizado apenas para correção de KM em troca de painel.
Program Prog1;
var
Code,Code_1: string;
KM: Integer;
Procedure ReadKM;
begin
if not ReadDevice then
begin
MsgBox( 'Erro de Leitura', 'Erro', MB_OK );
end
else
begin
AddMsg('Celta');
Code_1 := inttohex(GetByteHexEdit($6F),2) + inttohex(GetByteHexEdit($6E),2);
KM:=((65535 - strtoint('$'+Code_1)) * 16);
AddMsg('KM 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( 'Entre com novo KM', 'Novo KM', code ) then begin
end;
if StrToInt(code) > 999999 then
begin
MsgBox( 'Digite valor entre 000001-999999', 'Erro', MB_OK );
exit;
end;
n := StrToInt( code );
new_KM:= (65535-(n/16));
n1:= IntToHex(new_KM,4);
SetByteHexEdit( $6E,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $6F,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $70,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $71,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $72,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $73,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $74,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $75,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $76,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $77,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $78,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $79,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7A,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7B,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7C,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7D,(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('CELTA PAINEL', '93S46', 'APLICAÇÃO ODÔMETRO', '93S46' );
AddAction( 'Read KM', 'ReadKM', 'CELTA PAINEL' );
AddAction( 'New KM', 'NewKM', 'CELTA PAINEL' );
AddOpenFileAction( 'Ver Foto', 'CELTA PAINEL', 'i04.jpg' );
AddMsg('GM - CELTA PAINEL KM 93S46 - Installed '#169' 2020 MSBig - www.msbig.net');
SetProductInfo( 'Celta', 'Device Script'#$D'Copyright'#169' 2020 MSBig - www.msbig.net' );
end.