Ayuda con función I2HEX

Ayuda con función I2HEX

Postby ricardog » Tue Sep 05, 2017 2:50 am

Buenas noches, tengo un modulo para que utiliza la función I2HEX, pero me manda el siguiente error de ejecución.
[img][IMG]http://img220.imagevenue.com/loc617/th_558997966_ErrorI2HEX_122_617lo.jpg[/img][/img]

Y mi proyecto contiene la FIVEHC.LIB

[img][img=http://img237.imagevenue.com/loc471/th_559347689_errormaindllp.c_122_471lo.jpg][/img]

Gracias por su ayuda. :) :) :)
ricardog
 
Posts: 158
Joined: Tue Oct 11, 2005 3:10 pm

Re: Ayuda con función I2HEX

Postby Antonio Linares » Tue Sep 05, 2017 7:21 am

I2Hex() es una función de FWH

Que versión de FWH estás usando ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Ayuda con función I2HEX

Postby ricardog » Tue Sep 05, 2017 9:57 pm

Buenas tardes Antonio, FWHX 9.11
ricardog
 
Posts: 158
Joined: Tue Oct 11, 2005 3:10 pm

Re: Ayuda con función I2HEX

Postby Antonio Linares » Wed Sep 06, 2017 5:55 am

Necesitas actualizarte a una versión más reciente

Mientras tanto aqui tienes el código:
Code: Select all  Expand view
static char * u2Hex( WORD wWord )
{
    static far char szHex[ 5 ];

    WORD i= 3;

    do
    {
        szHex[ i ] = 48 + ( wWord & 0x000F );

        if( szHex[ i ] > 57 )
            szHex[ i ] += 7;

        wWord >>= 4;

    } while( i-- > 0 );

    szHex[ 4 ] = 0;

    return szHex;
}

//----------------------------------------------------------------------------//

HB_FUNC( I2HEX ) // nValue --> cHexValue
{
  hb_retc( u2Hex( hb_parni( 1 ) ) );
}
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 8 guests