In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Generar numeros aleatorios
Generar numeros aleatorios
Hola,
¿Tiene alguien alguna funcion para generar numeros aleatorios?
Saludos
Jose A. Suarez
¿Tiene alguien alguna funcion para generar numeros aleatorios?
Saludos
Jose A. Suarez
Generar numeros aleatorios
Me respondo yo mismo.
Buscando "en el baúl de los recuerdos", encontré esta función:
FUNCTION Aleatorio( n )
STATIC xrndseed := .123456789
IF xrndseed = .123456789
xrndseed += val( substr( time(), 7, 2 ) ) / 100
END IF
xrndseed := ( xrndseed * 31415821 + 1 ) / 1000000
RETURN Int( ( xrndseed -= int( xrndseed ) ) * n )
No se quien es el autor ni como llegó a mi hace años, pero funciona
bastante bien.
Ahí la dejo por si len viene bien a alguien.
Saludos
Jose A. Suarez
Buscando "en el baúl de los recuerdos", encontré esta función:
FUNCTION Aleatorio( n )
STATIC xrndseed := .123456789
IF xrndseed = .123456789
xrndseed += val( substr( time(), 7, 2 ) ) / 100
END IF
xrndseed := ( xrndseed * 31415821 + 1 ) / 1000000
RETURN Int( ( xrndseed -= int( xrndseed ) ) * n )
No se quien es el autor ni como llegó a mi hace años, pero funciona
bastante bien.
Ahí la dejo por si len viene bien a alguien.
Saludos
Jose A. Suarez
-
- Mensajes: 215
- Registrado: Lun Oct 20, 2008 11:38 pm
Generar numeros aleatorios
RANDOM()
Generates random numbers
------------------------------------------------------------ ------------------
Syntax
RANDOM([<lMode>]) --> nRandomWORD
Argument
<lMode> Designates whether or not to return negative numbers. The
default creates only positive numbers.
Returns
RANDOM() returns a random number in the range of 0 to 65535 or when
<lMode> is designated as .T., in the range of -32768 to +32767.
Description
RANDOM() produces random numbers to create a random distribution of
test
data for DEMO programs or any other application.
Note
¦ If the <lMode> parameter is not specified, only positive
numbers are returned. When < lMode> is set to .T., the function
returns the same number of positive and negative numbers.
Examples
¦ Create a random number between 0 and 65535:
? RANDOM()
¦ Create a random number between 0 and 1:
? RANDOM()/65535
¦ Create a random whole number between 1 and 16:
? RANDOM()%16 +1
¦ Create a random number between -32768 and +32767:
? RANDOM(.T.)
Un saludo
Pepe.
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:4759c828$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Hola,
>
> ¿Tiene alguien alguna funcion para generar numeros aleatorios?
>
> Saludos
>
> Jose A. Suarez
Generates random numbers
------------------------------------------------------------ ------------------
Syntax
RANDOM([<lMode>]) --> nRandomWORD
Argument
<lMode> Designates whether or not to return negative numbers. The
default creates only positive numbers.
Returns
RANDOM() returns a random number in the range of 0 to 65535 or when
<lMode> is designated as .T., in the range of -32768 to +32767.
Description
RANDOM() produces random numbers to create a random distribution of
test
data for DEMO programs or any other application.
Note
¦ If the <lMode> parameter is not specified, only positive
numbers are returned. When < lMode> is set to .T., the function
returns the same number of positive and negative numbers.
Examples
¦ Create a random number between 0 and 65535:
? RANDOM()
¦ Create a random number between 0 and 1:
? RANDOM()/65535
¦ Create a random whole number between 1 and 16:
? RANDOM()%16 +1
¦ Create a random number between -32768 and +32767:
? RANDOM(.T.)
Un saludo
Pepe.
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:4759c828$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Hola,
>
> ¿Tiene alguien alguna funcion para generar numeros aleatorios?
>
> Saludos
>
> Jose A. Suarez
Generar numeros aleatorios
Pepe,
¿De donde es esta funcion? En xHb no está.
Si es la de Clipper 5.3 hay que recordar que Harbour y xHarbour se basan
en Clipper 5.2.
Saludos,
Jose A. Suarez
¿De donde es esta funcion? En xHb no está.
Si es la de Clipper 5.3 hay que recordar que Harbour y xHarbour se basan
en Clipper 5.2.
Saludos,
Jose A. Suarez
-
- Mensajes: 215
- Registrado: Lun Oct 20, 2008 11:38 pm
Generar numeros aleatorios
Jose Alfonso,
Esta funcion esta en las Tools de Clipper y en xHarbour.
Un saludo
Pepe.
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:475a8d32$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Pepe,
>
> ¿De donde es esta funcion? En xHb no está.
>
> Si es la de Clipper 5.3 hay que recordar que Harbour y xHarbour se basan
> en Clipper 5.2.
>
> Saludos,
>
> Jose A. Suarez
>
Esta funcion esta en las Tools de Clipper y en xHarbour.
Un saludo
Pepe.
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:475a8d32$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Pepe,
>
> ¿De donde es esta funcion? En xHb no está.
>
> Si es la de Clipper 5.3 hay que recordar que Harbour y xHarbour se basan
> en Clipper 5.2.
>
> Saludos,
>
> Jose A. Suarez
>
Generar numeros aleatorios
José Alfonso,
> ¿Tiene alguien alguna funcion para generar numeros aleatorios?
Si es para xHarbour, mira en sourcertlhbrandom.c
Saludos,
José Lalín
> ¿Tiene alguien alguna funcion para generar numeros aleatorios?
Si es para xHarbour, mira en sourcertlhbrandom.c
Saludos,
José Lalín
Generar numeros aleatorios
Jose, Pepe,
¿Hay que incluir alguna libreria de xHb en el proyecto?
Da un precioso "unresolved external".
Saludos
Jose A. Suarez
¿Hay que incluir alguna libreria de xHb en el proyecto?
Da un precioso "unresolved external".
Saludos
Jose A. Suarez
Generar numeros aleatorios
José Alfonso,
> ¿Hay que incluir alguna libreria de xHb en el proyecto?
Que yo sepa no. Estoy utilizando las tres (hb_random, hb_randomint y
hb_randomseed) desde hace tiempo y no he tenido ningún problema.
¿ Estás escribiendo bien el nombre de la función ?
Saludos,
José Lalín
> ¿Hay que incluir alguna libreria de xHb en el proyecto?
Que yo sepa no. Estoy utilizando las tres (hb_random, hb_randomint y
hb_randomseed) desde hace tiempo y no he tenido ningún problema.
¿ Estás escribiendo bien el nombre de la función ?
Saludos,
José Lalín
Generar numeros aleatorios
Jose,
He probado con Random y no pita. Con HB_Random no se me ocurrio.
Saludos
Jose A. Suarez
He probado con Random y no pita. Con HB_Random no se me ocurrio.
Saludos
Jose A. Suarez
-
- Mensajes: 215
- Registrado: Lun Oct 20, 2008 11:38 pm
Generar numeros aleatorios
Jose Alfonso,
La libreria es CT.LIB, en xHarbour si existe, pero en la distribucion de
xHarbour de Xailer no existe, habra que preguntar al equipo de Xailer por
que esa diferencia.
Un saludo
Pepe.
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:475b188b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Jose,
>
> He probado con Random y no pita. Con HB_Random no se me ocurrio.
>
> Saludos
>
> Jose A. Suarez
La libreria es CT.LIB, en xHarbour si existe, pero en la distribucion de
xHarbour de Xailer no existe, habra que preguntar al equipo de Xailer por
que esa diferencia.
Un saludo
Pepe.
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:475b188b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Jose,
>
> He probado con Random y no pita. Con HB_Random no se me ocurrio.
>
> Saludos
>
> Jose A. Suarez