#Visual Basic

Бондаренко Виталий группа 47

Microsoft Visual Basic — язык программирования, а также интегрированная среда разработки программного обеспечения, разрабатываемые корпорацией Microsoft. Язык Visual Basic унаследовал дух, стиль и отчасти синтаксис своего предка — языка BASIC, у которого есть немало диалектов. В то же время Visual Basic сочетает в себе процедуры и элементы объектно-ориентированных и компонентно-ориентированных языков программирования. Интегрированная среда разработки VB включает инструменты для визуального проектирования пользовательского интерфейса, редактор кода с возможностью IntelliSense и подсветкой синтаксиса, а также инструменты для отладки приложений.

Visual Basic также является хорошим средством быстрой разработки (RAD) приложений баз данных для операционных систем семейства Microsoft Windows. Множество готовых компонентов, поставляемых вместе со средой, призвано помочь программисту сразу же начать разрабатывать бизнес-логику бизнес-приложения, не отвлекая его внимание на написание кода запуска программы, подписки на события и другие механизмы, которые VB реализует автоматически.

Первое признание серьёзными разработчиками Visual Basic получил после выхода версии 3. Окончательное признание как полноценного средства программирования для Windows — при выходе версии 5. Версия VB6, входящая в состав Microsoft Visual Studio 6.0, стала по-настоящему зрелым и функционально богатым продуктом.

Элементы языка
Типы данных
Переменные в Visual Basic объявляются оператором Dim, после которого указывается имя, затем - ключевое слово As и тип переменной. Если тип опущен, то ключевое слово As не указывается и переменная объявляется как Variant. Если не указать конструкцию Option Explicit в разделе деклараций, то явного объявления переменных не требуется и они автоматически будут созданы при первом использовании. Данное поведение может привести к снижению скорости выполнения программы, так как необъявленные переменные будут иметь тип Variant, а также возможны логические ошибки, связанные с неверным вводом имени имеющейся переменной или риска конфликтов в приложении, когда область определения переменной не совсем ясна.

Dim strMessage As String 'объявление переменной символьного типа 
Dim iProductCount As Integer 'объявление переменной целочисленного типа 
Dim dt70YearsOfVictory As Date 'объявление переменной для хранения даты и времени
Dim otherValue ' тип не указан, переменная типа Variant

Public Sub Main()
    strMessage = "Привет, Мир!" 
    iProductCount = 125 
    dt70YearsOfVictory  = #5/9/2015 2:00:00 PM# ' дата 9 мая 2015 14:00:00

    otherValue = 12.5 ' тип переменной Variant, подтип Double.
    otherValue = "Википедия" ' тип переменной Variant, подтип String.
End Sub

Операторы
Язык Visual Basic содержит множество операторов, которые отвечают за арифметические операции, операции сравнения и присвоения, а также конкатенации.

Оператор присвоения

Знак равенства (=) используется для присвоения значения переменной. Также возможно использование ключевого слова Let перед именем переменной. В ранних версиях языка BASIC его наличие было обязательным, но в Visual Basic он оставлен для совместимости. Для присвоения переменной объектного типа, необходимо наличие ключевого слова Set. Примеры: nVar = 10, Let iCount = 20, Set refDouble = objClass.
Многократное присваивание, так как это реализовано в языке C, невозможно. A = B = C не означает, что A, B и C будут иметь равные значения. VB оценит выражение B = C и в переменную A присвоит результат True или False, 0 или ?1, в зависимости от типа.

Арифметические операторы

сложение (+), вычитание (-), умножение (*), деление (/)
возведение в степень (^). Пример: 2 ^ 3 = 8
целочисленное деление (\). Делит первое число на второе, отбрасывая (не округляя) дробную часть. Пример: 5 \ 2 = 2
деление по модулю (Mod). Делит первое число на второе, возвращая только остаток от деления. Пример: 5 Mod 2 = 1
Операторы сравнения

равенство (=). Пример: If nVar = 10 Then
больше, чем и меньше, чем (> и <). Пример: If nVar > 10 Then
больше или равно и меньше или равно (>= и <=). Пример: If nVar >= 10 Then
не равно (<>). Пример: If nVar <> 10 Then
сравнение объектов (Is). Определяет, ссылаются объектные переменные на тот же объект или на разные. Пример: If obj1 Is obj2 Then
оператор подобия (Like). Сравнивает строковый объект с шаблоном и определяет, подходит ли шаблон. Пример: If strEmail Like "*@*.*" Then
Логические операторы

логическое И (And) — Обе части выражения должны быть истинными, чтобы всё выражение стало истинным. Пример: If (2 * 2 = 4) And (2 * 3 = 6) Then
логическое ИЛИ (Or) — должно быть истинным хотя бы одно из выражений. Пример: If (2 * 2 = 5) Or (2 * 2 = 4) Then
логическое отрицание (Not) — возвращает True, если условие ложно и наоборот. Пример: If Not(2 * 2 = 5) Then
логическое исключение (Xor) — в выражении E1 Xor E2 возвращает True, если только E1 = True или только E2 = True, иначе — False.
эквивалентность (Eqv) — оценивает эквивалентность двух выражений, возвращает True, если они имеют одинаковое значение.
импликация (Imp) — возвращает False, если E1 = True и E2 = False, иначе — True.
Операторы конкатенации

Оператор (+) используется для конкатенации строк. Если обе части выражения имеют символьный тип, то операция склеивания строк будет успешной. Если одна из частей выражения, имеет числовой тип, но другая часть не может быть корректно преобразована к числу, то возникает ошибка приведения типов. Чтобы не допустить таких ситуаций, рекомендуется использовать соответствующие операторы для конвертации типов или применять оператор (&) для соединения строк.
Оператор (&) производит автоматическое преобразование выражений и значений в строковой тип. Например, выражение str = "10" & 20 даёт результат «1020», а не «30». Если бы использовали оператор (+) в данном выражении, то VB привел бы выражение «10» к числовому типу 10, и в случае успеха, произвёл бы арифметическое сложение.
Управляющие конструкции
В Visual Basic, как и во многих языках программирования, существуют конструкции, предназначенные для управления порядком выполнения действий. Некоторые из конструкций, такие как GoSub и Return, оставлены для совместимости с ранними версиями языка BASIC, но реализация в виде отдельных процедур может обеспечить более структурированный код.

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

'Запись оператора ветвления в одну строку
If <условие> Then [действие_когда_условие_истинно]

'Такая запись позволит выполнить действия в зависимости от истинности условия
If <условие> Then [действие_когда_условие_истинно] Else [действие_когда_условие_ложно]

'Запись оператора ветвления в несколько строк
If <условие> Then
    [действие_когда_условие_истинно]
ElseIf <условие2> Then
    [действие_когда_условие2_истинно]
ElseIf <условиеN> Then
    [действие_когда_условиеN_истинно]
Else
    [действие_когда_условие_ложно]
End If
Оператор выбора
Общий синтаксис:

Select Case <проверяемое_значение> 'Переменная или выражение, которое требуется проверить по одному или нескольким условиям
    Case <значение_1>              'Выполняется действие, если проверяемое значение будет соответствовать значению 1
        [действие_1]
    Case <значение_2>, <значение_3>, <значение_3> 'Проверяет список значений. Если найдено соответствие, то выполняется действие
        [действие_2]
    Case <значение_5> To <значение_6>       'Проверяет диапазон значений
        [действие_3]
    Case Is >= <значение_7>                 'Проверяет значение на истинность с условием
        [действие_4]
    Case Else                               'Выполняется действие, если ни одно из условий не выполнится
        [действие_5]
End Select
Пример: вывод различных сообщений в зависимости от значения переменной

'Введём переменную и дадим ей значение вручную 
Dim X As Double  
X = InputBox("Введите числовое значение переменной Х")  
  
Select Case X 'Проверим, подходит ли некоторой воображаемой функции наше значение  
    Case Is < 5, Is >= 20, 12 To 15 'Диапазон подходящих значений  
        MsgBox "Действительное значение для некоторой функции"  
    Case Else 'Не подходящие значения  
        MsgBox "Значение не может быть использовано в некоторой функции"  
End Select
Цикл со счётчиком
Общий синтаксис:

For <переменная> = <значение> To <конечное_значение> [Step <шаговое_значение>]
    [блок_операторов]
    [Exit For] 'Выход из цикла
Next [переменная]
Пример: подсчёт суммы чётных чисел от 1 до 100

For I = 0 To 100 Step 2
    Sum = Sum + I
Next
Совместный цикл
Общий синтаксис:

For Each <переменная> In <коллекция>
    [блок_операторов]
    [Exit For] 'Принудительный выход из цикла
Next [переменная]
Пример: выводит на экран каждый элемент из массива

Dim strItem As Variant

For Each strItem In Array("Яблоко", "Груша", "Слива")
    Print strItem
Next
Цикл с условием
Общий синтаксис:

Do While <условие> 'Цикл выполняется, когда условие истинно
    [блок_операторов]
    [Exit Do] 'Принудительный выход из цикла
Loop

Do Until <условие> 'Цикл выполняется, когда условие ложно
    [блок_операторов]
    [Exit Do]
Loop

While <условие> 'Цикл выполняется, когда условие истинно
    [блок_операторов]
Wend
Пример: Построчное чтение текстового файла

Open "file.txt" For Input As #1
    Do While Not EOF(1)          'Возвратит True, если ожидается конец файла
        Line Input #1, strBuffer 'Чтение строки в переменную
        Debug.Print strBuffer    'Вывод в окно отладки
    Loop
Close #1
Цикл с постусловием
Общий синтаксис:

Do
    [блок_операторов]
    [Exit Do]
Loop While <условие>

Do
    [блок операторов]
    [Exit Do]
Loop Until <условие>
Процедуры и функции
Подпрограммы являются одними из основных элементов языка. Они представляют собой процедуры и функции.

Процедура начинается с оператора Sub и заканчивается End Sub, между которыми и помещается код. Процедуры могут вызываться или самим Visual Basic, например, реализованные в виде обработчиков событий, или другими процедурами и функциями. Имя процедуры обработки события состоит из имени объекта, знака подчёркивания и имени события:
Private Sub Command1_Click() 'Событие будет вызвано при нажатии на элемент управления "Кнопка"
    ...
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Вызывается при перемещении указателя мыши в окне формы
    ...
End Sub
На самом деле Visual Basic реализует цикл обработки оконных сообщений Windows. В примере с формой, цикл отфильтрует сообщение WM_MOUSEMOVE и автоматически вызовет процедуру Form_MouseMove с параметрами: какие кнопки мыши были нажаты, координаты указателя. Данный механизм скрывает от разработчика некоторые аспекты программирования в среде Windows, позволяя ему сразу приступить к написанию коммерческого кода. В большинстве случаев, класс решаемых задач не потребует от программиста знаний о сообщениях и оконных функциях. Но Visual Basic не ограничивает программиста самому реализовать обработку оконных сообщений. Это позволяет очень гибко подходить к построению приложений, но и потребует достаточного опыта для написания подобного кода, который может вызвать нестабильную работу программы вплоть до аварийного завершения.

Функции в VB начинаются с ключевого слова Function и заканчиваются End Function. Возвращаемое значение функции присваивается переменной, совпадающее с названием функции. Для того, чтобы досрочно прервать выполнение процедуры или функции, существуют специальные операторы Exit Sub и Exit Function. Visual Basic 6.0 содержит встроенные функции для работы с файловой системой, датой и временем, математические функции, функции взаимодействия с системой, функции для работы со строками, функции приведения типов и функции осуществляющие финансовые расчёты. Также существуют недокументированные функции, которые позволяют работать, например, с указателями.
Пример функции для решения квадратного уравнения:

Private Sub Main()
    Dim RetX1 As Double, RetX2 As Double
    Dim strStatus As String
    
    strStatus = SolveQuadraticEquation(4, 6, 2, RetX1, RetX2) 'Решение уравнения 4*X^2 + 6*X - 2 = 0
    
    'Выводим ответ
    MsgBox "Решение: " & strStatus & vbCrLf & _
           "X1 = " & RetX1 & vbCrLf & _
           "X2 = " & RetX2, vbInformation
End Sub

'Функция решения квадратного уравнения
Public Function SolveQuadraticEquation(ByVal A As Double, _
                                       ByVal B As Double, _
                                       ByVal C As Double, _
                                       ByRef X1 As Double, _
                                       ByRef X2 As Double) As String
    Dim D As Double
    D = (B * B) - (4 * A * C) 'Получаем значение дискриминанта
    
    If D >= 0 Then
        X1 = (-B - Sqr(D)) / (2 * A) 'Вычисляем корни уравнения
        X2 = (-B + Sqr(D)) / (2 * A)

        SolveQuadraticEquation = "Решение получено" 'Функция возвращает сообщение о решении
    Else
        SolveQuadraticEquation = "Дискриминант < 0. Корней нет"
    End If
End Function
В этом примере можно заметить модификатор ByVal перед аргументами A, B и C. Это способствует тому, что параметры в функцию будут переданы по значению. Модификатор ByRef, напротив, передаёт значение по ссылке. Для такого типа модификатора, функция может модифицировать значения переменных, переданных в качестве параметров. Visual Basic по-умолчанию всегда передаёт значения по ссылке, если ни один из модификаторов не был указан.

Модули и классы
Программный код в Visual Basic хранится в модулях. Существуют всего три вида модулей: модуль формы (Form), стандартный модуль (Module) и модуль класса (Class Module).

Модуль формы (расширение файла *.frm) является основой большинства приложений Visual Basic. Модуль формы содержит процедуры обработки события, общие процедуры и объявленные на уровне формы: переменные, константы, типы и внешние процедуры. Если открыть модуль формы в текстовом редакторе, можно увидеть описания формы и её элементов управления, включая их свойства. Код, размещённый в модуле формы, может ссылаться на другие формы или объекты приложения.
Стандартный модуль (расширение файла *.bas) является контейнером для процедур, функций и объявлений, к которым обычно получают доступ другие модули приложения. Они могут содержать глобальную переменную (доступную всему приложению) или описанные на уровне модуля: переменные, константы, типы, внешние и глобальные процедуры. Код, размещённый в стандартном модуле, может быть не связан с определенным приложением; если не использовать ссылки на модуль формы или имена элементов управления, стандартный модуль может быть использован в других приложениях.
Модуль класса (расширение файла *.cls) является основой объектно-ориентированного программирования в Visual Basic. Модуль класса используется для создания новых объектов. Эти объекты могут иметь собственные свойства, методы и события. Фактически, форма — просто модуль класса, который может содержать элементы управления, помещенные в него, и выводить их на экран. Классы могут содержать специальные процедуры Class_Initialize и Class_Terminate, которые фактически являются конструктором и деструктором.
Объектно-ориентированное программирование
Простое взаимодействие между объектами является одним из базовых составляющих парадигмы Visual Basic. Сам объект называют экземпляром класса. Объектная модель VB предоставляет различные классы для работы с формами, элементами управления, буфером обмена, коллекциями, экраном и т. д. Для взаимодействия с другими объектами класс предоставляет разработчику интерфейс, состоящий из свойств, методов и событий.

Создание нового объекта из класса возможно ранним или поздним связыванием. Для раннего связывания используется ключевое слово New перед именем класса. Для позднего связывания используется функция CreateObject, возвращающая ссылку на созданный объект. Присваивание ссылок осуществляется в переменные с типом Object, используя оператор Set. Доступ к методам и свойствам класса происходит через оператор точку ., который ставится сразу после имени переменной объектного типа. Если класс содержит события, то переменные объявляются с ключевым словом WithEvents, тем самым будут доступны процедуры обработки событий.

Пример показывает взаимодействие программы с библиотекой Microsoft Scripting Runtime, предоставляющей объекты для работы с файловой системой:

Public Sub Main()
    Dim objFSO As New FileSystemObject 'Создаём экземпляр класса, используя оператор New
    Dim objWindows As Folder
    
    Set objWindows = objFSO.GetFolder(Environ("SYSTEMROOT")) 'Вызываем метод класса GetFolder и присваиваем ссылку на полученный объект
    
    MsgBox "Папка Windows: " & objWindows.Path 'Читаем свойства класса
    MsgBox "Дата создания: " & Format(objWindows.DateCreated, "YYYY-MM-DD H:mm:ss")
    
    Dim sTextFilePath As String
    Dim objTS As TextStream
    
    sTextFilePath = objFSO.BuildPath(Environ("TEMP"), "Тестовый файл.txt") 'Метод с двумя параметрам возвращает значение типа String
    
    Set objTS = objFSO.CreateTextFile(sTextFilePath, True)
    objTS.Write "Привет, Википедия!"
    objTS.Close
        
    objFSO.DeleteFile sTextFilePath, True
    
    Set objFSO = Nothing     'Присваивая Nothing, происходит освобождение ссылки, и объект может вызвать процедуру деструктора
    Set objWindows = Nothing 'VB автоматически вызывает деструктор, если на объект больше не ссылаются
    Set objTS = Nothing
End Sub
Visual Basic позволяет разработчику самому создавать новые классы. В отличие от других языков программирования, таких как Java и C++, Visual Basic имеет неполную поддержку ООП.

Как известно, абстрактный класс необходим, чтобы предоставить шаблон для интерфейса другим классам. В Visual Basic классы имеющие члены класса, но не содержащие реализацию, можно использовать в качестве абстрактных классов, но фактически они ими не являются. Из классов Visual Basic всегда можно создать объекты, даже если они не содержат кода[4]

Принцип инкапсуляции действует в Visual Basic. Чтобы разграничить доступ к членам класса, служат модификаторы Public, Private и Friend, используемые при описании процедур, функций, констант, переменных и пользовательских типов.

Наследование реализации не поддерживается. Visual Basic обеспечивает только поддержку наследования интерфейса через оператор Implements. При наследовании интерфейса любой класс может действовать как базовый класс интерфейса. Вообще любой класс, может выступать как базовый класс интерфейса.

Полиморфизм обеспечивается только через интерфейсы, так как наследование VB не поддерживает. Реализация полиморфизма показана на примере классов Автомобиль и Самолёт реализующие интерфейс класса Транспорт.

'Класс ITransport.cls
Public Function GetMaxSpeed() As Long
End Function
'Класс CAuto.cls
Implements ITransport 'Наследуем интерфейс

Private Function ITransport_GetMaxSpeed() As Long 'Реализация метода
    ITransport_GetMaxSpeed = 240
End Function
'Класс CFly.cls
Implements ITransport

Private Function ITransport_GetMaxSpeed() As Long
    ITransport_GetMaxSpeed = 700
End Function
'Стандартный модуль Program.bas
Option Explicit

Public Sub Main()
    Dim T As ITransport 'Объявляем переменную с типом ITransport
    
    Set T = New cAuto
    WhatTransportSpeed T 'Передаем ссылку в процедуру, которая вызовет нужный метод класса, в зависимости от реализации
    
    Set T = New cFly
    WhatTransportSpeed T
End Sub

'Функция имеет аргумент, который принимает ссылку на объект, реализующий интерфейс ITransport
Public Sub WhatTransportSpeed(Transport As ITransport)
    MsgBox "Максимальная скорость: " & Transport.GetMaxSpeed()
End Sub