Процедуры

Процедура предназначена для выполнения какой-либо законченной последовательности действий.

Существует два способа добавления процедуры, создаваемой программистом, в проект.

I. С помощью диалогового окна Add Procedure:

- открыть окно программных кодов (Code);

- из меню Tools выбрать команду Add Procedure;

- откроется диалоговое окно Add Procedure, в котором нужно ввести имя процедуры и установить нужные параметры (переключатели и флажки).

- щелкнуть кнопку ОК, чтобы добавить процедуру в раздел General окна кодов, имя процедуры будет присутствовать в списке процедур этого же окна. Ввести тело процедуры.

II. Другой способ – ввести с клавиатуры заголовок процедуры, а затем – тело процедуры в разделе General окна программных кодов.

Синтаксис процедуры:

[Private / Public] Sub имя процедуры [(список формальных параметров)]

[(объявление переменных и констант)]

операторы

End Sub

где

[Private / Public] – необязательные ключевые слова, определяющие область видимости процедуры;

Sub – ключевое слово, указывающее на процедуру;

End Sub – окончание процедуры;

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

Замечание. Список формальных параметров вводится с клавиатуры .

Пример. Процедуры ввода элементов массива:

Private Sub Vvod (K as byte, Z () as integer)

‘K – размер массива, Z () – массив

Dim i as byte

for i = 1 to k

z(i) = InputBox (“вв”)

Picture1/ Print z(i); Spc(2)

next i

End Sub

Вызов процедуры

Для выполнения процедуры ее надо вызвать из той процедуры, где она должна быть выполнена. Для вызова используется оператор Call. Его синтаксис:

Call Имя_процедуры (список фактических параметров)

Оператор Call не обязателен – можно указать только имя процедуры и, если были заданы формальные параметры, список фактических параметров. В списке фактических параметров через запятую перечисляются имена переменных, значения которых передаются в вызываемую процедуру. Число фактических параметров и их типы в операторе вызова должны соответствовать числу и типам формальных параметров в определении процедуры. При вызове процедуры формальные параметры заменяются на соответствующие фактические.

Например, вызов процедуры Vvod:

Private Sub btn Start_Click ( )

Dim i as byte

Dim a( ) as Integer

Dim m as byte ‘размер массива

m = val (Text1.text)

ReDim a (1 to m) as Integer

Call vvod (m, a( ))

…

При выполнении процедуры Vvod формальный параметр К будет заменен на фактический m, а в качестве массива Z будет использоваться массив а( ).