|
|
@@ -0,0 +1,300 @@
|
|
|
+#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
|
