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


         

Нажатие кнопки отмена запускает на


/p>


Рис. У8.4. Пример сообщения о несогласованности данных



Рис. У8.5. Сообщение о некорректном вводе формулы



































































Нажатие кнопки отмена запускает на выполнение процедуру

CommandButton2 Click



Закрывает диалоговое окно.



ScrollBarl Change



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



ScrollBar2 Change



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



ВращениеГрафика



Программирует вращение поверхности за счет

изменения свойств Rotation и Elevation.



'

' Описание переменных уровня модуля

'

Dim УголЗрения as Integer

Dim ВокругОси2 as Integer

Dim УголЗренияСоСчетчика as Integer

'

' УголЗренияСоСчетчика - величина, снимаемая с полосы прокрутки

' и определяющая угол зрения под которым смотрят на поверхность

' УголЗрения - угол зрения, под которым смотрят на поверхность,

' он равен УголЗренияСоСчетчика - 90 и лежит в

'диапазоне от -90 до 90

' ВокругОсиЕ - угол поворота вокруг оси z, лежит в

' диапазоне от 0 до 360

'

Private Sub CommandButtonl_Click()

'

' Процедура табуляции функции

' и построения поверхности

'

Dim х_нз As Double

Dim х_пз As Double

Dim х_шаг As Double

Dim у_нз As Double

Dim у_пз As Double

Dim у_шаг As Double

Dim УрПоверхности As String

'

' Переменная х:

' х_нз - начальное значение

' х_пз - предельное значение

' х_шаг - шаг изменения

' Переменная у:

' у_нз - начальное значение

' у_пз - предельное значение

' у_шаг - шаг изменения

' УрПоверхности - уравнение поверхности

'

Dim nx As Integer

Dim ny As Integer

'

' nx - число протабулированных значений аргумента х

' ny - число протабулированных значений аргумента у

'

Dim n As Integer

Dim i As Integer

'

' n ,i - вспомогательные целые переменные

Dim ПоляВвода(1 То 6) As Object

'

' Массив полей ввода


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