ETSmart script!

[Rerouter]

Good to see people getting familar with this stuff still, If anyone wants help writing there own scripts, I can assist (Literally wrote the guide on this stuff),

Perun main thing I would say is use consistant indentation, makes things easier to maintain, you know your free to change the messages up to your own native language if your more comfortable with that, anything in quotation marks can be safely changed without any risk. all of it was in russian before I re-wrote those templates

Also the milage can get above your max value, but you need to find some high milage dumps to resolve the why

[zckariya70]

Good to see people getting familar with this stuff still, If anyone wants help writing there own scripts, I can assist (Literally wrote the guide on this stuff),

Perun main thing I would say is use consistant indentation, makes things easier to maintain, you know your free to change the messages up to your own native language if your more comfortable with that, anything in quotation marks can be safely changed without any risk. all of it was in russian before I re-wrote those templates

Also the milage can get above your max value, but you need to find some high milage dumps to resolve the why

Happy to see u again ,Welcome back to DK ..................

[ElectroRadar]

Good morning, everyone, can you help me make a mileage calculator to modify the odometer of a 2009 ford lobo with eeprom 24c16

[jomberykaso]

Good morning, everyone, can you help me make a mileage calculator to modify the odometer of a 2009 ford lobo with eeprom 24c16

2396xx kms?

[ElectroRadar]

If this is but it is in miles your answer is approximately 239677 miles

Can you help me with the calculation please to be able to modify this value

[Rerouter]

Usually Visteon 128 Algo, 0x798-7AB, so you should just have to tweak the start and stop locations of an existing visteon script.

Technically the same as a F150 calc,

And yes 239667 is the value in that file.

[ElectroRadar]

Do you know where I can get this scrip for the f150 2009 and please

[toastedsiopao]

Here you go, easy as pie

I am making one for Fortuner/Hilux Innova 2016 and up, is there a need for checksum so no freezing?

[ElectroRadar]

Can you help me calculate this script, it does not give me the mileage and it does not modify it either, it gives me other values



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

Procedure ReadKM;

begin
AddMsg('F150-Lobo km');
Code_1:=inttohex(GetByteHexEdit($798),2)+inttohex( GetByteHexEdit($799),2);
Delete(Code_1,1,1);
Code:=IntToStr(StrToInt('$'+ Code_1)*128)
AddMsg('KILOMETRAJE ACTUAL: '+ Code+' km');

MsgBox('KILOMETRAJE ACTUAL: '+ Code+' km', 'KM ACTUAL', MB_OK);
end;


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

begin
SetProgramModifiedOnly( true );
if InBox( 'CAMBIA EL KM', 'ESCRIBE EL KM DESEADO', 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:= (16384 xor(n/128));

n1:= IntToHex(new_KM,4);


SetByteHexEdit( $798,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $799,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $79C,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $79D,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7A1,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7A2,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7A4,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7A5,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7A8,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7A9,(strtoint ('$'+n1[1]+n1[2])));

RefreshHexEdit;
if MsgBox( 'PROGRAMAR?', 'CONFIRMAR', MB_YESNO ) = IDYES then begin
SetProgramModifiedOnly( true );
ProgramDevice;
VerifyDevice;
ReadKM;
end;

end;




begin

AddDeviceGroup( 'FORD ', 'SELECCIONAR' );
AddDevice('F150 2009', '24C16', 'FORD ', '24C16' );
AddAction( 'Read KM', 'ReadKM', 'F150 2009' );
AddAction( 'New KM', 'NewKM', 'F150 2009' );




end.

[perun750]

Try this one.

[ElectroRadar]

I thank you but this file as I execute it I use scrip for upa

[Rerouter]

Electroradar, as I am not as familiar with UPA's scripts syntax (believe its based on BASIC), if you could translate it to something closer to C Language or psudo code, I can help go over it,

At a minimim it looks like its missing stuff, both from the read and expecially from the write,

From the text its for a F150 24C16, that should be a Visteon 128 algorithm the 798-7AB variant,

If you take a look at what perun supplied, with the big 3 stage lookup table at the end, that is something your going to need to translate to properly set these files within 1500km of what you type in, for ETSmart Scripts, everything after OnShow is the read section, everything after OnApply is the write section. Implementing this will get you within atleast 128km or 64km depending how you implement it, There is more to be done if your willing to work it out to get it to 1km, or to read / write higher than about 200,000km

Edit, for the read, I can atleast give a rundown of what is supposed to happen. Take 0x798, shift it left by 4 (or times by 16, for the same result), then add that to the 0x799, right shifted by 4, then anded with 0xF

[ElectroRadar]

Le agradezco su interés Redirior no estoy familiarizado con este programa ETS, se ve que es muy bueno, estoy más basado en Pascal ya que Upa maneja diferentes formas de hacer algoritmos y lo que necesito es calcular más de 400.000 km que ocupo para aumentar el kilometraje y no para bajarlo pero los algoritmos no me dan para modificar bien el valor, el valor que lee el algoritmo está bien al cambiarlo hace que sea incorrecto.


Ahora si quería que el valor se diera en Km ya que este valor se da en Mile y ocupo que el resultado está en km. Gracias, ya entendí el guión de ETSmart y logré hacer el guión para Ford Lobo 2009 con eeprom 24C16, también adjuntar la conversión de millas a kilómetros, así que ahora lees kilómetros y escribes kilómetros, saludos a todos y gracias por las sugerencias posteriores intentaré continuar con el scrip upa


F150.jpg

[zckariya70]

[QUOTE=ElectroRadar;4077516]Le agradezco su interés Redirior no estoy familiarizado con este programa ETS, se ve que es muy bueno, estoy más basado en Pascal ya que Upa maneja diferentes formas de hacer algoritmos y lo que necesito es calcular más de 400.000 km que ocupo para aumentar el kilometraje y no para bajarlo pero los algoritmos no me dan para modificar bien el valor, el valor que lee el algoritmo está bien al cambiarlo hace que sea incorrecto.


Ahora si quería que el valor se diera en Km ya que este valor se da en Mile y ocupo que el resultado está en km. Gracias, ya entendí el guión de ETSmart y logré hacer el guión para Ford Lobo 2009 con eeprom 24C16, también adjuntar la conversión de millas a kilómetros, así que ahora lees kilómetros y escribes kilómetros, saludos a todos y gracias por las sugerencias posteriores intentaré continuar con el scrip upa


F150.jpg[/QU





Ask ur solution in only english , Not in other language...........

[ElectroRadar]

Good morning zckariya70 I published the solution in Spanish because I am from Mexico but if any member occupies that I explain it in English or will occupy it in English I will gladly support you in the solution in English greetings and thanks for the help greetings from MEXICO