Встроенные именованные константы

Язык Basic имеет ряд встроенных констант (для определения цвета, кода клавиш, типа данных, параметров и др.), которые можно использовать в программе. Чтобы узнать значение нужной константы в VB, щел­кните по кнопке Object Browser и воспользуйтесь окном просмотра объектов Object Browser (F2). Использование встроенных констант повышает наглядность текста программы и уменьша­ет число ошибок в программе.

Перечисления enum (VB)

     Перечисления служат для присвоения имен элементам набора целых чисел (Integer), что повышает наглядность и надежность задания правиль­ных значений переменной.

Объявление производится на уровне модуля и имеет вид:

Enum <имя перечисляемого типа>

<имя 1> [=<значение 1>]

...

<имя N >[=<значение N >]

End Enum

По умолчанию значение первого элемента равно нулю, а значение сле­дую­щего элемента списка на единицу больше.

     Пример задания имен сезонам года.

(General)(Declarations) ‘раздел глобальных объявлений формы

Enum Sezon ‘ объявление перечисляемого типа под именем Sezon

Zima = 1   ‘ целому числу 1 присваивается имя Zima (зимний сезон)

Vesna = 2 ‘ целому числу 2 присваивается имя Vesna (весенний сезон)

Leto = 3   ‘ целому числу 3 присваивается имя Leto (летний сезон)

Osen = 4 ‘ целому числу 4 присваивается имя Osen (осенний сезон)

End Enum ‘ конец объявления типа

Public SezonOtpusk As Sezon ‘объявление глобальной переменой типа Sezon

Private Sub Command1_Click()

SezonOtpuska = Leto      ‘ присвоение числа 3 переменной SezonOtpuska

If SezonOtpuska = Leto Then Print “Ура! Отпуск летом!“

‘ можно и так: If SezonOtpuska = 3 Then Print “Ура! Отпуск летом!“

End Sub

Коллекции данных Collection (VB)

     Коллекция представляет собой специальный динамический массив, оформленный в виде класса Collection, который содержит все нужные свойства и методы для работы с коллекцией. Элементами коллекции могут быть данные различных типов и объекты различных классов. Обычно встроенные коллекции Visual Basic имеют имена существительные во мно­жест­венном числе.

     Объявления коллекции могут быть трех видов:

Dim <имя> As New Collection ‘ объявление с выделением памяти

Dim <имя> As Collection      ‘ объявление без выделения памяти

Set <имя> New Collection   ‘ выделение памяти для новой коллекции

     Удаление коллекции реализуется в виде: Set <имя>= Nothing.

Доступ к элементам коллекции осуществляется методом Item (номер или имя элемента в кавычках) или циклом For Each (п. 2.4.6).

     Удаление элемента из коллекции реализуется методом Remove  но­мер (нумерация с единицы) или имя элемента (Sotrudniki.Remove 1).

Внимание! Для удаления нельзя использовать цикл For Each.

Для удаления всех или группы элементов коллекции следует ис­поль­зовать цикл For в обратной последовательности (Step -1).

Число элементов в коллекции опрeделяется его свойством Count.    Пополнение коллекции выполняется методом Add:

<имя коллекции>. Add <элемент> [,<ключевое имя>,[<перед> | <после>]]

<элемент> ‑ добавляемое значение (литерал, переменная, выражение, на­име­нование объекта);

<ключевое имя> ‑ имя элемента для возможности ссылки на него;

<перед>/<после> ‑ элемент размещается перед/после указанного элемента, номер или имя которого задано параметром <перед>/<после>. По умол­ча­нию новый элемент помещается после последнего.

     Пример формирования коллекции с фамилиями сотрудников

Private Sub Command1_Click()    ‘ процедура формирования и вывода

Dim i, Sotrudniki As New Collection      ‘ создание новой коллекции Sotrudniki

Sotrudniki.Add “Иванов“                  ‘ добавить фамилию первого сотрудника

Sotrudniki.Add “Петров“, “начальник“ ‘ добавить фамилию начальника

Sotrudniki.Add “Сидоров“                ‘ добавить фамилию третьего сотрудника

For Each i In Sotrudniki: Print i: Next ‘ вывод списка фамилий

‘For i = 1 To Sotrudniki.Count: Print Sotrudniki.Item(i): Next ‘можно и так

Print “начальник отдела“,Sotrudniki.Item(“начальник“)   ‘фамилия начальника

Set Sotrudniki = Nothing                                                     ‘удаление коллекции

End Sub

Вопросы для самопроверки и контроля

Вопросы для самопроверки

1. Можно ли переносить на другую строку константы, разрывая их?

2. Верно ли написано имя переменной “План”?

3. Что повышает наглядность вложенных операторов?

4. В чем состоит отличие переменной от константы?

5. Каково назначение встроенных констант?

6. Почему рекомендуется явно объявлять все переменные?

Контрольные вопросы

1. Какие типы данных хранятся в переменной типа Variant?

2. Какие формы объявлений переменных можно использовать?

3. Должна ли переменная быть объявлена до ее использования?

4. Допускается ли массив записей?

5. В чем разница между обычными и статическими переменными?

6. Могут ли быть в программе одноименные глобальные и локальные переменные?

7. Что указывается в качестве уточнителя поля?

Переопределение массивов

2.2.1. Инициализация массива ‑ Erase

Команда имеет вид: Erase <имя массива>[,<имя массива>]....

Массив заполняется соответственно нулями или пустыми строками.

2.2.2. Переопределение массивов ‑ Redim

Команда имеет вид:

Redim [Preserve]<имя переменной>[(<индексы>)] [As <тип>]

                      [,<имя переменной>[(<индексы>)] [As <тип>]]...

Команда аналогична команде Dim. Используется при формировании динамических массивов, когда число элементов меняется в процессе вы­пол­нения программы. В этом случае, например, объявляется массив (X) без указания размерности (Dim X() as integer), а затем определяют раз­мер­ность (n) и массив, повторно объявляется (Redim Preserve X(n)). Параметр Pre­serve задает режим сохранения текущих значений элементов массива X.

2.2.3. Изменение начала отсчета индексов ‑ Option Base

Командой Option Base { 0 |1} установливается отсчет элементов в массиве с 0 или с 1. Команда ука­зы­ва­ет­ся перед командами объявления массивов. В Visual Basic эта команда указывается на уровне модуля.

 

Вопросы для самопроверки и контроля

Вопросы для самопроверки

1. Каким образом указывается элемент в массиве?

2. Можно ли сохранить “старые” значения при переопределении массива командой ReDim?

Контрольные вопросы

1. Как изменить размер массива?

2. Что может делать оператор ReDim, но не может оператор Dim.