Упражнение 3. Создание динамики при помощи скриптов vba
Сохраните построенную Вами мнемосхему как Фамилия22.xml.
Рис. 8.8. Создание динамики в VBA скрипте
В конфигураторе сервера ввода/вывода Infinity создайте сигнал Teach.Inputs.IntRamp20 с амплитудой от 0 до 20 и периодом 20c.
Для считывания значения сигнала используется функция GetOPCValue из библиотеки OPCDualSource, как показано на Рис. .
Рис. 8.9. Декларация для вызова внешней процедуры из VBA скрипта
Процедура перемещения объекта и изменения угла остаются без изменения, за исключением того, что для изменения угла поворота f используется значение Вашего сигнала (Рис. 8.1).
Результат должен быть аналогичен результату предыдущего упражнения, т.е. в режиме исполнения Ваша мнемосхема должна при нажатии кнопки «Создать» создавать модель вращения планеты по солнечной орбите.
Упражнение 4. Доступ к свойствам объекта из vba
Сохраните Вашу мнемосхему как Фамилия23.xml.
Создайте поля для ввода значений вертикальной и горизонтальных осей орбиты. Для этого расположите на экранной форме Вашей мнемосхемы два динамических объекта «Значение параметра», задайте им уникальные имена AxisA и AxisB. В качестве источника данных задайте локальные переменные ~~planet.axisa~~ и ~~planet.axisb~~. В Module1 опишите два объекта AxisA и AxisB типа GwxText и свяжите данные объекты с соответствующими визуальными объектами в процедуре Create, как показано на рис.8.11.
Рис. 8.1. Исходный текст процедуры движения объекта с использованием внешнего сигнала
Р
ис.
8.11. Процедура создания объектов с
использованием параметров из объектов
мнемосхемы
Значения вводимых данных считываются с локальных переменных и записываются в переменные A и B. Если значение не введено, то используется значение по умолчанию (A=75, B=160).
При изменении размеров орбиты должны измениться размеры панели, расположение самой орбиты. Для этого описываем объект Panel типа GwxRectangle и связываем его с визуальным объектом «Panel». Задаем размеры панели в соответствии с размерами орбиты. Задаем координаты орбиты относительно солнца и ее размеры.
В процедуре PlanetMovement замените коэффициенты перед синусом и косинусом на переменные A и B соответственно.
Проверьте корректность работы Вашей мнемосхемы. В режиме исполнения Ваша мнемосхема должна при нажатии кнопки «Создать» создавать модель вращения планеты по солнечной орбите, размеры которой заданы в соответствующих полях ввода (Рис. ).
Рис. 8.12. Результирующая мнемосхема с использованием VBA скрипта
На этом лабораторная работа закончена
Контрольные вопросы
1. Что из себя представляет VBA скрипт ?
2. Зачем необходима активизация графических объектов на экранных формах?
3. Что означает термин автоматизированное управление?
Требования по содержанию отчета
В отчете студент должен перечислить цели лабораторной работы, описать ход работы, ответить на контрольные вопросы, сделать вывод о проделанной работе.
Лабораторная работа №9. Управление температурным объектом Цель работы:
1) управление температурным объектом.