Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Процедуры с параметрами

Глава 8. Типичные маленькие программы | Вложение циклов в разветвления и наоборот | Объекты. Их свойства, их события, их методы | Первый способ - Загрузка в Visual Basic готовых изображений | Цвет в Visual Basic | Способ - Рисуем при помощи графических методов | Использование случайных величинпри рисовании | Зачем нужны процедуры пользователя | Операторы Stop, End и Exit Sub | Тип данных Date |


Читайте также:
  1. II. Порядок выплаты ежемесячной компенсации на оплату проезда до места проведения процедуры гемодиализа инвалидам, находящимся на постоянном диализном лечении.
  2. III. Провести порівняльний аналіз підприємства за наступними параметрами.
  3. III. Провести порівняльний аналіз підприємства за наступними параметрами.
  4. Административные процедуры как форма реализации компетенции органов внутренних дел.
  5. Административные регламенты как акты управления, устанавливающие административные процедуры.
  6. Внутренние процедуры
  7. Внутренние процедуры контроля над дискурсом (М.Фуко)

Процедуры с параметрами - мощный инструмент программирования и применяется программистами очень широко.

Вообразите, что вы решили фотографии разного с вашей точки зрения качества помечать значками разного отступа, размера и цвета, чтобы по значку легко было догадаться о качестве. Вот ваши предпочтения:

Фото неважное Otstup = 100 Razmer = 200 Tsvet = vbBlue
Фото хорошее Otstup = 200 Razmer = 400 Tsvet = RGB(100,250,150)

Но как это сделать? Ведь в процедуре Рисуем_мой_значок каждой из этих переменных присвоено одно единственное значение, поэтому, какую бы фотографию ни взять, значок всегда будет одинаковый. Можно было бы написать отдельную процедуру для каждого значка, но делать этого не хочется, потому что процедуры эти будут почти одинаковы. А тогда где экономия?

Выход есть. Заметим, что присваивать значения переменным не обязательно внутри процедуры Рисуем_мой_значок. Вот вариант программы, который будет работать:

Dim Otstup As Integer

Dim Razmer As Integer

Dim Tsvet As Long

 

Private Sub Рисуем_мой_значок()

Picture1.Line (Otstup, Otstup)-(Otstup + Razmer, Otstup + Razmer), Tsvet, B

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:\temp\Rockies.bmp")

'Фото неважное

Otstup = 100

Razmer = 200

Tsvet = vbBlue

Рисуем_мой_значок

Picture1.Print, "21.07.2001"

End Sub

 

Private Sub Command2_Click()

Picture1.Picture = LoadPicture("c:\temp\Porthole.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? Компьютеру это объясняют в заголовке процедуры Рисуем_мой_значок, который теперь пишется по-другому:


Дата добавления: 2015-11-16; просмотров: 47 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Переменные вместо чисел| Рисуем_мой_значок 200, 400, RGB(100, 250, 150)

mybiblioteka.su - 2015-2024 год. (0.007 сек.)