Этап составления программного кода. Для этого нам понадобится окно Code (Код)

Для этого нам понадобится окно Code (Код).

4. Напишем обработчик событий для кнопки Commnd2 (Выход). По условию задачи, при нажатии на эту кнопку должен происходить выход из приложения.

Дважды щелкнем на элементе Command2. Появится окно Code (Код).

Тело процедуры, связанное с обработчиком события Click для данного элемента, заключено между операторами, указывающими на начало и конец подпрограммы. Запишем туда оператор End.

Private Sub Command2_Click()

End

End Sub

5. Запишем программный код для обработчика события при нажатии на кнопку Command1 (Вращать). Для этого или два раза щелкнем на элементе Command1 или выберем его из ниспадающего меню в окне Code (Код). Запишем следующий программный код:

Private Sub Command1_Click()

Randomize 'процедура для генерации случайных чисел

Label1.Caption = Int(Rnd * 10) 'показать числа

Label2.Caption = Int(Rnd * 10)

Label3.Caption = Int(Rnd * 10)

If (Label1.Caption = 7) Or _

(Label2.Caption = 7) Or _

(Label3.Caption = 7) Then

Label4.Caption = "Вы выиграли!"

Else

Label4.Caption = ""

End If

End Sub

Результат, полученный в окне Code (Код), имеет вид:

Поясним смысл написанного программного кода.

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

Встроенная функция Randomize генерирует при запуске программы новый набор случайных чисел.

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

Последний оператор в программе (If) проверяет, нет ли семерки среди полученных случайных чисел. Если хоть одна семерка обнаруживается, то появляется сообщение о выигрыше. Если в наборе нет ни одной семерки, то сообщение удаляется. Символ подчеркивания (_) говорит о том, что тело оператора переносится на новую строку.

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

5. Запуск программы

Запуск программы на выполнение можно выполнить разными способами:

– меню Run (Пуск) – Start (Старт)

– нажатием кнопки на Панели инструментов

– с помощью горячей клавиши F5.

6. После того, как проект составлен, программа запущена, не выдается никаких

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

7. Приложения для Windows, созданные с помощью Visual Basic, имеют расширение имени файла .ехе и могут быть запущены на любой ОС Windows. Для того, чтобы создать файл приложения, необходимо выполнить пункт меню File (Файл) – Make "имя проекта.exe" (Делать "имя проекта.exe").