Common
Декларация переменной и модификатор области видимости
Декларирует переменную, которая является общей между модулями кода. Соответствующий оператор Common должен находиться во всех других модулях кода, использующих переменную.
Необязательный параметр Shared делает переменную глобальной, в итоге она может использоваться внутри Sub и Function, как и на уровне модуля. Common массивы всегда переменной длины и должны быть определены с пустым списком параметров (), а их размерности определяются позднее с помощью Dim или ReDim.
Вывод:
Синтаксис
Описание
Декларирует переменную, которая является общей между модулями кода. Соответствующий оператор Common должен находиться во всех других модулях кода, использующих переменную.
Необязательный параметр Shared делает переменную глобальной, в итоге она может использоваться внутри Sub и Function, как и на уровне модуля. Common массивы всегда переменной длины и должны быть определены с пустым списком параметров (), а их размерности определяются позднее с помощью Dim или ReDim.
Пример
'' common1.bas
Declare Sub initme()
Common Shared foo() As Double
ReDim foo(0 To 2) As Double
initme()
Print foo(0), foo(1), foo(2)
Declare Sub initme()
Common Shared foo() As Double
ReDim foo(0 To 2) As Double
initme()
Print foo(0), foo(1), foo(2)
'' common2.bas
Common Shared foo() As Double
Sub initme()
foo(0) = 4*Atn(1)
foo(1) = foo(0)/3
foo(2) = foo(1)*2
End Sub
Common Shared foo() As Double
Sub initme()
foo(0) = 4*Atn(1)
foo(1) = foo(0)/3
foo(2) = foo(1)*2
End Sub
Вывод:
3.141592653589793 1.047197551196598 2.094395102393195
Отличия от QB
- Массивы всегда будут переменной длины.
- blockname не требуется и должен быть удален, поскольку
порядок декларирования больше не имеет значения, только символьные имена.
См. также