UPA USB sample script wanted

[hcip]

Please upload in RAR there is a problem on ZIP file in this board

[DrugWash]

What operating sytem you are using?

Cannot open your attachment? it has an extension of *.SWF

Please try this.

[hcip]

I think there is a Problem, I still cannot open the attachment


if anybody can compile the attached script for me and post the *.XSCR file please help
I just want to know if the problem is about my PC or a bug from the software

Thanks in advance

[teerak2uk]

Please try this.

try this but Drugwash`s file opens for me fine

[gauch]

can you share script for Honda Pilot 2003?

my upa serial# 05F59F18

thanks

[kuti]

Hi Friends
I have simpe script which read some of byte mem with upa the problem is that I want to send result to other application written in delphi. How can I send result out of UPA script.
It could be some output file etc but what command use in upa to write txt file or ....other

[digimile]

hi HCIP
how r u
they post the .swf format file please try to open the file in internet explorer because this is the flash format file. and it requires the adobe flash player to run the file like in youtube they run the flash file.If computer not have flash player then download from Adobe
thankx

[g_cba29]

Hello someone can give an example since read a MC68HC08AZ32 safely and bau. Thank you.

[hcip]

hi HCIP
how r u
they post the .swf format file please try to open the file in internet explorer because this is the flash format file. and it requires the adobe flash player to run the file like in youtube they run the flash file.If computer not have flash player then download from Adobe
thankx

The problem is not about the player, its abou the extracting ofdownloaded files. any zip attached on this forum, I cannot extract it, but rar files can be (see attached pictures from previous)

anyway the problem from compiling was solved, it is an issue about some apps installed in my computer.

[digimile]

hi HCIP
i need upa script for new software i have your old script that work very fine but now i want to install new software.
My upa serial number is 050E3807
thankx

[sincero]

If you need files for test, here are some files readed with UPA.

Thank you,very helpful!

[boratokm]

i need help for declare this array in the new format

smt:= (inttohex(d,6)[5]+inttohex(d,6)[6]) + smt;

[tehnosoftex]

i need help for declare this array in the new format

smt:= (inttohex(d,6)[5]+inttohex(d,6)[6]) + smt;

I think you can try like this:
a:=inttohex(d,6); b:= inttohex(d,6);
smt:= (a[5]+b[6]) + smt;

[mihal64]

Hi please help how to script instaler upa usb please instruktion with photo thenks.

[polat]

help 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('opel bcu24C16');

Code_1:=inttohex(GetByteHexEdit($01),2)+inttohex(G etByteHexEdit($00),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' 2010 polat ');
SetProductInfo( 'astra bcu24C16', 'Device Script'#$D'Copyright'#169' polat 2010' );
end.