Озвучування Ваших програм
Володимир Коробицын
Реакція
додатки на ліву та праву кнопки миші
Створити
папку Lesson21. Для зручності в роботі помістіть в неї файли 05.bmp, 06.bmp,
01.mid, 01.wav, 02.wav, 03.wav, 04.wav, Mci.vbx. Запустіть Visual Basic. Вікно
форми Form1 «пофарбувати» в сірий колір і помістити в неї два малюнки у вигляді
об'єктів Picture (Малюнок) з файлів 05.bmp, 06.bmp. Для обох малюнків у вікні
Properties (Властивості) для властивості AutoSize (Авто розмір) встановіть значення
True (Істина), а для властивості BorderStyle (Граничний стиль) значення 0-None
(Ні). Щоб озвучити Ваша програма, необхідно в його проект додати файл
Mci.vbx. Для чого в меню File виберіть команду Add File ... (Додати файл ...) і
через вікно, що з'явилося завантажте файл Mci.vbx. У вікні об'єктів з'явиться значок
мультимедійних об'єктів MMControl (Microsoft Multimedia Control). Файл Mci.vbx
необхідний у тих випадках, коли ви хочете, щоб ваша заявка не було
«Німим». Це файл підтримки мультимедійних об'єктів. Крім того, комп'ютер
повинен бути оснащений музичної карткою. У вікні об'єктів клацніть на кнопці зі
позначкою мультимедійних об'єктів і помістіть об'єкт MMControl1 на форму Вашого застосування.
Для властивості Visible (Видимість) об'єкта MMControl1 встановіть значення False
(Брехня), тому що в цьому додатку краще цей об'єкт зробити «невидимим». Для
властивості FileName (Файл) запишіть значення 01.wav. Клацніть два рази в
зображенню телефону для виклику процедури події Picture1_Click. Процедура
події Picture1_Click буде викликатися в роботі програми кожного разу, коли
користувач клацне мишкою по малюнку Picture1. В дану процедуру впишіть програмний код:
MMControl1.Command = "Close"
MMControl1.Command =
"Open"
MMControl1.Command
= "Play"
Друга
рядок об'єкту MMControl1 подасть команду відкриття файлу 1.wav, третій рядок
змусить об'єкт MMControl1 відтворити звуковий файл 1.wav. Перший рядок
необхідна для закриття програвача, у разі якщо користувач побажає
прослухати цей звук ще раз.
Збережіть
проект програми в папці Lesson21 і закрийте Visual Basic. З вище зазначеної
папки запустіть проект Вашого застосування Project1.mak, який автоматично
викличе Visual Basic і завантажить додаток. Запустіть програму. Під час
роботи програми Понатискайте мишею на зображення телефону кілька разів. Ви
повинні почути звук телефонного дзвінка.
В
вікно додатка помістіть об'єкт MMControl2. Не забудьте зробити його «невидимим».
Для його властивості FileName (Файл) встановіть значення 02.wav. У процедуру
події Picture2_Click впишіть аналогічний програмний код:
MMControl2.Command =
"Close"
MMControl2.Command =
"Open"
MMControl2.Command =
"Play"
Відкомпілюйте програму. Закрийте в Visual Basic.
Запустіть програму Project1.exe. По черзі Понатискайте мишею на зображення
телефону і собаки. Закрийте програму.
Продовжимо
роботу над програмою «Рух автомобіля» з першого уроку. Створіть папку
Lesson22 і скопіюйте в неї файли Project1.mak і Form1.frm з папки Lesson12.
Додайте до папки Lesson22 файли Mci.vbx, 01.mid, 03.wav, 04.wav.
З
папки Lesson22 запустіть програму Project.mak. У меню File (Файл) виберіть
команду Add File ... (Додати файл ...) і через вікно, що з'явилося завантажте файл
Mci.vbx. У вікні об'єктів з'явиться значок мультимедійних об'єктів MMControl
(Microsoft Multimedia Control). Помістіть на форму Form1 два об'єкти:
MMControl1 і MMControl2. Для властивості Visible (Видимість) цих об'єктів
встановіть значення False (Брехня). Для того, щоб відразу після запуску програми
зазвучала музика, скористайтеся процедурою Form_Load, яка спрацює при
завантаженні форми Form1. В дану процедуру Form_Load помістіть рядка
програмного коду:
MMControl1.FileName
= "01.mid"
MMControl1.Command =
"Close"
MMControl1.Command =
"Open"
MMControl1.Command =
"Play"
Перший рядок для об'єкта MMControl1 привласнює його
властивості FileName (Файл) значення
«01.mid». Як працюють інші рядки, Ви вже знаєте.
В
процедуру переривання Picture1_Click додайте рядки:
MMControl2.FileName =
"03.wav"
MMControl2.Command =
"Close"
MMControl2.Command =
"Open"
MMControl2.Command =
"Play"
В
процедури переривання Form_Click допишіть рядки:
MMControl2.FileName =
"04.wav"
MMControl2.Command =
"Close"
MMControl2.Command =
"Open"
MMControl2.Command =
"Play"
Запустіть
програму на виконання в середовищі Visual Basic. Робота програми буде проходити
на тлі мелодії. При натисненні мишею на автомобіль, останній почне рухатися, а
при його зупинці Ви почуєте скрип гальм. При натисканні на вільний від
малюнка полі вікна програми автомобіль буде повернуто на стартову позицію в
супроводі сигналу. Попрацювавши в додатку, закрийте його.
А
тепер змусьте додаток відрізняти клацання лівої і правої кнопок миші. Для
початку видаліть всі програмні затвердження з процедури Picture1_Click. Для
управління об'єктом Picture1 (Малюнок) скористаємося процедурою переривання
Picture1_MouseDown, яка викликається кожного разу, коли кнопка миші виявляється
за наказом користувача внизу, а покажчик миші в полі малюнка Picture1.
Процедуру Picture1_MouseDown заповніть програмним кодом наступним чином:
Sub Picture1_MouseDown (Button As
Integer, Shift As Integer, X As Single, Y As Single)
If Button And 1 Then 'умова клацання лівою кнопкою миші
For n = 1 To 250
Picture1.Left = Picture1.Left - 30 '
пересування вперед
Next
End If 'кінець умови
If Button And Then 2 'умова клацання правою кнопкою миші
For n = 1 To 250
Picture1.Left = Picture1.Left + 15 '
пересування тому
Next
End If 'кінець умови
MMControl2.FileName =
"03.wav"
MMControl2.Command =
"Close"
MMControl2.Command =
"Open"
MMControl2.Command =
"Play"
End Sub
Запустіть програму. Наводячи курсор миші на зображення
автомобіля, клацніть по черзі лівою і правою кнопками мишки. Автомобіль буде
пересуватися вперед і заднім ходом, причому з різною швидкістю. Поясніть,
чому це можливо, уважно розібравши роботу програмних тверджень
процедури Picture1_MouseDown.
Якщо
у Вас трехкнопочная мишка, то Ви можете задіяти і середню кнопку, змінивши
або додавши умова:
If
Button And Then 4 'умова клацання середньою кнопкою миші
Збережіть
проект в папці Lesson22. Створіть виконуваний EXE-файл. Перевірте
працездатність цього файлу.
Домашнє
завдання
1.
Виготовте додаток, у вікні якого буде розміщено п'ять командних кнопок.
Якщо клацнути мишею по кожній з них повинна звучати один з п'яти різних мелодій.
Для цієї мети використовуйте будь-які файли з розширенням MID. Не забудьте Ваше
додаток прикрасити підходящим для цього випадку малюнком чи фотографією.
2.
Створіть додаток, в якому будуть присутні вовк і заєць (або будь-які
інші тварини). Підберіть два звукових файлу з розширенням WAV. Зробіть так,
щоб після клацання лівою кнопкою миші із зображень тварин видавалися
різні звуки, а при натисканні правою кнопкою - вони зникали. Помістіть на форму
програми кнопку, яка дозволяла б побачити зниклих тварин. Якщо Ваш
комп'ютер оснащений мікрофоном, то без великих труднощів можна створювати для своїх
додатків звукові файли з розширенням WAV. Для запису звуку можна
використовувати, наприклад, стандартний додаток у Windows «Звукозапис».
3.
Для об'єкта Form (Форма) самостійно вивчіть його властивість WindowState
(Статус вікна), що може приймати три значення від 0 до 2.
Список літератури
Для
підготовки даної роботи були використані матеріали з сайту http://bc.boom.ru/
