Подробнее о процедуре Button1_Click

Процедура Button1_Click выполняется тогда, когда пользователь нажимает кнопку Крутить. Эта процедура содержит несколько сложных выражений и, поскольку мы их подробно не рассматривали, она может показаться немного странной. Однако если посмотреть на нее более внимательно, то можно заметить знакомые моменты. Более тщательное знакомство с процедурой даст вам представление о программном коде, который вы будете создавать в этой книге. (Если вы не хотите сейчас рассматривать подробнее этот код, то можете перейти к следующему разделу "Запуск приложения Visual Basic . NET".)

Процедура Button1_Click выполняет три задачи: скрывает цифровое фото, генерирует три случайных числа для трех числовых надписей и, если появляется число "7", показывает фото. Давайте рассмотрим каждую из этих задач отдельно.

Скрыть фотографию можно с помощью следующей команды:

PictureBox1.Visible = False ' скрыть изображение

Эта строка состоит из двух частей: программного оператора и комментария. Оператор программы ( PictureBox1.Visible = False ) задает свойство Visible объекта изображения ( PictureBox1 ) равным "False" (это одно из двух возможных значений). Возможно, вы помните, что только что установили это свойство равным "False" с помощью окна Properties (Свойства) . Сейчас вы снова делаете это в коде программы, так как прежде чем начать розыгрыш, нужно убрать фото, которое может остаться после предыдущего удачного розыгрыша. Так как это свойство будет изменено во время работы программы, а не во время разработки, то и задавать его значение нужно в коде программы. Это удобная возможность Visual Basic, и мы обсудим ее подробнее в "Работа с элементами управления из области элементов" .

Вторая часть этой первой строки называется комментарием (на экране она показана зеленым цветом). Комментарии - это пояснения, включаемые в программный код после апострофа ('). Программисты используют комментарии для описания операторов программы. Visual Basic при запуске программы не обрабатывает эти пояснения; они существуют только для документирования того, что делает программа. Мы будем часто использовать комментарии при написании программ на Visual Basic, чтобы оставить понятные записи о том, что сделано.

Следующие три строки вычисляют случайные числа. Странное утверждение, не правда ли? Действительно, с помощью специальных действий можно заставить Visual Basic генерировать непредсказуемые числа - другими словами, можно находить случайные числа для лотерей, игры в кости или других статистических наборов. Функция Rnd в каждой строке возвращает случайное число в интервале между 0 и 1 (число с десятичной запятой и несколькими знаками после нее), а функция Int возвращает целую часть произведения этого случайного числа на 10. Это вычисление дает нам случайные числа в интервале между 0 и 9 - именно то, что нам требуется для нашего приложения игрового автомата.

Label1.Text = CStr(Int(Rnd() * 10)) ' получить число

Затем необходимо выполнить в нашем коде одно обязательное действие - скопировать эти случайные числа в три поля надписей на форме, но прежде, чем это сделать, эти числа должны быть преобразованы в текст с помощью функции CStr (convert to string - преобразовать в текст). Обратите внимание, как CStr, Int и Rnd объединены вместе в одно выражение в программе - они работают совместно и дают результат аналогично математической формуле. После вычисления и преобразования эти значения присваиваются свойствам Text первых трех надписей формы. После присвоения числа становятся видны в этих надписях, написанные жирным шрифтом Times New Roman с размером 24 пункта. На следующей иллюстрации показано, как Visual Basic шаг за шагом обрабатывает строку кода, которая генерирует случайное число "7", и копирует его в объект надписи.

Последняя группа операторов программы проверяет, не равняется ли одно из случайных чисел "7". Если одно или несколько из этих чисел равны "7", то программа показывает средневековое изображение выплаты денег, а звуковой сигнал провозглашает о победе.

' если какой-либо из заголовков - это 7, то отобразить картинку и подать

' звуковой сигнал

If (Label1.Text = "7") Or (Label2.Text = "7") _

Or (Label3.Text = "7") Then

PictureBox1.Visible = True

Beep()

End If

Каждый раз, когда пользователь нажмет на кнопке Крутить, будет вызвана процедура Button1_Click, и снова выполнены операторы программы, содержащиеся в этой процедуре. Готовая программа "Семерка" находится в папке c:\vbnetsbs\Гл.2\СемеркаОбразец.