1.12.Кино в проекте

Все есть у нашего калькулятора - и картинки, и звук, и меню, и прыгающие кнопки. Для полного счастья не хватает кино. Нет проблем! Причем их нет двумя способами!

Первый способ. ProjectComponentsMicrosoft Windows Common Controls-2 6.0. На Toolbox появится несколько новых элементов управления. Берите из них Animation и размещайте на форме - это ваш экран для кино. Его имя - Animation1. Этот элемент управления позволяет прямо в работающем проекте просматривать видеофайлы в формате AVI. Если у вас на компьютере нет порядочного кино в этом формате, то несколько маленьких анимационных роликов вы все-таки найдете в папке Videos, находящейся внутри папки, куда устанавливалась ваша Visual Studio. Скорее всего они находятся по такому адресу: "C:\Program Files\Microsoft Visual Studio\Common\Graphics\Videos".

Сделайте в проекте кнопку и назовите ее, например, "Видео". Вот процедура, которая при нажатии кнопки "Видео" бесконечно воспроизводит видеоролик FILECOPY.AVI:

Private Sub Видео_Click()

Animation1.Open "C:\Program Files\Microsoft Visual Studio\Common\Graphics\Videos\FILECOPY.AVI"

Animation1.Play

End Sub

Здесь полная аналогия с аудиоплеером, который я рассматривал в 1.8 Первая строка процедуры открывает файл, вторая его воспроизводит.

Во время демонстрации вы можете выполнять на калькуляторе другие свои дела. Чтобы "заморозить" демонстрацию, нужно выполнить оператор Animation1.Stop, а чтобы совсем прекратить и убрать с экрана - Animation1.Close.

Если вам нужно 3 раза воспроизвести кадры видеофильма с 5 по 12, вы пишете

Animation1.Play 3, 5, 12

Второй способ. Используйте нашего старого знакомого - мастера на все руки - Microsoft Multimedia Control 6.0, который тоже позволяет просматривать видеофайлы в формате AVI. Разместите его на форме и назовите, скажем, "Кино". Вот цепочка операторов, приводящая к результату:

Кино.DeviceType = "AVIVideo"

Кино.FileName = "C:\Program Files\Microsoft Visual Studio\Common\Graphics\Videos\ FILECOPY.AVI"

Кино.Command = "Open"

Кино.Command = "Play"

Просмотр идет в отдельном окне, размер и положение которого вы можете мышкой менять в процессе просмотра, что само по себе любопытно. К тому же, вы можете пользоваться управляющими кнопками элемента управления.

1.13.Кое-что необходимое напоследок

Комментарии

Комментарии - это пояснения к тексту программы. Зачем они нужны?

Когда человек со стороны посмотрит на вашу программу, например, на эту (из калькулятора):

Private Sub Кл_сложения_Click()

Звук.FileName = "c:\Windows\Media\Chimes.wav"

Звук.Command = "Open"

Звук.Command = "Sound"

Звук.Command = "Close"

Результат.Text = Val(Число1.Text) + Val(Число2.Text)

End Sub

он вряд ли поймет, в чем здесь смысл и для какой задачи программа написана. Если Звук, то при чем здесь сложение? Да и все остальное… Ну да ладно, это полбеды, а беда в том, что если через пару лет вам срочно понадобится самому разобраться в этой старой своей программе (так как ее выдвинули на Мобилевскую премию), а вы за это время ни разу не работали со звуком, то вы сами не сможете ничего понять, так как все забыли!

Любой профессиональный программист знает две вещи. Первое - любая старая программа через год забывается напрочь. Второе - почти любая старая программа или ее часть через полтора года бывает вдруг позарез нужна как исходный материал для новой программы и поэтому в ней надо срочно разобраться. Наученный горьким опытом, программист снабжает многие строчки кода собственными комментариями. Получается вот что:

'Процедура, которая объясняет компьютеру, что ему делать, если мы щелкнули

'по клавише сложения калькулятора, а именно: проиграть короткую мелодию

'Chimes.wav на объекте с именем Звук, а затем сложить два числа.

Private Sub Кл_сложения_Click()

Звук.FileName = "c:\Windows\Media\Chimes.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 = _