ShellApi, shlobj, registry ;: integer;: real;: boolean;
TDDEServe.Timer1Timer (Sender: TObject); LPTbyte: byte;:=xsin + 1; xsin gt; 1000 then xsin:=xsin - 1000; .Text:=inttostr (5 * (xsin - 20 * trunc (xsin/20)));// пилкоподібний
сігналdx, 379hal, dxal, 80hLPTbyte, al; .Text:=inttostr (LPTbyte * 100);// стан лінії LPT-порта.Text:=inttostr (round (50 + 50 * sin (xsin/20))); (xsin/5)=trunc (xsin/5) then (ru lt; round (50 + 50 * sin (xsin/20))) then:=true;:=ru + 20else:=false;:=ru - 20; boolka then DDEItem400.Text:= 100 else DDEItem400.Text:= 0 raquo ;;
end;
Для забезпечення DDE-обміну задекларовані наступні константи:
DDEServer - ім'я сервісу (Service Name);
DDETopic - Topic Name;
DDEItem100 - мінлива обміну;
DDEItem200 - мінлива обміну;
DDEItem300 - мінлива обміну;
DDEItem400 - мінлива обміну.
Розробка DDE - клієнта
Основа людино-машинного інтерфейсу в рамках InTouch - це ієрархічно взаємопов'язані анімовані сенсорні вікна. Для створення нового вікна виконаємо команду File/New Window ... (Файл/Нове Вікно). На екрані з'явиться діалогове вікно Window Properties (Властивості Вікна), яке необхідно заповнити.
Тут слід ввести тільки ім'я вікна (поле Name) Scope. Інші поля і опції залишені без змін. Вікно із зазначеними атрибутами з'явиться на екрані. Там же буде відображено і Панель Інструментів InTouch - Tools, з якою доведеться інтенсивно працювати далі.
Графік являє собою прямокутну область з нанесеними координатними прямими, на якій графічно представляється зміна значення однієї або декількох змінних протягом часу. У пакеті InTouch є об'єкти для динамічного відображення значення змінної в реальному часі - графіки реального часу (інструмент (Real-time Trend)), і, так звані, аналітичні криві, які будуються на підставі архівних даних (інструмент (Historical Trend)). Для того, щоб він з'явився у створеному нами вікні, необхідно на Панелі Інструментів InTouch - Tools вибрати пункт Real - Time Trend і потім у вікні додатка, утримуючи ліву кнопку мишки, надати графіком необхідні розміри.
Панель настройки графіків викликається подвійним клацанням лівої кнопки мишки по вікну графіка і складається з чотирьох текстових рядків відповідних графіками (Graph 1, Graph 2, Graph 3, Graph 4). Кожен графік має незалежні настройки масштабу і величини зсуву по вертикалі, на екрані. Для цього використовується компонент Analog Tagname Display (Wizard Selection ® Value Displays ® Analog Tagname Display). Введення даних здійснюється не безпосередньо в WindowViewer, а за допомогою компоненти Incr/Decr Buttons Up/Down (Wizard Selection ® Buttons ® Incr/Decr Buttons Up/Down). Натискання на верхню чи нижню стрілкуприводить відповідно до збільшення або зменшення значення змінної. Обмеження максимального і мінімального значення вказуються при декларації. Кожен компонент пов'язаний зі своєю змінної zoom1 - zoom4 (зміна масштабу графіків 1 - 4 відповідно) і sh1 - sh4 (зміна зсуву графіків 1 - 4). Всі змінні мають тип Memory Integer. Для того, щоб ввести нову змінну, необхідно описати її в розділі Special/Tagname Dictionary/New. При цьому необхідно вказати її ім'я в полі «Tagname:» і тип - в полі «Type:».
Для організації обміну даними через DDE інтерфейс необхідно визначити чотири (по числу каналів) змінні типу DDE Integer (Item1, Item2, Item3, Item4). Для цього спочатку в розділі Special/DDE Access Names ... необхідно натиснути кнопку Add і в діалоговому вікні вказати ім'я додатки (DDE Application/Server Name), від якого буде проводитися запит даних, і ім'я групи/об'єкта (DDE Topic Name), що містить необхідну інформацію. У нашому випадку як ім'я програми використовується ім'я DDEServer, ім'я об'єкта - DDETopic. Далі в розділі Special/Tagname Dictionary/New вводяться почергово змінні типу DDE Integer. Назва елемента (Item) для кожної змінної має різні імена: DDEItem100 - для Item1, DDEItem200 - для Item2, DDEItem300 - для Item3 і DDEItem400 - для Item4. Дана інформація використовується для визначення DDE-змінної в Словнику Змінних InTouch.
Для того, щоб запустити програму графопостроителя і почати DDE - обмін, необхідно включити DDE сервер (т. е. запустити файл Ddeserver.exe) і переключитися у вікно InTouch - WindowViewer (натисканням кнопки Runtime! в правому верхньому кутку вікна InTouch - WindowMaker). У процесі роботи InTouch WindowViewer автоматично виконає всі необхідні дії по встановленню каналу обміну даними та обробці значень елемента.
Нижче представлений зовнішній вигляд програми графопостроителя у вікні InTouch -...
