Прикладное приложение "Разработка проекта для создания нового класса Auto и элемента управления Label с новым свойством Caption в системе объектно-ориентированного программирования"

5.1 Создание класса пользователя

Для создания нового класса используется команда главного меню File / New / Class (рис.5.8).

Рис.5.8. Выбор команды File / New / Class для создания нового класса.

После её применения появляется окно «Class Module Builder» (рис.9), где на вкладке Properties в поле Name можно задать имя класса Auto.В поле Based On (Базируется на) показывает, является ли этот класс новым, или будет основан в другом классе (отцовском). Выбираем значение New Class (Новый класс) из списка, который откроется, и нажать на кнопку OK.

Соответствующий значок модуля класса с заданным именем появляется в левой части главного окна Class Builder Utility.

Теперь с помощью команд File / New / Property… или и значка на панели инструментов задаём свойства нового класса Auto.

В окно «Property Builder», которое появилось, задаются:

- имя свойства (поле Name);

- тип свойства (поле Data Type), то есть тип той переменной или константы, в которой будет храниться значение этого свойства;

- в поле Declaration указывается, является ли это свойство доступным для чтения или записи (Public Property) или оно будет дано, как глобальная переменная (Public Variable). Выбираем значение Public Property (рис.5.10).

Рис. 5.9. Окно Class Module Builder.

Рис. 5.10. Окно Public Property.

После нажатия на кнопку OK, новое свойство добавляется к классу. Повторяя эти действия несколько раз, вводим все необходимые свойства класса. Все свойства, его типы и доступ к ним по алфавиту отображается на вкладке Property главного меню Class Builder Utility. Разработка нового класса осуществлялась с помощью специальной программы системы ООП VB 6 - Class Builder Utility. В соответствии с поставленной задачей были заданы имя нового класса и его свойства (рис.5.11).

Рис. 5.12. Определение коллекции объектов класса Auto.

If mvarAutoCollection Is Nothing Then

Set mvarAutoCollection = New AutoCollection

Set mvarAutoCollection = vData

End Property

Private Sub Class_Terminate ()

Set mvarAutoCollection = Nothing

End Sub

'used when retrieving value of a property, on the right side of an assignment.

'Syntax: Debug.Print X.Price

Price = mvarPrice

'used when assigning a value to the property, on the left side of an assignment.

'Syntax: X.MaxSpeed = 5

mvarMaxSpeed = vData

'used when retrieving value of a property, on the right side of an assignment.

'Syntax: Debug.Print X.MaxSpeed

MaxSpeed = mvarMaxSpeed

'used when assigning a value to the property, on the left side of an assignment.

'Syntax: X.Quality = 5

mvarQuality = vData

'used when retrieving value of a property, on the right side of an assignment.

'Syntax: Debug.Print X.Quality

Quality = mvarQuality

'used when assigning a value to the property, on the left side of an assignment.

'Syntax: X.Year = 5

mvarYear = vData

'used when retrieving value of a property, on the right side of an assignment.

'Syntax: Debug.Print X.Year

Year = mvarYear

'used when assigning a value to the property, on the left side of an assignment.

'Syntax: X.Title = 5

mvarTitle = vData

'used when retrieving value of a property, on the right side of an assignment.

'Syntax: Debug.Print X.Title

Title = mvarTitle

Dim Sved As String

Для коллекции объектов нового класса был сформирован следующий программный код.

'local variable to hold collection

Private mCol As Collection

Public Function Add (Title As String, Year As Integer, Quality As Integer, MaxSpeed As Integer, Price As Single, AutoCollection As AutoCollection, Optional sKey As String) As Auto

'create a new object

Dim objNewMember As Auto

Set objNewMember = New Auto

'set the properties passed into the method

objNewMember.Title = Title

objNewMember.Year = Year

objNewMember.Quality = Quality

objNewMember.MaxSpeed = MaxSpeed

objNewMember.Price = Price

Set objNewMember.AutoCollection = AutoCollection

If Len (sKey) = 0 Then

mCol.Add objNewMember

Else

mCol.Add objNewMember, sKey

End If

'return the object created

Set Add = objNewMember

Set objNewMember = Nothing

End Function

Public Property Get Item (vntIndexKey As Variant) As Auto

'used when referencing an element in the collection

'vntIndexKey contains either the Index or Key to the collection,

'this is why it is declared as a Variant

'Syntax: Set foo = x.Item (xyz) or Set foo = x.Item (5)

Set Item = mCol (vntIndexKey)

End Property

Public Property Get Count() As Long

'used when retrieving the number of elements in the

'collection. Syntax: Debug.Print x.Count

Count = mCol.Count

End Property

Public Sub Remove (vntIndexKey As Variant)

'used when removing an element from the collection

'vntIndexKey contains either the Index or Key, which is why

'it is declared as a Variant

'Syntax: x.Remove (xyz)

mCol.Remove vntIndexKey

End Sub

Public Property Get NewEnum () As IUnknown

'this property allows you to enumerate

'this collection with the For...Each syntax

Set NewEnum = mCol.[_NewEnum]

End Property

Private Sub Class_Initialize ()

'creates the collection when this class is created

Set mCol = New Collection

End Sub

Private Sub Class_Terminate ()

'destroys collection when this class is terminated

Переходим к заданию методов класса Auto. Для этого в главном меню окна «Class Builder Utility» перейдём во вкладку Methods и с помощью команд File / New / Methods… или кнопки на панели инструментов открываем окно «Method Builder» (рис.5.13).

Рис.5.13. Окно Method Builder.

Здесь в поле Name указывается имя метода. В поле Return Data Type задаётся тип данных значения, которое возвращается. Если в этом поле выбрать значение (None) (данные не возвращаются), то для реализации метода будет создана процедура Sub. Если же тип данных указать, то будет построена процедура Function.

В окне можно также задать список аргументов, которые передаются методу (поле Arguments). Справа от этого поля находятся кнопки, которые имеют такие назначения:

- добавляет аргумент в список;

- удаляет аргумент из списка;

- перемещает аргумент в список на одну позицию вверх;

- перемещает аргумент в список на одну позицию вниз;

Нажав на кнопку можно задать аргумент для метода. После появляется окно «Add Argument» (Добавить аргумент). Здесь можно добавлять методы и их аргументы в список аргументов (рис. 5.14).

Для ввода данных в коллекцию и тестирования коллекции путем реализации функции поиска по различным критериям на форме были размещены необходимые элементы управления (рис. 5.17).

Рис. 5.17. Форма для ввода данных в коллекцию объектов класса.

В раздел объявлений формы было помещено объявление глобальной переменной, задающей имя новой коллекции:

Public AutoColl As AutoCollection

Для удобства отладки и тестирования, данные для ввода в коллекцию сначала, были набраны в виде текстового файла. При нажатии кнопки «Ввести данные в коллекцию» происходит чтение файла и формирование коллекции. Программный код этой процедуры представлен ниже.

Private Sub Command1_Click ()

`Объявление вспомогательных переменных

Dim A1 As String, A2 As String, A3 As String, A4 As String, A5 As String

'Создание коллекции нового класса Auto

Set AutoColl = New AutoCollection

Open CurDir & "\Autos.txt" For Input As #1

While Not EOF (1)

Line Input #1, A1

Line Input #1, A2

Line Input #1, A3

Line Input #1, A4

Line Input #1, A5

AutoColl.Add A1, CInt (A2), CInt (A3), CInt (A4), CSng (A5), AutoColl

Wend

Close #1

MsgBox "Коллекция создана" & vbCr & "Объектов в коллекции = " & AutoColl.Count

End Sub

Ниже приведен программный код процедуры поиска для задач, перечисленных в списке. Здесь для вывода результата поиска используется метод Show нового класса Auto.

Private Sub Command2_Click ()

YMin = AutoColl.Item (1).Year

Case 1

' Поиск самого дорогого автомобиля

Case 2

'Поиск автомобиля в наилучшем состоянии

QMax = AutoColl.Item (1).Quality

'Поиск оптимального варианта

Данные, которые вводились в коллекцию, показаны в таблице (рис. 5.18)

Таблица (рис.5.18) Данные для ввода в коллекцию объектов класса Auto.