8 respuestas en este tema

[enecumene]

Pues eso, para los que les gustan jugar al lotto, pues aquí­ les traigo un sencillí­ssimo Generador de Lotto

delphi

procedure TForm1.Generador(iDesde,iHasta,iCuantos: Integer);
var i: Integer;
begin
  Randomize;
 
  for i := iDesde to iHasta do
      Memo1.Lines.Add( IntToStr( Random( iCuantos ) + 1 ) );
end;

iDesde : El número donde empezará.
iHasta: El número donde termina.
iCuantos: Aquí­ es donde colocarás cuantos números existen en la lotto

Modo de uso, Si la lotto de tu paí­s se tiran 6 números entre 49 números a seleccionar entonces serí­a así­:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
Generador(1,6,49);
end;

Obtendrí­amos un resultado según la imagen que anexo más abajo.

Enjoy!

[felipe]

Huy amigo, a ese codigo no le faltan sino unos cuantos "Padre nuestro" para poder ganarse algo

Gracias por el aporte .


Saludos!

[enecumene]

Huy amigo, a ese codigo no le faltan sino unos cuantos "Padre nuestro" para poder ganarse algo

Si quieres podemos agregar el padre nuestro al code

delphi

procedure TForm1.Generador(iDesde,iHasta,iCuantos: Integer);
var i: Integer;
begin
  Randomize;
  PadreNuestro(); //Función Padre nuestro para la buena suerte
 
  for i := iDesde to iHasta do
      Memo1.Lines.Add( IntToStr( Random( iCuantos ) + 1 ) );
end;

Saludos

[seoane]

Pero así­ los números se repiten

[enecumene]

Pero así­ los números se repiten

Pos sí­, por eso digo que es sencillí­ssimo (chapuza), la pueden mejorar

[Wilson]

Mañana lo usaré, por acá anda como en 4 millones de dolares. Espero tener suerte.

Saludos

[enecumene]

Mañana lo usaré, por acá anda como en 4 millones de dolares. Espero tener suerte.

Saludos

Pues aquí­ hay 4 Lottos, 3 de ellas rondan en los 32 Millones de pesos

[seoane]

Modificado para que los numeros no se repitan:

delphi

procedure TForm1.Generador(iDesde,iHasta,iCuantos: Integer);
var
  Str: String;
begin
  Memo1.Lines.Clear; // Importante borrar antes de empezar
  Randomize;
  while iDesde <= iHasta do
  begin
    Str:= IntToStr( Random( iCuantos ) + 1 );
    if Memo1.Lines.IndexOf(Str) < 0 then
    begin
      Memo1.Lines.Add( Str );
      inc(iDesde);
    end;
  end;
end;

Por dios !!! que aburrido estoy

[enecumene]

Ah vale eso quedó mucho mejor amigo