- •Знакомство с visual basic
- •Практическая работа
- •Свойства, методы и события
- •Практическая работа
- •Переменные
- •Объявление переменных
- •Область видимости переменной
- •Ф орма 1
- •Форма 2
- •Математические операторы
- •Операторы сравнения
- •Логические операторы
- •Практическая работа
- •Обработка ошибок
- •Практическая работа
- •Самостоятельно
- •Условия и циклы
- •Самостоятельно
- •Использование списков и полей со списками
- •Удаление строк из списка
- •Ф орма Код (самостоятельно)
- •Массивы
- •Объявления массивов Объявление массива как одной переменной:
- •Заполнение массива
- •Динамический массив
- •Самостоятельно
- •Работа со строками
- •Определение длины строки
- •Усечение строк
- •Самостоятельно
- •Использование одной кнопки для включения / выключения
- •Конкатенация разнотипных строк
- •Коды символов в формате ascii
- •Окно ввода данных
- •Функция Val() и Slr()
- •Вывод информации на форму
- •Функция Format
- •Работа с графическим окном
- •Элемент управления RichTextBox
- •Объект Printer
- •Дополнительные возможности работы со строками Оператор Like и неопределенный поиск
- •Прочие строковые функции
- •Работа с файлами Чтение текстового файла (1 способ)
- •Запись текста в текстовый файл: Форма
- •Чтение текстового файла (2 способ)
- •Самостоятельно
- •Код (самостоятельно)
- •Простой файловый менеджер
- •'FileCopy не допускает файловые шаблоны, поэтому копирование по полному пути
- •Изменение регистра символов строки
- •Код (проанализировать программу, при необходимости – набрать и проверить работу)
- •Создание меню
- •Клавиши доступа и быстрые клавиши
- •Создание всплывающих меню
- •Разделение строк меню
- •Вырезание, копирование и вставка с помощью объекта Clipboard (буфера обмена)
- •Выделение текста в поле текста
- •Самостоятельно
- •Код (сначала попытайтесь самостоятельно написать код)
- •Использование элемента управления
- •Управляющие элементы Image List и Tool Bar
- •Создание дистрибутивного пакета – подготовка приложения к распространению
- •Время и таймеры
- •Использование одной кнопки для включения /выключения
- •Вычисление разницы между датами
- •Вычисление возраста
- •Код (проанализировать, при необходимости набрать проверить работу)
- •Самостоятельно
- •Код (сначала самостоятельно)
- •Подпрограммы и функции Использование процедур в Visual Basic
- •Самостоятельно
- •Определение точки входа в программу (запуск проекта с нужной формы)
- •Выбор подпрограммы Main() точкой входа проекта
- •' Оповещаем пользователя
- •Тестирование и отладка программ
- •Точка остановки программы
- •Наблюдение за несколькими переменными
- •Полосы прокрутки
- •Самостоятельно
- •Дополнительные компоненты active X
- •Создание дистрибутивного пакета – подготовка приложения к распространению
- •Время и таймеры
- •Использование одной кнопки для включения /выключения
- •Вычисление разницы между датами
- •Вычисление возраста
- •Код (проанализировать, при необходимости набрать проверить работу)
- •Самостоятельно
- •Форма Код (сначала самостоятельно)
- •Подпрограммы и функции Использование процедур в Visual Basic
- •Самостоятельно
- •Определение точки входа в программу (запуск проекта с нужной формы)
- •Выбор подпрограммы Main() точкой входа проекта
- •' Оповещаем пользователя
- •Понятие о базах данных
- •Терминология баз данных
- •Элемент управления данными
- •Свойства элемента управления данными
- •Методы элемента управления данными
- •Свойства набора данных
- •Методы набора записей
- •Практическая работа
- •Связывание элемента управления данными с базой данных
- •Что такое Recordset?
- •Поиск записей
- •Поиск дальше
- •Запросы
- •Компоненты языка sql
- •Самостоятельно
- •Создание отчетов с помощью crystal reports
- •Создание отчета
- •Объекты
- •Практика
- •Движение объектов
- •О связанных элементах управления Последовательность событий при загрузке формы
- •Отношения родитель/потомок между элементами управления данными
- •Практикум –
- •Создание базы данных своими руками
- •Какую технологию выбрать?
- •Элемент управления данными ado
- •Сортировка и объединение данных с помощью элемента управления Hierarchical FlexGrid
- •Проект «Школьный журнал» (пример создания и работы с базой данных)
- •Практическое задание Создать базу данных «Записная книжка»
- •Простейший графический редактор
- •При отпускании кнопки мыши
- •Dim n As Integer ‘счетчик новых записей в массиве
Самостоятельно
Написать программу «Программирование таймера», которая бы демонстрировала временные промежутки таймера, задаваемые пользователем:
Форма Код (сначала самостоятельно)
Dim a As Integer
Private Sub cmdTimerOn_Click()
If Option1.Value Then Timer1.Interval = 1000
If Option2.Value Then Timer1.Interval = 500
If Option3.Value Then Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub cmdTimerOff_Click()
Timer1.Enabled = False
End Sub
Private Sub cmdUnset_Click()
Timer1.Enabled = False
Label1.Caption = ""
a = 0: Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
a = a + 1
Label1.Caption = a
End Sub
Приложение выводит в метку слово ПРИВЕТ по букве в полсекунды.
Подпрограммы и функции Использование процедур в Visual Basic
Вы, скорее всего, уже работали с подпрограммами и функциями. Например, подпрограммами являются процедуры обработки событии Сlick() и Load(). Visual Basic имеет также ряд встроенных функций, например LoadPicture() и Len ().
Visual Basic — процедурный язык программирования. Это означает, что в нем можно создавать блоки программного кода, на которые затем можно ссылаться по имени. После того как блок кода получит имя, он может быть вызван и выполнен. Другими словами, можно написать несколько строк кода, заключив их в блок и присвоив блоку имя, а затем вызвать этот блок кода, когда в нем возникнет необходимость. Это похоже на программу в программе. Маленькие программы, "живущие" в больших программах, называются функциями, если они возвращают какое-либо значение, и подпрограммами, если они значений не возвращают.
Программисты с давних пор создают собственные подпрограммы и функции. (Ключевое слово Sub, которое используется для обозначения подпрограмм, является сокращением от subroutine — подпрограмма.) Подпрограммы и функции делают процесс программирования более простым и быстрым, а создаваемый код — более надежным. Создание собственных подпрограмм и функций — первый шаг к разработке инкапсулированного и повторно используемого кода. Под инкапсуляцией следует понимать сокрытие реализации свойств и методов объекта за его внешним интерфейсом.
Подпрограммы дают возможность легко изменять программный код. Если какой-то фрагмент программы будет использоваться неоднократно, поместите его в подпрограмму. Затем, при необходимости изменить этот код, достаточно будет внести соответствующие изменения, только в саму подпрограмму. Если же не воспользоваться подпрограммой, придется просмотреть все включения этого фрагмента кода и внести необходимые изменения в каждый из них. Чем больше будет рассредоточен программный код, тем .сложнее будет вносить в него изменения.
Создание и вызов простой подпрограммы
Подпрограмма представляет собой процедуру, выполняющую программный код в пределах своего блока и не возвращающую значения. Синтаксис простой подпрограммы таков:
[Private | Public] Sub ИмяПодпрограммы()
...строки кода
End Sub
• [Private | Public] — необязательные ключевые слова Visual Basic, определяющие область видимости подпрограммы.
• Sub — ключевое слово Visual Basic, определяющее тип процедуры (а именно — подпрограмму).
• ИмяПодпрограммы () — имя, присваиваемое подпрограмме.
• End Sub — ключевые слова Visual Basic, указывающие на окончание блока кода подпрограммы.
Следующий фрагмент кода является примером простой подпрограммы:
Public Sub Primer()
MsgBox "Пример вызова подпрограммы”, vbInformation
End Sub
При вызове этой подпрограммы из произвольной точки на экране появится сообщение «Пример вызова подпрограммы. Вызывать подпрограмму можно с помощью оператора Call или просто написать имя подпрограммы в нужном месте.
Создание процедур с помощью команды Add Procedure
Создайте новый проект.
Перейдите в окно редактирования кода.
Из меню Tools выберите пункт Add Procedure, чтобы открыть окно Add Procedure:
Введите имя процедуры в полое Name.
ОК
Создание простой функции
Функция — это процедура, которая выполняет строки своего кода и возвращает некоторое значение. Синтаксис простой функции таков:
[Private | Public] Function FunctionName() As DataType
...строки кода
FunctlonName = ReturnValue
End Function
• [Private | Public] — ключевое слово Visual Basic, определяющее область видимости функции.
• Function — ключевое слово Visual Basic, указывающее на то, что это именно функция.
• FunctionName() — имя, присваиваемое функции.
• As — ключевое слово Visual Basic, предваряющее назначение типа данных.
• DataType — тип данных возвращаемого значения.
• ReturnValue — собственно возвращаемое значение, которое должно быть присвоено имени функции (это очень важный момент!).
• End Function — ключевые слова Visual Basic, обозначающие конец данного блока кода.
Добавить в проект функцию можно теми же двумя способами, которые используются для добавления подпрограмм — ввести код функции непосредственно в раздел General объявлений формы или модуля и с помощью диалогового окна Add Procedure. Однако помните, что при создании функций с помощью диалогового окна Add Procedure все равно придется добавить некоторую часть кода функции вручную.
Передача аргументов в подпрограммах и функциях
Возможности подпрограмм и функций можно расширить с помощью аргументов. Аргументы (передаваемые значения), которые также называют параметрами, — это переменные, используемые для хранения значений, которые будут переданы в подпрограмму или функцию. Вы создаете аргументы, заключая их в круглые скобки в операторе объявления подпрограммы или функции. Ниже приведено объявление функции EndDay (). Эта функция имеет два аргумента, один — типа Integer, второй — типа String:
Public Function EndDay(NumOne As Integer, strName As String) As Integer
Благодаря аргументам код становится более универсальным. Пусть, например, во многих частях программы требуется вычислять большее из двух чисел. Конечно, для этого можно каждый раз вводить один и тот же фрагмент кода строка за строкой. Но можно создать функцию, выполняющую соответствующие вычисления, и просто вызывать ее каждый раз, когда требуется вычислить большее из двух чисел.
Пример функции Greater(), которая возвращает большее из двух чисел, которые передаются ей в качестве аргументов.
Public Function Greater(NumOne As Integer, NumTwo As Integer) As Integer
' Если первое число больше второго,
If NumOne > NumTwo Then
' то возвращаем первое число
Greater = NumOne
Else
‘ в противном случае возвращаем второе
Greater = NumTwo
End If
End Function
Создайте приложение, которое возвращает большее из 5 введенных чисел.
Форма:
Код (сначала напишите его самостоятельно)
Private Sub Command1_Click()
Dim a, b, c, d, e As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
c = CInt(Text3.Text)
d = CInt(Text4.Text)
e = CInt(Text5.Text)
Text6.Text = Greater(a, b, c, d, e)
End Sub
Public Static Function Greater(a, b, c, d, e)
Dim Max As Integer
Max = a
If Max < b Then Max = b
If Max < c Then Max = c
If Max < d Then Max = d
If Max < e Then Max = e
Greater = Max
End Function
Примечание: если необходимо выйти из функции дострочно – в нужном месте функции ставится оператор Exit Function.