End Sub
мы по небрежности где-нибудь напишем оператор типа Пи = 2.87, то Visual Basic выдаст сообщение об ошибке и мы будем этому рады, так как число Пи — очень известная константа, равная 3.14, и никто не имеет права менять ее значение.
Таким образом, при помощи объявления констант мы повышаем надежность программирования.
Обратите внимание, что термином "константа" мы обозначаем два близких понятия: с одной стороны число 100, строку "Волга" и т. п., а с другой стороны имена Otstup, Пи и т. п., обозначающие эти величины. Не думаю, что в будущем эта путаница принесет нам какой-нибудь вред.
Кроме перечисленных выше констант существует еще большое число так называемых внутренних констант Visual Basic. Объявлять их не надо, ими можно сразу пользоваться, если знать их имена и смысл. Например, такими константами являются названия цветов — vbRed, vbBlack и т. п. Каждая из таких констант имеет конкретное численное значение (например, vbRed=255), но названия запоминаются легче, чем числа. Имена, смысл и значение внутренних констант вы найдете в Object Browser.
Процедуры с параметрами
Процедуры с параметрами — мощный инструмент программирования и применяется программистами очень широко.
Вообразите, что вы решили фотографии разного с вашей точки зрения качества помечать значками разного отступа, размера и цвета, чтобы по значку легко было догадаться о качестве. Вот ваши предпочтения:
Но как это сделать? Ведь в процедуре Рисуем_мой_значок каждой из этих переменных присвоено одно единственное значение, поэтому, какую бы фотографию ни взять, значок всегда будет одинаковый. Можно было бы написать отдельную процедуру для каждого значка, но делать этого не хочется, потому что процедуры эти будут почти одинаковы. А тогда где экономия?
Выход есть. Заметим, что присваивать значения переменным не обязательно внутри процедуры Рисуем_мой_значок. Вот вариант программы, который будет работать:
Dim Otstup As Integer
Dim Razmer As Integer
Dim Tsvet As Long
Private Sub Рисуем_мой_значок()
Picture1.Line (Otstup, Otstup)-(Otstup + Razmer, Otstup + Razmer), Tsvet, В
Picture1.Line (Otstup, Otstup)-(Otstup + Razmer, Otstup + Razmer), Tsvet
Picture1.Line (Otstup, Otstup + Razmer)-(Otstup + Razmer, Otstup), Tsvet
End Sub
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("c: tempRockies.bmp")
'Фото неважное
Otstup = 100
Razmer = 200
Tsvet = vbBlue
'Рисуем_мой_значок
Picture1.Print, "21.07.2001"
End Sub
Private Sub Command2_Click()
Picture1.Picture = LoadPicture("c: tempPorthole.bmp")
'Фото хорошее Otstup = 200 Razmer = 400
Tsvet = RGB(100, 250, 150)
'Рисуем_мой_значок
Picture1.Print, "28.07.2001"
End Sub
Как видите, в процедуре Рисуем_мой_значок значения переменным не присваиваются, а присваиваются в процедурах, которые ее вызывают, причем присваиваются непосредственно перед вызовом. Убедитесь в пошаговом режиме, что все работает нормально.
Нормально-то нормально, да вот опять наша программа начала разбухать — в каждой вызывающей процедуре добавилось по три лишних строчки. За красивую жизнь приходится платить. Но и тут создатели языков программирования идут навстречу программистам. Имеется возможность вместо
Otstup = 100
Razmer = 200
Tsvet = vbBlue
Рисуем_мой_значок писать
Рисуем_мой_значок 100, 200, vbBlue
Все так и делают. Значения, идущие после имени процедуры через запятую, называются параметрами процедуры. Но откуда компьютер знает, что, например, Otstup = 100 и Razmer = 200, а не наоборот — Otstup = 200 и Razmer = 100? Компьютеру это объясняют в заголовке процедуры Рисуем_мой_значок, который теперь пишется по-другому:
Private Sub Рисуем_мой_значок (Otstup As Integer, Razmer As Integer,
Tsvet As Long)
Как видите, здесь задаются и порядок параметров и их тип.
Вот как компактно теперь выглядит наша программа. Это и есть ее окончательный вид, к которому мы стремились на протяжении этой главы:
Private Sub Рисуем мой значок (Otstup As Integer, Razmer As Integer, Tsvet As Long)
Picture1.Line (Otstup, Otstup)-(Otstup + Razmer, Otstup + Razmer), Tsvet, В
Picture1.Line (Otstup, Otstup)-(Otstup + Razmer, Otstup + Razmer), Tsvet
Picture1.Line (Otstup, Otstup + Razmer)-(Otstup + Razmer, Otstup), Tsvet
End Sub
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("c: tempRockies.bmp")
Рисуем_мой_значок 100, 200, vbBlue
Picture1.Print, "21.07.2001"
End Sub
Private Sub Command2_Click()
Picture1.Picture = LoadPicture("c: tempPorthole.bmp")
Рисуем_мой_значок 200, 400, RGB(100, 250, 150)
Picture1.Print, "28.07.2001"
End Sub
Обратите внимание, что мы убрали за ненадобностью фрагмент объявлений:
Dim Otstup As Integer
Dim Razmer As Integer
Dim Tsvet As Long
так как эти переменные уже объявлены в заголовке процедуры.
Наткнувшись в процессе выполнения программы на обращение к процедуре (Рисуем_мой_значок 100, 200, vbBlue), Visual Basic присваивает параметрам, приведенным в заголовке процедуры (Otstup, Razmer, Tsvet), указанные значения, а затем выполняет тело процедуры.
В качестве значений параметров в обращениях к процедурам можно писать не только константы, но и переменные, и выражения. Например, вместо Рисуем_мой_значок 100, 200, vbBlue можно было написать а=100
Рисуем_мой_значок а, 2 * a, vbBlue
Типы параметров
Параметры могут иметь не только числовой, но и строковый и многие другие типы. Пример:
Private Sub Печатаем_3_раза(Что_нибудь As String)
Print Что_нибудь
Print Что_нибудь
Print Что_нибудь
End Sub
Private Sub Command1_Click()
Печатаем_3_раза "Кто там? — Это почтальон Печкин!"
Печатаем_3_раза "Дядя Федор"
End Sub
Здесь вы видите процедуру пользователя Печатаем_3_раза и ее параметр — строковую переменную с именем Что_нибудь. При нажатии на кнопку Command1 программа начинает работать и печатает следующий текст:
Кто там? — Это почтальон Печкин!
Кто там? — Это почтальон Печкин!
Кто там? — Это почтальон Печкин!
Дядя Федор Дядя Федор
Дядя Федор
Вот другой пример. Для начала отметим, что величины, которые указываются в скобках функций (например, в Round (5.82716, 3) или LoadPicture("с: tempRockies.bmp")), тоже называются параметрами, хотя их называют также аргументами. Здесь в функции LoadPicture адрес файла взят в кавычки, значит этот параметр является строкой. Можно написать такую программу, которая по нажатии на кнопку Command1 показывает сразу два фото:
Private Sub Показываем_два_фото (Фото_1 As String, Фото_2 As String)
Picture1.Picture = LoadPicture (Фото_1)
Picture2.Picture = LoadPicture (Фото_2)
End Sub
Private Sub
