Discussion :

[leywan]

Bonjour
Je voudrais savoir si il est possible de creer un soft permettant de generer aleatoirement des nombres entiers compris entre 000 000 et 999 999

Merci à vous
Je travaille sur delphi 6 edition personnel
Alex

[sjrd]

Randomize et Random

[Okaryn]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
var
  I : integer;
begin
  randomize; // (A n'appeler qu'une seule fois dans ton programme)
  I := Random(1000000); // entre 0 et 999999 compris

[leywan]

Merci beaucoup
C'est rapide ici j'en reviens pas

[leywan]

Bonjour,
exuse moi de te deranger Okaryn mais je debute en delphi.

j'ai creer une nouvelle appli d'origine appelé Unit1.pas ou j'ai ceci :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.

Quand j'insere ton code il me dit qu'il y a une erreur !
J'espère ne pas vous derangez et que la question n'a pas deja été posée !
(Je ne pense pas car je n'ai rien trouvé sur le forum à ce sujet )

aLeX

[Okaryn]

Le code que j'ai indiqué doit être contenu dans une procédure ou fonction, par directement dans ton unité n'importe où !

Par exemple, tu places sur ta fiche un bouton (button1) et un edit (Edit1).

Dans l'évènement OnCreate de ta fiche (Form1) tu places le randomize :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure Form1.OnCreate(Sender:tobject);
begin
  randomize; // (A n'appeler qu'une seule fois dans ton programme)
end;

Ainsi tu n'appelles la fonction randomize qu'une seule fois quand ta fiche est créé.

Dans l'évènement OnClick de button1 tu ajoutes le code donné pour avoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure Form1.button1Onclick(Sender:tobject);
var
  I : Integer;
begin
  I := Random(1000000); // entre 0 et 999999 compris
  Edit1.Text := IntToStr(I);
end;

Il va générer un nombre aléatoire et mettre le résultat dans l'Edit1

Je te conseil de faire un tour dans les différents tutoriels pour commencer par maitriser l'utilisation des procédures, fonctions, évènements, etc... avant de te lancer dans le code