Повтор(Я просто не знаю как ответитьMOTOCoder)

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill

Ответить
Tofast
Сообщения: 4
Зарегистрирован: 28 мар 2008, 16:47

Привет MOTOCoder и нетолько!

Сповибо, что зделал из 3х форм 2ве, но суть была не в этом. Проблема тоже нев этом.
Да и объясни что это за файл "Project1.bdsproj.local" Я такого не невидел!
Если с можешь помоги, а если нет то и на том спосибо!


У меня Курсовая. "часы с будильником".
Когда на будильнике устонавливаю время и нажимаю ОК!
Через определённое время появляется форма. Су ведомлением. Например: Всиавай.
При этом звучит одна стандартная мелодия windows "TADA".
Теперь к главному!!!
У меня должно в Combo Box быть помещено 5 мелодий .wav формата.
Я должен выбрать одну из них. После чего нажать на кнопку ОК.
По истечению времени должна появиться форма уже с другим звуковым сигналом.
Я её пробовал прописать через Case, но у меня шото не сильно получилось.

+2 звуковых файла.


Вторая моя проблемка:

(стрелка от будильника) Когда я устонавливаю время в будильнике и нажимаю кнопку "Ок" то форма с будильником исчезает и на форме там где часы должна появиться стрелка которая указывает на ту временную точку где должен прозвинеть будильник. (это моя проблемка) Я не могу сделать так чтобы она там появлялась и правильно роботала.

Прикрепляю вам програмку. Подправте её пожалуйста.

Во! Так вроде!


Андрей.
Вложения
Звуки.zip
(12.1 КБ) 16 скачиваний
Часы с будильником.zip
(25.83 КБ) 16 скачиваний
MOTOCoder
Сообщения: 548
Зарегистрирован: 14 янв 2008, 20:27
Откуда: Россия, Псков

На счет стрелок - координаты можно высчитать так:

[syntax='Delphi']
const
GRAD = 0.0174532;
procedure Vector(x0,Y0:integer;angle:integer;L:integer);
var
ZX,ZY:integer;
a:integer;
begin
a:=360-angle+90;
canvas.MoveTo(x0, y0) ;
zx := Round(x0 + l*cos(a*GRAD));
zy := Round(y0 - l*sin(a*GRAD));
canvas.LineTo(zx,zy);
end;
[/syntax]
Здесь X0, Y0-координаты центра
L - длина стрелки
angle - угол в градусах.
На счет прикрепленного проекта-в нем не хватает файла Unit3.pas.
P.S. Чем старая тема не устраивает?
Ни что так не ограничивает фантазию программиста, как компилятор...
Tofast
Сообщения: 4
Зарегистрирован: 28 мар 2008, 16:47

MOTOCoder большое те спосибо за помощь. Дело в том меня всё устраивает, но просто мы невстречальсь с такими файлами!!!
MOTOCoder
Сообщения: 548
Зарегистрирован: 14 янв 2008, 20:27
Откуда: Россия, Псков

&quot писал(а):просто мы невстречальсь с такими файлами!!!
С какими "такими" файлами?
Ни что так не ограничивает фантазию программиста, как компилятор...
Аватара пользователя
Игорь Акопян
Сообщения: 1440
Зарегистрирован: 13 окт 2004, 17:11
Откуда: СПБ
Контактная информация:

Tofast, читаем правила, вдумчиво!
1. Название темы - кандидат на удаление без прочтения!
2. Раздел не тот
Изображение
Ответить