:: Funciones ::

:: Funciones ::

Postby pablovidal » Thu Mar 15, 2012 1:17 am

Hola Antonio,

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

Code: Select all  Expand view

 CharMirr()
 HexToStr()
 StrToHex()
 
Saludos,

Pablo Alberto Vidal
/*
------------------------------------------------------
Harbour 3.2.0, Fivewin 17.02, BCC7
------------------------------------------------------
*/
User avatar
pablovidal
 
Posts: 399
Joined: Thu Oct 06, 2005 10:15 pm
Location: Republica Dominicana

Re: :: Funciones ::

Postby pablovidal » Fri Mar 16, 2012 1:17 am

????
Saludos,

Pablo Alberto Vidal
/*
------------------------------------------------------
Harbour 3.2.0, Fivewin 17.02, BCC7
------------------------------------------------------
*/
User avatar
pablovidal
 
Posts: 399
Joined: Thu Oct 06, 2005 10:15 pm
Location: Republica Dominicana

Re: :: Funciones ::

Postby mag071 » Fri Mar 16, 2012 5: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
User avatar
mag071
 
Posts: 134
Joined: Thu Feb 02, 2006 12:09 pm
Location: Venezuela

Re: :: Funciones ::

Postby Antonio Linares » Fri Mar 16, 2012 7:03 am

Pablo,

Que hace la función CharMirr() ?
regards, saludos

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

:: Funciones :: ( Solucionado )

Postby pablovidal » Fri Mar 16, 2012 12:10 pm

Hola Antonio,

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

Code: Select all  Expand view
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
------------------------------------------------------
*/
User avatar
pablovidal
 
Posts: 399
Joined: Thu Oct 06, 2005 10:15 pm
Location: Republica Dominicana


Return to FiveWin para Pocket PC

Who is online

Users browsing this forum: No registered users and 1 guest