Создание проигрывателя MP3 Player

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

КУРСОВОЙ ПРОЕКТ

по дисциплине «Объектно-ориентированное программирование»

Создание проигрывателя MP3 Player

студентки группы АСУ- 08 - 9

Спудис Александры Андреевны

Специальность 230103

2011 г.

СОДЕРЖАНИЕ

Введение

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

1.1 Организационно-экономическая сущность задачи

1.2 Входная информация

1.3 Выходная информация

2. Техническое и программное обеспечение

2.1 Характеристика технических средств

2.2 Характеристика средств моделирования и программирования

3. Рабочая часть

3.1 Модель (метод) решения задачи

3.2 Описание алгоритма решения задачи

3.3 Описание программы

3.4 Руководство пользователю

4. Отладка и сопровождение программы

Заключение

Список литературы

Приложение

ВВЕДЕНИЕ

В настоящее время мультимедиа-технологии являются бурно развивающейся областью информационных технологий. В этом направлении активно работает значительное число крупных и мелких фирм, технических университетов и студий (в частности 1ВМ, Aрр1е, Моtого1а, Philips, Sоnу, Intel и др.). Области использования чрезвычайно многообразны: интерактивные обучающие и информационные системы, САПР, развлечения и др.

Основными характерными особенностями этих технологий являются:

· объединение многокомпонентной информационной среды (текста, звука, графики, фото, видео) в однородном цифровом представлении;

· обеспечение надежного (отсутствие искажений при копировании) и долговечного хранения (гарантийный срок хранения -- десятки лет) больших объемов информации;

· простота переработки информации (от рутинных до творческих операций).

Достигнутый технологический базис основан на использовании нового стандарта оптического носителя DVD (DigitalVersalite/VideoDisk), имеющего емкость порядка единиц и десятков гигабайт и заменяющего все предыдущие: CD-ROM, Video-CD, CD-audio. Использование DVD позволило реализовать концепцию однородности цифровой информации. Одно устройство заменяет аудиоплейер, видеомагнитофон, CD-ROM, дисковод, слайдер и др. В плане представления информации оптический носитель DVD) приближает ее к уровню виртуальной реальности.

Многокомпонентную мультимедиа-среду целесообразно разделить на три группы: аудиоряд, видеоряд, текстовая информация.

Аудиоряд может включать речь, музыку, эффекты (звуки типа шума, грома, скрипа и т.д., объединяемые обозначением WAVE (волна) [2]. Главной проблемой при использовании этой группы мультисреды является информационная емкость. Для записи одной минуты WAVE-звука высшего качества необходима память порядка 10 Мбайт, поэтому стандартный объем CD (до 640 Мбайт) позволяет записать не более часа WAVE. Для решения этой проблемы используются методы компрессии звуковой информации.

Другим направлением является использование в мультисреде звуков (одноголосая и многоголосая музыка, вплоть до оркестра, звуковые эффекты) MIDI (MusicalInstrumentDigitaleInterface). В данном случае звуки музыкальных инструментов, звуковые эффекты синтезируются программно-управляемыми электронными синтезаторами. Коррекция и цифровая запись MIDI-звуков осуществляется с помощью музыкальных редакторов (программ-секвенсоров). Главным преимуществом MIDI является малый объем требуемой памяти -- 1 минута MIDI-звука занимает в среднем 10 Кбайт.

Видеоряд по сравнению с аудиорядом характеризуется большим числом элементов. Выделяют статический и динамический видеоряды.

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

Динамический видеоряд представляет собой последовательность статических элементов (кадров).

Для статических изображений один полный экран требует следующие объемы памяти:

· в режиме 640 х 480, 16 цветов -- 150 кбайт;

· в режиме 320 х 200, 256 цветов -- 62,5 кбайт;

· в режиме 640 х 480, 256 цветов -- 300 кбайт.

Такие значительные объемы при реализации аудио- и видеорядов определяют высокие требования к носителю информации, видеопамяти и скорости передачи информации.

При размещении текстовой информации на CD-ROM нет никаких сложностей и ограничений ввиду большого информационного объема оптического диска.

Основные направления использования мультимедиа-технологий:

· электронные издания для целей образования, развлечения и др.;

· в телекоммуникациях со спектром возможных применений от просмотра заказной телепередачи и выбора нужной книги до участия в мультимедиа-конференциях. Такие разработки получили название InformationHighway;

· мультимедийные информационные системы («мультимедиа-киоски»), выдающие по запросу пользователя наглядную информацию.

С точки зрения технических средств на рынке представлены как

полностью укомплектованные мультимедиа-компьютеры, так и отдельные комплектующие и подсистемы (MultimediaUpgradeKit), включающие в себя звуковые карты, приводы компакт-дисков, джойстики, микрофоны, акустические системы.

Для персональных компьютеров класса IВМ РС утвержден специальный стандарт МРС, определяющий минимальную конфигурацию аппаратных средств для воспроизведения мультимедиа-продуктов. Для оптических дисков CD-ROM разработан международный стандарт (ISО 9660).

Данная работа посвящена созданию МП3 плеера с функциями обычного проигрователя.

Целью данной работы является разработка MP3 плеера.

Задачи данного проекта:

1. Описать и разработать мультимедиа-проигрыватель;

2. Создать удобный пользовательский интерфейс;

3. Создать эквалайзер регулятор громкости;

4. Создать строку описания треков;

5. Создать программу меню и информацию «О программе»

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

Объектом исследования является ООП.

Курсовая работа состоит из введения, четырех глав, заключения, списка литературы и приложений.

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

1. ПОСТАНОВКА ЗАДАЧИ

1.1 Организационно-экономическая сущность задачи

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

Области применения мультимедиа -технологий в телемедицине

Содержание самого понятия ТМ в аспекте применения мультимедиа-технологий претерпело в 1990-х годах определенную эволюцию. До указанного времени наиболее распространенная интерпретация этого понятия связывалась с аудиовизуальным общением между врачом и пациентом или между врачами посредством телевизионной аппаратуры. Качественное изменение в технической базе ТМ произошло сравнительно недавно, когда на смену аналоговому телевидению пришли глобальные сетевые коммуникации на базе цифровых каналов (Интернет, интранет, ISDN), использующие мощные мультимедийные компьютеры и системы компьютерных видеоконференций.

Игры - безусловно, одна из самых массовых областей применения мультимедиа

Еще некоторые области применения мультимедиа

Обучение с использованием компьютерных технологий.

Специальными исследованиями установлено, что из услышанного в памяти остается только четверть, из увиденного -- треть, при комбинированном воздействии зрения и слуха -- 50%, а если вовлечь учащегося в активные действия в процессе изучения при помощи мультимедийных приложений -- 75%

Областью применения MP3 проигрывателя является частное

прослушивание MP3 файлов с возможностями: регулировки громкости, баланса колонок, настройки звука при помощи эквалайзера, просмотра окна «О программе», а также просмотра информации о проигрываемом файле и ее корректировки.

В целом к программному продукту предъявляются следующие требования:

а) контроль вводимых данных;

б) диалог с пользователем, реализованный с помощью меню;

в) интуитивно понятный интерфейс;

г) организация тестирования;

д) предоставление справочного материала;

е) хранение справочного материала в файле на диске;

1.2 Входная информация

Проигрыватель MP3 Player 1.0 можно использовать для воспроизведения мультимедийных файлов с расширением MP3, находящихся на компьютере, воспроизведения компакт-дисков и DVD-дисков. Можно также синхронизировать мультимедийные файлы с переносным устройством.

Формат MP3 (более точно, англ. MPEG-1/2/2.5 Layer 3; но не MPEG-3) -- третий слой формата кодирования звуковой дорожки MPEG, лицензируемый формат файла для хранения аудиоинформации.

MP3 является одним из самых распространённых и популярных форматов цифрового кодирования звуковой информации с потерями. Он широко используется в файлообменных сетях для оценочной передачи музыкальных произведений. Формат может проигрываться практически во всех популярных операционных системах, на большинстве портативных аудиоплееров, а также поддерживается всеми современными моделями музыкальных центров и DVD-плееров.

1.3 Выходная информация

Начало работы с проигрывателем MP3 Player v1.0

Рисунок 1. Главная форма программы

MP3 Player v1.0 содержит блок для списка воспроизведения, регулятор громкости, временной ползунок, таймер отсчета времени воспроизведения.

В окне проигрывателя находится 8 видов, изменяемых звуковых эффектов. Если после запуска приложения в нем не оказалось файлов для проигрывания и запущено на воспроизведение, то всплывет окно с ошибкой вида:



Если файлов не обнаружено и произведена попытка перемотать на следующий тег или на предыдущий, то всплывет окно с ошибкой.

Окно «Помощь»

Окно «О программе»

2. ТЕХНИЧЕСКОЕ И ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ

2.1 Характеристика технических средств

Для корректной работы программы необходимо наличие компьютера со следующей конфигурацией:

- видеокарта с поддержкой режима 640x480, 16 цветов;

- процессор 80386 и выше;

- VGA монитор;

- 1Mb оперативной памяти;

- клавиатура;

- мышь;

-колонки;

- дисковод гибких дисков.

2.2 Характеристика средств моделирования и программирования

ОС MS-WindowsXP. В основе системы Windows XP лежит код Windows NT и Windows 2000, зарекомендовавший себя надежностью и характеризуемый 32-разрядной вычислительной архитектурой. ХР унаследовала от NT/2000 и более совершенный механизм управления памятью, чем у Windows 95, 98 или Me, и лучший аппарат управления многозадачностью.

Windows XP поставляется в двух вариантах - Home и Professional (также существует находящаяся еще в развитии Windows XP Server).

Версия XP Home позиционируется как ОС на смену линейки 9x/Me. В ее комплект поставки входит большое количество программ, ориентированных на развлечения и досуг: игры, специализированные мультимедиа-приложений, графические и видеоредакторы, а также утилиты для работы в Интернете.

XP Professional позиционируется как эффективная замена Windows 2000 Professional. Она поддерживает множество бизнес-приложений, работу с большими локальными сетями, и предназначена, в первую очередь, для использования в корпоративном секторе рынка. Эта версия, в отличие от версии Home, дополнительно поддерживает такие функции:

- RemoteDesktop - позволяет удаленную работу на компьютере;

- OfflineFilesandFolders - позволяет иметь доступ к сетевым ресурсам когда отключены от сервера;

- Scalableprocessorsupport - поддержка многопроцессорных систем;

- EncryptingFileSystem - шифрование файлов на средствами файловой системы;

- AccessControl - ограничение доступа к файлам, программам и другим ресурсам;

- Centralizedadministration - централизованое администрирование системы в рамках домена;

- GroupPolicy - облегчает администрирование групп пользователей на компьютере;

- SoftwareInstallationandMaintenance - автоматически инсталлирует, конфигурирует, ремонтирует и удаляет программное обеспечение;

- RoamingUserProfiles - доступ к Вашим документам и настройкам из любого места, где Вы подсоединились в домен;

- RemoteInstallationService (RIS) - поддержка удаленной инсталляции операционной системы по сети;

- Multi-lingualUserInterface (MUI) add-on - поддержка изменения языков интерфейса различных пользователей.

Хотя официальные системные требования и не кажутся слишком завышеннми, для более-менее комфортной работы понадобится процессор не менее 500 МГц и не менее 128 Мб оперативной памяти. Но, если пожертвовать всякими "примочками" и визуальными эффектами, то вполне комфортно можно будет работать и на менее мощных системах.

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

Delphi - это комбинация нескольких важнейших технологий:

- Высокопроизводительный компилятор в машинный код;

- Объектно-ориентированная модель компонент;

- Визуальное (а, следовательно, и скоростное) построение приложений из программных прототипов;

- Масштабируемые средства для построения баз данных.

Компилятор, встроенный в Delphi, обеспечивает высокую производительность, необходимую для построения приложений в архитектуре “клиент-сервер”. Он предлагает легкость разработки и быстрое время проверки готового программного блока, характерного для языков четвертого поколения (4GL) и в то же время обеспечивает качество кода, характерного для компилятора 3GL.

Кроме того, Delphi обеспечивает быструю разработку без необходимости писать вставки на Си или ручного написания кода (хотя это возможно).

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

В этом смысле проектирование в Delphi мало чем отличается от проектирования в интерпретирующей среде, однако после выполнения компиляции мы получаем код, который исполняется в 10-20 раз быстрее, чем, то же самое, сделанное при помощи интерпретатора.

Объектно-ориентированная модель программных компонентов делается на максимальном реиспользовании кода. Это позволяет разработчикам строить приложения весьма быстро из заранее подготовленных объектов, а также дает им возможность создавать свои собственные объекты для среды Delphi. Никаких ограничений по типам объектов, которые могут создавать разработчики, не существует.

CредаDelphi включает в себя полный набор визуальных инструментов для скоростной разработки приложений (RAD - rapidapplicationdevelopment), поддерживающей разработку пользовательского интерфейса и подключение к корпоративным базам данных. VCL - библиотека визуальных компонент, включает в себя стандартные объекты построения пользовательского интерфейса, объекты управления данными, графические объекты, объекты мультимедиа, диалоги и объекты управления файлами, управление DDE и OLE.

3. РАБОЧАЯ ЧАСТЬ

3.1 Модель (метод) решения задачи

Концептуальная модель представлена следующей схемой:

Рисунок 2. Концептуальная модель проекта

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

Помимо файлов для работы с приложением в блоке «Сбор информации о системе» существует методическое пособие для обеспечения подробной информацией о системе пользователя. Выходные данные объектов модели (плеер, меню, окно справки) должны представлять собой полностью систематизированную и структурированную систему, в рамках разрабатываемого приложения. «Вывод справки» не долен содержать сплошной текст, его необходимо поддерживать ассоциативными, визуальными образами основных, функций приложения. Каждый объект меню должен иметь удобную навигацию. Сервисные функции объектов должны содержать набор средств защиты.

3.2 Описание алгоритма решения задачи

Рисунок 3. Блок-схема главного модуля

3.3 Описание программы

В данной курсовой работе представлена программа для воспроизведения MP3 файлов, которая содержит блок для списка воспроизведения, регулятор громкости.

Рисунок 4. Взаимосвязь программных компонентов задачи

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

В окне проигрывателя находится 8 видов, изменяемых звуковых эффектов.

- Distortion - 5 ползунков

- Chorus - 5 ползунков

- Flanger - 5 ползунков

- Equalizer - 3 ползунка

- Compressor - 1 ползунок

- Gargle - 1 ползунок

- Echo - включатель/выключатель

- Reverb - включатель/выключатель

Данное программное приложение можно запустить с любого носителя информации при наличии файла bass.dll двойным щелчком левой кнопкой мыши или через контекстное меню. Программа предназначена для проигрывания MP3 файлов.

Размер внешней памяти для хранения данного программного приложения 2 МБайта.

Размер загрузочного файла составляет 728 Кбайт.

Таблица спецификаций программного продукта:

Наименование	Обозначение	Примечание
Mp3p.exe	Файл приложения
MP3P_.PAS	Файл программного модуля для формы 1	Определяет функциональность формы 1.
Mp3p.dof	Файл параметров проекта	Содержит текущие установки проекта: настройки компилятора и компоновщика, имена служебных каталогов, условные директивы.
MP3P.RES	Файл ресурсов	Содержит пиктограммы, графические изображения
mp3p_.dcu	Объектный файл для MP3P_.PAS	Откомпилированная версия MP3P_.PAS
Mp3p.cfg	Файл конфигураций	Главный конфигурационный файл, в котором находятся все настройки плеера
MP3P_.dfm	Файл формы 1	Содержит список свойств всех компонентов, включенных в форму 1
Mp3p.dpr	Файл проекта	Связывает все файлы, из которых состоит приложение.
Bass.dll	Библиотека динамической компоновки	Содержит настройки звукового соправождения
Bass.pas	Файл программного модуля для Bass.dll	Определяет функциональность Bass.dll
bass.dcu	Объектный файл для Bass.pas	Откомпилированная версия Bass.pas
SonStream.pas	Файл ресурсов SonStream	Определяет функциональность музыкальных эффектов
SonStream.dcu	Объектный файл для SonStream.pas	Откомпилированная версия SonStream.pas
Icon.ico	Иконка	Иконка приложения
FON.jpg	Изображение	Фон главной формы
Bt1.bmp	Изображение кнопки1	Prior Trak (предыдущий трек)
Bt2.bmp	Изображение кнопки2	Play/Stop (Воспроизвести/ Остановит)
Bt3.bmp	Изображение кнопки3	Naxt Trek (Следующий трек)
Bt4.bmp	Изображение кнопки4	Selekt Play List (Выбрать список (папку) воспроизведения

3.4 Руководство пользователю

Исполняемый файл программы называется Mp3p.exe. Запустив его,

пользователь увидит главное окно программы.

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

Так же процесс проигрывания, можно остановить и возобновить.

Рисунок 5 . Главная форма программы

Дла начала воспроизведения необходимо добавить папку с MP3 файлами в Play List. Нажав кнопку на главной форме Selekt Play List или в пункте меню/открыть

Затем выделить файл, который нужно прослушать и двойным щелчком мыши или кнопкой Play воспроизвести его. Если нужно переключить на следующий или предыдущий трек, то эт о можно сделать клавишами Prior Trak и Naxt Trak или с помощью навигационных клавиш (стрелок) на клавиатуре.

Управление эффектами: поставить флажок на проти нужного эффекта и настроить его до нужного звучания.

Регулировка громкости: передвигать ползунок до нужной громкости.

4.ОТЛАДКА И СОПРОВОЖДЕНИЕ ПРОГРАММЫ

Контрольный пример предназначен для оценки правильности работы программы. В данном случае, контрольный пример предназначен для оценки корректности использования MP3 Player v1.0 и и его компоненитов.

Исходными данными являются файлы MP3.

В результате проверки выяснилось, что контрольные результаты совпадают с полученными. Вывод: программа работает правильно.

Тестирование является одним из важнейших этапов жизненного цикла, направленным на повышение качественных характеристик. Качество программного средства очень сильно зависит от того, насколько хорошо он выполняет задачи, для которых был создан. Скрытые ошибки могут сильно изменить результат работы программного продукта и тем самым привести к ошибочному выполнению поставленных задач. Естественно, что такие проявления отрицательно сказываются не только на работе, но и на отношении пользователей к продукту, имеющему ошибки, поэтому практически все разработчики программного обеспечения (включая корпорации-гиганты Microsoft, Sun, IBM и т. д.) очень серьезно относятся к процессу тестирования работоспособности своих продуктов.

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

Тестирование - это процесс многократного выполнения программы с целью обнаружения ошибок.

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

Описание предполагаемых значений должно быть необходимой частью тестового набора данных.

Результаты каждого теста должны досконально изучаться. Это позволяет обнаружить большую часть ошибок на самых первых тестовых прогонах.

Кроме правильных тестовых последовательностей должны присутствовать и неправильные (непредусмотренные) последовательности.

Необходимо проверять не только то, что делает программа из того, для чего она предназначена, но и не делает ли она то, что не должна делать.

Необходимо наиболее тщательно тестировать те модули, в которых обнаружено наибольшее количество ошибок.

Тестирование программ является одной из составных частей общего понятия - "отладка программ". Если тестирование - это процесс, направленный на выявление ошибок, то целью отладки являются локализация и исправление выявленных в процессе тестирования ошибок.

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

В основном на практике придерживаются следующих двухкритериев:

1. когда время, отведенное по графику на тестирование, истекло;

2. когда все тесты выполняются без выявления ошибок, то есть оказались неудачными.

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

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

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

Следующее тестирование проводилось на стадии кодирования. Здесь использовались статические методы тестирования. Из статистических методов использовался метод Инспекции исходного текста. При просмотре текста программы ошибок не было обнаружено.

Для статического тестирования программного кода среда разработки Borland Delphi предлагает автоматическую проверку синтаксиса языка. При обнаружении синтаксической ошибки, выдается сообщение о ней, указывается причина ошибки, и курсор ставится в то место программы, где обнаружена ошибка. Вообще, возникающие ошибки можно разделить на такие три вида:

1. ошибки компиляции;

2. ошибки периода выполнения;

3. логические отпибки.

Ошибки компиляции проистекают из ошибок в тексте кода. Также они включают в себя ошибки в синтаксисе.

Ошибки периода выполнения возникают, когда приложение выполняется и Delphi обнаруживает, что оператор делает попытку выполнить недопустимое или невозможное действие.

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

Было проведено тестирование программы на выявление ее поведения при различных проблемах, связанных с доступом к базам данных. Для этого специально были созданы ситуации, когда базы данных отсутствовали, либо указывали на неправильные источники данных.

Однако, как показала практика, одним статическим тестированием обойтись трудно. Необходимо использовать его совместно с возможностями отладки создаваемых приложений непосредственно в используемой среде разработки.

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

Все эти возможности, используемые при разработке ЭУП «Технология ADO в Delphi» значительно упростили локализацию и исправление выявленных в процессе тестирования ошибок.

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

ЗАКЛЮЧЕНИЕ

В данной работе был проведен анализ поставленной проблемы с последовательным её решением.

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

Цель была достигнута путем успешного выполнения основных задач курсовой работы: практической реализации мультимедиа проигрывателя; создания удобного пользовательского интерфейса; создания звуковых эффектов; создания программы «меню».

С помощью разработанного MP3 Player v1.0 можно прослушивать MP3 файлы, а также настраивать звучание, менять громкость, а также использовать его во время работы при добавлении в него фоновой музыки.

СПИСОК ЛИТЕРАТУРЫ

1. Культин Н.Б. Основы программирования в Delphi 7. [Текст]: уч. пособие для начинающих программистов / Н.Б. Культин - СПб.: БХВ-Петербург, 2005. - 608 с.

2. Рублев В.С., Языки логического программирования [Текст]/ В.С. Рублев - [Электронный ресурс]/ В.С. Рублев - - Интернет-университет информационных технологий.

(http://www.intuit.ru/department/expert/logicpr/).

3. Хорев П.Б., Технологии объектно-ориентированного программирования. [Текст]: уч. Пособие для студ. высш. учебн. заведений/ П.Б Хорев - М.,Академия, 2004. - 445 с.

4. http://delphi.support.uz

5. http://www.hostmake.ru/

6. http://www.softportal.com/software-4195-uchebnik-po-delphi-7-dlya nachinayuschih.html

7. http://codingrus.ru

ПРИЛОЖЕНИЕ

Листинг программы

unit mp3p_;

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls, MPlayer, ComCtrls, SonStream, Bass,

Menus, jpeg,

MMSYSTEM, FileCtrl;

type

TForm1 = class(TForm)

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

Bibliotheque: TListBox;

MediaPlayer1: TMediaPlayer;

TrackBar1: TTrackBar;

Timer1: TTimer;

TpsS1: TLabel;

Image1: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

zvuk: TLabel;

bevel5: TPanel;

bevel4: TPanel;

bevel3: TPanel;

bevel2: TPanel;

bevel1: TPanel;

bevel6: TPanel;

bevel7: TPanel;

bevel8: TPanel;

Distortion: TCheckBox;

Chorus: TCheckBox;

Flanger: TCheckBox;

Equaliseur: TCheckBox;

Compressor: TCheckBox;

Gargle: TCheckBox;

Echo: TCheckBox;

Reverb: TCheckBox;

tpsson1: TScrollBar;

DiGainS1: TTrackBar;

DiEdgeS1: TTrackBar;

DipeqcfreqS1: TTrackBar;

Diposteqbs1: TTrackBar;

DiprelowoffS1: TTrackBar;

cwets1: TTrackBar;

cdepts1: TTrackBar;

cfeeds1: TTrackBar;

cfreqs1: TTrackBar;

cdelays1: TTrackBar;

fwets1: TTrackBar;

fdepts1: TTrackBar;

ffeeds1: TTrackBar;

ffreqs1: TTrackBar;

fdelays1: TTrackBar;

paraEQLOW: TTrackBar;

paraEQMED: TTrackBar;

paraEQHIGH: TTrackBar;

FREQUENCES: TLabel;

LOW: TLabel;

MED: TLabel;

HIGH: TLabel;

compressorbar: TTrackBar;

N7: TMenuItem;

gadwratehzs1: TTrackBar;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

N3: TMenuItem;

procedure FormCreate(Sender: TObject);

procedure BibliothequeClick(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 ChorusClick(Sender: TObject);

procedure GadwRateHzS1Change(Sender: TObject);

procedure DistortionChange(Sender: TObject);

procedure FlangerChange(Sender: TObject);

procedure CompressorBarChange(Sender: TObject);

procedure EqualiseurClick(Sender: TObject);

procedure ParaEQHIGHChange(Sender: TObject);

procedure ParaEQMEDChange(Sender: TObject);

procedure ParaEQLOWChange(Sender: TObject);

procedure ReverbClick(Sender: TObject);

procedure DistortionClick(Sender: TObject);

procedure CompressorClick(Sender: TObject);

procedure EchoClick(Sender: TObject);

procedure GargleClick(Sender: TObject);

procedure TpsSon1Scroll(Sender: TObject; ScrollCode: TScrollCode);

procedure ProgressBar1MouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

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

procedure PlayList(Path: string);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure FlangerClick(Sender: TObject);

procedure Effacer1Click(Sender: TObject);

procedure ChargeClick(Sender: TObject);

procedure EffacerClick(Sender: TObject);

procedure SauverClick(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure tpsson1Change(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure TpsS1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

const

MAX_SON = 2;

DW_SHAPE_GARGLE = 1;

LWAVE_FORM_FLANGER = 1;

LWAVE_FORM_CHORUS = 1;

LPHASE_FLANGER =BASS_FX_PHASE_ZERO ;

LPHASE_CHORUS =BASS_FX_PHASE_ZERO ;

var

Form1: TForm1;

TabSon : array[1..MAX_SON]of TSonStream;

PATH :string;

implementation

{$R *.dfm}

procedure TForm1.SauverClick(Sender: TObject);

var

Bdd: TOpenDialog;

BddS: TSaveDialog;

begin

Bdd.FilterIndex:=1;

if(BddS.Execute)then Bibliotheque.Items.SaveToFile(BddS.FileName+'.dat');

end;

procedure TForm1.EffacerClick(Sender: TObject);

begin

Bibliotheque.Clear;

end;

procedure TForm1.ChargeClick(Sender: TObject);

var

Bdd: TOpenDialog;

BddS: TSaveDialog;

begin

Bdd.FilterIndex:=2;

if(Bdd.Execute) then Bibliotheque.Items.LoadFromFile(Bdd.FileName);

end;

procedure TForm1.Effacer1Click(Sender: TObject);

begin

Bibliotheque.Items.Delete(Bibliotheque.ItemIndex);

end;

procedure TForm1.GadwRateHzS1Change(Sender: TObject);

begin

TabSon[1].SetGargle(GadwRateHzS1.Position,DW_SHAPE_GARGLE);

end;

procedure TForm1.DistortionChange(Sender: TObject);

begin

TabSon[1].SetDistortion(DiGainS1.Position,DiEdgeS1.Position,

DiPEqCFreqS1.Position,DiPostEqBS1.Position,DiPreLowOffS1.Position);

end;

procedure TForm1.FlangerChange(Sender: TObject);

begin

TabSon[1].SetFlanger(FwetS1.Position,FDeptS1.Position,FFeedS1.Position,

FFreqS1.Position,LWAVE_FORM_FLANGER,FDelayS1.Position,LPHASE_FLANGER);

end;

procedure TForm1.CompressorBarChange(Sender: TObject);

begin

TabSon[1].SetCompressor(CompressorBar.Position);

end;

procedure TForm1.EqualiseurClick(Sender: TObject);

begin

if Equaliseur.Checked = true then

begin

TabSon[1].AppliquerParamEQLow;

TabSon[1].AppliquerParamEQMed;

TabSon[1].AppliquerParamEQHigh;

TabSon[1].SetParamEQLow(ParaEQLOW.Position);

TabSon[1].SetParamEQMed(ParaEQMED.Position);

TabSon[1].SetParamEQHigh(ParaEQHIGH.Position);

end

else

begin

TabSon[1].RetirerParamEQLow;

TabSon[1].RetirerParamEQMed;

TabSon[1].RetirerParamEQHigh;

end;

end;

procedure TForm1.ParaEQHIGHChange(Sender: TObject);

begin

TabSon[1].SetParamEQHigh(ParaEQHIGH.Position);

end;

procedure TForm1.ParaEQMEDChange(Sender: TObject);

begin

TabSon[1].SetParamEQMed(ParaEQMED.Position);

end;

procedure TForm1.ParaEQLOWChange(Sender: TObject);

begin

TabSon[1].SetParamEQLow(ParaEQLOW.Position);

end;

procedure TForm1.ReverbClick(Sender: TObject);

begin

if Reverb.Checked = true then

TabSon[1].AppliquerReverb

else

TabSon[1].RetirerReverb;

end;

procedure TForm1.DistortionClick(Sender: TObject);

begin

if Distortion.Checked = true then

begin

TabSon[1].AppliquerDistortion;

TabSon[1].SetDistortion(DiGainS1.Position,DiEdgeS1.Position,

DiPEqCFreqS1.Position,DiPostEqBS1.Position,DiPreLowOffS1.Position);

end

else

TabSon[1].RetirerDistortion;

end;

procedure tform1.TpsSon1Scroll(Sender: TObject; ScrollCode: TScrollCode);

var ScrollPos: Integer;

begin

TabSon[1].ChangerPosition(TpsSon1.Position);

end;

procedure TForm1.GargleClick(Sender: TObject);

begin

if Gargle.Checked = true then

begin

TabSon[1].AppliquerGargle;

TabSon[1].SetGargle(GadwRateHzS1.Position,DW_SHAPE_GARGLE);

end

else

TabSon[1].RetirerGargle;

end;

procedure TForm1.EchoClick(Sender: TObject);

begin

if Echo.Checked = true then

TabSon[1].AppliquerEcho

else

TabSon[1].RetirerEcho;

end;

procedure TForm1.CompressorClick(Sender: TObject);

begin

if Compressor.Checked = true then

begin

TabSon[1].AppliquerCompressor;

TabSon[1].SetCompressor(CompressorBar.Position);

end

else

TabSon[1].RetirerCompressor;

end;

var

SoundPath: string[255];

min,sec: integer;

volume: LongWord;

procedure TForm1.PlayList(Path: string);

var

lpBuf: PChar;

sWinDir: string[128];

SearchRec: TSearchRec;

begin

Bibliotheque.Clear;

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

begin

Bibliotheque.Items.Add(SearchRec.Name);

while (FindNext(SearchRec) = 0) do

Bibliotheque.Items.Add(SearchRec.Name);

end;

Bibliotheque.ItemIndex := 0;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

num:boolean;

begin

num := True;

PATH := ExtractFilePath(Application.ExeName);

TabSon[1]:=TSonStream.Create;

{ Creation des max , min et position ini des trackbars des effets grace aux constantes

introduites dans la classe TSonStream }

FWetS1.Max:=trunc(TabSon[1].GetMaxFlangerWetDryMix);

FDeptS1.Max:=trunc(TabSon[1].GetMaxFlangerDepth);

FFeedS1.Max:=trunc(TabSon[1].GetMaxFlangerFeedback);

FFreqS1.Max:=trunc(TabSon[1].GetMaxFlangerFrquency);

FDelayS1.Max:=trunc(TabSon[1].GetMaxFlangerDelay);

FWetS1.Min:=trunc(TabSon[1].GetMinFlangerWetDryMix);

FDeptS1.Min:=trunc(TabSon[1].GetMinFlangerDepth);

FFeedS1.Min:=trunc(TabSon[1].GetMinFlangerFeedback);

FFreqS1.Min:=trunc(TabSon[1].GetMinFlangerFrquency);

FDelayS1.Min:=trunc(TabSon[1].GetMinFlangerDelay);

FWetS1.Position:=trunc(TabSon[1].GetIniFlangerWetDryMix);

FDeptS1.Position:=trunc(TabSon[1].GetIniFlangerDepth);

FFeedS1.Position:=trunc(TabSon[1].GetIniFlangerFeedback);

FFreqS1.Position:=trunc(TabSon[1].GetIniFlangerFrquency);

FDelayS1.Position:=trunc(TabSon[1].GetIniFlangerDelay);

CWetS1.Max:=trunc(TabSon[1].GetMaxChorusWetDryMix);

CDeptS1.Max:=trunc(TabSon[1].GetMaxChorusDepth);

CFeedS1.Max:=trunc(TabSon[1].GetMaxChorusFeedback);

CFreqS1.Max:=trunc(TabSon[1].GetMaxChorusFrquency);

CDelayS1.Max:=trunc(TabSon[1].GetMaxChorusDelay);

CWetS1.Min:=trunc(TabSon[1].GetMinChorusWetDryMix);

CDeptS1.Min:=trunc(TabSon[1].GetMinChorusDepth);

CFeedS1.Min:=trunc(TabSon[1].GetMinChorusFeedback);

CFreqS1.Min:=trunc(TabSon[1].GetMinChorusFrquency);

CDelayS1.Min:=trunc(TabSon[1].GetMinChorusDelay);

CWetS1.Position:=trunc(TabSon[1].GetIniChorusWetDryMix);

CDeptS1.Position:=trunc(TabSon[1].GetIniChorusDepth);

CFeedS1.Position:=trunc(TabSon[1].GetIniChorusFeedback);

CFreqS1.Position:=trunc(TabSon[1].GetIniChorusFrquency);

CDelayS1.Position:=trunc(TabSon[1].GetIniChorusDelay);

ParaEQLOW.Min:=trunc(TabSon[1].GetMinParamEQGain);

ParaEQLOW.Max:=trunc(TabSon[1].GetMaxParamEQGain);

ParaEQLOW.Position:=trunc(TabSon[1].GetIniParamEQGain);

ParaEQMED.Min:=trunc(TabSon[1].GetMinParamEQGain);

ParaEQMED.Max:=trunc(TabSon[1].GetMaxParamEQGain);

ParaEQMED.Position:=trunc(TabSon[1].GetIniParamEQGain);

ParaEQHIGH.Min:=trunc(TabSon[1].GetMinParamEQGain);

ParaEQHIGH.Max:=trunc(TabSon[1].GetMaxParamEQGain);

ParaEQHIGH.Position:=trunc(TabSon[1].GetIniParamEQGain);

CompressorBar.Max:=trunc(TabSon[1].GetMaxCompressorGain);

CompressorBar.Min:=trunc(TabSon[1].GetMinCompressorGain);

CompressorBar.Position:=trunc(TabSon[1].GetIniCompressorGain);

DiGainS1.Max:=trunc(TabSon[1].GetMaxDistortionGain);

DiEdgeS1.Max:=trunc(TabSon[1].GetMaxDistortionEdge);

DiPEqCFreqS1.Max:=trunc(TabSon[1].GetMaxDistortionPostEqCenterFrequency);

DiPostEqBS1.Max:=trunc(TabSon[1].GetMaxDistortionPostEqBandwith);

DiPreLowOffS1.Max:=trunc(TabSon[1].GetMaxDistortionPreLowpassCutOff);

DiGainS1.Min:=trunc(TabSon[1].GetMinDistortionGain);

DiEdgeS1.Min:=trunc(TabSon[1].GetMinDistortionEdge);

DiPEqCFreqS1.Min:=trunc(TabSon[1].GetMinDistortionPostEqCenterFrequency);

DiPostEqBS1.Min:=trunc(TabSon[1].GetMinDistortionPostEqBandwith);

DiPreLowOffS1.Min:=trunc(TabSon[1].GetMinDistortionPreLowpassCutOff);

DiGainS1.Position:=trunc(TabSon[1].GetIniDistortionGain);

DiEdgeS1.Position:=trunc(TabSon[1].GetIniDistortionEdge);

DiPEqCFreqS1.Position:=trunc(TabSon[1].GetIniDistortionPostEqCenterFrequency);

DiPostEqBS1.Position:=trunc(TabSon[1].GetIniDistortionPostEqBandwith);

DiPreLowOffS1.Position:=trunc(TabSon[1].GetIniDistortionPreLowpassCutOff);

GadwRateHzS1.Max:=trunc(TabSon[1].GetMaxGargleDwRateHz);

GadwRateHzS1.Min:=trunc(TabSon[1].GetMinGargleDwRateHz);

GadwRateHzS1.Position:=trunc(TabSon[1].GetIniGargleDwRateHz);

GadwRateHzS1.Frequency:=100;

PlayList('');

Bibliotheque.ItemIndex := 0;

TrackBar1.Position := 7;

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

volume := volume + (volume shl 16);

waveOutSetVolume(WAVE_MAPPER,volume);

end;

procedure TForm1.BibliothequeClick(Sender: TObject);

begin

if not SpeedButton2.Down

then SpeedButton2.Down := True;

Play;

TabSon[1].Charger(Bibliotheque.Items.Strings[Bibliotheque.itemIndex]);

TpsSon1.Max:=TabSon[1].LongueurTotal;

Equaliseur.Checked:=false;

Flanger.Checked:=false;

Chorus.Checked:=false;

Distortion.Checked:=false;

Gargle.Checked:=false;

Echo.Checked:=false;

Reverb.Checked:=false;

Compressor.Checked:=false;

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 Bibliotheque.ItemIndex > 0 then

Bibliotheque.ItemIndex := Bibliotheque.ItemIndex - 1;

Play;

end;

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

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

if Bibliotheque.ItemIndex < Bibliotheque.Count then

Bibliotheque.ItemIndex := Bibliotheque.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;

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

try

Mediaplayer1.Open;

except

on EMCIDeviceError do

begin

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

Bibliotheque.Items[Bibliotheque.itemIndex]);

SpeedButton2.Down := False;

exit;

end;

end;

MediaPlayer1.Play;

min :=0;

sec :=0;

Timer1.Enabled := True;

SpeedButton2.Hint := 'Stop';

end;

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+'\';

SoundPath := Dir;

PlayList(SoundPath);

end;

procedure TForm1.N2Click(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+'\';

soundpath:=dir;

playlist(soundpath);

end;

procedure TForm1.N4Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

showmessage ('Перед проигрыванием добавьте папку с mp3 файлами в Play List, после этого программа будет работать корректно!');

end;

procedure TForm1.FlangerClick(Sender: TObject);

begin

if Flanger.Checked = true then

begin

TabSon[1].AppliquerFlanger;

TabSon[1].SetFlanger(FwetS1.Position,FDeptS1.Position,FFeedS1.Position,

FFreqS1.Position,LWAVE_FORM_FLANGER,FDelayS1.Position,LPHASE_FLANGER);

end

else

TabSon[1].RetirerFlanger;

end;

procedure TForm1.ChorusClick(Sender: TObject);

begin

if Chorus.Checked = true then

begin

TabSon[1].AppliquerChorus ;

TabSon[1].SetChorus( CWetS1.Position,CDeptS1.Position,CFeedS1.Position,

CFreqS1.Position,LWAVE_FORM_CHORUS,CDelayS1.Position,LPHASE_CHORUS);

end

else

TabSon[1].RetirerChorus;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

close;

end;

procedure TForm1.tpsson1Change(Sender: TObject);

var

num: boolean;

begin

if num then TpsS1.Caption:= inttostr(tpsson1.Position);

end;

procedure TForm1.N3Click(Sender: TObject);

begin

showmessage ('О пограмме. MP3 Player v1.0. Автор: Спудис Александра, срудентка 3 курса группы АСУ-08-9');

end;

procedure TForm1.TpsS1Click(Sender: TObject);

begin

TpsSon1.Position:=TabSon[1].PositionEnCours;

if(TabSon[1].GetNom<>'')then TpsS1.Caption:=Format('Total time (in s): %f, current time: %f',

[TabSon[1].GetTempsTotal,TabSon[1].GetTempsEnCours]);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

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

if sec < 59

then inc(sec)

else begin

sec :=0;

inc(min);

end;

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

if sec < 10

then TpsS1.Caption :=

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

else TpsS1.Caption :=

TpsS1.Caption + IntToStr(sec);

if MediaPlayer1.Position < MediaPlayer1.Length

then exit;

Timer1.Enabled := False;

MediaPlayer1.Stop;

if Bibliotheque.ItemIndex < Bibliotheque.Count

then begin

Bibliotheque.ItemIndex := Bibliotheque.ItemIndex + 1;

Play;

end ;

end;

procedure TForm1.ProgressBar1MouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

TabSon[1].ChangerPosition(X);

end;

end.

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