Clarion - Números Aleatorios

 
Vista:
Imágen de perfil de Martin
Val: 92
Bronce
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Números Aleatorios

Publicado por Martin (70 intervenciones) el 29/09/2018 01:50:50
Hola, les consulto porque tengo que hacer unos sorteos con número aleatorios, estuve probando con Random pero el tema que necesito que el número no se repita. Debería ir marcando los que van saliendo pero no creo que se pueda hacer. Estuve probando con una Queue e ir marcando los que salieron. Si alguien ha hecho algo parecido le pido ayuda.
Gracias !
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 403
Oro
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Números Aleatorios

Publicado por Marcelo Madelón (319 intervenciones) el 29/09/2018 14:28:43
Martín

Te paso lo que existe en el help
Y se puede llevar un control de los números que salieron.
Yo generaría un archivo temporal con un solo campo y clave que lo vacío cada vez que ingresa a la rutina de sorteo.
Luego leo al archivo si existe pido otro.
En caso que no exista lo grabo y voy por el próximo numero.


RANDOM
Returns random integer.

low
A numeric constant, variable, or expression for the lower boundary of the range.

high
A numeric constant, variable, or expression for the upper boundary of the range.


The RANDOM procedure returns a random integer between the low and high values, inclusively. The low and high parameters may be any numeric expression, but only their integer portion is used for the inclusive range.

Return Data Type: LONG

Example:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Num                BYTE,DIM(49)
 
LottoNbr           BYTE,DIM(6)
 
CODE
 
CLEAR(Num)
 
CLEAR(LottoNbr)
 
LOOP X# = 1 TO 6
 
 LottoNbr[X#] = RANDOM(1,49)    !Pick numbers for Lotto
 
 IF NOT Num[LottoNbr[X#]]
 
  Num[LottoNbr[X#]] = 1
 
 ELSE
 
  X# -= 1
 
 END
 
END
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Martin
Val: 92
Bronce
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Números Aleatorios

Publicado por Martin (70 intervenciones) el 01/10/2018 06:03:07
Muchas gracias Marcelo voy a seguir probando.
Saludos !
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar