ування АСУТП помощью сучасної SCADA системи TRACE MODE. Зокрема на практике Було Створено базу каналів АСУТП автоматизованого Вузли обліку. У базі каналів Створено математичну основу системи керування: описание конфігурації всех робочих станцій, контролерів и УСО, вікорістовуваніх у сістемі керування, набудові інформаційних потоків между ними. Тут же описание вхідніх и вихідних сігналів и їхній зв'язок Із прилаштувати збору даних и керування.
Для реализации алгоритмів Обробка даних и керування булу Використана мова програмування - Техно FBD. У редакторі представлення даних булу розроблено графічна частина проекту системи керування.
Список використаної літератури
1. Цюцюра С.В. Взаємозамінність, стандартизація и технічні вимірювання: Конспект лекцій.- К .: КНУБА, 2012. - 72 с.
2. РД 50-34.698-90 АВТОМАТИЗОВАНІ СИСТЕМИ. ВИМОГИ ДО ЗМІСТУ ДОКУМЕНТІВ
. ГОСТ 24.103-84 АВТОМАТИЗОВАНІ СИСТЕМИ УПРАВЛІННЯ. ОСНОВНІ ПОЛОЖЕННЯ
. ГОСТ 24.104-85 АВТОМАТИЗОВАНІ СИСТЕМИ УПРАВЛІННЯ. ЗАГАЛЬНІ ВИМОГИ
. Цюцюра С.В. Стандартизація и метрологія в інформаційних системах. Конспект лекцій.- К .: КНУБА, 2009. - 64 с.
Додаток А Лістінг програми
procedure TForm1. N2Click (Sender: TObject) ;. Show ;; TForm1. Button1Click (Sender: TObject) ;. DBGrid1. Refresh ;. Table4. Insert ;; TForm1. Button2Click (Sender: TObject) ;. Table4. Edit ;; TForm1. Button3Click (Sender: TObject); a: string ;: longint; MessageDlg ( ???????? ?????? Raquo;, mtInformation, [mbYes, mbNo], 0)=mrYesbegin:=datamodule2. Table4. FieldByName ( kodt ). AsString ;. Table5. Filter:= kodt= + a; n:=datamodule2. Table5. RecordCount downto 1 do. Table5. Delete ;. Table4. Delete ;. Table5. Filter:= raquo ;;. DBGrid1. Refresh ;;; TForm1. DBGrid1EditButtonClick (Sender: TObject) ;. Show ;; TForm1. N4Click (Sender: TObject) ;;; TForm1. N5Click (Sender: TObject) ;. Show ;; TForm1. N6Click (Sender: TObject) ;. Show ;; TForm1. N7Click (Sender: TObject) ;. Show ;;
Unit3
procedure TForm3. Button1Click (Sender: TObject) ;. table2. Insert ;. showmodal ;; TForm3. Button2Click (Sender: TObject); n: longint ;: string; MessageDlg ( ВИДАЛИТИ Запис? Raquo;, mtInformation, [mbYes, mbNo], 0)=mrYesbegin:=datamodule2. Table2. FieldByName ( kods ). AsString ;. Table3. Filter:= kods= + a; n:=DataModule2. Table3. RecordCount downto 1 do. Table3. Delete ;;. Table2. Delete ;. Table3. Filter:= raquo ;;; TForm3. CheckBox1Click (Sender: TObject); not checkbox1. Checkedbegin datamodule2. Table3. IndexName:= kods raquo ;;. Table3. MasterFields:= kods raquo ;; begin. Table3. IndexName:= raquo ;;. Table3. IndexFieldNames:= raquo ;;. Table3. MasterFields:= raquo ;;;. DBGrid1. Refresh ;; TForm3. Button3Click (Sender: TObject); MessageDlg ( ВИДАЛИТИ Запис? Raquo;, mtInformation, [mbYes, mbNo], 0)=mrYesDataModule2. Table3. Delete ;; TForm3. Button4Click (Sender: TObject) ;. Table2. Edit ;. Table3. Edit ;. Show ;;
Unit4
procedure TForm4. Button1Click (Sender: TObject) ;. Table1. Insert ;. Table5. Insert ;. showmodal ;; TForm4. Button2Click (Sender: TObject); a: string ;: longint ;:=datamodule2. Table1. FieldByName ( kodd ). AsString ;. Table5. Filter:= kodd= + a ;. Table2. Filter:= kodd= + a; n:=datamodule2. Table5. RecordCount downto 1 do. Table5. Delete; n:=datamodule2. Table2. RecordCount downto 1 do. Table5. Filter:= raquo ;;. Table2. Delete ;. Table2. Filter:= raquo ;;. Table5. Refresh ;. Table2. Refresh ;; TForm4. Button3Click (Sender: TObject); MessageDlg ( ???????? ?????? Raquo;, mtInformation, [mbYes, mbNo], 0)=mrYesDatamodule2. Table5. Delete ;; TForm4. Button4Click (Sender: TObject) ;. Table1. Edit ;. Table5. Edit ;. Show ;;
Unit5
procedure TForm5. Button1Click (Sender: TObject) ;. Query1. Close ;. Query1. ParamByName ( prmdatabeg ). AsDate:=strtodate (edit1. Text) ;. Query1. ParamByName ( prmdataend ). AsDate:=strtodate (edit2. Text) ;. Query1. open ;; TForm5. Button2Click (Sender: TObject) ;. Query2. Close ;. Query2. ParamByName ( prmkodd ). AsInteger:=strtoint (edit3. Text) ;. Query2. open ;; TForm5. FormCreate (Sender: TObject) ;. Query1. Close ;. Query1. ParamByName ( prmdatabeg ). AsDate:=strtodate ( 01.01.1900 ) ;. Query1. ParamByName ( prmdataend ). AsDate:=strtodate ( 01.01.2100 ) ;. Query1. open ;. Query2. Close ;. Query2. ParamByName ( prmkodd ). AsInteger:=1 ;. Query2. open ;; TForm5. Button3Click (Sender: TObject) ;. Open ;. ExecuteRe...
