Привет MOTOCoder и нетолько!
Сповибо, что зделал из 3х форм 2ве, но суть была не в этом. Проблема тоже нев этом.
Да и объясни что это за файл "Project1.bdsproj.local" Я такого не невидел!
Если с можешь помоги, а если нет то и на том спосибо!
У меня Курсовая. "часы с будильником".
Когда на будильнике устонавливаю время и нажимаю ОК!
Через определённое время появляется форма. Су ведомлением. Например: Всиавай.
При этом звучит одна стандартная мелодия windows "TADA".
Теперь к главному!!!
У меня должно в Combo Box быть помещено 5 мелодий .wav формата.
Я должен выбрать одну из них. После чего нажать на кнопку ОК.
По истечению времени должна появиться форма уже с другим звуковым сигналом.
Я её пробовал прописать через Case, но у меня шото не сильно получилось.
+2 звуковых файла.
Вторая моя проблемка:
(стрелка от будильника) Когда я устонавливаю время в будильнике и нажимаю кнопку "Ок" то форма с будильником исчезает и на форме там где часы должна появиться стрелка которая указывает на ту временную точку где должен прозвинеть будильник. (это моя проблемка) Я не могу сделать так чтобы она там появлялась и правильно роботала.
Прикрепляю вам програмку. Подправте её пожалуйста.
Во! Так вроде!
Андрей.
Повтор(Я просто не знаю как ответитьMOTOCoder)
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
- Вложения
-
- Звуки.zip
- (12.1 КБ) 16 скачиваний
-
- Часы с будильником.zip
- (25.83 КБ) 16 скачиваний
На счет стрелок - координаты можно высчитать так:
[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. Чем старая тема не устраивает?
[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. Чем старая тема не устраивает?
Ни что так не ограничивает фантазию программиста, как компилятор...
MOTOCoder большое те спосибо за помощь. Дело в том меня всё устраивает, но просто мы невстречальсь с такими файлами!!!
С какими "такими" файлами?" писал(а):просто мы невстречальсь с такими файлами!!!
Ни что так не ограничивает фантазию программиста, как компилятор...
- Игорь Акопян
- Сообщения: 1440
- Зарегистрирован: 13 окт 2004, 17:11
- Откуда: СПБ
- Контактная информация:
Tofast, читаем правила, вдумчиво!
1. Название темы - кандидат на удаление без прочтения!
2. Раздел не тот
1. Название темы - кандидат на удаление без прочтения!
2. Раздел не тот
