A ver, la funcion RAND puede ayudarte. Suponiendo que exista una tabla
NUMEROS cuya estructura sea numero(integer), podríamos hacer
USE numeros
ZAP && la borras
lOk=.F.
=RAND(-1)
FOR i=1 TO 15
DO WHILE !lOK
m.numero = INT (RAND()*91)
LOCATE FOR numeros.numero = m.numero
lOk = !FOUND()
ENDDO
INSERT INTO numeros FROM MEMVAR
lOk=.F.
ENDFOR
Con RAND(-1) te asegurás que la secuencia generada por RAND() sea
irrepetible.
El lazo DO WHILE
ENDDO se asegura de que RAND() no genere enteros iguales a
los que ya existen en la tabla.
Al finalizar esta ejecución te queda una tabla con 15 filas, cada una con un
numero entero entre 0 al 90, pero desordenada. Si necesitas en orden,
indexala por la única columna numero.
Exitos,
Carlos
De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Adrian Ferrari
Enviado el: Sábado, 24 de Noviembre de 2007 11:32 a.m.
Para: GUFA List Member
Asunto: [GUFA] Generacion de Numeros
Hola.
Necesito generar una tabla con la combinacion de 15 numeros del 0 al 90,
para un bingo,alguien puede ayudarme,
no se me ocurre como realizarlo.
Saludos Adrian
__________ Información de NOD32, revisión 2680 (20071123) __________
Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com
