Разработка приложения для Windows, представляющего собой MP3 плеер

2.1 Разработка программы

На стадии проработки (проектирования) программного продукта использовался метод расширения ядра, а в частности методика Джексона. Выбор метода проектирования объясняется рядом причин:

1 ) необходимость формирования корректной структуры входных данных;

2 ) необходимость формирования корректной структуры выходных данных.

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

После окончания проектирования программы, спроектированные данные были преобразованы в программный код (стадия создания).

На последней стадии универсального процесса разработки ПО - переходный период - происходило тестирование готового программного продукта.

На главной форме программы (см. рисунок 2) располагаются: главное меню, где располагаются кнопки управления - выбор каталога, пауза/воспроизведение, перемещение между треками. Тайминг воспроизведения трека. В центре располагается поле, где формируется список треков. Слева «бегунок», обеспечивающий уровень громкости воспроизведения.

Исполняемый файл программы называется Mp3p.exe и для своей работы не требует никаких дополнительных файлов. Файлы проекта расположены в приложении Б.

Рисунок 2. Главное окно программы

При работе возникают задержки времени в следующих случаях:

1 ) При загрузке программы в оперативную память;

2 ) Задержки, связанные с открытием файлов данных в процессе работы программы;

3 ) При добавлении, просмотре, изменении записей.

Все остальное время при работе программы выделяется под нужды пользователя и дополнительные подгрузки информации с жесткого диска.

Данная программа не предоставляет возможностей по настройке графического интерфейса под определенного пользователя. Изменение фона окон программы находится под контролем операционной системы, установленной на ПЭВМ.

Настройки по обработке данных в программе также отсутствуют.

Разрабатываемый проект состоит из одного файла (модулей), описание которых приведено в Приложении А.

2.2 Текст программы

{ MP3 плееер с регулятором громкости.}

unit mp3p_;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, MPlayer, ComCtrls,

MMSYSTEM, FileCtrl; // эти ссылки вставлены вручную

type

TForm1 = class(TForm)

// кнопки

SpeedButton1: TSpeedButton; // Предыдущая композиция

SpeedButton2: TSpeedButton; // Воспроизведение/Стоп

SpeedButton3: TSpeedButton; // Следующая композиция

SpeedButton4: TSpeedButton; // Выбор папки

ListBox1: TListBox; // Список композиций (mp3 файлов)

MediaPlayer1: TMediaPlayer; // медиа плеер

TrackBar1: TTrackBar; // регулятор громкости

Timer1: TTimer;

Label1: TLabel;

Label2: TLabel;

Shape1: TShape; // рамка вокруг кнопок

procedure FormCreate(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure TrackBar1Change(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

// эти объявления вставлены сюда вручную

procedure Play; // воспроизведение

procedure PlayList(Path: string); // формирует список MP3 файлов

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

var

SoundPath: string[255];

min,sec: integer; // время воспроизведения

volume: LongWord; // старшее слово - правый канал,

// младшее - левый.

// формирует список MP3 файлов

procedure TForm1.PlayList(Path: string);

var

lpBuf: PChar; // указатель на nul-terminated строку

sWinDir: string[128]; // обычная Паскаль строка

SearchRec: TSearchRec; // структура SearchRec содержит информацию

// о файле, удовлетворяющем условию поиска

begin

ListBox1.Clear;

// сформировать список mp3 файлов

if FindFirst(Path + '*.mp3', faAnyFile, SearchRec) =0 then

begin

// в каталоге есть файл с расширением WAV

// добавим имя этого файла в список

ListBox1.Items.Add(SearchRec.Name);

// пока в каталоге есть другие файлы с расширением WAV

while (FindNext(SearchRec) = 0) do

ListBox1.Items.Add(SearchRec.Name);

end;

ListBox1.ItemIndex := 0;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

PlayList('');

ListBox1.ItemIndex := 0;

Label1.Caption:=ListBox1.Items[ListBox1.itemIndex];

TrackBar1.Position := 7;

// старшее слово переменной volume - правый канал,

// младшее - левый

volume := (TrackBar1.Position - TrackBar1.Max+1)* 6500;

volume := volume + (volume shl 16);

waveOutSetVolume(WAVE_MAPPER,volume); // уровень сигнала

end;

// щелчок на названии произведения

procedure TForm1.ListBox1Click(Sender: TObject);

begin

// вывести в поле метки Label1 имя выбранного файла

if not SpeedButton2.Down

then SpeedButton2.Down := True;

Label1.Caption:=ListBox1.Items[ListBox1.itemIndex];

Play;

end;

// щелчок на кнопке Воспроизведение

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

if SpeedButton2.Down then

// пользователь нажал кнопку

// начать воспроизведение

Play

else

// если кнопка Воспроизведение нажата,

// то повторное нажатие останавливает

// воспроизведение

begin

MediaPlayer1.Stop;

Timer1.Enabled := False;

SpeedButton2.Down := False;

SPeedButton2.Hint := 'Play';

end;

end;

// кнопка К предыдущей

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

if ListBox1.ItemIndex > 0 then

ListBox1.ItemIndex := ListBox1.ItemIndex - 1;

Play;

end;

// кнопка К следующей

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

if ListBox1.ItemIndex < ListBox1.Count then

ListBox1.ItemIndex := ListBox1.ItemIndex + 1;

Play;

end;

// пользователь изменил положение

// регулятора громкости

procedure TForm1.TrackBar1Change(Sender: TObject);

begin

volume := 6500* (TrackBar1.Max - TrackBar1.Position);

volume := volume + (volume shl 16);

waveOutSetVolume(WAVE_MAPPER,volume);

end;

// воспроизвести композицию,

// название которой выделено

// в списке ListBox1

procedure TForm1.Play;

begin

Timer1.Enabled := False;

Label1.Caption:=ListBox1.Items[ListBox1.itemIndex];

MediaPlayer1.FileName := SoundPath + ListBox1.Items[ListBox1.itemIndex];

try

Mediaplayer1.Open;

except

on EMCIDeviceError do

begin

ShowMessage('Ошибка обращения к файлу '+

ListBox1.Items[ListBox1.itemIndex]);

SpeedButton2.Down := False;

exit;

end;

end;

MediaPlayer1.Play;

min :=0;

sec :=0;

Timer1.Enabled := True;

SpeedButton2.Hint := 'Stop';

end;

// сигнал от таймера

procedure TForm1.Timer1Timer(Sender: TObject);

begin

// изменить счетчик времени

if sec < 59

then inc(sec)

else begin

sec :=0;

inc(min);

end;

// вывести время воспроизведения

Label2.Caption := IntToStr(min)+':';

if sec < 10

then Label2.Caption :=

Label2.Caption +'0'+ IntToStr(sec)

else Label2.Caption :=

Label2.Caption + IntToStr(sec);

// если воспроизведение текущей композиции

// не завершено

if MediaPlayer1.Position < MediaPlayer1.Length

then exit;

// воспроизведение текущей композиции

// закончено

Timer1.Enabled := False; // остановить таймер

MediaPlayer1.Stop; // остановить плеер

if ListBox1.ItemIndex < ListBox1.Count // список не исчерпан

then begin

ListBox1.ItemIndex := ListBox1.ItemIndex + 1;

Play;

end

end;

// Щелчок на кнопке Папка

// Выбрать папку, в которой находятся MP3 файлы

procedure TForm1.SpeedButton4Click(Sender: TObject);

var

Root: string; // корневой каталог

pwRoot : PWideChar;

Dir: string;

begin

Root := ''; // корневой каталог - папка Рабочий стол

GetMem(pwRoot, (Length(Root)+1) * 2);

pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);

if not SelectDirectory('Выберите папку', pwRoot, Dir)

then Dir :=''

else Dir := Dir+'\';

// каталог, в котором находятся MP3 файлы выбран

SoundPath := Dir;

PlayList(SoundPath);

end;

end.

2.3 Тестирование программы

Программа тестировалась в ОС Windows XP и Windows 7(Seven). При тестировании программы были использованы аудио файлы с различными техническими характеристиками.

Тестирование программы прошло успешно. Программа правильно создает трек-лист из выбранного каталога, контролирует правильность воспроизведения данных, Программа исправна и готова к работе.

2.4 Внедрение

Данная программа не требует специальной предварительной инсталляции и соответственно не содержит программы инсталлятора. Это избавляет пользователя от необходимости получать дополнительные сведения о процессе установки, и делает процесс подготовки программы к использованию максимально простым. Для того, что бы использовать программу, следует лишь скопировать exe-файл и папку с файлами программы. Процесс копирования можно осуществить с помощью любого файлового менеджера, способного функционировать под ОС Windows.

Для загрузки программы в память компьютера необходимо в любом имеющемся файловом менеджере запустить исполняемый файл данной программы - файл Mp3p.exe. Либо при наличии в файловом менеджере командной строки напечатать название файла - Mp3p.exe - и нажать клавишу Enter.

Откроется окно пользовательского интерфейса (рис. 3). Все действия можно выполнить из главного меню интерфейса - кнопками на главной форме. При нажатии кнопки «», открывается проводник, в котором необходимо выбрать каталог, содержащий аудио файлы (рис. 4). При выборе каталога - формируется трек-лист, в поле приложения (рис.5). Для воспроизведения трека, необходимо нажать кнопку «», для остановки - «», бегунок слева регулирует громкость. Для выбора определенного трека можно использовать кнопками «» или воспользоваться мышкой. Приложение в режиме воспроизведения изображено на рис.6.

Рисунок 3. Главное окно программы

Рисунок 4. Выбор каталога с аудио файлами

Рисунок 5. Формирование трек-листа из выбранного каталога

Рисунок 6. Вид приложения в ежимее воспроизведения аудио файла

Заключение

В результате выполнения работы создана программа «МР3 плеер».

Разработан интерфейс программы, алгоритм и программа согласно анализу технического задания. Кроме этого создана документация к разработанному программному продукту «МР3 плеер».

Получившаяся программа является приложением начального уровня и обладает возможностью дальнейшего усовершенствования. Например, можно разработать дополнительное воспроизведение других форматов аудио файлов, разработать новый интерфейс - различные формы кнопок и другие задумки программиста. Григорьев, А.Б. О чем не пишут в книгах по Delphi [Текст] - СПб.: БХВ-Петербург, 2008. - С. 56

В процессе разработки программы «МР3 плеер» расширены навыки самостоятельной творческой деятельности.

11) Условия выполнения программы.

Для выполнения программы необходим IBM совместимый компьютер с процессором 700МГц и выше, ОЗУ объемом не менее 128 Мб и стандартным набором внутренних и внешних устройств. Программное обеспечение - ОС Windows 98 и более поздние версии Windows.

2) Выполнение программы.

Для того чтобы запустить программу на панели управления щелкните кнопкой мыши кнопку Пуск. Выберете в развернувшимся меню пункт Программы->проводник. В проводнике выберете нужный каталог с файлом Mp3p.exe и дважды щелкните по нему левой кнопкой мыши. Программа запустится.

В ходе курсовой работы мною были изучены некоторые аспекты программирования на языке Delphi. При оформлении курсовой работы был получены навыки оформления программной документации в соответствии с требованиями ВУЗа, а также большой практический опыт работы в Delphi 7. Теоретические сведения были закреплены практическими занятиями.

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

Задачами курсовой работы являлись:

- постановка и решение задач прикладного программирования традиционным способом;

- решение задач в среде языка программирования Delphi.

Во время написания своей курсовой работы по теме: Напишите программу MP3 Player. Программа должна обеспечить выбор прослушиваемого файла, регулировку громкости звука, перемотку файла.

Архив с приложением и со всеми исходными файлами размещен в приложении В.

Глоссарий

Список использованных источников

1. Архангельский, А.Я. Delphi 2006. Справочное пособие [Текст] -М.: -Бином-Пресс, 2006. -1152 c.-ISBN 5-9518-0138-9.

2. Галисеев, Г.В. Компоненты в Delphi 7. Профессиональная работа [Текст] -М.: Диалетика, 2004. -624 c. -ISBN 5-8459-0555-9.

3. Григорьев, А.Б. О чем не пишут в книгах по Delphi [Текст] - СПб.: БХВ-Петербург, 2008. -576 с. -ISBN 978-5-9775-0190-3.

4. Гудман С., Хидетниеми С. Введение в разработку и анализ алгоритмов. [Текст] - М., 2006. - 220 с. - ISBN: 5-8459-0526-5

5. Дарахвелидзе П., Марков Е. Программирование в Delphi 4. [Текст] СПб.: БХВ. СПб., 2005.- 209 с. - ISBN: 5-9556-00020-5

6. Карпов Б. Delphi: специальный справочник. [Текст] - СПб.: Питер, 2006. - 236 с. - ISBN: 9-6679-9220-9

7. Культин Н. Delphi в задачах и примерах. [Текст] - СПб.: БХВ-Петербург, 2007. - 436 с. - ISBN: 5-8046-0196-2

8. Кэнту, М. Delphi 6 для профессионалов [Текст] / Марко Кэнту - СПб.: -Питер, 2002. -ISBN 5-318-00403-2. -1088 с.

9. Марков Е. Программирование в Delphi 7. [Текст] -СПб: БХВ-Петербург, 2008. - 306 с. - ISBN: 5-8046-0113-X

10. Марков, Е. Никифоров, В. Delphi 2005 [Текст] - СПб.: -БХВ-Петербург, 2005. -896 с.-ISBN 5-94157-701-Х.

11. Молочков, В.П. От Delphi 7 к Delphi 2006 для начинающих [Текст] -М.: Диалог-Мифи, 2006. -304 с. -ISBN 5-86404-213-7.

12. Сухарев, М.В. Основы Delphi [Текст] - М.: -Наука и техника, 2004. --600 с.-ISBN 5-94387-129-2.

13. Фленов, М. Delphi 2005. Секркты программирования [Текст] - СПб.: -Питер, 2005. -272 с. -ISBN 5-469-01164-Х.

14. Фленов, М. Библия Delphi [Текст] - СПб.: Питер, 2007. -800 с.-ISBN 978-5-9775-01163.

15. Шупрута, В.В. Delphi 2005 [Текст] / В.В. Шупрута - М.: НТ Пресс, 2005. -352 с. -ISBN 5-477-00118-6.

Размещено на Allbest.ru