Поиск:

Ответ в темуСоздание новой темы Создание опроса
> будильник(или напоминалка), помогите найти ошибку 
V
    Опции темы
Веталька
Дата 16.9.2009, 21:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 6
в общем в оприделенное время должгно выскочить "дзень-дзень", время настает а его нету, такое предчуствие что код подчеркнутый красным не "тикает" , что посоветуете?

установка времени
Код

Ttime = StrToDateTime(Edit1->Text);

и сам "будильник"
Код

void __fastcall TForm3::Timer2Timer(TObject *Sender)
{
Label1->Caption = FormatDateTime("hh:nn:ss",Time());
Timer2->Interval=1;

if (FormatDateTime("hh:nn:ss",Time()) == Ttime) //типа крастная строчка:)
    {
           MessageBox(NULL,TEXT("Дзень-Дзень"),TEXT("будильник"),MB_OK);
    }
}


Это сообщение отредактировал(а) Веталька - 16.9.2009, 21:57


--------------------
Ради зачета студент идет на все, даже на лекции........................ 
PM MAIL ICQ   Вверх
Данкинг
Дата 16.9.2009, 22:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Может, я чего-то не догоняю, но зачем FormatDateTime нужно, почему просто нельзя сравнить Time() ?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Веталька
Дата 16.9.2009, 22:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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

Может, я чего-то не догоняю, но зачем FormatDateTime нужно, почему просто нельзя сравнить Time() ?


 можно сравнить и Time(), но проблема остается


--------------------
Ради зачета студент идет на все, даже на лекции........................ 
PM MAIL ICQ   Вверх
Данкинг
Дата 16.9.2009, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Можно просто выделить часы с минутами (секунды, думаю, тебе не нужны) из Time() и сравнить их (часы с минутами) порознь. Может, тупо, зато действенно. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Веталька
Дата 16.9.2009, 22:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 6
нет, не поможет, я с обработчиками намутил, сам уже не знаю что

Код

void __fastcall TForm3::Button3Click(TObject *Sender)
{
Ttime = StrToDateTime(Edit1->Text);
  MessageBox(NULL,TEXT("будильник установили"),TEXT("будильник"),MB_OK);





//int nn = StrToInt(Edit1->Text);
//int ss = StrToInt(Edit1->Text);
}
//---------------------------------------------------------------------------


void __fastcall TForm3::Timer2Timer(TObject *Sender)
{
if (Ttime = Time())
    {
           MessageBox(NULL,TEXT("Дзень-Дзень"),TEXT("будильник"),MB_OK);
    }
Label1->Caption = Time();
}



етот код должен сравнивать считаное время с действительным и пиликнуть при его совпадении, но делать ето он не хочет


--------------------
Ради зачета студент идет на все, даже на лекции........................ 
PM MAIL ICQ   Вверх
Данкинг
Дата 16.9.2009, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Веталька @  16.9.2009,  23:44 Найти цитируемый пост)
етот код должен сравнивать считаное время с действительным и пиликнуть при его совпадении, но делать ето он не хочет 

Посмотри по срабатыванию таймера значения Ttime и времени (Time()) - действительно ли они равны.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Веталька
Дата 16.9.2009, 22:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 6
Код

Ttime = StrToDateTime(Edit1->Text);


строчка должна считывать время но она ето не делает, подскажите выход


--------------------
Ради зачета студент идет на все, даже на лекции........................ 
PM MAIL ICQ   Вверх
Данкинг
Дата 16.9.2009, 23:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
А просто StrToTime?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Веталька
Дата 16.9.2009, 23:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 6
уже все перепробовал, результат - 0


--------------------
Ради зачета студент идет на все, даже на лекции........................ 
PM MAIL ICQ   Вверх
Данкинг
Дата 16.9.2009, 23:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Вот так у меня работает:
Код

TForm1 *Form1;
AnsiString ttime;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ttime=Edit1->Text;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (TimeToStr(Time())==ttime)
 {
  ShowMessage("Дзынь");
 }
}

 smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Веталька
Дата 16.9.2009, 23:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 6
и у меня заработало smile , пасибо большое


--------------------
Ради зачета студент идет на все, даже на лекции........................ 
PM MAIL ICQ   Вверх
Данкинг
Дата 16.9.2009, 23:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Теперь главное выставить нужный интервал таймера: если поставить 100, к примеру, так за секунду 10 мессаг вылезет, а если 2000 - то вообще не попадёт.

Это сообщение отредактировал(а) Данкинг - 16.9.2009, 23:39


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Веталька
Дата 17.9.2009, 12:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 6
 секунда = 1000, а дальшеи пощитать можноsmile


--------------------
Ради зачета студент идет на все, даже на лекции........................ 
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0538 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.