alguien sabe como se genera un numero de serie

Gerardo Farfan

Posts: 52

Joined: Fri Oct 28, 2005 03:42 PM

alguien sabe como se genera un numero de serie
Posted: Sat Jun 10, 2006 02:57 AM

y cuales son sus caracteristicas.

de antemano muchas gracias

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

alguien sabe como se genera un numero de serie
Posted: Sat Jun 10, 2006 07:48 AM

Gerardo,

Puedes usar la función nRandom( <nRango> ) --> nValue de FW, y luego pasar el valor a hexadecimal con DecToHex( nValue ). Si quieres luego le intercalas algún "-" y tendrás un número de serie bastante aceptable.

regards, saludos

Antonio Linares
www.fivetechsoft.com

leandro

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

lo necesito
Posted: Sun Jun 11, 2006 06:42 PM

Antonio como estas. de casualidad no tienes un ejemplo un poco mas didactico sobre como generar el numero de serie.

De antemano gracias

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Gerardo Farfan

Posts: 52

Joined: Fri Oct 28, 2005 03:42 PM

alguien sabe como se genera un numero de serie
Posted: Wed Jun 14, 2006 01:35 AM

gracias antonio

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

alguien sabe como se genera un numero de serie
Posted: Wed Jun 14, 2006 07:01 AM

Leandro,

Code: Select all Collapse

function Main()

   local nValor1 := nRandom( 1000000 )
   local nValor2 := nRandom( 1000000 )
   local cSerie  := DecToHex( nValor1 ) + "-" + DecToHex( nValor2 )
   
   MsgInfo( cSerie )

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

leandro

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

GRACIAS
Posted: Wed Jun 14, 2006 03:32 PM

Antonio muchas gracias

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

FiveTech Support Forums

Continue the discussion