PDA

View Full Version : MILEAGE OPEL ASTRA 2011


MEH
14th March, 2011, 07:42 PM
hi

can someone changes mileage in this dash please

this is a opel astra 2011 with 11746kms
eprom 95080

thanks
drpeter
14th March, 2011, 08:11 PM
hi

can someone changes mileage in this dash please

this is a opel astra 2011 with 11746kms
eprom 95080

thanks

You only need the change BCU, post dump 24C16 here.

Just heard that Astra BCU 2011 could have a 95160 eprom
I recieved the dumps, made a script and script is tested on car all ok. (25160)
niho
14th March, 2011, 10:14 PM
What is the Astra-H Classic or Astra-J ????
smartymarti
15th March, 2011, 08:28 AM
Astra h last shape astra j new shape
vforce
17th March, 2011, 09:48 PM
hi
where is the bcu in the motor or ???? please
thanks
smartymarti
17th March, 2011, 10:01 PM
Do a search for astra bcd location was covered in depth last few days
lari95400
17th March, 2011, 11:43 PM
hi

can someone changes mileage in this dash please

this is a opel astra 2011 with 12111kms

eeprom 25160

i want 3000kms

thank
vageric
18th March, 2011, 05:52 AM
hi

can someone changes mileage in this dash please

this is a opel astra 2011 with 12111kms

eeprom 25160

i want 3000kms

thank




look at post #2!!!
you only have to do the BCU!
Eight
18th March, 2011, 08:47 AM
Tell a result.
drpeter
21st March, 2011, 08:11 PM
hi

can someone changes mileage in this dash please

this is a opel astra 2011 with 12111kms

eeprom 25160

i want 3000kms

thank

Dump is ok....
gepakg
21st March, 2011, 08:34 PM
can somebody confirm that pin for this car is 9858?

regards Gepa


Dump is ok....
kareszka
21st March, 2011, 09:29 PM
can somebody confirm that pin for this car is 9858?

regards Gepa

It would be too simple?
vforce
21st March, 2011, 11:27 PM
thank you all
the dump is good of Eight (http://www.digital-kaos.co.uk/forums/members/86206-eight/)
polat
28th March, 2011, 08:49 AM
PLS HELP HELP PLS


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('ASTRA 24C16');

Code_1:=inttohex(GetByteHexEdit($1C0),2)+inttohex( GetByteHexEdit($160),2)+inttohex(GetByteHexEdit($F 0),2)
KM:=(( 65120 -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:= (65120-(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('ASTRA24C16', '24C16', 'OPEL', '24C16' );
AddAction( 'Read KM', 'ReadKM', 'ASTRA24C16' );
AddAction( 'New KM', 'NewKM', 'ASTRA24C16' );
AddMsg('Script (ASTRA24C16.uds) Installed '#169' 2010 DJMUNER');
SetProductInfo( 'ASTRA24C16', 'Device Script'#$D'Copyright'#169' DJMUNER 2010' );
end.
MCNexo94
22nd August, 2011, 11:09 PM
PLS HELP HELP PLS


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('ASTRA 24C16');

Code_1:=inttohex(GetByteHexEdit($1C0),2)+inttohex( GetByteHexEdit($160),2)+inttohex(GetByteHexEdit($F 0),2)
KM:=(( 65120 -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:= (65120-(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('ASTRA24C16', '24C16', 'OPEL', '24C16' );
AddAction( 'Read KM', 'ReadKM', 'ASTRA24C16' );
AddAction( 'New KM', 'NewKM', 'ASTRA24C16' );
AddMsg('Script (ASTRA24C16.uds) Installed '#169' 2010 DJMUNER');
SetProductInfo( 'ASTRA24C16', 'Device Script'#$D'Copyright'#169' DJMUNER 2010' );
end.


Hi mister Polat
you Script no work
bolonc
23rd August, 2011, 06:45 PM
Hi mister Polat
you Script no work
http://www.digital-kaos.co.uk/forums/f155/upa-usb-sample-script-wanted-121828/index45.html