1008

121

1. Для меток установите значения свойств Name (Идентификатор) и Caption (Заголовок) в соответствии с табл. 14.

Установите для меток желаемые тип шрифта, его размер и цвет (значения свойств Font и ForeColor), а также цвет фона (свойство BackColor) сделайте белым.

Для свойства TextAlign (Выравнивание текста) выберите fmTextAlignCen-

ter.

2.Установите значения свойств четырех текстовых полей, те же что и у меток. Свойству Name задайте значения: Длина, Ширина, Высота, Объем.

Утекстового поля нет свойства Caption. Вместо него есть свойство Text, в которое помещается введенная информация, в нашем случае это числа (размеры коробки). Объем коробки будет вычислять компьютер и помещать результат тоже в текстовое поле – в качестве значения его свойства Text.

Установите начальные значения свойства Text всех четырех текстовых полей равными нулю.

3.Для объекта Командная кнопка введите следующие значения:

свойство Name: КоманднаяКнопка

свойство Caption: Нажмите на эту кнопку, чтобы получить объем.

4. В заключение установите свойство объекта Изображение – свойство Picture. Для этого щелкните мышью по кнопке , расположенной в строке Picture, и выберите графический файл коробка.bmp, находящийся в папке

Е:/Примеры для Лесхоз

После установки значений свойств объектов экранная форма приобретет вид, показанный на рис. 93.

122

Рис. 93. Вид экранной формы после установки значений свойств объектов

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

Переменные и оператор присваивания

Для управления данными при выполнении программы используются переменные. Каждая переменная имеет имя, по которому происходит обращение к ней.

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

Вязыке Visual Basic переменная может иметь один из 11 типов: целое число (Integer), длинное целое число (Long), десятичное число обычной точности (Single), логическая величина (Boolean), строка (String), произвольное значение (Variant) и др.

Перед использованием переменной в тексте программы она должна быть описана. Явное описание переменных выполняется с помощью оператора Dim, после которого указываются имя переменной и ее тип:

Dim A As Integer Dim B As Single

Вэтом примере переменная А объявлена целой (As Integer), а переменная B – действительной переменной единичной длины (As Single). Явное объявление типа некоторой переменной означает, что в эту переменную можно зано-

123

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

Переменные могут создаваться VBA автоматически, по мере появления в процедуре (неявное определение). Переменные, которые не объявляются явно, по умолчанию имеют тип Variant. Работа с данными типа Variant имеет существенный недостаток: постоянное отслеживание типа хранимого значения занимает много машинного времени.

Присвоение значения переменной осуществляется посредством оператора присваивания (=), слева от которого указывается имя переменной, а справа – присваиваемое значение или выражение. Например:

А = 1 В = 234 / 4

Вычисление арифметических выражений

Чаще всего в операторе присваивания присутствуют так называемые арифметические выражения.

Арифметическое выражение – это последовательность чисел, констант, переменных и функций, которые соединены между собой знаками арифметических операций (представлены в табл. 15).

Таблица 15

Арифметические операции Visual Basic

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

124

Составление программного кода и запуск программы

ВVisual Basic программный код почти всегда привязывается к какомулибо событию, которое является сигналом к началу работы алгоритма.

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

Событием может служить, например, загрузка формы, нажатие какойнибудь клавиши на клавиатуре или щелчок кнопки мыши.

Вразрабатываемом примере будет рассмотрено только одно событие: нажатие командной кнопки, которое должно запускать процедуру вычисления объема коробки.

Упражнение 5

1. Для написания программного кода и привязки его к определенному событию необходимо раскрыть окно программного кода Событие, щелкнув по

кнопке View Code (Просмотр кода) , расположенной на панели инструмен-

тов Проводника проекта.

2. В верхней части этого окна есть две строки раскрывающихся списков: списка уже созданных объектов (левая строка) и списка еще не существующих процедур или событий (правая строка).

Нажав кнопку раскрытия списка объектов , расположенную справа от надписи General, можно увидеть идентификаторы всех созданных объектов

(рис. 94).

Рис. 94. Окно программного кода с раскрытым списком объектов

125

3. Выделите в списке объектов строку КоманднаяКнопка и щелкните по ней мышью. В окне программного кода появится так называемая заготовка для программного кода – первая и последняя строки программы для самой распространенной процедуры, относящейся к объекту КоманднаяКнопка. Процедура называется КоманднаяКнопка_Click и вызывается при нажатии мышью на кнопке экранной формы.

Первая строка программы начинается со слов Private Sub, а заканчивается программа словами End Sub (рис. 95). Это служебные слова языка Basic, в окне программного кода они выделяются синим цветом.

Рис. 95. Заготовка для написания процедуры в окне программного кода

4. Между указанными двумя строками заготовленной процедуры поместите строки программного кода, представленные на рис. 96.

Рис. 96. Окно программного кода с текстом программы

126

Последовательность строк кода соответствует последовательным шагам алгоритма решения данной задачи.

В данной процедуре Длина.Text обозначает значение свойства Text объекта Длина (аналогично обозначаются значения этого свойства других объектов – Ширина, Высота и Объем), то есть введенное значение в поле Длина будет присвоено переменной А (аналогично присваиваются значения переменным В и С). Вычисленное значение объема V присваивается свойству Text объекта Объем и отображается на экране.

5. Запустите программу, нажав клавишу <F5> или кнопку на панели инструментов.

На рис. 97 показано окно работающего приложения после того, как пользователь ввел исходные данные, а затем щелкнул мышью командную кнопку, – и в поле Объем появился результат.

Рис. 97. Окно работающего приложения

6. Завершите работу программы Объем коробки с помощью кнопки Win- dows-окна в правом верхнем углу приложения.

Упражнение 6

Разработайте Windows-приложение (рис. 98) для вычисления следующих параметров прямоугольного параллелепипеда:

127

4. объем шара, диаметром которого является диагональ V d6 3 .

Размеры параллелепипеда должны задаваться пользователем приложения. Замечание. Для определения длины диагонали воспользуйтесь функцией

Sqr(x), извлекающей квадратный корень из х.

Рис. 98. Экранная форма Прямоугольный параллелепипед

Условные операторы

В языке VBA, как и в других языках программирования, основными элементами, которые управляют ходом выполнения процедуры, являются условные операторы. Наиболее простой из них – оператор If … Then:

If условие Then операторы

End If

Если условие, заданное выражением между ключевыми словами If и Then, выполняется, то выполняются операторы внутри блока, ограниченного ключевыми словами Then и End If. Иначе операторы между ключевыми словами Then и End If не будут выполнены, а VBA перейдет к обработке оператора, который следует за ключевыми словами End If. В случае необходимости произвести два различных действия (одно – при соблюдении условия, второе – не выполнения), следует воспользоваться полной формой оператора If:

If условие Then оператор1 Else оператор2

128

End If

Например, при вычислении квадратного корня числа х запись проверки условия будет следующая:

If x >= 0

Then y = Sqr(x) End If;

при нахождении максимального из двух неравных чисел х и у:

If x > y Then max = x Else max = y End If.

Упражнение 7

Разработайте Windows-приложение для вычисления действительных кор-

Контрольные вопросы

1.Что такое алгоритм?

2.Что собой представляют языки программирования?

3.Дайте понятие объектно-ориентированного программирования.

4.Какие существуют инструменты создания экранных форм и их элементов в VBA?

5.Что называется переменной в языке программирования Visual Basic и как ей присвоить значение?

6.Как вычисляются арифметические выражения с использованием средств языка Visual Basic?

7.Каким образом выполняется проверка условий?

129

Библиографический список

Основная литература 1. Информатика. Базовый курс [Текст] : учеб. пособие / С. В. Симонович

[и др.]. – М. : Питер, 2008. – 640 с.

Дополнительная литература

2.Стариков, А. В. Основы информатики [Текст] : учеб. пособие. Ч. 1. Введение в информатику / А. В. Стариков. – Воронеж, 2007. – 144 с.

3.Харин, В. Н. Информатика. Математическое и программное обеспечение [Текст] : учеб. пособие : в 3 ч. Ч. 1 : Модели решения функциональных и вычислительных задач / В. Н. Харин, В. Е. Межов. – Воронеж, 2007. – 128 с.

4.Харин, В. Н. Информатика. Математическое и программное обеспечение [Текст] : учеб. пособие : в 3 ч. Ч. 2 : Технологии программирования / В. Н. Харин, В. Е. Межов. – Воронеж, 2007. – 208 с.

5.Харин, В. Н. Информатика. Языки программирования [Текст] : учеб. пособие. Ч. 1. Основные понятия языков программирования / В. Н. Харин. –

Воронеж, 2007. – 80 с.

6.Харин, В. Н. Информатика. Математическое и программное обеспечение [Текст] : учеб. пособие : в 3 ч. Ч. 3 : Программное обеспечение / В. Н. Харин, В. Е. Межов. – Воронеж, 2007. – 204 с.

7.Харин, В. Н. Информатика. Языки программирования [Текст] : учеб. пособие : в 2 ч. Ч. 2 : Программирование приложений в среде Microsoft QBX / В. Н. Харин, И. С. Кущева. – Воронеж, 2008. – 127 с.

130

Светлана Анатольевна Евдокимова Людмила Петровна Цикоза

ИНФОРМАТИКА

Методические указания к лабораторным работам для студентов по направлениям подготовки

250100 – Лесное дело, 250700 – Ландшафтная архитектура, 022000 – Экология и природопользование