Содержание задания
Создать кнопку вызова заданной книги MS Excel. При этом, если приложение MS Excel уже находится в оперативной памяти, то не загружать его вторично, а просто активизировать. С помощью данной кнопки обеспечить также запись в специальный файл служебной информации о рабочей книге MS Excel: дату и время последнего обновления, размер файла.
В книге MS Excel создать таблицу, в которую из InTouch поступают текущие значения тэгов работы клапанов, уровня наполнения, задания для уровней (рис.73). По окончании каждого технологического цикла записывать в таблицу MS Excel дату и время окончания цикла, а также объем полученного продукта (запись проводить с сохранением предыдущих значений).
Рис.73. Окно MS Excel, для организации обмена данных с InTouch.
Из MS Excel передавать в InTouch плановый объем порции выпускаемого продукта следующим способом:
создать аналоговый тэг типа I/O для чтения из некоторой ячейки таблицы MS Excel;
Методические указания по заданию
Создайте кнопку с анимационной связью Action. В Action для запуска (активизации) заданной книги MS Excel используйте функции: InfoAppActive, ActivateApp (эти функции можно использовать в сочетании с функцией InfoAppTitle), StartApp. Для StartApp следует указать не только путь к файлу EXCEL.EXE, но также и путь к рабочей книге. Для организации записи служебной информации в специальный файл используйте функции: InfoFile, StringFromTime, FileWriteMessage, Text (или StringFromIntg).
Анимационная связь Action для кнопки MS Excel
{активизация (запуск) рабочей книги - Study.xls}
IF InfoAppActive( InfoAppTitle( "Excel" )) == 1 THEN
ActivateApp InfoAppTitle( "Excel");
ELSE
StartApp "c:\progra~1\micros~2\office\excel d:\user\intouch\study.xls";
ENDIF;
{запись служебной информации a infostudy.txt}
DIM Str AS MESSAGE;
Str = StringFromTime(InfoFile("d:\user\intouch \study.xls", 3, $Year ), 3);
FileWriteMessage("d:\user\intouch\infostudy.txt ", -1, Str +", ",0 );
Str = Text(InfoFile("d:\user\intouch\study.xls ", 2, $Year), "#" );
FileWriteMessage("d:\user\intouch\infostudy.txt ", -1, Str,1 );
Откройте рабочую книгу MS Excel. В любых выбранных вами ячейках введите формулы для связи с заданными тэгами учебного приложения InTouch. Например: «=View|Tagname!'Level_1'». Проверьте соответствие полученных результатов значениям тэгов в InTouch.
Для организации записи данных в таблицу MS Excel по запросу используйте функцию WWPoke. При этом, после ввода строки адрес ввода следующей строки должен увеличиваться на единицу.
Отведите в рабочей книге MS Excel ячейку под плановый объем выпускаемой продукции (например, R7C2) и запишите в нее какое-либо число. В учебном приложении InTouch для указанного показателя введите аналоговый тэг типа I/O. Адреса ввода для данного тэга в InTouch: Application Name - Excel, Topic Name - [Study.xls]Sheet1, Item - R7C2 (здесь предполагается, что данные находятся на листе Sheet1 в книге Study).
Задание 8. Мастера группы Windows Controls.
Цель работы:
Изучение объектов типа RadioButtomGroup, ListBox, ComboBox группы Windows Controls. Работа с библиотекой функций InTouch. Использование циклов FOR-NEXT в сценариях InTouch.
Теоретические положения
Сложные мастера группы Windows Controls.
Управляющие элементы группы Windows Controls применяются в приложениях InTouch для отображения текста, сбора вводимой пользователем информации или вывода вариантов выбора для оператора при выполнении приложения. Представленные в InTouch объекты типа ListBox, ComboBox являются сложными мастерами. В отличие от обычных мастеров, для указанных объектов разработаны специальные системные функции, которые могут использоваться в Quick-сценариях InTouch. Мастер управляющего элемента окна должен иметь имя (можно использовать имя, задаваемое по умолчанию) для идентификации данного объекта Windows Controls. InTouch использует имя элемента для выполнения какого-либо действия с данным объектом в соответствующих функциях сценария. Имя элемента не увеличивает число используемых приложением тэгов и должно быть уникальным для каждого управляющего элемента. Использование тэгов, хотя и не обязательно, является ключевым для эффективной работы управляющего элемента. Например, выбор пункта из списка не имеет никакого смысла, если этот пункт не привязан к определенному тэгу и поэтому не передается автоматически в InTouch.
Организация циклов в Quick-сценариях InTouch.
Цикл FOR-NEXT используется для выполнения определенных операторов сценария многократно за один прогон сценария. Формат цикла FOR-NEXT следующий:
FOR АналоговыйТэг = НачалъноеВыражение ТО КонечноеВыражение
[STEP ВыражениеИзменения}
... операторы ...
[IF (ЛогическоеВыражение} THEN ЕХIT FOR; ENDIF;]
... операторы ...
NEXT;
Следует обратить внимание на оператор EXIT FOR. Этот оператор используется для принудительного выхода из цикла. Применять оператор EXIT FOR имеет смысл только в логической конструкции типа: