Главная страница
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.017 c
3-44052
Andy Eremin
2003-03-26 11:47
2003.04.14
Подскажите событие


14-44451
Таня
2003-03-14 09:33
2003.04.14
Уважаемый Мазут Береговой!


7-44484
NetKnight
2002-12-04 16:06
2003.04.14
Program Shortcut ?


3-44070
Sergei
2003-03-26 13:52
2003.04.14
ADO DELETE FROM TABLE VREM1


14-44327
ASDF1
2003-03-30 18:12
2003.04.14
Как отловить сообщение???