Список использованных источников. [1] ОАО Беларуськалий – [электронный ресурс] – Электронные данные

[1] ОАО Беларуськалий – [электронный ресурс] – Электронные данные. Режим доступа – http://www.kali.by/russian/bel_main.html

[2] Ru – o – [электронный ресурс] – Электронные данные. Режим доступа http://ru – 0.ru/tehnika_bezopasnosti.php

[3] Эксплуатация шахтных подъемных установок – [электронный ресурс] – Электронные данные. Режим доступа – www.vetlan.ru/rpu.php

[4] Единые правила безопасности – [электронный ресурс] – Электронные данные. Режим доступа – aquagroup.ru/normdocs/16250

[5] Регистратор параметров работы – [электронный ресурс] – Электронные данные. Режим доступа – www.vetlan.ru/rpu.pdf

[6] Tera – [электронный ресурс] – Электронные данные. Режим доступа – http://www.terra.su/full/004.html

[7] Методика контроля подшипников – [электронный ресурс] – Электронные данные. Режим доступа – http://www.turbinist.ru/706 – metodika– kontrolya – podshipnikov.html

[8] Автоматизированные системы контроля – [электронный ресурс] – Электронные данные. Режим доступа – http://www.keytrade.by/rus/catalogue/

[9] Обзор WinCC – [электронный ресурс] – Электронные данные. Режим доступа – www.ste.ru/siemens/pdf/rus/WinCC_overview_2006

[10] Википедия – [электронный ресурс] – Электронные данные. Режим доступа http://ru.wikipedia.org/wiki/Simatic_WinCC

[11] Rutracker – [электронный ресурс] – Электронные данные. Режим доступа http://rutracker.org/forum/viewtopic.php?t=1497565

[12] Stella – [электронный ресурс] – Электронные данные. Режим доступа http://www.ste.ru/siemens/wincc– flex.html

ПРИЛОЖЕНИЕ А

(обязательное)

ТЕКСТ ПРОГРАММЫ

Вызов диспетчера задач.

{

ProgramExecute("taskmgr.exe");

}

Вызов проводника.

{

HWND Handle= NULL;

Handle= FindWindow("ExploreWClass",NULL);

if(Handle)

{

ShowWindow (Handle, SW_SHOWNORMAL);

SetForegroundWindow(Handle);}

else

ProgramExecute("explorer.exe");

}

Вызов калькулятора

{

ProgramExecute("calc.exe");

}

Отчёт

{

RPTJobPreview("Report Alarm Logging RT OnlineMessages New"); }

Сохранение изменений времени в трендах.

{

#define PictureWindow "PictureWindow_Schema"

#define PictureWindowRefresh"black.pdl"

int i;

char *Pic_Name;

char ss_end [20], ss_begin [20];

char *PictureWindowMain; //имя основной картинки

int Color_Control1;

Pic_Name = GetPropChar

("Startuem.pdl",PictureWindow, "PictureName");

sprintf(ss_begin,"%s",

GetPropChar(lpszPictureName,"Control_data","Value"));

sprintf(ss_end,"%s",

GetPropChar(lpszPictureName,"Control_data1","Value"));

for(i=0; i<6; i++)

{

SetPropWord(Pic_Name,"Control1","TimeColumnIndex",i);

SetPropChar(Pic_Name,"Control1","TimeColumnBeginTime",)

SetPropChar(Pic_Name,"Control1","TimeColumnEndTime",

ss_end);

}

SetPropBOOL(Pic_Name,"PictureWindow_set_time","Visible",0); //Return– Type:BOOL

}

Применение изменений времени к трендам.

{

#define PictureWindow "PictureWindow_Schema"

#define PictureWindowRefresh"black.pdl"

int i;

char *Pic_Name;

char ss_end [20], ss_begin [20];

char *PictureWindowMain;

//имя основной картинки

int Color_Control1;

Pic_Name=GetPropChar

("Startuem.pdl",PictureWindow, "PictureName");

sprintf(ss_begin,"%s", GetPropChar(lpszPictureName,"Control_data","Value"));

sprintf(ss_end,"%s", GetPropChar(lpszPictureName,"Control_data1","Value"));

for(i=0; i<6; i++)

{

SetPropWord(Pic_Name,"Control1","TimeColumnIndex",i); SetPropChar(Pic_Name,"Control1","TimeColumnBeginTime",ss_begin); SetPropChar(Pic_Name,"Control1","TimeColumnEndTime",ss_end

}

// останавливаем сдвижку

SetPropBOOL(Pic_Name,"Control1","Online", FALSE);

// обновление экрана (вызов black.pdl)

SetPropWord(Pic_Name,"Control1","RTPersistence",1);

SetPropChar(PictureWindowMain,PictureWindow,"PictureNam

PictureWindowRefresh);

//Return– Type:BOOL

SetPropChar

(PictureWindowMain,PictureWindow,"PictureNae",Pic_Name);

}

Квитирование аварий.

{

//#define TagNameInAction "for_sound_alarm"

//гашение звука колонок

//#define TagNameInAction2 "Alarm_horn"

//гашение звука сирены

int i;

for(i=1;i<=77;i++)

AcknowledgeMessage(i);

//SetTagWord(TagNameInAction,0);

//SetTagBit(TagNameInAction2,0);

}

Остановка проекта.

{

DeactivateRTProject ();

//Return– Type: BOOL

}

Тренды дискретных переменных

#include "apdefap.h"

void OnLoaded(char* lpszPictureName, char* lpszObjectName)

{

SetPropWord(lpszPictureName,"Control1","TimeColumnIndex",0);

SetPropChar(lpszPictureName,"IOField1","OutputValue",GetPropChar(lpszPictureName,"Control1","TimeColumnBeginTime")); //Return– Type: BOOL

SetPropChar(lpszPictureName,"IOField2","OutputValue",GetPropChar(lpszPictureName,"Control1","TimeColumnEndTime")); //Return– Type: BOOL

}

{

#define PictureWindowRefresh"black.pdl"

char *Pic_Name;

//имя файла картинки с расширением

char *Pic_Name_short;

//имя файла картинки без расширения

char *PictureWindow;

//имя PictureWindow, куда вложен данный pdl файл

char *PictureWindowMain;

//имя основной картинки

int Color_Control1;

Pic_Name_short=GetLocalPicture(lpszPictureName);

//имя файла картинки без расширения

//printf("Pic_Name_short=%s \r\n",Pic_Name_short);

if (lId==1001)

{

char patch [256];

char szProjektname [256];

DM_DIRECTORY_INFO dmDirInfo;

CMN_ERROR dmError;

char ss [512];

if (! DMGetRuntimeProject (szProjektname, sizeof (szProjektname)– 1, &dmError))

{

printf("DMGetRuntimeProject not successful: %s", dmError.szErrorText);

return;

}

memset(&dmDirInfo, 0, sizeof(DM_DIRECTORY_INFO));

if (!DMGetProjectDirectory("PDLRT", szProjektname, &dmDirInfo, &dmError)){

printf("DMGetProjectDirectory not successful: %s", dmError.szErrorText);

return;}

sprintf(patch,"%s",dmDirInfo.szProjectDir);

sprintf(ss,"%sdic\\list_table_v7.exe %sdic\\arch_discr.dicControl1%s\0",patch,patch,lpszPictureName);//имя файла списка задано явно

rogramExecute(ss);

}

if (lId==11)

//вызов окна выбора времени

{

SetPropBOOL(lpszPictureName,"PictureWindow_set_time","Visible",1);

}

if (lId==15)// печать экрана

{

//Activating "YES" returns the value "6", "NO" returns the value "7" and "CANCEL" returns the value "2".

//MessageBox(NULL,"Печатать секундные тренды? \n\n\n\r [ Да] [ Нет ]","Печать экрана", //если не установлен русский MUI

if (MessageBox(NULL,"Получить копию экрана?","Копия экрана", MB_YESNO|MB_ICONQUESTION|MB_SYSTEMMODAL|MB_DEFBUTTON2)==6)

{

Color_Control1=

GetPropWord(lpszPictureName,"Control1","BackColor");

SetPropWord

(lpszPictureName,Pic_Name_short,"BackColor",CO_WHITE);

SetPropWord

(lpszPictureName,"Control1","BackColor",CO_WHITE);

Sleep(1000);

WinExec("PRTSCR.EXE – hardcopy",SW_SHOWNORMAL);

SetPropWord

(lpszPictureName,Pic_Name_short,"BackColor",CO_BLACK);

SetPropWord

(lpszPictureName,"Control1","BackColor",Color_Control1)

}

// обновление экрана (вызов black.pdl)

if (lId==10)

{

SetPropWord

(lpszPictureName,"Control1","RTPersistence",1);

PictureWindow=GetParentPictureWindow(lpszPictureName);

//имя PictureWindow, куда вложен данный pdl файл

Pic_Name=GetPropChar

(PictureWindowMain,PictureWindow,"PictureName"););

//раскоротить, если нужно при обновлении вернуться к исходным настройкам свойств

SetPropChar

(PictureWindowMain,PictureWindow,"PictureName",Picture WindowRefresh);

//Return– Type:BOOL

SetPropChar

(PictureWindowMain,PictureWindow,"PictureName",Pic_Na);

//SetPropWord

(lpszPictureName,"Control1","RTPersistence",1);

//раскоротить, если нужно при обновлении вернуться к исходным настройкам свойств

// при уходе с картинки и возвращении последние свойства сбрасываться не будут (для экспериментов)

}

}

Исторические часовые тренды.

{

SetPropWord

(lpszPictureName,"Control1","TimeColumnIndex",0);

SetPropChar

(lpszPictureName,"IOField1","OutputValue",

GetPropChar

(lpszPictureName,"Control1","TimeColumnBeginTime"));

//Return– Type: BOOL

SetPropChar

(lpszPictureName,"IOField2","OutputValue",GetPropChar

(lpszPictureName,"Control1","TimeColumnEndTime"));

//Return– Type: BOOL

}

#include "apdefap.h"

void OnToolbarButtonClicked(char* lpszPictureName, char* lpszObjectName, long lId)

{#pragma code ("kernel32.dll")

VOID WINAPI Sleep (DWORD dwMilliseconds);

#pragma code()

// WINCC:PICNAME_SECTION_START

#define PictureWindowRefresh"black.pdl"

// WINCC:PICNAME_SECTION_END

char *Pic_Name;

//имя файла картинки с расширением

char *Pic_Name_short;

//имя файла картинки без расширения

char *PictureWindow;

//имя PictureWindow, куда вложен данный pdl файл

char *PictureWindowMain;

//имя основной картинки

int Color_Control1;

Pic_Name_short=GetLocalPicture(lpszPictureName);

if (lId==1001)

{

char patch [256];

char szProjektname [256];

DM_DIRECTORY_INFO dmDirInfo;

CMN_ERROR dmError;

char ss [512];

if (!DMGetRuntimeProject(szProjektname, sizeof

(szProjektname)– 1, &dmError))

{

printf("DMGetRuntimeProject not successful: %s", dmError. szErrorText);

return;

}

memset(&dmDirInfo, 0, sizeof(DM_DIRECTORY_INFO));

if (!DMGetProjectDirectory("PDLRT", szProjektname, &dmDirInfo, &dmError))

{

Printf (" DMGetProjectDirectory not successful: %s", dmError.szErrorText);

return;

}

sprintf(patch,"%s",dmDirInfo.szProjectDir);

sprintf(ss,"%sdic\\list_table_v7.exe %sdic\\arch_hour.dic Control1 %s \0",patch,patch,lpszPictureName); //имя файла списка задано явно

ProgramExecute(ss);

}

if (lId==11) //вызов окна выбора времени

{

SetPropBOOL(lpszPictureName,"PictureWindow_set_time","Visible",1);

}

if (lId==15)// печать экрана

{

//Activating "YES" returns the value "6", "NO" returns the value "7" and "CANCEL" returns the value "2".

//MessageBox(NULL,"Печатать секундные тренды? \n\n\n\r [ Да] [ Нет ]","Печать экрана",

//если не установлен русский MUI

if(MessageBox(NULL,"Получить копию экрана?","Копия экрана", MB_YESNO|MB_ICONQUESTION|MB_SYSTEMMODAL|MB_DEFBUTTON2)==6)

{

Color_Control1= GetPropWord

(lpszPictureName,"Control1","BackColor");

SetPropWord

(lpszPictureName,Pic_Name_short,"BackColor",CO_WHITE);

SetPropWord(lpszPictureName,"Control1","BackColor",CO_WHITE)

Sleep(1000);

WinExec("PRTSCR.EXE – hardcopy",SW_SHOWNORMAL);

SetPropWord

(lpszPictureName,Pic_Name_short,"BackColor",CO_BLACK);

SetPropWord

(lpszPictureName,"Control1","BackColor",Color_Control1)

}

}

// обновление экрана (вызов black.pdl)

if (lId==10)

{

SetPropWord

(lpszPictureName,"Control1","RTPersistence",1);

PictureWindowMain=GetParentPicture(lpszPictureName);

PictureWindow=GetParentPictureWindow(lpszPictureName

Pic_Name=GetPropChar

(PictureWindowMain,PictureWindow,"PictureName");

SetPropWord

(lpszPictureName,"Control1","RTPersistence",1);

//раскоротить, если нужно при обновлении вернуться к исходным настройкам свойств }