FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Pocket PC :: Funciones ::
Posts: 401
Joined: Thu Oct 06, 2005 10:15 PM
:: Funciones ::
Posted: Thu Mar 15, 2012 01:17 AM
Hola Antonio,

Estas funciones no están disponible en FWPPC,
Se podrian implementar ?

Code (fw): Select all Collapse
 CharMirr() 
 HexToStr() 
 StrToHex()
Saludos,



Pablo Alberto Vidal

/*

------------------------------------------------------

Harbour 3.2.0, Fivewin 17.02, BCC7

------------------------------------------------------

*/
Posts: 401
Joined: Thu Oct 06, 2005 10:15 PM
Re: :: Funciones ::
Posted: Fri Mar 16, 2012 01:17 AM

????

Saludos,



Pablo Alberto Vidal

/*

------------------------------------------------------

Harbour 3.2.0, Fivewin 17.02, BCC7

------------------------------------------------------

*/
Posts: 140
Joined: Thu Feb 02, 2006 12:09 PM
Re: :: Funciones ::
Posted: Fri Mar 16, 2012 05:24 AM

Saludos Pablo;

Estas funciones en FWH me funcionan.-

Static Function Serial2Hex(cSer)
LOCAL cRet:="",i:=0
cRet:="0x"
For i:=1 to 8
cRet:=cRet+c2HEX(SUBSTR(cSer,i,1))
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

Mario Antonio González Osal

Venezuela

m a g 0 7 1 @ g m a i l. c o m
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: :: Funciones ::
Posted: Fri Mar 16, 2012 07:03 AM

Pablo,

Que hace la función CharMirr() ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 401
Joined: Thu Oct 06, 2005 10:15 PM
:: Funciones :: ( Solucionado )
Posted: Fri Mar 16, 2012 12:10 PM
Hola Antonio,

La Funcion CharMirr, voltea un string, ya la implemente:

Code (fw): Select all Collapse
Function CharMirror( cString )
Local cNewString := ""
Local nAt := Len( AllTrim( cString ) )

 While nAt > 0
  cNewString += SubStr( cString,nAt,1 )
  nAt--
 Enddo

Return( cNewString )


mag071,
Gracias, Funciona Perfectamente Bien :-)
Saludos,



Pablo Alberto Vidal

/*

------------------------------------------------------

Harbour 3.2.0, Fivewin 17.02, BCC7

------------------------------------------------------

*/

Continue the discussion