Скачать: CL | DM;

ТАЙМЕР для дельфи   Найти похожие ветки 

← →
CITY_ELF   (2003-04-03 17:58) [0]

Не могу сделать таймер на ТЕСТ по математике, который делаю для своего института. Меня просто переклинило. Помогите пожалуйста сделать так, чтобы тест самозавершался спустя час работы.

---

← →
Anatoly Podgoretsky ©   (2003-04-03 18:09) [1]

Timer.Interval 36000000
В обработчике Close

---

← →
dimich1978 ©   (2003-04-03 18:20) [2]

А в чем собственно проблема, запоминай время начало теста, а затем прибавляй один час и потом анализируй(сранивай тек. время с тем что ты запомни(+1час) и все как только равно делай terminate. Ну или что ты там хотел

---

← →
Михайлов Антон   (2003-04-03 21:33) [3]

А мож лучше сделать, чтобы видно было сколько время затрачено на тест??
Вот немного из моего ShutDown Timer"a 1.4
------------------------------
var hh,mm,ss,ms:integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ms<9 then
ms:=ms+1 else
begin
ms:=0;
if ss<59 then
ss:=ss+1 else
begin
ss:=0;
if mm<59 then
mm:=mm+1 else
Begin
mm:=0;
hh:=hh+1;
end;
end;
end;
end;
---------------------------
Воть...
Это часы,минуты,секунды,милисекунды

Добавь ещё туда if hh=1 then <завершаем прогу> и полёчится то что тебе нужно (завершение теста через час)
А ещё лучше, сделай чтобы лимит настраивать мона было :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c