UPA USB sample script wanted

**gtmech** · 27th May, 2013, 12:38 PM

Can one of you Pascal Pro's help with this simple piece of script. I need to write 4 bytes of Hex code into a dump but this piece of script wont allow hex to be written of course and I cant think what to change to allow this, any ideas guys? thanks

procedure writekey1;
var code: string;
var k: integer;
begin
SetProgramModifiedOnly( true );
if InBox( 'Enter', 'Code', code ) then begin
if length( code ) < 4 then begin
MsgBox( 'Enter 4 numbers', 'Error', MB_OK );
end;
k := StrToInt( code );
SetByteHexEdit( $5E, ord(code[1]) );
SetByteHexEdit( $5F, ord(code[2]) );
SetByteHexEdit( $60, ord(code[3]) );
SetByteHexEdit( $61, ord(code[4]) );
RefreshHexEdit;
end;
end;

**gtmech** · 29th May, 2013, 03:54 AM

noone can help?

**tehnosoftex** · 29th May, 2013, 11:00 AM

Originally Posted by gtmech

Can one of you Pascal Pro's help with this simple piece of script. I need to write 4 bytes of Hex code into a dump but this piece of script wont allow hex to be written of course and I cant think what to change to allow this, any ideas guys? thanks

procedure writekey1;
var code: string;
var k: integer;
begin
SetProgramModifiedOnly( true );
if InBox( 'Enter', 'Code', code ) then begin
if length( code ) < 4 then begin
MsgBox( 'Enter 4 numbers', 'Error', MB_OK );
end;
k := StrToInt( code );
SetByteHexEdit( $5E, ord(code[1]) );
SetByteHexEdit( $5F, ord(code[2]) );
SetByteHexEdit( $60, ord(code[3]) );
SetByteHexEdit( $61, ord(code[4]) );
RefreshHexEdit;
end;
end;

I think it must be

SetByteHexEdit( $5E, (strtoint('$'+code[1]) ));
instead of
SetByteHexEdit( $5E, ord(code[1]) );
but this is only for one digit, and a byte has 2 digits
is more likely
SetByteHexEdit( $5E,(strtoint('$'+code[1]+code[2])));

**gtmech** · 30th May, 2013, 11:50 PM

Thanks technosoftex, sorry I didnt explain very well but I have got it sorted out now anyway, thanks for helping

**williamamaro** · 8th June, 2013, 02:28 PM

Friends do so again in script
not getting to
make the code font
CASE

CAN SOMEONE HELP ME

example

handle 'A' and shows '1 '
handle 'B' shows and '2 '
gets' C 'and shows '3'
gets' D 'and shows '4'
handle 'E' and shows '5 '
gets' F 'and shows '6'
takes '0 'and shows '7'
takes '1 'and shows '1'
handle '2 'and shows '2'
takes '3 'and shows '3'
takes '4 'and shows '4'
takes '5 'shows and '5'
takes '6 'and shows '6'
takes '7 'and shows '7'
takes '8 'and shows '8'
picks '9 'shows and '9'