alguien sabe como se genera un numero de serie

alguien sabe como se genera un numero de serie

Postby Gerardo Farfan » Sat Jun 10, 2006 2:57 am

y cuales son sus caracteristicas.

de antemano muchas gracias
Gerardo Farfan
 
Posts: 52
Joined: Fri Oct 28, 2005 3:42 pm
Location: Mexico, D.F.

Postby Antonio Linares » Sat Jun 10, 2006 7: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
User avatar
Antonio Linares
Site Admin
 
Posts: 42122
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

lo necesito

Postby leandro » Sun Jun 11, 2006 6: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

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1676
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Postby Gerardo Farfan » Wed Jun 14, 2006 1:35 am

gracias antonio
Gerardo Farfan
 
Posts: 52
Joined: Fri Oct 28, 2005 3:42 pm
Location: Mexico, D.F.

Postby Antonio Linares » Wed Jun 14, 2006 7:01 am

Leandro,
Code: Select all  Expand view  RUN
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
User avatar
Antonio Linares
Site Admin
 
Posts: 42122
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

GRACIAS

Postby leandro » Wed Jun 14, 2006 3:32 pm

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

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1676
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia


Return to FiveWin para CA-Clipper

Who is online

Users browsing this forum: No registered users and 16 guests