Új hozzászólás Aktív témák

• #1702 Torry addikt

  Új Válasz 2009-05-12 20:34:24 #1702

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Torry

  addikt

  Van nekem egy olyan programom, hogy reakcióidő mérés.A problémám az lenne, hogy a zöld idejét kellene randomizálni.
  procedure TForm1.FormActivate(Sender: TObject);
  begin

  Label3.Caption:='0';
  Button1.Enabled:=False;

  //másodpercenkénti visszaszámlálás
  Timer1.Interval:=1000;
  Timer1.Enabled:=True;

  //visszaszámlálás indulási érték
  Label1.Caption:='3';
  end;

  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  //ha kezdeti visszaszámlálás folyik
  If StrToInt(Label1.Caption) > 0 then Label1.Caption:=IntToStr(StrToInt(Label1.Caption)-1);

  //label capt vizsgálat
  If Label1.Caption='2' then shape1.Brush.Color:=clRed;
  If Label1.Caption='1' then shape2.Brush.Color:=clyellow;
  If Label1.Caption='0' then
  begin
  shape1.Brush.Color:=clwhite;
  shape2.brush.Color:=clwhite;
  shape3.Brush.Color:=clgreen;
  //mérés századmásodpercben
  Timer1.Interval:=10;
  Button1.Enabled:=True;
  Label3.Caption:=IntToStr(StrToInt(Label3.Caption)+1);
  end;
  end;
  Tehát ottan, hogy if Label1.Caption='0' előtt kellene random idővel lassítani a visszaszámlálást.
  Hogyan lehetne ezt megtenni?

  Előre is köszi!

Új hozzászólás Aktív témák