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

End Sub

End

Private Sub CmdExit_Click

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

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

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

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

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

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

Общий формат оператора объявления переменных состоит из ключевого слова 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.

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

Дата добавления: 2014-12-23