Шрифт:
Закладка:
Первый способ. Project->Components->Microsoft Windows Common Controls-2 6.0. Ha Toolbox появится несколько новых элементов управления. Берите из них Animation и размещайте на форме — это ваш экран для кино. Его имя Animation1. Этот элемент управления позволяет прямо в работающем проекте просматривать видеофайлы в формате AVI. Если у вас на компьютере нет порядочного кино в этом формате, то несколько маленьких анимационных роликов вы все-таки найдете в папке Videos, находящейся внутри папки, куда устанавливалась ваша Visual Studio. Скорее всего они находятся по такому адресу: "C: Program
FilesMicrosoft Visual StudioCommonGraphicsVideos".
Сделайте в проекте кнопку и назовите ее, например, "Видео". Вот процедура, которая при нажатии кнопки "Видео" бесконечно воспроизводит видеоролик FILECOPY.AVI:
Private Sub Bnfleo_Click()
Animation1.Open "C: Program FilesMicrosoft Visual StudioCommonGraphicsVideosFILECOPY.AVI"
Animation1.Play
End Sub
Здесь полная аналогия с аудиоплеером, который я рассматривал в 0 Первая строка процедуры открывает файл, вторая его воспроизводит.
Во время демонстрации вы можете выполнять на калькуляторе другие свои дела. Чтобы "заморозить" демонстрацию, нужно выполнить оператор Animation1.Stop, а чтобы совсем прекратить и убрать с экрана — Animation1.Close.
Если вам нужно 3 раза воспроизвести кадры видеофильма с 5 по 12, вы пишете Animation1.Play 3, 5, 12
Второй способ. Используйте нашего старого знакомого — мастера на все руки — Microsoft Multimedia Control 6.0, который тоже позволяет просматривать видеофайлы в формате AVI. Разместите его на форме и назовите, скажем, "Кино". Вот цепочка операторов, приводящая к результату:
Кино. DeviсеТуре = "AVIVideo"
Кино. FileName = "C: Program FilesMicrosoft Visual StudioCommonGraphicsVideos FILECOPY.AVI"
Кино. Command = "Open"
Кино. Command = "Play"
Просмотр идет в отдельном окне, размер и положение которого вы можете мышкой менять в процессе просмотра, что само по себе любопытно. К тому же, вы можете пользоваться управляющими кнопками элемента управления.
Кое-что необходимое напоследок
Комментарии
Комментарии — это пояснения к тексту программы. Зачем они нужны?
Когда человек со стороны посмотрит на вашу программу, например, на эту (из калькулятора):
Private Sub Кл_сложения_Click()
Звук.FileName = "с: WindowsMediаChimes.wav"
Звук.Command = "Open"
Звук.Command = "Sound"
Звук.Command = "Close"
Результат.Text = Val(Число1.Text) + Val(Число2.Text)
End Sub
он вряд ли поймет, в чем здесь смысл и для какой задачи программа написана. Если Звук, то при чем здесь сложение? Да и все остальное… Ну да ладно, это полбеды, а беда в том, что если через пару лет вам срочно понадобится самому разобраться в этой старой своей программе (так как ее выдвинули на Мобилевскую премию), а вы за это время ни разу не работали со звуком, то вы сами не сможете ничего понять, так как все забыли!
Любой профессиональный программист знает две вещи. Первое — любая старая программа через год забывается напрочь. Второе — почти любая старая программа или ее часть через полтора года бывает вдруг позарез нужна как исходный материал для новой программы и поэтому в ней надо срочно разобраться. Наученный горьким опытом, программист снабжает многие строчки кода собственными комментариями. Получается вот что:
'Процедура, которая объясняет компьютеру, что ему делать, если мы щелкнули
'по клавише сложения калькулятора, а именно: проиграть короткую мелодию
'Chimes.wav на объекте с именем Звук, а затем сложить два числа.
Private Sub Кл_сложения_Click()
Звук.FileName = "c: WindowsMediaChimes.wav" 'Указываем адрес звукового файла на диске.
Звук.Command = "Open" 'Перед проигрыванием файл нужно обязательно открыть.
Звук.Command = "Sound" 'Включить воспроизведение.
Звук.Command = "Close" 'После проигрывания файл нужно обязательно закрыть.
Результат.Text = Val(Число1.Text) + Val(Число2.Text) 'Складываем числа, причем Val преобразует текст в число
End Sub
Компьютеру комментарий не нужен, он его не поймет, а если начнет понимать, то ничего хорошего из этого не выйдет. Так что заглядывать в него компьютеру не нужно. И чтобы ясно показать компьютеру, куда ему не надо заглядывать, программист в каждой строке кода перед комментарием ставит одинарную кавычку. Visual Basic, выполняя очередную строку кода, просматривает ее слева направо, и как только наткнется на кавычку, правее уже не глядит.
Перенос длинного оператора на следующую строку
Иногда оператор получается такой длинный, что не умещается на экране. Это не беда — в окне кода он уместится, так как окно гораздо шире экрана, надо только его прокрутить. Но все равно неприятно, прокручивать не хочется. Оператор можно перенести на другую строку комбинацией пробела и подчеркивания. Например, вместо
Результат.Text = Val(Число1.Text) + Val(Число2.Text)
можно записать
Результат.Text = Val(Число1.Text) _
+ Val(Число2.Text)
или
Результат.Text = _
Val(Число1.Text) _
+ Val(Число2.Text)
Как видите, в конце строк стоит пара символов — пробел и за ним знак подчеркивания.
Запись нескольких операторов в одной строке Visual Basic допускает писать в одной строке несколько операторов, разделяя их двоеточиями, вот так:
Звук.Command = "Open": Звук. Command = "Sound": Звук.Command = "Close"
Это приятно экономит место по вертикали экрана.
Превращаем наш калькулятор в независимую программу
В Windows вы привыкли запускать игры и другие программы двумя способами: щелкнув по значку программы на рабочем столе Windows (или в папке или в проводнике) или выбрав программу в стартовом меню на панели задач. Наш калькулятор запускается пока только из Visual Basic, что, возможно, уязвляет вашу гордость. Что ж, превратим его в независимую программу, которая будет запускаться, как и все, без запуска Visual Basic.
Для этого — File->Make Project1.exe. Затем в открывшемся окне выбираем папку, где будет сохранен будущий файл нашей независимой программы, и задаем ему имя (скажем, Суперкалькулятор). Затем ОК — и ваш файл Суперкалькулятор. ехе готов. Если вы в качестве папки сохранения файла выберете с: WindowsPaбoчий стол, то ваш калькулятор расположится на рабочем столе Windows, а если вы ярлык этого файла (ярлыков мы не проходили) поместите в папку с: WindowsГлавное менюПрограммыСтандартные, то он будет красоваться в запускающем меню рядом со стандартным калькулятором Windows (это все равно, что сидеть с Биллом Гейтсом в одном Мерседесе).
Однако, если вы попытаетесь скопировать ваш Суперкалькулятор. ехе на другой компьютер и там его запустить, то вас может ждать неудача. Здесь нужны более сложные действия, чем я
