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

Date: 2015-10-07; view: 522.

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

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