Пользовательский тип данных

Dim a(1 To 3)

Тип Variant

Массив - это набор элементов. Если вы объявили массив некоторого типа, то он обязан состоять из элементов только этого типа. Например, каждый из десяти элементов массива, объявленного как

Dim a(1 To 10) As Integer

обязан быть целым числом. Ни один из них не имеет права быть строкой или дробным числом.

Имеется целый ряд задач, где хотелось бы, чтобы элементы в наборе имели разный тип. Этого можно достичь, если вообще не объявлять тип массива:

Private Sub Command1_Click()

a(1) = 32

a(2) = "кошка"

a(3) = #8:56:00 AM#

End Sub

В этом случае Visual Basic считает, что массив объявлен по умолчанию специальным типом Variant. Это тип-хамелеон. Он не возражает, если объявленная им переменная будет иметь значение любого типа. Он присматривает, чтобы выполнение программы при этом проходило по возможности гладко и без неприятностей для программиста.

Вместо Dim a(1 To 3) можно было прямо написать Dim a(1 To 3) As Variant.

Еще один пример всеядности Variant (здесь я объявлю этим типом не массив, а переменную):

Dim b As Variant 'можно было просто написать Dim b

Private Sub Command1_Click()

b = 77

b = "кот"

End Sub

Итак, если переменная не объявлена или объявлена без указания типа, Visual Basic считает ее принадлежащей типу Variant. Какой толк от этого типа? Иногда бывает так, что соблюдая приличия и объявляя тип каждой переменной, мы наталкиваемся во время выполнения программы на сообщение об ошибке Type mismatch (несовпадение типов). Это значит, что выполняя операции над данными разных типов и преобразовывая один в другой, Visual Basic не захотел преступать строгие рамки безопасности и приличий и потерпел крах. Не всегда у начинающего программиста хватает знаний, чтобы разобраться в причинах краха. В этом случае, если вы любите риск, объявите все данные одним типом - Variant или вообще не указывайте тип. Теперь вероятность сообщений об ошибке снизится, хотя несколько увеличится вероятность получения недостоверного результата.

Вернемся к нашему желанию иметь набор из элементов разных типов. Программисты не хотят для этого использовать массивы типа Variant. Они используют для этого так называемый пользовательский тип данных.

В Паскале пользовательскому типу данныхсоответствуют записи, в языке Си - структуры. Рассмотрим простейший пример пользовательского типа:

Вы хотите занести в компьютер информацию о ваших любимых компьютерных играх, чтобы затем как-то ее анализировать, например, определить, какая игра занимает самое большое место на диске. Для простоты ограничим информацию об игре тремя элементами:

· Название игры

· Сколько места игра занимает на диске (в мегабайтах)

· Хорошая или плохая графика у игры (ваша оценка)

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

· Распечатать название первой игры

· Определить, сколько места займут на диске обе игры вместе

· Ответить, хороша или плоха графика у второй игры

Ваши действия: Для начала нужно создать пользовательский тип данных для размещения информации об одной игре. Нам уже приходилось конструировать перечислимый тип (см.11.3). Здесь действуем аналогично - придумываем новому типу имя (типИгра) и пишем:

Private Type типИгра

Название As String

Объем As Integer

Графика_хорошая As Boolean

Дата добавления: 2014-12-23