Озвучивание Ваших программ - статья

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

Реакция приложения на левую и правую кнопки мыши

Сделайте папку 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"

2-ая строчка объекту MMControl1 подаст команду Озвучивание Ваших программ - статья открытия файла 1.wav, 3-я строчка принудит объект MMControl1 воспроизвести звуковой файл 1.wav. 1-ая строчка нужна для закрытия проигрывателя, в случае если юзер пожелает прослушать данный звук снова.

Сохраните проект приложения в папке 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"

1-ая строчка для объекта 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 2 Then ‘ условие щелчка правой кнопкой мыши

For n = 1 To 250

Picture1.Left = Picture1.Left + 15 ‘ передвижение вспять

Next

End If ‘ конец условия

MMControl2.FileName = "03.wav"

MMControl Озвучивание Ваших программ - статья2.Command = "Close"

MMControl2.Command = "Open"

MMControl2.Command = "Play"

End Sub

Запустите приложение. Наводя указатель мыши на изображение автомобиля, щелкайте попеременно левой и правой клавишами мышки. Автомобиль будет передвигаться вперед и задним ходом, при этом с различной скоростью. Растолкуйте, почему это может быть, пристально разобрав работу программных утверждений процедуры Picture1_MouseDown Озвучивание Ваших программ - статья.

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

If Button And 4 Then ‘ условие щелчка средней кнопкой мыши

Сохраните проект в папке Lesson22. Сделайте исполняемый EXE-файл. Проверьте работоспособность этого файла.

Домашнее задание

1. Изготовьте приложение, в окне которого будет расположено 5 командных кнопок. При щелчке мышью по хоть Озвучивание Ваших программ - статья какой из их должна звучать одна из 5 разных мелодий. Для этой цели используйте любые файлы с расширением MID. Не забудьте Ваше приложение украсить подходящим для этого варианта рисунком либо фото.

2. Сделайте приложение, в каком будут находиться волк и заяц (либо любые другие животные). Подберите два звуковых Озвучивание Ваших программ - статья файла с расширением WAV. Сделайте так, чтоб при щелчке левой кнопкой мыши по изображениям животных издавались разные звуки, а при щелчке правой кнопкой – они исчезали. Расположите на форму приложения кнопку, которая позволяла бы узреть исчезнувших животных. Если Ваш компьютер оснащен микрофоном, то без огромного труда можно создавать для собственных приложений звуковые файлы Озвучивание Ваших программ - статья с расширением WAV. Для записи звука можно использовать, к примеру, стандартное приложение в Windows «Звукозапись».

3. Для объекта Form (Форма) без помощи других изучите его свойство WindowState (Статус окна), которое может принимать три значения от 0 до 2.



oznakomlenie-s-sistemoj-upravleniya-ohranoj-truda-na-predpriyatii.html
oznakomlenie-s-tvorchestvom-a-s-pushkina-posredstvom-teatralizovannoj-deyatelnosti.html
oznakomlenie-s-yavleniyami-obshestvennoj-zhizni.html