Порядок выполнения 1 часть

Постановка задачи

Разработать приложение, позволяющее воспроизводить звуковые файлы различных форматов, приложение должно выводить информацию о длине звукового файла, времени воспроизведения и времени, которое осталось до конца звучания файла.

1. Создать новый проект.

2. Для формы установить следующие значения свойств:

Borderlcons / biMaximize False

BorderStyle bsSingle

Caption Позолоченный граммофон

Color СlGray

Position poScreenCenter

3. Установить на форму компонент MediaPlayer (System), для свойства Visible установите значение False.

4. Установитm на форме следующие компоненты: шесть кнопок, четыре метки, таймер, компонент для открытия файлов/

Примечание:

в Label1 (самый большой индикатор) будет показываться текущая позиция в файле.

в Label2 (справа сверху) должно отображаться имя открытого файла

в Label3 (справа в середине) - длина открытого файла

в Label4 - сколько осталось времени до конца файла.

5. Для всех меток установить значение свойства AutoSize = False

6. Привести форму в соответствие с образцом.

7. Для всех кнопок установить значение свойства Cursor crHandPoint

8. Самостоятельно изменить интерфейс проекта (цвет, шрифты) и сохранить.

9. Для инициализации объектов для Form выберите событие OnActivate и введите код

label1.Font.Color:= clGreen; Label2.Font.Color:= clGreen;

LabeL3.Font.Color:= clGreen; Label4.Font.Color:= clGreen;

Label1.Caption:= '00:00'; Label2.Caption:= 'no file...';

LabeL3.Caption:= '00:00'; LabeL4.Caption:= '00:00';

//задание фильтра для OpenDialog

OpenDialog1.Filter:= 'Wav files (*.wav)|*.WAV';

10. Определите процедуру, которая выполняется при открытии звукового файла ( кнопка OPEN)

If OpenDialog1.Execute=true Then

Begin

MediaPlayer1.FileName:= OpenDialog1.FileName;

MediaPlayer1.Open; // открываем файл

Label1.Font.Color:= clLime; // включаем индикаторы

Label2.Font.Color:= clLime;

LabeL3.Font.Color:= clLime;

Label4.Font.Color:= clLime;

Output; // присваиваем индикаторам значения

Timer1.Enabled:=True;

11. Создать новую функцию MusicToStr и процедуру Output, которая преобразует длину файла, текущую позицию или количество оставшегося до конца звучания времени в форму, легкую для восприятия.

Function TForm1.MusicToStr(n: longint): string;

Дата добавления: 2014-10-23