Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.14;
Скачать: 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 вся ветка

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
3-44076
Jaxtor
2003-03-26 17:28
2003.04.14
sqlcode -803


14-44407
Guest1
2003-03-28 14:30
2003.04.14
обновление


14-44385
ЮРИЙ_К
2003-03-26 15:50
2003.04.14
Где найти компонент типо CheckTreeView ???


7-44461
alexrush
2003-02-14 18:47
2003.04.14
Написание DeviceDriver`ов NT c TService


14-44378
LMD
2003-03-26 14:21
2003.04.14
Как получить имя объекта через sender?