Угадай-ка! (подключаем звуковой модуль)


Войдите в окно модуля и там в одну строку введите следующий код:

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Тем самым мы объявляем, что хотим воспользоваться стандартной функцией Windows, отвечающей за воспроизведение звука (к сожалению не любого), а для ее работоспособности необходимы две переменные, которые мы и объявим.

Dim mu As Long
Dim файл As String

Запишите в любой доступной вам программе три звуковых файла в формате WAV на подобии этих: 1 - попал, 2 - недолет, 3 - перелет. Сохраните их на диске "С" под именами, соответственно "попал", "перелет" и "недолет". (можно, конечно, и в другом месте, например, в папку УГО, лежащую на диске "С". Но в этом случае строки, начинающиеся так - файл = ("C:\недолет.wav"), необходимо будет переделать следующим образом файл = ("C:\УГО\недолет.wav"). Обратите внимание на то, что "УГО" и "уго" для компьютера не одно и то же.

Допишите код подпрограммы "проверка" следующим образом:

Sub проверка()
If число = задумано Then Label1.Caption = "Молодец, ты угадал!"
файл = ("C:\попал.wav")
mu = sndPlaySound(файл, 1)
Else If число < задумано Then Label1.Caption = "НЕДОЛЕТ!"
файл = ("C:\недолет.wav")
mu = sndPlaySound(файл, 1)

игра
Else Label1.Caption = "ПЕРЕЛЕТ"
файл = ("C:\перелет.wav")
mu = sndPlaySound(файл, 1)
игра
End If
End If
End Sub


Для возвращения из VBA в Excel, найдите под кнопкой File зеленый квадратик с буквой Х и нажмите на нее. Откройте панель инструментов и перенесите кнопку на рабочий лист, войдите в окно свойств, где присвоите Caption значение СТАРТ. Двойным щелчком мыши по кнопке войдите в код кнопки и дополните его следующим образом.

Private Sub CommandButton1_Click()
GAME.Show
End Sub

Где "GAME" - имя нашей формы, а Show - метод, запускающий ее. Программа готова, я надеюсь, что вы помните, как выйти из режима конструктора, об этом мы говорили на предыдущем уроке. И еще: перед запуском обязательно сохраните еще раз всю программу.


: продолжение

Рейтинг@Mail.ru главная программы задачи карта Copyright © СОМИТ, А.Козлов, 2005 г