随机模拟事件操作系统实验delphi - 图文(2)

Timer4: TTimer; Label11: TLabel; Label12: TLabel; Timer5: TTimer; Edit1: TEdit; Timer6: TTimer; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Label13: TLabel; Timer7: TTimer; Timer8: TTimer; Label14: TLabel; Timer9: TTimer; Timer10: TTimer; Label15: TLabel; Edit5: TEdit; Label16: TLabel; Edit6: TEdit; Timer11: TTimer; Timer12: TTimer;

procedure Timer1Timer(Sender: TObject);

procedure Timer2Timer(Sender: TObject); procedure Timer3Timer(Sender: TObject); procedure Timer4Timer(Sender: TObject); procedure Timer5Timer(Sender: TObject); procedure Timer6Timer(Sender: TObject); procedure Timer7Timer(Sender: TObject); procedure Timer8Timer(Sender: TObject); procedure Timer9Timer(Sender: TObject); procedure Timer10Timer(Sender: TObject); procedure Timer11Timer(Sender: TObject); procedure Timer12Timer(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end; var

Form2: TForm2; Id:integer=60; Id1:integer=55; Id2:integer=78;

Id3:integer=60; Id4:integer=55; Id5:integer=78;

implementation {$R *.dfm}

procedure TForm2.Timer1Timer(Sender: TObject); begin

label1.Font.Color:=rgb(random(255),random(255),random(255)); end;

procedure TForm2.Timer2Timer(Sender: TObject); begin

label5.Caption := FormatDateTime('hh:nn:ss',now); end;

procedure TForm2.Timer3Timer(Sender: TObject); begin

label7.Font.Color:=rgb(random(255),random(255),random(255));

if Id > 0 then

begin

Id := Id -1;

Label7.Caption := IntToStr(Id); end else // begin Id:=67;

//Timer1.Enabled := true; // end; end;

procedure TForm2.Timer4Timer(Sender: TObject); begin

label9.Font.Color:=rgb(random(255),random(255),random(255));

if Id1 > 0 then begin

Id1 := Id1 -1;

Label9.Caption := IntToStr(Id1); end else Id1:=82;

end;

procedure TForm2.Timer5Timer(Sender: TObject); begin

label11.Font.Color:=rgb(random(255),random(255),random(255));

if Id2 > 0 then begin

Id2 := Id2 -1;

Label11.Caption := IntToStr(Id2); end else Id2:=55; end;

procedure TForm2.Timer6Timer(Sender: TObject); var i:integer; begin i:=15; Randomize; i := random(15);

edit1.Text:=inttostr(i); end;