Програвач музичних дисків

Володимир Коробицын

Вставка етикеток. Витяг поточної дати з комп'ютера. Управління додатком з клавіатури. Багатовіконність програми.

Якщо Ви хочете виготовити додаток власного програвача музичних компакт-дисків, то Ваш комп'ютер повинен бути оснащений пристроєм читання оптичних CD-дисків та музичної карткою. Якщо музична карта відсутня, то прослуховувати записи доведеться за допомогою головних телефонів.

Створити папку Lesson31. Помістіть на неї файл підтримки мультимедійних об'єктів Mci.vbx. Запустіть Visual Basic. Вікно форми Form1 офарбуйте, наприклад, в темно-сірий колір. Додайте в проект Вашого застосування файл Mci.vbx. Для цього в меню File (Файл) виберіть команду Add File ... (Додати файл ...) і через вікно, що з'явилося завантажте файл підтримки Mci.vbx. У вікні об'єктів з'явиться значок мультимедійних об'єктів. Клацніть по кнопці з цим значком і помістіть об'єкт MMControl1 на форму Вашого застосування. У вікні властивостей об'єкта MMControl1 для властивостей BackVisible, StepVisible, RecordVisible встановіть значення False (Брехня), так як ці кнопки в програвачі використовуватися не будуть. У процедуру Form_Load, яка викликається відразу після завантаження програми, впишіть програмний код:

Sub Form_Load ()

MMControl1.DeviceType = "CDAudio"

MMControl1.Command = "Open"

MMControl1.Command = "Play"

End Sub

Перша рядок програмного коду активізує пристрій читання компакт-дисків, наступний рядок відкриває першу музичну запис, і останній рядок змушує відтворювати мелодії з диска по порядку.

В пристрій для CD-дисків помістіть музичний компакт-диск. Запустіть додаток. Програвач почне відтворювати перший запис на компакт-диску. Якщо цього не відбудеться, викличте в Windows стандартну панель управління звуком Volume Control і меню «Параметри» виберіть пункт «Властивості», де увімкніть CD Audio. Тепер має з'явитися звук, в іншому випадку перевірте правильність написання програмного коду.

Під час роботи програми вивчите призначення кожної клавіші новоствореного програвача. Для цього по черзі клацніть мишкою по клавішах програвача.

В вікно додатка можете помістити, обраний на Ваш розсуд малюнок.

В вікні Properties (Властивості) для форми Form1 виберіть властивість Caption (Напис) і змініть його значення на «Програвач музичних компакт-дисків». Для повної зупинки програвача і виходу з програми створіть командну кнопку Command1. У процедуру переривання Command1_Click запишіть програмний код:

Sub Command1_Click ()

MMControl1.Command = "Stop"

MMControl1.Command = "Close"

End

End Sub

Перша рядок зупиняє відтворення будь-якої запису компакт-диска, наступна рядок закриває файл мелодії для об'єкта MMControl1, і останній рядок повністю завершує роботу програми. Напис на командній кнопці змініть на напис "Вихід". Якщо Ви хочете, щоб мелодії продовжували звучати після завершення роботи програми, змонтуйте ще одну командну кнопку Command2 і для неї до процедури переривання Command2_Click впишіть тільки останній рядок з процедури Command1_Click, опустивши два перші рядки. Якщо через деякий часом все-таки виникне необхідність у зупинці відтворення музичного диску, то це можна зробити вручну, натиснувши на кнопку «Виїзд диску» пристрою для відтворення оптичних дисків.

Для об'єкта MMControl1 самостійно вивчіть властивість Orientation (Розташування), що може приймати два значення: 0-Horizontal (Горизонтальне) та 1-Vertical (Вертикальне).

А тепер розглянемо операцію розміщення етикеток у додатку. На панелі об'єктів клацніть по значку «Етикетка» та помістити об'єкт Label1 (Етикетка перший) на форму додатку. У вікні Properties (Властивості) для цього об'єкта, змініть властивості Caption (Заголовок) на довільну напис, наприклад, «Світ мелодій, також невичерпний, як і сама всесвіт ». Самостійно поекспериментуйте з властивостями етикетки. Обов'язково подивіться, як працює властивість етикетки BackStyle (Стиль фону). Потім створіть другу етикетку - Label2. Її властивості Caption надайте значення сьогоднішньої дати. Для цього в процедуру Form_Load допишіть рядок:

Label2.Caption = Date 'показати дату

Тепер запустивши додаток, Ви знайдете в його вікні сьогоднішню дату.

Якщо Ви не любите «мишачу метушню», то спробуйте керувати даними додатком тільки з клавіатури. Visual Basic автоматично призначає найбільш уживані клавіші керування додатками для Windows. Це клавіші - «Enter», «Курсор», «Пробіл», «Tab», «Esc» та інші. Відсуньте миша на далекий край Вашого робочого столу, з клавіатури запустите додаток і попрацюйте в ньому. Потім, як і раніше, не вдаючись до допомоги миші, закрийте програму. В уроці № 4 Ви довідаєтеся, як можна призначити будь-яку клавішу для реакції додатки на дії користувача.

А тепер коротко зупинимося на можливості побудови багатовіконний додатків. У щойно створений додаток додайте друга вікно, де розташуйте відомості про авторство на цей додаток. З теки Lesson31 запустіть проект програми Project1.mak. В області панелі інструментів клацніть по значку «Відкриття нової форми »або в меню File (Файл) виберіть New Form (Нова форма). Ваша програма доповниться ще однією формою Form2. Зменшіть розміри нової форми в розрахунку на те, щоб на ній помістилися мінімальні відомості про автора. Перемістіть її в потрібну для Вас область екрану. Офарбуйте вікно цієї форми в довільний колір, наприклад, сірий. Для виклику другого вікна встановіть на формі Form1 першого вікна кнопку Command3. Її властивості Caption (Напис) надайте значення «Про програму» і до процедури переривання Command3_Click впишіть програмне твердження:

Form2.Show 'показати другу форму

Ця рядок, при натисненні на кнопку «Про програму» в полі першого вікна, покаже другий вікно в певному місці екрану. Для форми Form2 властивості Caption (Напис) надайте значення «Про програму», властивості BorderStyle (Граничний стиль) надайте значення 3-Fixed Double. У другому вікні розташуйте невеликих розмірів малюнок або піктограму (розширення ICO). Якщо у Вас виявиться під рукою сканер, помістіть в друге вікно свою фотографію. Помістіть в це вікно відомості про назві програми, про дату їх створення, Ваше ім'я, телефон та інше. Для цієї мети кілька разів використовуйте об'єкт Label (Етикетка).

Під уникнення плутанини при створенні багатовіконного програми необхідно вказувати перед іменем об'єкта ім'я форми, якій належить той чи інший об'єкт. Наприклад, рядок з програмного коду програми «Програвач музичних компакт-дисків »тепер буде виглядати так:

Form1.Label2.Caption = Date 'показати дату

А для другої етикетки друга форми можна записати, наприклад:

Form2.Label2.Caption = "Омськ 2000 Росія"

Якщо Ви хочете приховати другу форму Form2 на будь-якому етапі роботи Вашого застосування, то в потрібну процедуру переривання увімкніть рядок:

Form2.Hide 'приховати другу форму

Можна це програмне затвердження помістити, наприклад, до процедури переривання друга форми Form_Deactivate. Ця процедура спрацює при здійсненні такої події, як наступ пасивного стану другого вікна.

Для завантаження форми в пам'ять існує оператор Load (Завантажити). Наприклад, для друга форми він застосовується так:

Load Form2 'завантаження другого форми в пам'ять

Щоб вивантажити форму, використовуйте оператор Unload. Для видалення другого форми з пам'яті необхідно програмне твердження:

Unload Form2 'вивантаження друга форми з пам'яті

Якщо застосована команда Show (Показати) до виконання команди Load (Завантажити), то команда Show автоматично завантажить форму, а потім покаже її. І все-таки часто виникає необхідність у використанні оператора Load, наприклад, для попереднього завантаження форми, яка містить велику кількість об'єктів. Тоді неприємне пригальмовування буде приховано від погляду користувача. Інколи під час роботи програми корисно вивантажувати з пам'яті форми, що не відображені на екрані в даний час. Таким чином ви впораєтеся з перевантаженням пам'яті.

Домашнє завдання

1. В один з додатків першого або другого уроків додайте два нові вікна. Перше з цих вікон має містити відомості про поточні дату і час, а другий перетворіть на програвач музичних компакт-дисків.

2. Самостійно вивчіть об'єкт Line (Лінія) та його властивості. Подумайте, як застосувати цей об'єкт в раніше створених Вами додатках.

3. Самостійно досліджуйте об'єкт типу Frame (Фрейм) і його властивості. Використовуйте цей об'єкт для оформлення Ваших програм.

І ще. Неодмінно досліджуйте всі наявні у Вас оптичні диски (навіть з ігровими програмами) шляхом запуску їх з створеного Вами програвача. Іноді абсолютно несподівано починають звучати мелодії з програм, в яких вони повинні відтворюватися тільки під час роботи цих програм.

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

Для підготовки даної роботи були використані матеріали з сайту http://bc.boom.ru/