2. Разработка кода программы

Для того, чтобы программа смогла выполнить какие-либо действия, необходимо написать несколько строк кода программы.

Visual Basic является объектно-ориентированным языком программирования, в который встроены средства обработки событий. Это означает, что пользовательский интерфейс программы состоит из набора объектов, таких как элементы управления, формы и др., а выполняемые программой действия зависят от происходящих с этими элементами событий.

Как правило, события возникают в ответ на какое-либо действие пользователя. Реакция же программы на эти события зависит от кода, написанного программистом.

Программист определяет действие программы путем написания процедур обработки событий.

Выполним двойной щелчок по кнопке «Выход». Появится окно кода, содержащее шаблон процедуры обработки события, который начинается словами Private Sub и заканчивается словами End Sub. После слов Private Sub записано имя процедуры. В нашем случае это имя CmdExit_Click. Введем в эту процедуру всего одну строку кода – оператор End:

Private Sub CmdExit_Click

End

End Sub

Окно кода – это не что иное, как полноценный текстовый редактор.

Обратим внимание на два раскрывающихся списка, расположенных в верхней части окна кода, сразу под строкой заголовка. В левой части расположен список объектов, содержащий имена всех объектов, размещенных в форме. Так как сама форма тоже является объектом, то и она представлена в этом списке. Правый список содержит перечень всех событий, определенных для данного объекта.

Для открытия окна кода можно воспользоваться и другим способом: задать из пункта меню View команду Code, выбрать объект из левого списка, а событие – из правого списка.

Процедура вычисления величины суммы в валюте будет несколько сложнее. Перед написанием процедуры вычислений надо объявить переменные, которые будут использоваться в программе, то есть задать их имена и тип данных, которые будут храниться в них. Хотя VB по умолчанию не требует явного объявления переменных, это стоит делать, чтобы облегчить последующую отладку программы.

В данной программе будет использоваться три переменных для хранения, соответственно, суммы в руб. (srub), текущего курса (kurs) и суммы в валюте (sval).

Введем первый оператор:

Dim srub As Double, sval As Double, kurs As Double

Общий формат оператора объявления переменных состоит из ключевого слова Dim, за которым указывается имя переменной, затем идет ключевое слово As, после которого определяется тип переменной. В одном операторе Dim можно объявить несколько переменных как одного, так и разных типов. В нашем случае переменные имеют вещественный тип, который задается ключевым словом Double.

Выполним двойной щелчок по кнопке «Вычислить». Появится окно кода, содержащее шаблон процедуры обработки события, который начинается словами Private Sub и заканчивается словами End Sub. После слов Private Sub находится имя процедуры. В нашем случае это имя CmdCalc_Click.

Введем в эту процедуру следующие строки :

‘ Сохраним в переменной srub сумму в руб.

srub = Val(TextR.Text)

Первая строка является комментарием, объясняющим, что происходит в данном месте программы. Строка комментария всегда начинается с символа одинарной кавычки. Когда компилятор встречает символ одинарной кавычки, он игнорирует оставшуюся часть строки и переходит к обработке следующей строки кода.

Во второй строке происходит считывание текстовой информации, которую пользователь ввел в текстовое поле TextR, преобразование ее в числовой вид и сохранение полученных данных в переменной srub. Все это записано с помощью одного оператора присваивания. Имя переменной располагается слева от знака равенства, а в правой части оператора указывается значение, которое надо присвоить этой переменной. Функция Val используется для преобразования текстовой строки, указанной в скобках, в число, которое и участвует в вычислениях. Текст, который пользователь ввел в поле TextR, находится в его свойстве Text. Для обращения к свойству объекта в программе используется запись типа объект.свойство. Если в среде разработки в окне "Code" написать имя объекта TextR и поставить «.», то после точки должно появиться окно, содержащее все доступные для использования свойства элемента. Здесь надо только выбрать необходимое. Если же такое окно не появилось, значит была допущена ошибка в написании имени.

Внесем остальной код:

‘ Сохраним курс в переменной kurs

kurs = Val(TextK.Text)

‘ Вычислим сумму в валюте и отобразим ее

sval = srub / kurs

TextV.Text = CStr(Round(sval, 2))

В последней строке происходит округление полученного результата, преобразование его в текстовый вид и отображение в текстовом поле TextV. Все это записано с помощью одного оператора присваивания. Слева от знака равенства указано свойство Text поля TextV. Для обращения к свойству объекта в программе используется запись типа объект.свойство. В правой части оператора указывается значение, которое надо присвоить этому свойству. Стандартная функция CStr используется для преобразования указанного в скобках числа в текст. Стандартная функция Round используется для округления указанного в скобках числа до второго десятичного знака [1,4].

Полный текст программного кода (листинг) приведен на рис 5.2.

'описание переменных

Dim srub As Double, sval As Double, kurs As Double

'обработчик события кнопки "Вычислить"

Private Sub CmdCalc_Click()

‘ Сохраним в переменной srub сумму в руб.

srub = Val(TextR.Text)

‘ Сохраним курс в переменной kurs

kurs = Val(TextK.Text)

‘ Вычислим сумму в валюте и отобразим ее

sval = srub / kurs

TextV.Text = CStr(Round(sval, 2))

End Sub

'обработчик события кнопки "Выход"

Private Sub CmdExit_Click()

End

End Sub

Рис. 5.2. Листинг программы пересчета валюты