Главная страница
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.016 c
8-44279
Fissher
2002-12-11 16:25
2003.04.14
Звук в MediaPlayer


1-44253
Wizd
2003-04-02 11:08
2003.04.14
Программирование сервиса для Win2k. Ошибка 1057.


1-44266
homozoid
2003-04-02 14:33
2003.04.14
Нормальный алгоритм для подсветки слов


14-44371
Yegor Derevenets
2003-03-26 20:31
2003.04.14
Последние N строк файла


6-44291
zxss
2003-02-20 08:42
2003.04.14
Взаимодействие сервиса NT с System Tray