2. Создание исходного кода программы. Линейный процесс.
Visual Basic является языком, ориентированным на обработку событий. Это означает, что определенные части программы выполняются в ответ на определенные события. Событием является, например, щелчок левой кнопкой мыши на командной кнопке (событие Click), нажатие клавиши на клавиатуре (событие KeyPress).
Чтобы ввести исходный код для определенного элемента нужно выполнить двойной щелчок на элементе. В результате открывается окно кода, в котором содержится заголовок и последняя строка процедуры. Данная процедура описывает действия, которые нужно выполнить, в случае наступления определенного события (например, для командных кнопок по умолчанию создается процедура для события Click - нажатие левой кнопки мыши). Имя процедуры содержит имя объекта, знак подчеркивания, название события. Чтобы изменить событие можно использовать список в верхней правой части окна кода Procedure.
В процедурах можно изменять свойства объектов. Для этого нужно указать имя объекта, поставить точку, определить свойство, после знака = ввести новое значение свойства. В этом случае знак = используется как оператор присваивания. Свойствам объектов можно присваивать числовые и текстовые значения. Если свойствам объектов следует предоставить текстовые значения, их надо закрыть в двойные кавычки ("_"). например,
txtZ.Text = 45 |
– свойству Text текстового поля txtZ присваивается значение 45 |
txtMes.Text = “Ошибка” |
– свойству Text текстового поля txtMes присваивается значение строки символов “Ошибка” |
lblY.Caption = 100 |
– свойству Caption этикетки lblY присваивается значение 100 |
lblV.Caption = “Результат: ” |
– свойству Caption этикетки lblY присваивается значение строки символов “Результат: ” |
В программах могут использоваться переменные. Переменные - это участки оперативной памяти, в которые в течение работы программы можно помещать различные данные. Обращение к участкам памяти осуществляется по имени. То есть переменные - это значение, хранящиеся определенный срок, которые могут использоваться для вычислений, присвоений значений свойствам, другим переменным, и изменяются в течение выполнения программы.
Переменные, используемые в программе, нужно объявить в разделе объявления переменных. Для этого в окне кода в списке Object нужно выбрать General (Общий раздел), в списке Procedure - Declaration (Объявление). В начале раздела целесообразно ввести оператор Option Explicit. Данный оператор определяет, что в программе запрещено использование переменных, которые не объявлены. Если в процедурах будут использоваться переменные, предварительно не объявлены, система выдаст сообщение об ошибке. Чтобы избежать лишних ошибок оператор Option Explicit в программах нужно использовать.
Для объявления переменных используется оператор Visual Basic Dim. При объявлении переменных следует определить их имя, можно задать тип данных. Язык Visual Basic поддерживает работу с такими типами данных:
-
integer
- целое число
single
- число
currency
- денежное значение
string
- строка символов
byte
- целое число в диапазоне от 0 до 255
boolean
- логическое значение, которое может принимать только значение True (Истина, 1) або False (Ложь, 0)
Если при объявлении переменных не определен их тип, система работает со переменными в соответствии с типами тех значений, которые присваиваются переменным. Примеры объявления переменных:
Dim X
Dim A, B, C
Dim Z As integer
Переменным, по свойствам объектов, можно присваивать различные значения.
Переменным и свойствам объектов можно присваивать результаты вычисления некоторых выражений. В выражениях можно применять числа, переменные, знаки арифметических операций "+", "-", "*", "/". Если выражение используется для вычисления некоторого числового значения, в нем можно применять только переменные числовых типов. Допустимыми являются операции конкатенации - объединения текстовых значений. Примеры использования выражений:
lblX.Caption = X + 15
Z = (X+Y)/3
lblPrim.Caption = “Мова ”+ “програмування”
В программах могут также использоваться константы. Константы - это какие-то значения (числовые, текстовые и др.), которым в программе присвоено имя. После объявления констант их можно использовать в выражениях. Объявления констант осуществляется в разделе общих объявлений General Declaration с помощью оператора Const. Примеры объявления констант:
Const X=16308
Const Povid=“Повідомлення про помилку: ”
Далее константы можно использовать так, например,:
lblZ.Caption = X*40
lblRes.Caption = Povid+CodOsh
Завершение работы программы осуществляется выполнением оператора End.
При создании кода программы можно использовать буфер обмена, а именно такие команды меню:
Edit - Copy: копирование выделенного фрагмента в буфер обмена (команда Копировать);
Edit - Cut: вырезание фрагмента в буфер обмена (команда Вырезать);
Edit - Paste: вставка данных из буфера обмена в позицию курсора (команда Вставить).
При разработке программы можно использовать окно проекта. Если окно проекта отсутствует, его можно вывести командой View - Project Explorer. В результате появиться окно, показанное на рис.1.3.
Рисунок
1.3 – Окно проекта
Для создания кода программы, рассмотренной в качестве примера, необходимо ввести описание переменных, создать такие процедуры:
Данные в строке кода |
Комментарий |
Option Explicit |
|
Dim X |
Объявление переменной Х, в которой будет находится чило |
Dim Y |
Объявление переменной У для вычисления квадрата числа Х |
Private Sub cmdClear_Click() |
Заголовок процедуры, яка выполняется в случае события Click – щелчка кнопкой мыши на кнопке cmdClear (Очистка) или нажатия клавиш ALT + с. |
txtNumber.Text = "└┘" |
Свойству Text текстового поля txtNumber (для введения числа Х) присваивается значение “└┘“ (пустая строка). |
txtResult.Text = "└┘" |
Свойству Text текстового поля txtResult (для вывода результата - числа У) присваивается значение “└┘“ (пустая строка). |
End Sub |
Конец процедуры cmdClear_Click. |
Private Sub cmdExit_Click() |
Заголовок процедуры, яка выполняется в случае события Click – щелчка кнопкой мыши на кнопке cmdExit (Вихід) или нажатия клавиш ALT + В. |
End |
Конец работы программы |
End Sub |
Конец процедуры cmdExit_Click. |
Private Sub cmdSqr_Click() |
Заголовок процедуры, яка выполняется в случае события Click – щелчка кнопкой мыши на кнопке cmdSqr (Обчислення) или нажатия клавиш ALT + О. |
X = Val(txtNumber.Text) |
Переменной Х присваивается значение свойства Text объекта txtNumber - значения числа, которое введено с помощью клавиатуры. Так как значения текстового поля имеет тип данных string (текстовые данные), для возможности выполнения расчета, их необходимо перевести в числовые значения с помощью функции Val. |
Y = X * X |
В переменную У записывается результат умножения числа Х на Х. |
txtResult.Text = Str(Y) |
Свойству Text объекта txtResult присваивается значение переменной У. С помощью функции Str выполняется преобразование числового значения переменной У в строку символов. |
End Sub |
Конец процедуры cmdSqr_Click. |
После создания исходного кода можно приступить к апробации программы. Для запуска программы на выполнение используется команда меню Run - Start. В случае обнаружения ошибок можно завершить выполнение программы командой Run - End, внести необходимые исправления в программу.
Чтобы сохранить проект на магнитном диске нужно выполнить команду File - Save Project или воспользоваться инструментом Save Project. При хранении проекта на диск записываются следующие файлы:
файл проекта (файл с расширением VBP), в котором содержится информация о здании проекта;
файлы форм (файлы с расширением FRM) с описанием форм.
Когда программа создана, можно получить файл программы в машинных кодах - файл с расширением EXE. Такой файл можно будет использовать непосредственно для запуска программы на выполнение, причем он будет независим от среды визуального программирования Visual Basic. Чтобы получить файл программы, предназначенный для выполнения, используется команда меню File - Make <имя проекта>. exe. Для запуска полученной данным способом программы не нужно загружать Visual Basic, открывать в среде Visual Basic проект, выполнять команду Run - Start. Однако, для работы с таким файлом нужно, чтобы в каталоге SYSTEM находился файл MSVBVM60.DLL, в котором содержится библиотека стандартных подпрограмм Visual Basic.
Чтобы напечатать программу нужно выполнить команду File - Print в окне диалога команды выбрать опцию Current Project (текущий проект), для печати формы включить флажок Form Image, кода - флажок Code.
ТЕМА: Основные операторы языка Visual Basic.
План:
1. Организация разветвленных вычислительных процессов. Условный оператор If.
2. Организация циклических вычислительных процессов. Оператор цикла For. . . Next.
3. Использование элементов управления в программах Visual Basic.
1. Организация разветвленных вычислительных процессов. Условный оператор If.
Оператор If реализует алгоритмическую конструкцию "Разветвление".
Общая форма оператора:
If <условие> then
<Блок_операторов_1>
Else
<Блок_операторов_2>
End If
"Блок_операторов_1" выполняется в том случае, если условие имеет значение «истинно». В том случае, если логическое условие имеет значение «ложь» выполняется "Блок_операторов_2".
Оператор If можно использовать также в следующей форме: