Numeros al azar
Publicado por Ricardo Ramírez (Perú) (39 intervenciones) el 12/05/2003 23:01:04
Esto fue publicado en este foro.....
Checale esa function,,
saludos..
sintaxis,,,
crand(1000)
//me regresa un numero
//entre el 1 y el 1000
function cRand(n)
static xrndseed := .123456789
if xrndseed = .123456789
xrndseed += val(substr(time(), 7, 2)) / 100
endif
xrndseed := (xrndseed * 31415821 + 1) / 1000000
return int( (xrndseed -= int(xrndseed)) * n)
Saludos!
Checale esa function,,
saludos..
sintaxis,,,
crand(1000)
//me regresa un numero
//entre el 1 y el 1000
function cRand(n)
static xrndseed := .123456789
if xrndseed = .123456789
xrndseed += val(substr(time(), 7, 2)) / 100
endif
xrndseed := (xrndseed * 31415821 + 1) / 1000000
return int( (xrndseed -= int(xrndseed)) * n)
Saludos!
Valora esta pregunta
0