Владимир Коробицын
Реакция приложения на левую и правую кнопки мыши
Создайте папку 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 2 Then ‘ условие щелчка правой кнопкой мыши
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 4 Then ‘ условие щелчка средней кнопкой мыши
Сохраните проект в папке Lesson22. Создайте исполняемый EXE-файл. Проверьте работоспособность этого файла.
Домашнее задание
1. Изготовьте приложение, в окне которого будет размещено пять командных кнопок. При щелчке мышью по любой из них должна звучать одна из пяти различных мелодий. Для этой цели используйте любые файлы с расширением MID. Не забудьте Ваше приложение украсить подходящим для этого случая рисунком или фотографией.
2. Создайте приложение, в котором будут присутствовать волк и заяц (или любые другие животные). Подберите два звуковых файла с расширением WAV. Сделайте так, чтобы при щелчке левой кнопкой мыши по изображениям животных издавались различные звуки, а при щелчке правой кнопкой – они исчезали. Поместите на форму приложения кнопку, которая позволяла бы увидеть исчезнувших животных. Если Ваш компьютер снабжен микрофоном, то без большого труда можно создавать для своих приложений звуковые файлы с расширением WAV. Для записи звука можно использовать, например, стандартное приложение в Windows «Звукозапись».
3. Для объекта Form (Форма) самостоятельно изучите его свойство WindowState (Статус окна), которое может принимать три значения от 0 до 2.
Другие работы по теме:
Анкета Спорт в жизни людей
Институт специальной педагогики и психологии проводит исследование на тему "Спорт в жизни людей". Вы окажите нам большую помощь ответив на все наши вопросы. Мы гарантируем полную анонимность Ваших сведений.
Выяснение степени нуждаемости молодых семей в приобретении жилья
Анкета Одной из главных и острых проблем молодых семей является отсутствие собственного жилья. Для молодой семейной пары благоустроенное жилье - не только характеристика качества жизни, но и фактор социализации, условие развития ее духовных и физических сил. В нынешней экономической ситуации большинство молодых семей практически лишены перспективы на улучшение жилищных условий за счет предприятий.
9 способов увеличить читаемость вашей рассылки
Предложите вашим подписчикам содержание, которое они не смогут прочитать где-нибудь еще. Я не утверждаю, что все содержание должно быть на 100% оригиналом, но часть вашей рассылки должна содержать уникальную информацию.
Полюбить свою работу
Главное в приобретении позитивного отношения к работе – это принять на себя ответственность за свое положение. Запомните: ни у вашего начальника, ни у ваших коллег нет ни времени, ни желания помогать вам в решении ваших служебных проблем.
Есенин с. а. - Письмо есенину
Здравствуйте уважаемый. Сергей АлександровичВчера прочитала. Ваши стихи. Отговорила роща золотая. Низкий дом с голубыми ставнями и до сих пор нахожусь под впечатлением той теплоты и трепета которыми пронизаны они.
О доходности партнёрских программ
Судя по общепринятому направлению в маркетинге партнерских программ, очень немногие бизнесмены так же разборчивы, как я. Но именно разборчивость дает результат.
Лечение ультразвуковым фонофорезом
Отбор пациентов. Противопоказания к лечению хронического тонзиллита методом низкочастотного ультразвукового фонофореза. Методика лечения.
Стихотворение Книги-наши друзья
Стихотворение "Книги-наши друзья" Автор: Сочинения на свободную тему Все задают себе вопрос, Кто просто шутит, кто всерьез: “Зачем нам книги на Земле?
Письмо Софье Павловне Фамусовой 2
Письмо Софье Павловне Фамусовой Автор: Грибоедов А.С. Здравствуйте, уважаемая Софья Павловна! Я давно хотел написать вам это письмо, но всё никак не решался. И наконец, после долгих раздумий, окончательно сделал для себя вывод, что я должен был его написать. Хотелось бы Вам сказать, что после прочтения ваших предыдущих писем, адресованных мне, я понял лишь то, что вы очень загадочная и весьма непредсказуемая молодая особа.
Анкета Спорт в жизни людей
Институт специальной педагогики и психологии проводит исследование на тему "Спорт в жизни людей". Вы окажите нам большую помощь ответив на все наши вопросы. Мы гарантируем полную анонимность Ваших сведений.
Поговорим о сленге
Откуда же берется компьютерный слэнг и как научиться его понимать? Начать, наверное, надо с того, что в компьютерно-интернетной среде используется три вида слэнга.
Бадичкин, Сергей Александрович
Введение 1 Биография 2 Фильмография 2.1 Озвучивание Введение Сергей Александрович Бадичкин (род. 4 апреля 1966) — советский и российский актёр. 1. Биография
Баталов, Алексей Владимирович
Введение 1 Биография 2 Признание и награды 3 Фильмография 3.1 Актёрские работы 3.2 Озвучивание 3.3 Режиссёрские работы 3.4 Написал сценарии Список литературы
Булдаков, Алексей Иванович
Введение 1 Биография 2 Признание и награды 3 Творчество 3.1 Роли в театре 3.2 Фильмография 4 Озвучивание 4.1 Компьютерные игры Список литературы Введение
Абдулов, Всеволод Осипович
Введение 1 Биография 2 Фильмография 3 Озвучивание Введение Все́волод О́сипович Абду́лов (1942—2002) — советский и российский актёр театра и кино.
Баринов, Валерий Александрович
Введение 1 Биография 2 Семья 3 Увлечения 4 Творчество 4.1 Роли в театре 4.1.1 Малый театр 4.1.2 МТЮЗ 4.1.3 Театр Киноактёра 4.2 Фильмография 4.3 Озвучивание мультфильмов
Баранцев, Анатолий Иванович
Введение 1 Биография 2 Творчество 2.1 Фильмография 2.2 Озвучивание 3 Признание и награды Список литературы Введение Анатолий Иванович Баранцев (1926 — 5 октября 1992) — советский актёр театра и кино,заслуженный артист РСФСР (1965).
Будрайтис, Юозас Станиславас
Введение 1 Биография 2 Творчество 2.1 Роли в театре 2.2 Роли в кино 3 Награды и звания Список литературы Введение Юо́зас Ста́ниславас Будра́йтис (лит. Juozas Budraitis, р. 6 октября 1940, дер. Липинай Шяуляйский уезд ЛитССР СССР) — советский и литовский актёр театра и кино; Народный артист Литовской ССР (1982)[1].
Доронин, Александр Владимирович
Введение 1 Биография 2 Творчество 2.1 Театр 2.1.1 Архивные спектакли 2.1.2 Текущий репертуар 2.1.3 Готовится к постановке 2.1.4 Режиссёрские работы
Балашов, Владимир Павлович
Введение 1 Биография 2 Признание и награды 3 Творчество 3.1 Художественные фильмы 3.2 Озвучивание 4 Факты Список литературы Введение Влади́мир Па́влович Балашо́в (10 июля 1920 — 23 декабря 1996) — советский актёр театра и кино, заслуженный артист РСФСР (1955), лауреат Сталинской премии I степени (1951).
Басов, Владимир Павлович
Введение 1 Биография 1.1 Семья 2 Награды и достижения 3 Фильмография 3.1 Актёрские работы 3.2 Режиссёрские работы 3.3 Написал сценарии 3.4 Озвучивание мультфильмов
Белый, Анатолий Александрович
Введение 1 Биография 2 Семья 3 Творчество 3.1 Театральные работы 3.2 Фильмография 4 Озвучивание 5 Награды и призы 6 Интересные факты Список литературы
Верник, Игорь Эмильевич
Введение 1 Биография 2 Признание и награды 3 Творчество 3.1 Роли в театре 3.2 Роли в кино 3.3 Озвучивание мультфильмов Список литературы Введение И́горь Эми́льевич Ве́рник (11 октября 1963, Москва) — советский и российский актёр театра и кино, продюсер, радио- и телеведущий, музыкант, заслуженный артист России (1999)[1]
Андриенко, Виктор Николаевич
Введение 1 Биография 2 Телевизионная карьера 3 Фильмография 4 Озвучивание Список литературы Введение Виктор Николаевич Андриенко (укр. Вiктор Андрiєнко) — украинский советский актёр театра и кино.
Анофриев, Олег Андреевич
Введение 1 Биография 2 Творчество 2.1 Роли в театре 2.2 Фильмография 2.3 Озвучивание мультфильмов 2.4 Автор песен 2.5 Исполнил песни Список литературы
Белявский, Александр Борисович
План Введение 1 Биография 2 Признание и награды 3 Творчество 3.1 Роли в театре 3.2 Фильмография 3.3 Озвучивание мультфильмов 3.4 Озвучивание и дублирование фильмов
Авдюшко, Виктор Антонович
План Введение 1 Биография 2 Семья 3 Фильмография 3.1 Роли в кино 3.2 Озвучивание мультфильмов 4 Признание и награды Введение Виктор Антонович Авдюшко (11 января 1925, Москва — 19 ноября 1975, Москва) — русский советский актёр, Народный артист РСФСР (1974).
Бобровский, Александр Алексеевич
План Введение 1 Биография 2 Признание и награды 3 Творчество 3.1 Роли в театре 3.1.1 Театр имени Моссовета 3.2 Фильмография 3.3 Озвучивание Список литературы
Автозагрузка в Windows XP
Существует немало способов автозагрузки программ. Ниже приведены несколько вариантов для ознакомления, возможно это поможет вам, если возникнет необходимость найти и удалить какую-либо программу из автозагрузки.
Меры безопасности в работе с компьютером
1. Соблюдайте основные меры компьютерной безопасности Перед тем, как отправиться в путешествие по интернету, необходимо выполнить три важных действия для усиления компьютерной защиты. Перейдите в раздел Как защитить компьютер и выполните в онлайновом режиме эти действия для: •
Человеческие расы, их происхождение и единство
Цели урока: формирование знаний о биологических особенностях человеческих рас, анализ причин их возникновения, формирование понятия о единстве происхождения и биологической равноценности человеческих рас.