VPF::[Delphi] Помогите усовершенствовать часы

Verbatim512

Дата 26.4.2008, 16:36 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 30.3.2008
Где: МУСОРОГОРСК :)

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

1.У меня Курсовая. "часы с будильником".
Когда на будильнике устонавливаю время и нажимаю ОК!
Через определённое время появляется форма. С уведомлением. Например: Вставай.
При этом звучит одна стандартная мелодия windows "TADA".
Теперь к главному!!!
С помощью функции OpenDialog нужно чтобы я выбирал мелодию.
После того как я выбрал мелодию нажимаю на кнопку ОК.
По истечению времени должна появиться форма уже с другим звуковым сигналом.
«Звуки»
************************************************** *******************************
2.Потмо нужно сделать двойной циферблат. Уже есть 1-12 и еще нужно 13-24 «Циферблад»
************************************************** *******************************
3. У меня в курсовой есть будильник то значит когда я установил время и нажал кнопку «Ок» то на циферблате часов должна появиться стрелка которая указывает на ту временную точку когда прозвенит будильник. «Стрелка»

Кто сможет пожалуйста помогите. До сдачи 7 дней. НАдежда на вас!

Я нашел чтото подобное по звукам но не моге подогнать под мою прогу. Я скину скриншот или текст программы!!
Еслинаписал не внятно!
Вот моя ася 404508603 или email: [email protected]

Я не прошу от вас всего. Помогите хотябы с чемто. ПОЖ.

Присоединённый файл ( Кол-во скачиваний: 11 )

1.zip 19,95 Kb

ivan219

Дата 27.4.2008, 10:09 (ссылка)

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

Загрузка ...

Эксперт

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

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

Гдето так:

Код


Unit2;
.
.
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    procedure Timer2Timer(Sender: TObject);
.
.
.
var
  Form2: TForm2;
  NameMysic: String = 'tada.wav';
.
.
.
procedure TForm2.Button2Click(Sender: TObject);
begin
 if OpenDialog1.Execute then NameMysic := OpenDialog1.FileName;
end;

Unit3;
.
.
procedure TForm3.FormActivate(Sender: TObject);
begin
     Label1.Caption := Form2.Edit1.Text; // текст сообщения
     PlaySound(PChar(NameMysic) ,0,SND_ASYNC);  // звук
end;

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

Мой первый сайт и моя первая программа!!!!!

Verbatim512

Дата 27.4.2008, 11:32 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 30.3.2008
Где: МУСОРОГОРСК :)

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

ivan219. Спосибо за помощь!!!

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