Maybe some one can help, to make a programm, who show after some seconds random 30 numbers in massive, then they disappears and you must guess as many numbers as you can.

Recommended Answers

All 6 Replies

got this:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
`    Label1: TLabel;`
    Timer1: TTimer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);


var
b:array[1..5, 1..5] of integer;
a:integer;
i:integer;
begin

Label1.Caption:=IntToStr(i);
for i := 1 to 5 do
 begin
  for a := 1 to 5 do
  begin
    b[i,a]:= 1 + random(100);
      Label1.Caption:=Label1.Caption +' ' +IntToStr(b[i,a]);
  end;
  Label1.Caption:=Label1.Caption+ #13+#10;

end;
end;
end.

Edited: now i need to after 15 seconds numbers disappear and then i write in edit text some of numbers which i remember and then check if numbers are true what i entered or not.

Start the timer at the end of the label function. When it triggers, clear the label. Add an editbox to type in the numbers, and a button to verify when done.

If i know how to do it... But I will try.

Put Another Timer component Timer2 in to Form1
In Object Inspector
Properties

Interval =    15000   //(that is 15 second)

and

Enabled       False

Events
//On Timer
//(double click)
....
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label1.Caption:='';
Edit1.Visible:=True;
end;
....

PutEdit Component to a Form1
Set Properties

Visible   False    (in Object inspector)

OK Here is full surce code
_____________________________________________________________________

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
b:array[1..5, 1..5] of integer;
a:integer;
i:integer;
begin
Edit1.Visible:=False;
Label1.Caption:=IntToStr(i);
for i := 1 to 5 do
 begin
  for a := 1 to 5 do
  begin
    b[i,a]:= 1 + random(100);
      Label1.Caption:=Label1.Caption +' ' +IntToStr(b[i,a]);
  end;
  Label1.Caption:=Label1.Caption+ #13+#10;
  Timer2.Enabled:=True;
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label1.Caption:='';
Edit1.Visible:=True;
end;

end.

_______________________________________________________________`

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.