Оператор начала подпрограммы <SUB>
Предназначен для объявления подпрограммы и списка параметров, передаваемых ей при запуске.
Формат:
SUB <имя подпрограммы> {(<список формальных параметров>)}
Описание:
Ключевое слово оператора – <SUB>, за которым следует обязательный параметр имя программы – литерная строка, не ограниченная двойными кавычками и далее необязательный <список формальных параметров>, заключенный в круглые скобки.
<Список формальных параметров> представляет собой последовательность числовых, строковых переменных или массивов состоящую из одного и более элементов. Если число параметров в списке больше одного, то они разделяются запятыми.
Переменные, указываемые в списке формальных параметров, при вызове подпрограммы будут содержать значения, указанные в операторе вызова. Поэтому эти переменные уже определены в программе и могут быть использованы в любых операторах.
Пример:
sub GetProgramID(PrgID: Integer)
! Извлекаем из строкового имени NC-программы числовой идентификатор
i: Integer
j: Integer
k: Integer
s$: String
i = 1
j = 0
k = 0
while i<=Len(NCName$) do begin
s$ = Copy(NCName$, i, 1)
case Ord(s$) of
48, 49, 50, 51, 52, 53, 54, 55, 56, 57: begin
if j<1 then j = i
if (k<1) or (k=(i-1)) then
k = i
end
end
i = i + 1
end
if (j>0) and (k>0) then begin
s$ = Copy(NCName$, j, k-j+1)
PrgID = Num(s$)
end
subend
Сопутствующие ссылки:
Оператор вызова подпрограммы <CALL>