Основные возможности Visual Basic. Макова Н.Е. - 53 стр.

              Процедура – это программа, привязанная к определенному
         событию.
              Программный модуль – это совокупность процедур.
              Приложение (проект) – это совокупность модулей.
              Мы знаем, что все те программы, которые мы до сих пор со-
         ставляли, начинаются с ключевого слова Private Sub.
              Слово Sub - это сокращение слова subroutine – подпрограм-
         ма. В языке VB так обозначаются любые процедуры. Слово ука-
         зывает на то, что мы имеем дело с так называемой локальной про-
         цедурой. Локальная процедура доступна только внутри данного
         модуля и не может быть вызвана из других модулей приложе-
         ния.
              То есть применительно к нашему заданию получается, что
         компьютер “задумывает” число по нажатию на кнопку «Старт» и
         в этой же процедуре задуманное число присваивается какой-то
         переменной. Но данная процедура локальная и поэтому перемен-
         ная с задуманным числом доступна только внутри этой процеду-
         ры. Пользователь же вводит угадываемое число в текстовое поле
         после нажатия на кнопку «Старт». Это число присваивается дру-
         гой переменной, которая доступна только в своей локальной про-
         цедуре. Возникает вопрос: как же эти две переменные сравнить?
              Мы знаем, что для объявления переменных внутри локаль-
         ных процедур используется ключевое слово Dim. Для объявления
         же глобальных переменных (это переменная, которая может ис-
         пользоваться в разных модулях проекта) применяется слово
         Publiс. Поэтому текст программы будет выглядеть следующим
         образом.
         Public N1 As Integer
         Private Sub Command1_Click()
           Randomize Timer
           N1 = 1 + Int(Rnd * 5)
         End Sub
         Private Sub Command2_Click()
         Dim N2 As Integer
           N2 = Val(Text1.Text)
           If N2 = N1 Then MsgBox "Поздравляю Вас! Вы угадали!", 64,
         "Результат"
         End Sub
              Сохраните проект.


                                                                             53

PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com