FiveTech Software tech support forums

... STATIC Function ChkSum( cCad ) LOCAL c, nLen, nSum1, nSum2 nLen := AT( "*", cCad ) nSum1 := HexToDec( Substr( cCad, nLen +1, 2 ) ) // el checksum esta apartir de "*" nSum2 := Asc( Substr( cCad, 1, 1 ) ) // cogemos el primer caracter ...

... STATIC Function ChkSum( cCad ) LOCAL c, nLen, nSum1, nSum2 nLen := AT( "*", cCad ) nSum1 := HexToDec( Substr( cCad, nLen +1, 2 ) ) // el checksum esta apartir de "*" nSum2 := Asc( Substr( cCad, 1, 1 ) ) // cogemos el primer caracter ...

... Next Return cRet Static Function Hex2Serial(cHexSer) LOCAL cRet:="",i:=0 For i:=3 to 18 step 2 cRet:=cRet+chr(HexToDec(SUBSTR(cHexSer,i,2))) Next Return cRet Saludos

... GlobalCompact() GlobalData() GlobalFree() GlobalGetAtom() GlobalLock() GlobalRealloc() GlobalSize() GlobalUnlock() HasResources() HelpSearch() HexToDec() HideCaret() HToNs() I2Hex() InportWord() InsertMenu() InterruptUnRegister() InvalidateRect() InvertRect() IsAnsi() IsAnsiLower() IsAnsiUpper() ...

Jeff, Please add this code to the bottom of your PRG. This solves these three unresolved externals: STR2HEX(), HEX2STR() and HEXTODEC(). #pragma BEGINDUMP #include <hbapi.h> #include <windows.h> static far BYTE bChar[] = "0123456789ABCDEF"; HB_FUNC( ...

... 1 ) != 0 nError = GetCommError( nComm ) MsgInfo( "FlushComm Error: " + Str( nError ) ) endif cDataread := space(1) Do while Alltrim(STR(HexToDec( Str2Hex( cDataread )))) <> "6" syswait(.1) WRITECOMM( nComm, HEX2STR("027002020803")) ReadComm( nComm , @cDataRead) ...

... protection. But nevertheless it is very confusing if two functions with the same functionality return different values (comparing nSerialHD() and HexToDec() with VolSerial() and HexToNum() from xHarbour)

Antonio,

the same error as in nSerialHD() is in HexToDec (cHex). If the cHex is to large, it returns negative values.

Can you please check this, too ?

Thanks

Javier,

Prueba asi:

Chr( HEXTODEC( cHexNumero ) )

por ejemplo:

MsgInfo( HexToDec( "FF" ) )

softruz wrote:Muy buenas foro, ¿alguien me podria decir como puedo sumar muchos numero en hexadecimal ?

Una forma:

nTotal := 0
AEval( aHex, {|h| nTotal += HexToDec( h ) } )
?L2Hex( nTotal )

Saludos.

Manuel Mercado