Hola Carlos... el tema de la generacion de numeros la podes hacer de la
siguiente forma:
colocas 15 punteros ej(1,2,3,....15)
y vas moviendo el puntero de la derecha de a una poscion a la derecha hasta
llegar a la posicion 90
es decir te quedarian los cartones asi:
1,2,3,4,5...15
1,2,3,4,5...16
1,2,3,4,5...17
..
..
1,2,3,4,5,90
Luego moves el puntero nº 14 es decir el de la izquierda del que llega a a la
posi. 90 un lugar y repetis con el puntero de la derecha el criterio anterior
ej:
1,2,3,4,5..13,15,16
1,2,3,4,5..13,15,17 (en esta secuencia faltarian todos los 14)
...
...
1,2,3,4,5..13,15,90
y vas haciendo asi cuando el putero llega al 90
el puntero de la izquierda se mueve un lugar a la derecha
de esta forma podes generar todos los cartones sin tener el riesgo de caer en
la creacion de un carton que ya exista
en resumen:
serian 15 ciclos donde cada ciclo maneja un puntero
te paso un .prg que genera un prg que te hace los numero si te interesa
Saludos
Pablo Flores
[EMAIL PROTECTED]
----- Original Message -----
From: Carlos A. Perez
To: GUFA List Member
Sent: Monday, March 31, 2008 5:39 AM
Subject: [GUFA] Generacion de Numeros
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
