Об’єкти і їх призначення ( Медіа-плеєр)

Рівненська Мала академія наук

Учнівської молоді

Відділення комп'ютерних наук

Секція “Мультимедійні системи, навчальні та ігрові програми”

Корисні дрібнички мовою Delphi

Науково-дослідницька робота

Учня 11 класу

Корецького НВК ”Школа-ліцей”

Попача Андрія Борисовича

Науковий керівник:

Вчитель вищої категорії

Корецького НВК ”Школа-ліцей”

Литвинчук Тетяна Федорівна

Корець-2013

Зміст

Вступ………………..…………………………………………………………………...3

Розділ І

Структура програми……………………………………………………………..……..5

1. Об’єкти і їх призначення (Медіа-плеєр) .....…………………………..………...5

2. Об’єкти і їх призначення (Інформація про пам'ять).........…………………….10

3. Об’єкти і їх призначення (Автозапуск)...…..…………………………………..12

Розділ II

Програмування процедур…………………………………………………………….14

1. Програмування процедур(Медіа-плеєр)..…………………………..………….14

2. Програмування процедур(Інформація про пам'ять)..…………………………18

3. Програмування процедур(Автозапуск)..……..……………………...…………19

Розділ ІІI

Принцип дії програми………………………………………………………………...21

1. Медіа-плеєр………………………………..……………………………………21

2. Інформація про пам'ять……...………………………………………………....22

3. Автозапуск..……...…………...……...………………………………………....23

Висновок………………………………………………………………………………24

Список використаної літератури…………………………………….........................25

ВСТУП

На сучасному етапі розвитку комп’ютерних систем в світі розвинулася і поширилася велика кількість мов програмування, які призначені для різних областей людської діяльності. Визначальним моментом при виборі мови програмування в більшості випадків являється досвід у використанні тієї чи іншої мови і її можливості . Персональні комп’ютери за призначенням фактично не мають обмежень, а їхні можливості визначені програмами, які опрацьовують будь-яку інформацію. Щоб одержати за допомогою комп’ютера корисний результат, треба мати відповідну програму.

Як відомо, середовище розробки великою мірою визначає ефективність роботи програміста. У середовищі програмування Delphi є всі необхідні інструменти для того, щоб створювати повноцінні програми. Писати, компілювати і тестувати програму – все це можна робити, не виходячи з Delphi.

З появою нового пакета Delphi розробка прикладних програм значно спростилася. Delphi побудована на основних засадах, пов’язаних з операційною системою Windows, об’єктно-орієнтовного програмування, технологією візуального проектування, технологією клієнт\сервер, використання компонент тощо. Найважливішим є те, що в середовищі Delphi можна створювати цілком сучасні та ефективні програми для роботи в операційній системі Windows, навіть не знаючи деталей чи особливостей Windows. Іншим дуже важливим досягненням Delphi є технологія візуального проектування і програми будують на базі стандартизованих компонент.

Отже,в розробці проекту я керувався наступними етапами:

§ сформулював завдання, для розв’язання якого реалізується проект;

§ провів аналіз і сформулював вимоги до компонентів, які знадобляться для реалізації проекту;

§ вибрав необхідні компоненти і склав алгоритм розробки проекту;

§ скомпілював програму.

Метою моєї наукової роботи є: продовжити демонстрацію застосування на практиці мови Delphi при написанні цікавих та корисних додатків учням , що вивчають інформатику . Такі приклади показують можливість керування Windows і вчать програмувати .

Головне завдання: на основі вже набутих знань створити прості програми (на зразок медіа-плеєра, інформації про пам’ять комп’ютера, створення автозапуску - з можливістю відкриття новостворених програм), які служитимуть не лише для задоволення, а й будуть корисними.

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

Новизна полягає у створенні деяких програм у Windows,які матимуть свій особливий інтерфейс і будуть завжди «під рукою», що значно спростить рутинні дії користувача і стануть у пригоді кожному учню, який цікавиться програмуванням , оскільки для цього не потрібно бути досвідченим програмістом.

РОЗДІЛ I. СТРУКТУРА ПРОГРАМИ

Об’єкти і їх призначення ( Медіа-плеєр)

Форма матиме невеликий об’єм, оскільки саме відео відображатиметься у новому вікні, а для прослуховування музики багато місця не потрібно.

1. Форма матиме наступні властивості:

2. Розмістимо компоненту Edit із вкладки Standart палітри компонент. Дана

компонента буде відображати вибраний шлях до файла.

3. Праворуч від поля Edit розмістимо кнопку – компоненту Button із вкладки палітри компонент. Призначення цієї кнопки – здійснювати вибір файла через стандартне вікно огляду, тому і назвемо її «Обзор».

4. Нижче розмістимо засіб прокрутки – компонент Trackbar із вкладки Win32 палітри компонент і для зручності назвемо цю компоненту Scroll.

5. Під компонентою Scroll розмістимо засоби навігації – п’ять компонентів Panel із вкладки Standart палітри компонент. Властивостям даних панелей присвоїли наступні значення: Play, Pause, Back,Forward Stop. Крім того вони матимуть такі властивості:

6. Розмістимо на формі такі важливі компоненти, як Timer та Opendialog із вкладки System, які для користувача будуть невидимі.

§ Для компоненти Timer властивості Enabled – False ( не доступний), а властивості Interval – 100 (обробка події Ontimer буде відбуватися через кожні 100 мілісекунд).

§ Для компоненти Opendialog Filter буде мати значення «Усі файли»(будуть відображатися усі файли при виклику діалогового вікна вибору).

7. Далі розмістимо найважливіший компонент нашої програми – Mediaplayer із вкладки System, в якого властивість Visible – False (справжні кнопки під час виконання програми будуть заховані).

8. Опрацюємо подію клацання мишкою для кожної із панелей навігації, щоб вони могли спрацьовувати як кнопки. Для цього створюємо обробку події Onmousedown, що виникає в момент натиснення над панеллю кнопки мишки.

Для панелі Play вона матиме наступний вигляд:
Procedure tform1.playmousedown(sender:tobject;

button:tmousebutton;shift:tshiftstate;x,y:integer);

begin

play.bevelinner:=bvlowered;

play.bevelouter:=bvraised;

end.

Тепер створимо для цієї панелі опрацювання події Onmouseup, що виникає при відпусканні клавіші миші:
Procedure tform1.playmouseup(sender:tobject;

button:tmousebutton;shift:tshiftstate;x,y:integer);

begin

play.bevelinner:=bvraised;

play.bevelouter:=bvlowered;

end.

9. Аналогічні опрацювання подій створюємо і для всіх інших панелае навігації.

10. Подія клацання миші на кожній із панелей (подія Onclick).

§ Для Play вона виглядає наступним чином:

procedure TForm1.PlayClick(Sender: TObject);

begin

mediaplayer1.FileName:=edit1.Text;

mediaplayer1.Open;

mediaplayer1.Play;

scroll.max:=mediaplayer1.tracklength[1];

timer1.Enabled:=true;

end.

§ Для панелі Pause:
procedure TForm1.PauseClick(Sender: TObject);

begin

mediaplayer1.Pause;

end.

§ Для панелі Back:
procedure TForm1.BackClick(Sender: TObject);

begin

mediaplayer1.Position:=mediaplayer1.Position-100;

mediaplayer1.Play;

end.

§ Для панелі прокрутки вперед:
procedure TForm1.ForwardClick(Sender: TObject);

begin

mediaplayer1.Position:=mediaplayer1.Position+100;

mediaplayer1.Play;

end.

§ Для кнопки Stop:
procedure TForm1.StopClick(Sender: TObject);

begin

mediaplayer1.Stop;

mediaplayer1.Position:=1;

end.

11. Створюємо опрацювання події Ontimer компонента Timer1:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

scroll.position:=mediaplayer1.position;

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

12. Кнопка Обзор:
procedure TForm1.Button1Click(Sender: TObject);

begin

if not open1.Execute then showmessage('файл вами не обраний!')

else edit1.Text:=open1.FileName;

end, перевіримо, чи вибрав користувач який-небудь файл, якщо ні – то відображатиметься відповідне вікно повідомлення, інакше вмводиться повний шлях до вибраного файла і записується в поле Edit.

13. Відкриття відео- чи аудіофайлів:
procedure TForm1.FormCreate(Sender: TObject);

var

str:string;

i:integer;

begin

if paramcount>0 then

begin

str:=paramstr(1);

for i:=2 to paramcount do

str:=str+''+paramstr(i);

end;

if str<>'' then

begin

edit1.Text:=str;

mediaplayer1.FileName:=edit1.Text;

mediaplayer1.Open;

mediaplayer1.Play;

scroll.Max:=mediaplayer1.TrackLength[1];

timer1.Enabled:=true;

end;

end, тут робимо перевірку, чи передаються програмі які-небудь параметри і якщо ці параметри присутні, починаємо опрацьовувати їх.

Поиск по сайту: