![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 17.03.2007
Сообщений: 39
|
![]()
Как сделать так чтобы через каждые 30 минут выполнялось какое нибудь действие, например выводилось сообщение в label?
Заранее спасибо! |
![]() |
![]() |
![]() |
#2 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
![]()
var t: TTime;
............... В нужный момент фиксируем время начала отсчета: t:=Now; //момент начала отсчета и запускаем TTimer с установленным интервалом в 1 минуту. В событии OnTimer проверяем, не превысило ли текущее время (Now) наше ранее зафиксированное в переменной t более, чем на 30 мин., т.е. разницу Now-t. Если да, то выводим Label1.Caption:='Прошло еще полчаса'; и устанавливаем новое t:=Now; Все. P.S. Подробнее уже некуда, пора и самому "рогом пошевелить" ![]() Последний раз редактировалось mihali4; 17.03.2007 в 21:18. |
![]() |
![]() |
![]() |
#3 | |
Пользователь
Регистрация: 17.03.2007
Сообщений: 39
|
![]() Цитата:
А можно по подробнее это все расписать, а то я новичек в этом деле... Если конечно не составит труда ![]() |
|
![]() |
![]() |
![]() |
#4 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
![]()
Это засунь в таймер, интервал поставь в 60000
var t:TDateTime; begin if (now-t)>strtoTime("0:30:00") then begin t:=now; //то, что тебе надо сделать end; end; Последний раз редактировалось zetrix; 17.03.2007 в 21:49. |
![]() |
![]() |
![]() |
#5 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
![]()
Все верно, только t - не таймерская, а глобальная переменная...
![]() Верно? А то получилось немного непонятно и он может ее засунуть в OnTimer... Последний раз редактировалось mihali4; 17.03.2007 в 22:26. |
![]() |
![]() |
![]() |
#6 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,534
|
![]()
Так. вот этот код самый простой.
вот код Код:
|
![]() |
![]() |
![]() |
#7 | |
Пользователь
Регистрация: 17.03.2007
Сообщений: 39
|
![]() Цитата:
|
|
![]() |
![]() |
![]() |
#8 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,534
|
![]()
Lonix, нужно запустить исходный код ничего не меняя. через 30 секунд появиться надпись - 30 секунд.
|
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 17.03.2007
Сообщений: 39
|
![]() |
![]() |
![]() |
![]() |
#10 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,534
|
![]()
Lonix, сделал вообще просто и время сделал 5 и 7 секунд, чтобы совсем понятно стало.
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определенное число установок..??? | PONKA | Безопасность, Шифрование | 4 | 07.06.2008 08:02 |
Как к какой либо букве привезать определенное действие? | LuMax | Помощь студентам | 4 | 25.11.2007 14:06 |
Какие знаения нужно сложить, чтобы получилось определенное число | Natalia K. | Microsoft Office Excel | 4 | 23.11.2007 13:22 |
как под структуру типа MSG выделить строго определенное количество байт? | Morskoivolk | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 03.04.2007 20:12 |
как сделать, чтобы в определенное время появлялось новое окно | Alar | Общие вопросы Delphi | 0 | 29.10.2006 20:30 |