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

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;

procedure TForm2.Timer7Timer(Sender: TObject); begin

if Id3 > 0 then begin

Id3 := Id3 -1;

edit2.Text := ('K顾客正在办理存款手续'); end else begin Id3:=60;

edit2.Text := ('F顾客正在办理取款手续');

end; end;

procedure TForm2.Timer8Timer(Sender: TObject); begin

form2.Label14.Caption:='今天是'+formatdatetime('yyyy-mm-dd',now); end;

procedure TForm2.Timer9Timer(Sender: TObject); begin

if Id4 > 0 then begin

Id4 := Id4 -1;

edit3.Text := ('A顾客正在办理取款手续'); // messagedlg('顾客正在办理存款手续',mtInformation,[mbOk],0); end else begin Id4:=55;

edit3.Text := ('B顾客正在办理存款手续'); //Timer1.Enabled := true; end; end;

procedure TForm2.Timer10Timer(Sender: TObject); begin

if Id5 > 0 then begin