Справочник Жаркова по проектированию и программированию искусственного интеллекта. Том 4: Программирование на Visual Basic искусственного интеллекта. Валерий Алексеевич Жарков

Чтение книги онлайн.

Читать онлайн книгу Справочник Жаркова по проектированию и программированию искусственного интеллекта. Том 4: Программирование на Visual Basic искусственного интеллекта - Валерий Алексеевич Жарков страница 33

Справочник Жаркова по проектированию и программированию искусственного интеллекта. Том 4: Программирование на Visual Basic искусственного интеллекта - Валерий Алексеевич Жарков

Скачать книгу

1-му варианту непосредственно из проекта:

      My.Computer.Audio.Play("..\..\drumpad-crash.wav", _

      AudioPlayMode.BackgroundLoop)

      'Загружаем звуковые файлы формата (.wav)

      'по 2-му варианту из внешней папки:

      'My.Computer.Audio.Play( _

      '"D:\MyDocs\Sounds\drumpad-bass_drum.wav")

      End Sub

      В режиме проектирования дважды щёлкаем вторую кнопку (или в панели Properties для этой выделенной щелчком кнопки на вкладке Events дважды щёлкаем по имени события Click). Появляется файл Form1.vb с шаблоном (обработчика щелчка по этой кнопке), который после записи нашего кода принимает вид следующего метода.

      Листинг 6.7. Метод для кнопки.

      Private Sub Button2_Click(ByVal sender As System.Object, _

      ByVal e As System.EventArgs) Handles Button2.Click

      'Загружаем звуковые файлы формата (.wav)

      'по 1-му варианту непосредственно из проекта:

      My.Computer.Audio.Play("..\..\drumpad-bass_drum.wav")

      'Загружаем звуковые файлы формата (.wav)

      'по 2-му варианту из внешней папки:

      'My.Computer.Audio.Play( _

      '"D:\MyDocs\Sounds\drumpad-crash.wav")

      End Sub

      В режиме выполнения (Build, Build Selection; Debug, Start Without Debugging), нажимая кнопки, мы услышим соответствующее (одноразовое или циклическое) воспроизведение звуковых файлов, которые мы добавили в проект. А именно, после щелчка первой кнопки и выполнения кода:

      My.Computer.Audio.Play("..\..\drumpad-crash.wav", _

      AudioPlayMode.BackgroundLoop)

      мы услышим непрерывное циклическое (Loop) воспроизведение звукового файла drumpad-crash.wav типа шуршания оркестровых металлических тарелок после воздействия на них металлической метелкой. А после каждого нашего щелчка второй кнопки и выполнения кода:

      My.Computer.Audio.Play("..\..\drumpad-bass_drum.wav")

      мы будем слышать одиночное воспроизведение звукового файла drumpad-bass_drum.wav типа удара по барабану. Нажимая вторую кнопку с различной частотой, мы будем импровизировать и создавать различную мелодию из добавленных в проект двух звуковых файлов.

      Аналогично по этой методике, добавляя в проект большое количество звуковых файлов, добавляя на форму большое количество кнопок Button (или других элементов управления) и записывая в методы-обработчики щелчков по этим кнопкам различные варианты кода для воспроизведения этих звуковых файлов в различной последовательности и с различным наложением звуков, в режиме выполнения приложения, щёлкая по кнопкам, мы будем получать множество самых разнообразных мелодий.

      Отметим, что для управления воспроизведением звуковых файлов в дополнение или вместо кнопок Button (чтобы не загромождать форму Form1) можно использовать и клавиши клавиатуры, и компоненты с панели инструментов Toolbox по описанной далее методике.

      6.3. Методика приостановки и возобновления звуков на основе пространства имён My

      Для приостановки и возобновления воспроизведения звуковых файлов во время выполнения приложения можно разработать много вариантов кода, например, воспользоваться каким-либо элементом управления или компонентом. Так как далее для задания режимов почти всех игр мы будем применять выпадающее меню типа MenuStrip, то для решения поставленной здесь задачи применим это меню. С панели инструментов Toolbox переносим на форму элемент управления MenuStrip и щёлкаем по нему (ниже формы в режиме проектирования). На форме

Скачать книгу