Описание доступности модулей, процедур и функций

В главе 1 в качестве одной из технологических идей программирования было рассмотрено регулирование доступности различных данных и блочных структур в других блочных структурах. Примером блочной структуры является модуль, который в проект добавляется командой "Проект/Добавить модуль" ("Project/Add Module") или кнопкой "Добавить …".

Добавленный таким образом модуль становится доступным всем проектам. Для этого достаточно зарегистрировать его в другом проекте командой "Проект/Добавить файл" ("Project/Add File"). При выборе команды открывается окно выбора файлов, и в проект можно добавить любой видимый в окне файл, даже если он находится в другом каталоге.

Нередко бывает необходимо сделать модуль недоступным для других проектов. Для этого достаточно в первой строке кода модуля поставить оператор "Option Private Module". Тогда при добавлении файлов в другие проекты он становится невидимым в окне выбора файлов, а следовательно, и недоступным для других проектов.

В модуле можно описывать данные (см. 4.2), процедуры и функции. При их описании возникают аналогичные задачи – обеспечение доступности данных вне модуля и ограничение доступности пределами модуля. Если заголовку процедуры или функции предшествует слово public, то процедура или функция доступны за пределами модуля, слово private ограничивает доступ к ним пределами модуля. Видимость модулей и описанных внутри них процедур и функций показана на рис. 4.1

.

Рис. 4.1. Доступность модулей и описанных в них процедур и функций

Добавить модуль в проект можно командой "Проект/Добавить модуль" ("Project/Add Module"). При этом он может быть сделан доступным в другом проекте командой "Проект/Добавить файл" ("Project/Add File") При необходимости ограничить доступность модуля одним проектом в первой строке кода программы модуля достаточно поставить оператор "Option Private Module" Процедуры и функции, описанные в модуле со словом "Public", доступны в пределах модуля и вне его. Слово "Private" ограничивает доступность процедур и функций пределами модуля, содержащего их описание

4.2. Описание данных
и преобразование типов данных

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

Описание данных возможно в модулях, в секции General кода программы формы и внутри описания процедуры и функции. В любом случае оператор описания изменяемых данных имеет вид:

Public

Private Имя_данного [(размерность)] As тип

Dim

Слово Public указывает доступность данного за пределами блочной структуры, слова Private и Dim ограничивают доступность данных пределами той блочной структуры (модуля, процедуры, функции), в которой эти данные описаны (рис. 4.2). Судя по описанию языка, слова private и dim – синонимы.

Рис. 4.2. Доступность данных, описанных в разных блочных структурах

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

Тип данных (табл. 1.1.) определяет место в оперативной памяти, отводимое для данных и возможные операции над данными.

Задание параметра "размерность" указывает на организацию данных в виде массива. Если параметр пуст (т.е. внутри скобок ничего нет), то массив динамический, и он в дальнейшем должен быть определен оператором ReDim. Если параметр не пуст, то описание размерности имеет вид:

нижняя_граница to верхняя_граница

или

нижняя_граница1 to верхняя_граница1, нижняя_граница2 to верхняя_граница2

или

нижняя_граница1 to верхняя_граница1, нижняя_граница2 to верхняя_граница2, …, нижняя_границаN to верхняя_границаN,

где нижняя_граница – наименьшее значение индекса элемента массива,

верхняя_граница – наибольшее значение индекса элемента массива.

В первом случае описан одномерный массив (строка или столбец), во втором – двухмерный (таблица), в третьем – многомерный. Это описание размерности необходимо использовать и в операторе ReDim.

Описание данных постоянных во время выполнения программы имеет вид:

Public

Const Имя_константы as тип = выражение

Private

Примеры описания данных приведены в табл. 4.1.

Таблица 4.1

Примеры описания данных

Пример описания	Комментарий
Public a As Integer	Описана глобальная переменная a целого типа
Dim b As Integer, Private b As Integer	Описана локальная переменная b целого типа
Public d (1 to 5) As Single Dim f(1 to 5) As Single Private r(1 to) As Single Dim r1(1 to 5, 1 to 10) As Single	Описан глобальный одномерный массив d из 5 элементов типа single Описан локальный одномерный массив f из 5 элементов типа single Описан двумерный массив размером 5 строк на 10 столбцов из чисел типа single
Public q() As Integer Private s () As Integer	Описан глобальный динамический массив целых чисел Описан локальный динамический массив целых чисел
Public Const Pi As Single=3.14 Private Const Pi=3.14	Описана глобальная константа Pi=3.14 (single) Описана локальная константа Pi=3.14 (single)

Очень распространенной операцией является преобразование типов данных. Особенно это касается операций ввода данных с клавиатуры и вывода данных на экран или печать. Традиционными операторами преобразования типов являются встроенные функции int, val, str, asc и chr. В языке Visual Basic предусмотрены и новые операторы преобразования типов данных. Наиболее часто встречающиеся операторы преобразования типов данных приведены в табл. 4.2. Операторы преобразования типов данных встречаются в правой части оператора присваивания значения переменной, в любой части логического выражения, сравнивающего две величины, а также в списке вывода:

· a=int(b) 'преобразовать данные, записанные по адресу b в целый тип и результат записать по адресу a,

· if chr(f)="n" 'если результат преобразования данных по адресу f есть буква "n",

· write #1, a, val(b) 'пишутся в файл данные с именем а и результат преобразования данных, размещенных по адресу b из строкового в численный тип.

Таблица 4.2

Операторы преобразования типов данных

Формат оператора	Назначение	Пример
Val(f), где f – строковые данные	Преобразование строковых данных в численные	F="123.5" Val(F)=123.5
Str(a), где а – численные данные	Преобразование численных данных в строковые	A=123.5 str(a)=" 123.5" a= -123.5 str(a)="-123.5"
Int(f), где f – данные не целого типа	Преобразование численных данных в данные целого типа	A=10.51: B= -10.22 Int(A)=10:Int(B)= -11
Chr(b), где 0<b<256 – целое число	Определение символа по его коду	Chr(68) = "D"
Asc(s), где s – данные строкового типа	Определение кода первого символа данных, записанных по адресу s	Asc("DEL") = 68
Fix(n), где n – числовое выражение	Преобразование к целому типу	A= -99.8: B=99.8 Fix(A)= -99: Fix(B)=100
Cbool(выражение)	Приведение выражения к типу Boolean	А=5:B=5:C=0 Cbool(A=B) = True Cbool(C) = False
CByte(выражение)	Преобразование к типу Byte	C=123.6 Cbyte(C)=124
CDate(выражение)	Преобразование к типу Date	A="Febr 16, 2002" B="4:57:48 PM" CDate(A): CDate(B) CDate(A+B)
CDbl(выражение)	Преобразование к типу Double	F=123.5 (single) A=CDbl(F)=123.5 (double)
CInt(выражение)	Преобразование к типу Integer (см. Int)	A=123.56 Cint(A)=124
CLng(выражение)	Преобразование к типу Long	A=123 (integer) CLng(A)= 123 (long)
CSng(выражение)	Преобразование к типу Single	C=5.3421115 (double) CSng(C)=5.34211
CStr(выражение)	Преобразование к типу String	A=437.324:B=False CStr(A)="437.324" CStr(B)="False"

Для описания сложных типов данных служит оператор Type – End Type:

Type Имя_типа

Имя_поля_1 as тип_1

Имя_поля_2 as тип_2

...

Имя_поля_n as тип_n

End Type

Имена полей являются именами переменных, из которых конструируется сложный тип данных. В качестве полей могут быть использованы статические и динамические массивы, в том числе и строковые постоянной и переменной длины. Описание сложного типа оператором Type – End Type используется только на уровне модуля. Доступность этого описания регулируется обычным способом с помощью слов Public и Private.

Пример. Описание типа Student (табл. 3.1), дополненное массивом оценок, имеет вид:

Type Student Type Student

FIO as string FIO as string*60

Psevdo as string или Psevdo as string*20

NumDel as string NumDel as string*10

Ocenki (1 to 54) as integer Ocenki (1 to 54) as integer

End Type End Type

Во втором случае строковые данные FIO, Psevdo и NumDel имеют фиксированную длину в 60, 20 и 10 байт соответственно. Описание данных сложного типа выполняется так же, как и описание данных простого типа.

Описание данных выполняется операторами: Public Private Имя_Данных [(Размерность)] As Тип Dim Public Const Имя_Константы As Тип = Выражение, Private где описание размерности имеет вид нижняя_граница to верхняя_граница В случае необходимости в модуле можно описать сложный тип данных оператором Type – End Type: Type Имя_типа Имя_поля_1 as тип_1 ... Имя_поля_n as тип_n End Type Возможно преобразование данных из одного типа в другой специальными операторами int, val, str, asc, chr, Cint, CSng, CDbl, CLng, CStr и др.

Дата добавления: 2014-11-29