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

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

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

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

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

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

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

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

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

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

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

Private Type типИгра

Название As String

Объем As Integer

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

End Type

Тип определен. (Объяснение слова Private отложим на будущее). Теперь Visual Basic знает, сколько места в памяти занимает информация об игре и какая у нее структура. Можно отводить место в памяти:

Dim Игра1 As типИгра

Dim Игра2 As типИгра

Вот полный текст программы:

'Создаем пользовательский тип:

Private Type типИгра

Название As String

Объем As Integer

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

End Type

'Отводим в памяти место под информацию о двух играх:

Dim Игра1 As типИгра

Dim Игра2 As типИгра

____________________________________________________________________

Private Sub Form_Load()

'Заносим в память компьютера информацию об играх:

Игра1.Название = "StarC": Игра2.Название = "Heroes III"

Игра1.Объем = 90: Игра2.Объем = 200

Игра1.Графика_хорошая = False: Игра2.Графика_хорошая = True

'Выполняем 1 задание:

Debug.Print Игра1.Название

'Выполняем 2 задание:

Debug.Print Игра1.Объем + Игра2.Объем

'Выполняем 3 задание:

If Игра2.Графика_хорошая Then Debug.Print "Хорошая графика" Else Debug.Print "Плохая графика"

End Sub

Обратите внимание, что имя элемента отделяется от имени переменной точкой подобно тому, как название свойства объекта отделяется точкой от имени объекта.

Выстроенную подобным образом в памяти информацию о чем-либо часто называют базой данных. Всю информацию об одной переменной (в нашем случае об одной игре) называют записью в этой базе данных. Программу, которая извлекает информацию из базы данных, сортирует записи и производит другую обработку информации в базе данных, называют системой управления базой данных. В нашем примере роль системы управления базой данных играет процедура Form_Load.

Элементы пользовательского типа могут иметь любой известный вам тип, в том числе быть массивом или пользовательским типом. Пусть вы хотите дополнить информацию об игре именами персонажей игры (не более 20). Вот каким массивом дополнится определение типа:

Private Type типИгра

Название As String

Объем As Integer

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

Дата добавления: 2015-11-16