Insignia bsi mileage

[milesbetteroff]

Hi guys is anyone here able to adjust bsi mileage on an insignia and not have to do dash I beleave it is possible I will post bsi dump and see if it is possible here's hoping cheers

[paul_mike]

do you have 71703 km now ?
if yes what value do you need

paul

[milesbetteroff]

Miles are correct need 31382 km or 19500 miles cheers mate

[z786]

you only have to do bsi, not the dash

problem is i havnt got a spare 24c eep to adjust your dump sorry

mayb paul will do it

[rcvantonio]

There has since eprom is, but I guess it's a 24C16, if so try this file.
Greetings

[drpeter]

There has since eprom is, but I guess it's a 24C16, if so try this file.
Greetings

So algo = km X 4 HEX X10 ?

[exe123]

km * 64 ->hex

[drpeter]

km * 64 ->hex


LOL that was too easy :-)

[PremierD]

Yes mate it was ...lol

[milesbetteroff]

Thanks to everyone and yes it's easy when you know how!!!!!!!!

[velik?mbe]

me insignia airbag dump need help nested thank you

[bilim]

Many thanks for sharing a special message for the calculation of

[bilim]

tachosof opel antara ecu

[polat]

hi help help help scrpt

Program Prog1;
var
Code,Code_1: string;
KM: Integer;


Procedure ReadKM;
begin
if not ReadDevice then
begin
MsgBox( 'Read Error', 'Error', MB_OK );
end
else
begin
AddMsg('opel bcu24C16');

Code_1:=inttohex(GetByteHexEdit($160),2)+inttohex( GetByteHexEdit($f0),2);
KM:=(( 65535 -strtoint('$'+Code_1))*64);
AddMsg('Actual value' + ' = '+ IntToStr(KM)+' km');
MsgBox(IntToStr(KM) +' km', 'Actual value', MB_OK);
end;
end;

procedure NewKM;
var
n,new_KM: integer;
n1: String;

begin
SetProgramModifiedOnly( true );
if InBox( 'Enter KM', 'New KM', code ) then begin

end;
if StrToInt( code )> 999999 then begin
MsgBox( 'Enter 000001-999999 Code', 'Error', MB_OK );
exit;
end;
n := StrToInt( code );
new_KM:= (65535-(n*64));
n1:= IntToHex(new_KM,6);

SetByteHexEdit( $F7,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $F8,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $F9,(strtoint ('$'+n1[1]+n1[2])));
setBytehexedit( $166,(strtoint('$'+n1[5]+n1[6])));
setBytehexedit( $167,(strtoint('$'+n1[3]+n1[4])));
setBytehexedit( $168,(strtoint('$'+n1[1]+n1[2])));
setBytehexedit( $1c4,(strtoint('$'+n1[5]+n1[6])));
setBytehexedit( $1c5,(strtoint('$'+n1[3]+n1[4])));
setBytehexedit( $1c6,(strtoint('$'+n1[1]+n1[2])));
RefreshHexEdit;
if MsgBox( 'Program?', 'Confirm', MB_YESNO ) = IDYES then begin
SetProgramModifiedOnly( true );
ProgramDevice;
VerifyDevice;
ReadKM;
end;

end;



begin
AddDeviceGroup( 'opel', 'Select a car' );
AddDevice('astra bcu24C16', '24C16', 'opel', '24C16' );
AddAction( 'Read KM', 'ReadKM', 'astra bcu24C16' );
AddAction( 'New KM', 'NewKM', 'astra bcu24C16' );
AddMsg('Script (astra bcu24C16.uds) Installed '#169' 2011 polat ');
SetProductInfo( 'astra bcu24C16', 'Device Script'#$D'Copyright'#169' polat 2011' );
end.

[MCNexo94]

hi help help help scrpt

Program Prog1;
var
Code,Code_1: string;
KM: Integer;


Procedure ReadKM;
begin
if not ReadDevice then
begin
MsgBox( 'Read Error', 'Error', MB_OK );
end
else
begin
AddMsg('opel bcu24C16');

Code_1:=inttohex(GetByteHexEdit($160),2)+inttohex( GetByteHexEdit($f0),2);
KM:=(( 65535 -strtoint('$'+Code_1))*64);
AddMsg('Actual value' + ' = '+ IntToStr(KM)+' km');
MsgBox(IntToStr(KM) +' km', 'Actual value', MB_OK);
end;
end;

procedure NewKM;
var
n,new_KM: integer;
n1: String;

begin
SetProgramModifiedOnly( true );
if InBox( 'Enter KM', 'New KM', code ) then begin

end;
if StrToInt( code )> 999999 then begin
MsgBox( 'Enter 000001-999999 Code', 'Error', MB_OK );
exit;
end;
n := StrToInt( code );
new_KM:= (65535-(n*64));
n1:= IntToHex(new_KM,6);

SetByteHexEdit( $F7,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $F8,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $F9,(strtoint ('$'+n1[1]+n1[2])));
setBytehexedit( $166,(strtoint('$'+n1[5]+n1[6])));
setBytehexedit( $167,(strtoint('$'+n1[3]+n1[4])));
setBytehexedit( $168,(strtoint('$'+n1[1]+n1[2])));
setBytehexedit( $1c4,(strtoint('$'+n1[5]+n1[6])));
setBytehexedit( $1c5,(strtoint('$'+n1[3]+n1[4])));
setBytehexedit( $1c6,(strtoint('$'+n1[1]+n1[2])));
RefreshHexEdit;
if MsgBox( 'Program?', 'Confirm', MB_YESNO ) = IDYES then begin
SetProgramModifiedOnly( true );
ProgramDevice;
VerifyDevice;
ReadKM;
end;

end;



begin
AddDeviceGroup( 'opel', 'Select a car' );
AddDevice('astra bcu24C16', '24C16', 'opel', '24C16' );
AddAction( 'Read KM', 'ReadKM', 'astra bcu24C16' );
AddAction( 'New KM', 'NewKM', 'astra bcu24C16' );
AddMsg('Script (astra bcu24C16.uds) Installed '#169' 2011 polat ');
SetProductInfo( 'astra bcu24C16', 'Device Script'#$D'Copyright'#169' polat 2011' );
end.


Hi mister you script not work i'am testing no work.
i am test and converte in X64 is work... please repair your script.