Задачка. Юзверь вводит в Edit1 время события, а в Edit2 само событие, что несущественно. Причем, дата заранее неизвестна, и дат может быть несколько. Дата вводится в формате

Цитата

dd-mm-yyyy hh:mm:ss

Надоть при наступлении этого события вывести либо звуковой сигнал, либо сообщение.
Сначала, по логике, надо бы свернуть программку в трей, чтоб глаза не мозолила. Это я уже сделал. А вот с напоминалкой проблема... Кстати, напоминаловку надо включать/выключать по свойству Checked флага CheckBox1... Сложная, наверное, задачка... Но мне жизненно необходимо решение. Прошу помочь!

делаешь таймер на t-t0 (t - нужное время, t0 - текущее время)
при его срабатывании показываешь сообщение...
если время слишком большое (не помню ограничений для таймеров), делаешь таймер на максимально допустимый интервал, а по его прошествии запускаешь еще раз...

будем считать что дату ты распарсил.
тогда береш локальное время:

Код

VOID GetLocalTime(     LPSYSTEMTIME lpSystemTime    // address of system time structure      );

потом переводиш его:

Код

BOOL SystemTimeToFileTime(     CONST SYSTEMTIME *lpSystemTime,    // address of system time to convert      LPFILETIME lpFileTime    // address of buffer for converted file time     );

и приводиш его к LARGE_INTEGER ( заполнив LowPart dwLowDateTime и HighPart dwHighDateTime )
это будет time1

потом заполняеш структуру:

Код

typedef struct _SYSTEMTIME {  // st       WORD wYear;      WORD wMonth;      WORD wDayOfWeek;      WORD wDay;      WORD wHour;      WORD wMinute;      WORD wSecond;      WORD wMilliseconds;  } SYSTEMTIME;

и переводиш ее сначала в FILETIME потом в LARGE_INTEGER. это будет time2

(time2.QuadPart - time1.QuadPart) / 10000.0 -- время в миллисекундах, на которое нужно установить таймер ( можно виндовый SetTimer() можно делфийский TTimer() ( лучше второй, потому как у него есть Enabled ) )

если checkbox сняли - отменяешь таймер
если установили - устанавливаешь

Цитата(sim7 @ 21.9.2005, 20:23)

Сложная, наверное, задачка...

Проверку времени (типа там if(MyTime == Now()) наверняка в таймере делать будешь. Вот и пиши:

Код

void __fastcall TForm1::Timer1Timer(TObject *Sender) {     if(CheckBox1->Checked)     {         // тута твой код, что ты там хочешь сделать...         ShowMessage("Message!");     } }

Это сообщение отредактировал(а) rsm - 21.9.2005, 18:49

_hunter, это для какого ж профессионала вы код дали? Я ж начинающий, а вы мне WinAPI даете.
rsm, можно еще разок объяснить, как установить таймер на введенное время с учетом введенного формата + как я уж говорил, может быть несколько дат. И на каждую надо напоминалку. А сколько дат будет - неизвестно.

А я бы вместо таймера для этого дела отдельную нить организовал.

Цитата(sim7 @ 21.9.2005, 21:40)

можно еще разок объяснить, как установить таймер на введенное время с учетом введенного формата

Можно. Методика такова:
1. Подсчитывается количество миллисекунд в заданном времени;
2. Подсчитывается количестко миллисекунд в текущем времени;
3. Разница между этими величинами устанавливается в качестве интервала для таймера.

Я предлагаю значительно более простой вариант, см. в аттаче исходники.

Это сообщение отредактировал(а) rsm - 22.9.2005, 10:55

Присоединённый файл ( Кол-во скачиваний: 9 )
 simple_timer.zip 3,77 Kb

rsm, в вашем коде более-менее разобрался, но у вас в ЛистБоксе заранее известно, что будет только дата. А как быть, если там еще и посторонний текст? Например, у меня вот такая строчка:

Цитата

12.02.2004 17:34:22 ::: Такое-то событие

копируй первые 18 символов...
или все, до ":::" - 1 символ
все, в общем-то, зависит от тебя: какой формат ввода разрешиш -- тот и парсь...

Цитата(sim7 @ 23.9.2005, 20:59)

А как быть, если там еще и посторонний текст?

Главная проблема в том, что стандартных функций для форматированного перевода строки в дату просто нет. Нужно писать такую функцию самому. Причем не забывать, что формат даты зависит от текущей локали, например в Европе принят формат MM/DD/YYYY, а у нас - DD/MM/YYYY.

Цитата

копируй

То, что надо скопировать, я понял и так. Но как скопировать AnsiString-строку? Функция C++ copy работает только со string-строками.

Это сообщение отредактировал(а) sim7 - 23.9.2005, 19:44

Цитата

Но как скопировать AnsiString-строку

Вот так к примеру:

Код

AnsiString from="12.02.2004 17:34:22 ::: Такое-то событие";   int delimiter = from.AnsiPos(AnsiString(" :::"));   AnsiString date = from.SubString(1, delimiter-1);   AnsiString message = from.SubString(delimiter+5, from.Length());

теперь у тебя date и message содержат то что надо.

Код

AnsiString date=ListBox1->Items->Strings.SubString(1,19);

Вот тут ошибка. Понятно, почему: у Strings надо указать позицию. А какая тут нафиг позиция? Цель: обработать все Item у ЛистБокса на предмет наличия наступившей даты, если я правильно понял код rsm'а... Что подскажете?

А кто тебе мешает перейти в Char? Или я плохо понял задачу?
Например так:

Код

char date[9],nowd[9];  StrPCopy(nowd,DateToStr(Now()));  for(int i=0;i<max;i++)//max-максимальное кол-во stringсов у тебя в проге  {   StrPCopy(date,ListBox1->Items->Strings[i]);date[8]='\0';   if(strcmp(date,nowd)==0)    ShowMessage("Сегодня вы умрёте");  }

Цитата(sim7 @ 24.9.2005, 18:09)

Что подскажете?

Однако ж и наворотили кода! Всего одну строчку нужно добавить:

Код

...         szTime = lbTime->Items->Strings[i];         szTime.SetLength(19); // берем только первые 19 символов, т.е. дату и время         if(!TryStrToDateTime(szTime, DateTime)) ...

Это сообщение отредактировал(а) rsm - 25.9.2005, 16:00

exellent

В общем и целом, код ниже работает:

Код

AnsiString szTime;  TDateTime DateTime;  int i;  i = ListBox1->Items->Count;  if(!i) return;  while(i--)  {   szTime = ListBox1->Items->Strings[i];   szTime.SetLength(18);   if(!TryStrToDateTime(szTime, DateTime)) return;   if(DateTime <= Now())   {    Timer->Enabled=false;    ShowMessage("Событие наступило!");    ListBox1->ItemIndex=i;    ListBox1->Top=i;    Timer->Enabled=true;    return;   }  }

Только еще одна проблема. Как видно из кода, мне не нужно удалять сообщение из списка. Мне нужно только сообщить о его наступлении и выделить его. Приведенный же выше код продолжает сообщать о наступлении этого события.
Возникает две необходимости:
1. Сделать так, чтобы напоминание возникало только один раз.
2. Сделать так, чтобы "напоминальщик" не напоминал о событиях, которые были уже давно (но это необязательно).
Значит, надо сделать №1 из вышесказанного. Не подскажете, как? Хоть намекните, а то вы все за меня делаете...

А что это вдруг все замолчали?

Цитата(sim7 @ 28.9.2005, 20:09)

А что это вдруг все замолчали?

не в обиду будет сказано... просто я вот так со стороны смотрю... ты сам хоть чего-нибудь пишешь? ибо последние пару месяцев я видел только посты с готовыми решениями на твои вопросы...

Цитата

не в обиду будет сказано

Я не обижаюсь. Вы все правильно подметили. Я это тоже заметил. Но если я просто не знаю, как это написать? Если бы я хоть примерно знал, я бы и не спрашивал...

Попробовал прервать постоянное напоминание вот таким вот образом:

Код

AnsiString szTime;  TDateTime DateTime;  int i;  bool stop=false;  i = ListBox1->Items->Count;  if(!i) return;  while(i--)  {   while(!stop)   {    szTime = ListBox1->Items->Strings[i];    szTime.SetLength(18);    if(!TryStrToDateTime(szTime, DateTime)) return;    if(DateTime <= Now())    {     Timer->Enabled=false;     ShowMessage("Событие наступило!");     ListBox1->ItemIndex=i;     ListBox1->Top=i;     Timer->Enabled=true;     stop=true;     return;    }   }  }

Однако, цикл все равно продолжается. Почему так?

Цитата(sim7 @ 26.9.2005, 22:40)

1. Сделать так, чтобы напоминание возникало только один раз. 2. Сделать так, чтобы "напоминальщик" не напоминал о событиях, которые были уже давно

Всего одно условие изменить нужно:

Код

if(DateTime == Now())        {

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

Цитата(sim7 @ 2.10.2005, 12:06)

Однако, цикл все равно продолжается. Почему так?

Потому что переменная stop локальная, ее значение устанавливается заново при каждом входе в функцию.

Цитата

Всего одно условие изменить нужно

Я думал над этим. Правда, думал. Я просто хотел, чтобы кто-нибудь это подтвердил.

Цитата

локальная

Тогда ее можно объявить как static, тогда все будет нормально, да?
В принципе, я сделал немного по-другому. Вот так:

Код

AnsiString szTime;  TDateTime DateTime;  int i;  i = ListBox1->Items->Count;  if(!i) return;  while(i--)  {   szTime = ListBox1->Items->Strings[i];   szTime.SetLength(18); // берем только первые 18 символов, т.е. дату и время   if(!TryStrToDateTime(szTime, DateTime)) return;   if(DateTime <= Now())   {    Timer->Enabled=false;    CheckBox1->Checked=false;    MessageBox(NULL,"Одно из указанных в списке событие наступило! В списке заданное на это время событие было выделено.","Информация",MB_ICONINFORMATION);    ListBox1->ItemIndex=i;    ListBox1->TopIndex=i;    if(MessageBox(NULL,"Вы должны удалить наступившее событие, иначе вы не сможете снова включить напоминания (программа будет постоянно напоминать об уже прошедшем событии). Удалить событие? Если вы отвечаете \"Нет\", то вам придется сделать это вручную.","Информация",MB_ICONQUESTION|MB_YESNO)==IDYES)    {     ListBox1->Items->Delete(i);     MessageBox(NULL,"Наступившее событие было успешно удалено. Напоминания включены.","Информация",MB_ICONINFORMATION);     CheckBox1->Checked=true;     Form1->ListBox1->Items->SaveToFile("do.txt");    }    else MessageBox(NULL,"Удаление события отменено. Напоминания выключены.","Информация",MB_ICONINFORMATION);    return;   }  }

Добавлено @ 11:38
Но, думаю, все же ваш вариант лучше. Или оставить как есть? Мне в принципе и так и так нравится...

Цитата(sim7 @ 2.10.2005, 13:37)

Тогда ее можно объявить как static, тогда все будет нормально, да?

Нормально будет только в случае, если объявишь переменную как глобальную.

2Sim7: удивляюсь...удивляюсь... буквально развел чуваков... на 2 страницы резину растянул... как же ты "опытным"-то стал??? (не в обиду будет сказано) Но твою фразу "Сложная, наверное, задачка" я расцениваю как насмешку... Не, я понимаю если б ты числился новичком, хотя ладно - тема-то закрыта

Я, извиняюсь, опытный по количеству сообщений. Эти звания придумал не я и не вы, и не мне и не вам их оценивать! А в программировании я еще вовсе не считаю себя опытным, как вы сказали, я знаю прекрасно, что я новичок! У вас, может быть, все хорошо получается, а вот у меня туговато, особенно без учителя! Так что не надо меня ругать. Сам недоволен.
Закрывайте тему, вроде, все выяснили.

приношу свои извинения

оценивать может и не нам, но судят то по ним. и соответственно помогают как опытному...

P.S.
попроси у модераторов чтобы статус сменили на "не опытный"

Цитата

приношу свои извинения

Ладно, мир.

Цитата

попроси у модераторов чтобы статус сменили на "не опытный"

А можно? Ладно, тогда это мысль. Сейчас найдем кого-нибудь...

P.S. Модераторы, закройте тему! А то мы и я в частности не удержимся от оффтопа...