RandomRange
 

Hola y Saludos a Todos

Tengo una pequeña consulta:

Estoy haciendo un juego Matematico para mi hija,(La de La Foto) para que se aprenda las tablas de multiplicar,
y necesito generar un numero al azar.

Tengo un edit en el que quiero poner un numero al azar entre 1 a 10.

La Funcion:

Código Delphi [-]
function RandomRange(const AFrom, ATo: Integer): Integer;

Se supone que hace esto, pero no se como hacerlo ya que indica el Help de Delphi que hay que llamar previamente a RandSeed, que no se que es.

Se supone que estas AFrom y ATo son variables integer, bueno pues:

Pregunta:

Gracias por su ayuda
Saludos

Hola,

Código Delphi [-]
uses
  Math;

procedure TForm1.Button1Click(Sender: TObject);
var
  numeroAleatorioDelUnoAlCien: Integer;
begin
  RandSeed;
  numeroAleatorioDelUnoAlCien := Math.RandomRange(1, 100);
  ShowMessage( IntToStr(numeroAleatorioDelUnoAlCien) );
end;

a ver con esto
 

Prueba con esto ....

Código Delphi [-]
Randomize;
showmessage (inttostr(random(10)+1));

un saludo.

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Math;
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
Edit1.Text:=IntToStr(RandomRange(1, 10));
end;

Un Saludo.

Hola,

Vale... reconozco que me confundí, puesto que además no he usado nunca "RandomRange", sino "Random", pero...

Es decir, donde antes escribo "RandSeed" (mira que ví que era una variable, no una función...), debería escribirse "Randomize", aunque, esto de los números aleatorios me supera... y casi mejor me hubiera estado calladito y dejar a quien verdaderamente sepa de este tema que sea quien ayude. ;)

uyyyyyyy ...
 

Me falto ponerte la unidad .....

Pero me ha sorprendido la velocidad con la que estais todos al loro .... mu buen gesto si señor!!!

enga ... un saludo.

;) Jeje, ya te iva a llamar la atencion dec. Randseed es como su propio nombre indica una "semilla", para un mismo valor de RandSeed la secuencia de numeros "aleatorios" que se genera es la misma. De hecho el metodo Randomize lo unico que hace es asignarle un valor obtenido del reloj del sistema, para intentar que la secuencia originada siempre sea diferente.

Código Delphi [-]
procedure Randomize;
var
  Counter: Int64;
begin
  if QueryPerformanceCounter(Counter) then
    RandSeed := Counter
  else
    RandSeed := GetTickCount;
end;

Maestros mil gracias
funcionan perfectamente,
La de Dec no se porque hay que quitarle RandSeed, si no da un error, tal vez me indicas que paso Dec, te lo agradeceria mucho asi no me quedo con la duda.
Saludos y gracias de nuevo.

Hola,

Ten en cuenta lo que dice la ayuda sobre el procedimiento "Randomize", entre otras cosas:

Es decir, más bien que esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  numeroAleatorioDelUnoAlCien: Integer;
begin
  for i := 1 to 100 do
  begin
    Randomize;
    numeroAleatorioDelUnoAlCien := Math.RandomRange(1, 100);
    Caption := IntToStr(numeroAleatorioDelUnoAlCien);
  end;
end;

... mejor hacer esto otro, o sea, quitar el "Randomize" del bucle:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  numeroAleatorioDelUnoAlCien: Integer;
begin
  Randomize;
  for i := 1 to 100 do
  begin
    numeroAleatorioDelUnoAlCien := Math.RandomRange(1, 100);
    Caption := IntToStr(numeroAleatorioDelUnoAlCien);
  end;
end;

Hola,

Bueno, arriba creo que hablo sobre el tema, empero, a mí me "compila" el código del ejemplo (aunque equivocado), así que, tendrías que referir por aquí de qué error se trata: "mi bola de cristal tiene nubes". :D

Gracias ya entendi lo de RandSeed pero
Os aveis puesto a pensar que ninguna respuesta fue en vase a Funcion, todos pusisteis Procedimientos (Procedure), hay alguna razon en particular o el llamado a una funcion es mas complicado ?, no resulta conveniente o ???
Saludos

Muy cierto, lo mejor es llamarlo solo una vez en toda la aplicacion. Con respecto a meter el Randomize dentro del bucle, en este hilo quedo demostrado que los numeros asi generados no son tan "aleatorios" como deberian.

Hola,

Ajá,... o sea, que, para mayor "seguridad" lo suyo es ejecutarlo una vez en ¿la vida de la aplicación?... no ya una vez fuera de un bucle cualquiera, sino que, pareciera por lo que dices que el código que puse anteriormente (dentro del evento "onclick" de un botón) no sería el mejor lugar para situar la llamada a "Randomize"... tal vez en la inicialización de cierta unidad, o en el evento "OnCreate" del formulario principal... o en el propio "dpr"... ¿? ¿? ;)

Bueno. "RandomRange" es una función. "Randomize" no, pero, eso no es cosa nuestra... ;) Es algo que nos viene dado, o sea. Piensa que un procedimiento se diferencia de una función en que esta última retorna un valor de forma "natural", mientras que un procedimiento no lo hace. No se trata de que una cosa sea más "difícil" que la otra, me parece a mí, vaya. ;)

"RandomRange" tiene que retornar algo, precisamente, el número aleatorio, mientras que "Randomize" no; simplemente se llama a este procedimiento, pero, no esperamos ningún valor como resultado.

Muchas Gracias a todos por la amplia explicion, ya saveis que no me conformo con la respuesta corta:D , con esa no se aprende.:rolleyes:
Gracias a todos los Maestros
Saludos