Объектно-ориентированное программирование. Использование оператора Is

Использование оператора Is

Оператор Continue

End

Next Счётчик

Dim Счётчик, Произведение As Integer

Выход с помощью оператора Exit

End While

End

Оператор While означает, что цикл работает, пока выполняется условие: "Количество >= -2". Изменение количества от значения 5 до -2 происходит с уменьшением в каждой петле цикла на единицу (Количество -= 1). Такой вариант придаёт гораздо большую гибкость для модификации цикла, т. к можно изменять шаг петли цикла, т. е. дискретность.

Оператор используется в условных выражениях If…Then и Select...Case, вложенных в основной цикл For…Next для прерывания цикла и перехода к следующим за циклом операторам. Внутри цикла For…Next оператор Exit имеет вид Exit For, а внутри цикла Do … Loop - Exit Do.

For Счётчик = 100 To 1 Step -10

Произведение = Счётчик * 10

MsgBox("Произведение " & Произведение)

Debug.Print ("Произведение " & Произведение)

If Произведение <= 500 Then Exit For

MsgBox("Выполнено")

При действии цикла визуализация фразы происходит как в окне MsgBox, так и в окне "Интерпретация".

Пример с оператором Exit Do

Dim y, x As Integer

y = 10

x = 1

Do While y > 1

MsgBox ("y = " & y)

If y < 5 Then Exit Do

y = y - x

Loop

Оператор Exit можно также использовать для выхода из процедур Sub и Function. Синтаксис операторов в этих случаях имеет вид Exit Sub и Exit Function соответственно.

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

Оператор Continue позволяет немедленно перейти к следующей итерации цикла. С помощью его можно осуществлять условный переход от одной петли к другой в любом из циклов: For... Next, For Each...Next, Do...Loop.

В качестве примера можно рассмотреть следующий код:

Dim i As Integer

For i = 1 To 5

If i <= 3 Then Continue For 'позволяет перейти к следующей после 'третьей петле цикла, т. е будут выполняться только петли 4 и 5.

MsgBox(i)

Console.WriteLine(i)

Next i

End

После выполнения программы в окне MsgBox и на консоли (в окне "Вывод") будут отображены числа 4 и 5, т. е. петли 1, 2, 3 не проигрываются.

Если необходимо выяснить идентичность двух ссылок на объекты, то это можно сделать с помощью оператора Is (результат будет True или False), например:

Dim objObject1 As Object, objObject2 As Object

If objObject1 Is objObject2 Then

MsgBox "Это тот же самый объект!"

Else

MsgBox "Это разные объекты!"

End If

Объектно-ориентированное программирование (ООП) представляет собой методику анализа, проектирования и написания приложений с помощью объектов.

Объектом называется фрагмент программного кода, обладающий свойствами, методами и реагирующий на внешние воздействия – события.

Объекты могут моделировать правила обработки данных, различные ситуации, физические предметы и различные материальные явления материального мира.

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

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

Все объекты объединяются общим термином: тип платформы Microsoft.NET Framework, который включает в себя в качестве членов: классы (klasses), модули (modules), перечисления (enum) и т. п.

Каждый из классов включают в себя описание однотипных объектов. Таким образом, каждый объект является экземпляром определённого класса. Для конкретного класса экземпляр – это не один из объектов класса, а объект, типом которого является какой-то класс.

Структура класса

Каждый класс содержит члены класса: набор полей, методов, свойств и событий.

- поля – это переменные, принадлежащие классу или экземпляру класса;

- методы – процедуры и функции класса;

- свойства – способы доступа к внутреннему состоянию объекта, имитирующие переменные некоторого типа, позволяющие осуществлять вызов функции;

- события – сообщения, посылаемые объектом, чтобы сигнализировать о совершении какого-либо действия.

Объявление класса задаёт последовательность расположения полей в памяти и способы вызова функций.

При создании (инициализации) конкретного экземпляра класса (объекта) происходит выделение памяти согласно структуре полей класса.

Создание классов

Кроме использования встроенных (стандартных) типов VB, называемых примитивами (primitive types), например, формы, кнопки, метки и т. п., можно создавать и свои собственные типы. Это делается путём создания класса, а с его помощью и создания экземпляра объекта.

Чтобы создать новый, индивидуально определённый класс, нужно щёлкнуть правой кнопкой мыши по названию проекта, выбрать команду Добавить - Класс, назвать класс (вместо имени по умолчанию) именем по своему выбору (при этом к имени класса автоматически присваивается расширение. vb).

В окне программного кода появится шаблон, в который добавляется оператор объявления глобальной переменной (члена класса) FirstName:

Public Class Сотрудники

Public Dim FirstName As String

End Class

В состав класса можно добавлять новые члены, которыми могут быть событиями (events), полями (fields), методами (methods или procedures) и свойствами (properties).

Объявление переменной в новом классе:

Public Class Сотрудники

Dim Фамилия As New Сотрудники

Фамилия.FirstName = "Пётр"

Таким образом, полю FirstName нового члена Фамилия класса Сотрудники было присвоено строковое значение " Пётр ", т. е. создан новый класс и экземпляр (член) нового класса.

Основными понятиями объектно-ориентированного программирования (ООП) являются инкапсуляция, наследование и полиморфизм.

Инкапсуляция

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

Например, если есть класс, предоставляющий возможность скачать файл из Интернета, то все операции по соединению с сервером, проведению обмена, все переменные должны быть скрыты внутри этого класса, т. к. нет необходимости пользователям класса видеть все детали реализации процесса. Если всё-таки надо что-либо изменить в классе, расширить его функционал (базовые функции), то в этом помогут наследование и полиморфизм.

Примером реализации инкапсуляции может служить оператор Private (локальный). Он обеспечивает закрытость объектов, т. е. запрещает доступ к программным модулям со стороны других форм и модулей.

Наследование

Класс может использовать члены другого класса, используя наследование (inheritance).

Наследование - это способность дочернего класса сохранять атрибуты класса-родителя.

Классы редко содержат в себе абсолютно весь функционал. Обычно часть функционала переносится из других классов.

Класс-потомок (child) создается на основе класса-родителя (parent) и может наследовать такие его члены, как, например, поля, методы, наследование которых допускается родительским классом.

В VB2010 абсолютно все классы прямо или косвенно (через цепочку других классов) наследуются от класса System.Object.

Для приведённого выше класса Сотрудники можно создать класс-потомок Кассир.

Чтобы создать новый класс-наследник, следует выбрать команду Добавить – Класс и присвоить имя новому классу.

Для наследования атрибутов, переменных, свойств, процедур и событий другого класса используется команда Inherits.

Таким образом, в шаблоне кода следует создать команду:

Public Class Кассир

Дата добавления: 2014-01-05