Самоучитель VBA


   образец регистрации ооо        

Практика



В данном приложении строится поверхность по введенным в диалоговое окно построение поверхности (рис. У8.1) начальным, конечным значениям аргументов и их шагах изменения. Уравнение поверхности также вводится в программу из диалогового окна. Уравнение должно быть составлено в соответствии с правилами, по которым строятся функции рабочего листа, но в качестве аргументов в нем следует использовать х и у вместо ссылок на ячейки. Программа сама переведет эти аргументы в ссылки на ячейки. После табуляции введенной функции программой и построения поверхности на рабочем листе (рис. У8.2), эта поверхность также отображается в объекте управления image, расположенном в диалоговом окне построение поверхности (рис. У8.3). Управляя полосами прокрутки можно изменить ориентацию поверхности на рабочем листе.

Рис. У8.1. Диалоговое окно Построение поверхности

Рис. У8.2. Результат построения поверхности на рабочем листе

Рис. У8.3. Диалоговое окно Построение поверхности с рисунком построенной поверхности

Обсудим, как приведенная ниже программа решает описанную задачу и что происходит в ней.

UserForm_Initialize

  1. Активизирует диалоговое окно.

  2. Назначает клавише <Esc> функцию кнопки Отмена, а клавише <Enter> — Построение.

  3. Устанавливает максимальные и минимальные допустимые значения для полос прокрутки, а также их первоначальные значения.

    Устанавливает, чтобы отображаемая картинка поверхности в диалоговом окне помещалась целиком и пропорционально в пределах элемента управления Image, а также чтобы левый верхний угол рисунка совпадал с левым верхним углом элемента управления Image.


Нажатие кнопки

Построение запускает на выполнение

процедуру

CornmandButton1_Click

  1. Проверяет, являются ли вводимые данные числами. В случае ошибки отображается соответствующее сообщение.

  2. Проверяет согласованность вводимых данных. В случае ошибки отображается соответствующее сообщение (рис. У8.4).

  3. Преобразует формулу, введенную в поле Уравнение поверхности, в формулу рабочего листа.

  4. Проверяет корректность введенной формулы. В случае ошибки отображается соответствующее сообщение (рис. У8.5).

  5. Используя метод DataSeriea, начиная с ячейки А2 строит вниз по столбцу арифметическую прогрессию, являющуюся результатом табуляции аргумента х уравнения поверхности с указанными шагами.

  6. Используя метод Dataseries, начиная с ячейки в 1 строит вправо по строке арифметическую прогрессию, являющуюся результатом табуляции аргумента у уравнения поверхности с указанными шагами.

  7. Заносит в ячейку В2 уравнение поверхности, введенное пользователем в диалоговом окне. Для корректности последующего табулирования значений функций важно в уравнении указать абсолютные ссылки на столбец А и строку в. Это обеспечивается вводом в уравнении поверхности вместо аргумента х ссылки $А2, а вместо аргумента у — ссылки в$1.

  8. Для табуляции функции протаскивается маркер заполнения ячейки В2, используя метод AutoFill и формулу поверхности, позволяющих распространить табуляцию на весь диапазон, где табулируется функция.

  9. Строит поверхности при помощи методаChartWizard.

    Изменяет ориентацию надписи оси z. и Сохраняет построенную поверхность в файле График-gif. 12. Отображает рисунок из файла График.gif в элементе управления image1.

<

Содержание  Назад  Вперед