- •Знакомство с 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 ‘счетчик новых записей в массиве
Прочие строковые функции
StrComp
Может использоваться вместо операторов отношений (таких как > или <) для сравнивания строк. В
отличие от них данная функция возвращает значение, поэтому применяется вместе с оператором присваивания.
Например, если Х= StrComp(A$, B$), то значение
Х = -1, если А$<В$;
0, если А$ = В$;
1, если A$ > B$.
Если хотя бы одна из строк пуста, Х принимает значение NULL (зарезервированная константа).
Добавляя третий параметр к функции StrComp, можно управлять чувствительностью к регистру символов при сравнении строк.
Если использовать
StrComp (А$, В$, 1)
то при сравнении строк регистр не учитывается, а для
StrComp(A$, В$, 0) - наоборот.
Trim (TrimS), Ltrim (LtrimS), Rtrim (RtrimS)
Хотя в предыдущих разделах показывалось, как добавлять пробелы к строке, чаще необходимо убрать лишние пробелы справа и слева от текста строки. Функция Trim уничтожает пробелы в начале и в конце выбранной строки.
Например:
А$ = " В этой строке есть пробелы по краям. "
Trim(A$) = "В этой строке нет пробелов по краям."
Похожим образом LTrim уничтожает пробелы в левой части строки, a RTrim - в правой.
Работа с файлами Чтение текстового файла (1 способ)
Прежде чем взять строку из текстового файла, ее нужно туда записать. Для этого откройте приложение «Блокнот» и занесите туда строку «Строка, которая находится в файле» (без кавычек).
Оператор Input выбирает из файла строку символов, включая пробел, до тех пор, пока не встретится запятая или символ переноса строки (Enter).
Задание:
Откройте новый проект и задайте форму:
Напишите код:
Private Sub Command1_Click()
Dim str As String
Dim str2 As String
Open "C:\Мои документы\Text.txt" For Input As #1
Input #1, str, str2
Close #1
Text1.Text = str & ", " & str2
End Sub
Запустите программу
Измените файл «Text.txt» - строку заменить на «Строка <Enter> которая находится в файле», то есть, написать эту строку в две строки и убрать запятую.
Запустите программу еще раз.
Уберите из программы переменную str2 и снова запустите программу.
Проанализируйте результат.
Запись текста в текстовый файл: Форма
Свойства для текстового поля: MultiLine = True, ScrollBars = 2 – Vertical
(Возможность писать в несколько строк и наличие вертикальной полосы прокрутки)
Код
Private Sub Command1_Click()
Open "Output.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Если для чтения текстового файла необходимо существование этого файла, то для записи этого не нужно. Если файла нет, то он автоматически создается. Если файл с таким именем был, то при таком открытии файла вся информация в нем стирается. Чтобы иметь возможность дописывать к файлу строки – то открывать его надо как: OPEN <FileName> FOR APPEND AS #<номер>
Чтение текстового файла (2 способ)
Изменить предыдущую форму, как показано:
Код
Private Sub Command1_Click()
Open "File.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Command2_Click()
Dim strTxt, strBuff As String
Open "File.txt" For Input As #2
Do While Not EOF(2)
Line Input #2, strBuff
strTxt = strTxt & strBuff & vbCrLf
Loop
Close #2
Text2.Text = strTxt
End Sub
Пояснения к программе:
Запись:
Открыть файл для вывода как №1
Записать в №1 все, что находится в текстовом поле.
Закрыть №1
Чтение:
В переменную strTxt будет записан весь текст из файла,strBuff – буферная переменная, в которой будет храниться текущая считанная строка (файл считывается по строкам), vbCrLf – символ перевода строки.
Открыть файл для ввода как №2
ВЫПОЛНЯТЬ до тех пор, ПОКА НЕ встретиться конец файла №2(End Of File)
Ввести строку из №2 в буферную переменную
Добавить к strTxt буферную строку и символ перевода строки (для разделения строк)
Закрыть цикл
Закрыть №2
Во второе текстовое поле ввести значение strTxt.
Отличие Input #N от Line Input #N
Input считывает до запятой или до конца строки (до символа перевода строки vbCrLf), Line Input считывает строку до конца вместе со всеми знаками препинания.