
Originally Posted by
hcip
you can make your own script than to ask members who have ready to use script,
There is a lot of examples here, just an imagination and a simple calculation and you will be learn little by little, the others will not grab your knowledge from you
as for example below, the instruction is for Toyota denso
just to improve it and you can make it with your own
/// ****************** Denso Code *************** //
procedure NewKM;
var
n3,n2,new_KM: integer;
n1,code,n4: String;
begin
SetProgramModifiedOnly( true );
if InBox( 'Enter KM', 'New KM',code ) then begin
if length( code ) >6 then begin
if MsgBox( 'Out of Range', 'Error', MB_RETRYCANCEL ) = IDRETRY then begin
NewKM;
end;
exit;
end;
/// *******CALCULATION ************** //
new_km:= (strtoint(code)+1000000);
n1 := '$' +inttostr(new_KM);
n2 := strtoint(n1);
n3 := $FFFFFFF - (n2);
n4 := inttohex(n3,2);
// ******* END of CALCULATION *********//
//********* OFFSETS *********///
SetByteHexEdit( $A,(strtoint ('$'+n4[2]+n4[3])));
SetByteHexEdit( $9,(strtoint ('$'+n4[4]+n4[5])));
SetByteHexEdit( $8,(strtoint ('$'+n4[6]+n4[7])));
end;
Bookmarks