VPF::Console Application - Форум программистов

KIPISH

Дата 26.4.2004, 12:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 4.4.2004

Репутация: нет
Всего: нет

Всем привет,у ня прога в определённое время выводит время и играет музыку и всё,а как написать
её в консольном приложении,ведь нужно чтоб время кажный раз проверялось,а в консоли она закрывается и всё
как зделать???

Cashey

Дата 26.4.2004, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 2
Всего: 60

Вот, простейший пример, который выводит на экран, через каждые 10 мин. информацию о времени. Здесь только сложность придусмотреть выход из программы по нажатию на какую-нибудь клавишу.

Код

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  label Lbegin;
  var
  t: TDateTime;
  Hour, Min, Sec, MSec: Word;
begin
t := time();
writeln(timetostr(t));
Lbegin:
DecodeTime(t, Hour, Min, Sec, MSec);
if time() = EncodeTime(Hour, Min+10, Sec, MSec) then begin
        writeln(timetostr(time()));
        t := time()
end;
goto Lbegin;
end.

только не рекоммендую ставить с точностью до секунды.

Это сообщение отредактировал(а) Cashey - 26.4.2004, 14:45

--------------------

библия учит любить ближнего, а камасутра обучает как именно

KIPISH

Дата 26.4.2004, 21:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 4.4.2004

Репутация: нет
Всего: нет

Спасибо...

Это сообщение отредактировал(а) KIPISH - 26.4.2004, 21:03

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »