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.

Generar numeros aleatorios

Lenguaje de progamación XBase en español
User avatar
jasm
Posts: 447
Joined: Tue Jul 08, 2008 8:12 pm

Generar numeros aleatorios

Postby jasm » Fri Dec 07, 2007 11:24 pm

Hola,
¿Tiene alguien alguna funcion para generar numeros aleatorios?
Saludos
Jose A. Suarez
User avatar
jasm
Posts: 447
Joined: Tue Jul 08, 2008 8:12 pm

Generar numeros aleatorios

Postby jasm » Sat Dec 08, 2007 9:52 am

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
Jose Lopez Carrasco
Posts: 215
Joined: Mon Oct 20, 2008 11:38 pm

Generar numeros aleatorios

Postby Jose Lopez Carrasco » Sat Dec 08, 2007 10:59 am

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$1@ozsrv2.ozlan.local...
> Hola,
>
> ¿Tiene alguien alguna funcion para generar numeros aleatorios?
>
> Saludos
>
> Jose A. Suarez
User avatar
jasm
Posts: 447
Joined: Tue Jul 08, 2008 8:12 pm

Generar numeros aleatorios

Postby jasm » Sat Dec 08, 2007 1:25 pm

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
Jose Lopez Carrasco
Posts: 215
Joined: Mon Oct 20, 2008 11:38 pm

Generar numeros aleatorios

Postby Jose Lopez Carrasco » Sat Dec 08, 2007 4:19 pm

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$1@ozsrv2.ozlan.local...
> 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
>
notengo
Posts: 417
Joined: Fri Oct 12, 2007 1:29 pm

Generar numeros aleatorios

Postby notengo » Sat Dec 08, 2007 10:22 pm

José Alfonso,
> ¿Tiene alguien alguna funcion para generar numeros aleatorios?
Si es para xHarbour, mira en sourcertlhbrandom.c
Saludos,
José Lalí­n
User avatar
jasm
Posts: 447
Joined: Tue Jul 08, 2008 8:12 pm

Generar numeros aleatorios

Postby jasm » Sat Dec 08, 2007 10:55 pm

Jose, Pepe,
¿Hay que incluir alguna libreria de xHb en el proyecto?
Da un precioso "unresolved external".
Saludos
Jose A. Suarez
notengo
Posts: 417
Joined: Fri Oct 12, 2007 1:29 pm

Generar numeros aleatorios

Postby notengo » Sat Dec 08, 2007 11:08 pm

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
User avatar
jasm
Posts: 447
Joined: Tue Jul 08, 2008 8:12 pm

Generar numeros aleatorios

Postby jasm » Sat Dec 08, 2007 11:19 pm

Jose,
He probado con Random y no pita. Con HB_Random no se me ocurrio.
Saludos
Jose A. Suarez
Jose Lopez Carrasco
Posts: 215
Joined: Mon Oct 20, 2008 11:38 pm

Generar numeros aleatorios

Postby Jose Lopez Carrasco » Sun Dec 09, 2007 12:44 am

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$1@ozsrv2.ozlan.local...
> Jose,
>
> He probado con Random y no pita. Con HB_Random no se me ocurrio.
>
> Saludos
>
> Jose A. Suarez

Return to “Spanish”