Работа со временим

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
Аватара пользователя
Duncon
Сообщения: 2085
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

Я хочу написать себе прогу, смысл ее в том, чтоб при считывании
часов она что либо делала на мое усмотрение.
Тобишь мне надо что-то типа/
if
10 O'clock
began
msg
if
12 O'clock
msg

Подскажите плиз как эту идею превратить в жизнь.
Аватара пользователя
Romeo
Сообщения: 3126
Зарегистрирован: 02 мар 2004, 17:25
Откуда: Крым, Севастополь
Контактная информация:

Пишется резидентная программа, в ней создаётся таймер, который например каждые 30 секунд проверяет время и вызывает нужную функцию, если время события подошло. По-моему не сложно.
Entites should not be multiplied beyond necessity @ William Occam
---
Для выделения С++ кода используйте конструкцию [ code=cpp ] Код [ /code ] (без пробелов)
---
Сообщение "Спасибо" малоинформативно. Благодарность правильнее высказать, воспользовавшись кнопкой "Reputation" в виде звёздочки, расположенной в левом нижнем углу рамки сообщения.
Аватара пользователя
AiK
Сообщения: 2287
Зарегистрирован: 13 фев 2004, 18:14
Откуда: СПб
Контактная информация:

Чем шедулер at не нравится?
Даже самый дурацкий замысел можно воплотить мастерски
Аватара пользователя
Duncon
Сообщения: 2085
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

AiK писал(а):Чем шедулер at не нравится?
Это ты очем?
Аватара пользователя
LAngel
Сообщения: 277
Зарегистрирован: 30 мар 2005, 08:19
Откуда: Ульяновск
Контактная информация:

Код: Выделить всё

  if (CompareTime(Time, StrToTime('0:0:0')) = GreaterThanValue) and
     (CompareTime(Time, StrToTime('6:0:0')) = LessThanValue) then
  ShowMessage('Доброй ночи') else
  if (CompareTime(Time, StrToTime('6:0:0')) = GreaterThanValue) and
     (CompareTime(Time, StrToTime('10:0:0')) = LessThanValue) then
  ShowMessage('Доброе утро') else
  if (CompareTime(Time, StrToTime('10:0:0')) = GreaterThanValue) and
     (CompareTime(Time, StrToTime('16:0:0')) = LessThanValue) then
  ShowMessage('Добрый день') else
  if (CompareTime(Time, StrToTime('16:0:0')) = GreaterThanValue) and
     (CompareTime(Time, StrToTime('21:0:0')) = LessThanValue) then
  ShowMessage('Добрый вечер') else
  ShowMessage('Доброй ночи');
С уважением, Lost Angel...
Аватара пользователя
Игорь Акопян
Сообщения: 1440
Зарегистрирован: 13 окт 2004, 17:11
Откуда: СПБ
Контактная информация:

Duncon писал(а):
AiK писал(а):Чем шедулер at не нравится?
Это ты очем?
Если это не для тренировки в программировании, то командная строка рулит: c:\>at /?
Аватара пользователя
Duncon
Сообщения: 2085
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

LAngel, Спасибо за примерчик

Игорь Акопян, командная строка рулит: c:\>at /?
не согласен, exe удобней да и я по ходу функций добавлю.

В продолжение темы, а как грамотно вызвать процедуру сворачивания для всех приложений.
Ну к примеру играюсь я в мега шутер, он сворачивается и вылазит сообщение "Незабудь полить помидоры" :)
[syntax=Delphi] [/syntax]
Dr.Grizzly
Сообщения: 50
Зарегистрирован: 09 мар 2005, 13:57
Контактная информация:

Если еще надо пример у меня есть :) я свой таймер писал, понадобиться постучи 206836797 кину тебе примерчик
Ответить