👩🏿‍✈️ 💠 👩🏽‍🤝‍👨🏻 उद्यम में तापमान की निगरानी 🖐🏾 🦋 👩🏿‍🏫

कारखाने में तापमान को देखने और नियंत्रित करने के लिए "कुछ" के साथ काम करने के लिए आया था। एक PLC 160 नियंत्रक पहले से ही स्थापित किया गया है और तापमान सेंसर RS-485 इंटरफ़ेस ( विकिपीडिया ) के माध्यम से जुड़े हुए हैं।

नियंत्रक और सेंसर मेरे सामने स्थापित किए गए थे।

एक उदाहरण कनेक्शन आरेख था:

देखने के लिए इस्तेमाल किया CoDeSys ( विकिपीडिया )।

तापमान का कोई इतिहास नहीं था और यह ज्ञात नहीं है कि दुर्घटना कब हुई थी।

शुरुआत

यह विचार इस तरह से आया - MySQL डेटाबेस के साथ संयोजन के रूप में एक WEB- साइट बनाने और वहां के तापमान और दुर्घटनाओं के बारे में जानकारी संग्रहीत करने के लिए।

प्रारंभिक कार्य:

एंटरप्राइज़ में किसी भी कंप्यूटर से डेटा देखें
वर्तमान दुर्घटनाओं और घटनाओं को देखें
वर्तमान मूल्यों के ऑनलाइन देखने
अलार्म रिकॉर्डिंग के लिए अधिकतम और न्यूनतम मान बदलें

बाद में यह निम्नलिखित निकला:

दुर्घटनाओं को नियंत्रित करने के लिए न्यूनतम और अधिकतम पर्याप्त नहीं हैं।

एक महत्वपूर्ण अधिकतम और एक महत्वपूर्ण न्यूनतम जोड़ा गया, साथ ही उस समय के दौरान जब तापमान सामान्य पर लौट सकता था।

यदि तापमान न्यूनतम या अधिकतम से अधिक हो गया, लेकिन समय टी के दौरान सामान्य हो गया, तो यह एक मामूली दुर्घटना है (लेकिन यह दुर्घटना नगण्य के रूप में दर्ज की गई)।
यदि तापमान महत्वपूर्ण न्यूनतम या महत्वपूर्ण अधिकतम से आगे निकल जाता है, तो यह एक महत्वपूर्ण दुर्घटना है।

पहुँच को अलग करना आवश्यक था:

प्रशासक - सिर्फ मेरे लिए)))
टेक्नोलॉजिस्ट - प्रत्येक सेंसर के लिए 5 पैरामीटर बदलें

मुझे समय में दुर्घटना के मापदंडों में बदलाव करना था। यह इतना है कि, उदाहरण के लिए, 00:00 से 09:00 तक दुर्घटनाओं को दर्ज नहीं किया जाता है।
इंजीनियर - अंशांकन

सही ढंग से, आपको कैलिब्रेशन के लिए मॉड्यूल से चिपके हुए COM पोर्ट के साथ एक लैपटॉप का उपयोग करने की आवश्यकता है। मैंने WEB के माध्यम से इसे लागू करने का निर्णय लिया, अर्थात अंशांकन में शामिल व्यक्ति अपने थर्मामीटर के साथ सेंसर पर आता है और साइट पर वास्तविक मूल्य प्रदर्शित करता है।
बाकी सब - देखें

सॉफ्टवेयर हिस्सा है

स्थानीय नेटवर्क पर पीएलसी 160 का एक गुच्छा के साथ एक वर्चुअल मशीन बनाई गई थी।
स्थापित CoDeSys।

IP पते कॉन्फ़िगर किए गए हैं ताकि कंप्यूटर नियंत्रक को देखता है।

यह परियोजना पथ c: \ project \ pro \ पर स्थित है और इसे my_work.pro कहा जाता है।

प्रोजेक्ट को स्वयं run.cmd फ़ाइल के माध्यम से लॉन्च किया गया है

"C:\Program Files\3S Software\CoDeSys V2.3\Codesys.exe" "C:\project\pro\my_work.pro" /userlevel 0 /password 157999 /online

अनुप्रयोग run.cmd फ़ाइल लॉन्च करता है

 WinExec(Pchar(“c:\run.cmd”), SW_HIDE);

मैंने तापमान मान प्राप्त करने के लिए DDE का उपयोग किया ( विकिपीडिया )

config.ini

 [CoDeSys] service=CoDeSys topic=C:\project\pro\my_work.pro item=C:\Program Files\3S Software\CoDeSys V2.3\ cmd=C:\run.cmd [db] host=127.0.0.1 port=3306 user=root key=keypassword db=workdb

कार्यक्रम शुरू:

"Config.ini" से CoDeSys कॉन्फ़िगरेशन पैरामीटर डाउनलोड करें

"Config.ini" से MySQL कॉन्फ़िगरेशन पैरामीटर लोड हो रहा है

टाइमर द्वारा (यह निर्णय लिया गया था कि यह एक मिनट में एक बार डेटा पढ़ने के लिए पर्याप्त होगा):

MySQL के साथ सेंसर की संख्या प्राप्त करें
प्रत्येक सेंसर के लिए, एक घटक बनाएं DDE.DDECONv :
```
 DDE.DDEConv[…]:= TDdeClientConv.Create(Self) DDE.DDEConv[…].ServiceApplication:=”patchcodesys” DDE.DDEConv[…].SetLink(“name”,”patchdde”) 
```
हम DDE.DDEItem घटक बनाते हैं और इसे DDE.DDECONv घटक से बाँधते हैं:
```
 DDE.DDEItem[…]:=TDdeClientItem.Create(Self) DDE.DDEItem[…].DdeConv:=DDE.DDEConv[…] 
```
हम MySQL के साथ सेंसर का नाम देते हैं:
```
 DDE.DDEItem[…].DdeItem:=MySQL.GetSensorName(…) 
```
परिणामस्वरूप, हम तापमान मान प्राप्त करते हैं:
```
 DDE.DDEItem[…].Text 
```
हम प्रत्येक सेंसर के लिए वर्तमान तापमान मान और उनके मापदंडों को सहेजते हैं।
```
 MySQL.InsertTemp(MySQL.GetSensorName(...),””,INSQL(UMin[...]),INSQL(UMax[...]),INSQL(CRMin[...]),INSQL(CRMax[...])) 
```
हम वर्तमान तिथि और समय पर MySQL से प्राप्त करते हैं:

कम से कम
```
 UMin[I…]:=OUTSQL(MySQL.GetMin(MySQL.GetSensorName(…))) 
```
अधिकतम।
```
 UMax[…]:=OUTSQL(MySQL.GetMax(MySQL.GetSensorName(...))) 
```
न्यूनतम न्यूनतम
```
 CRMin[…]:=OUTSQL(MySQL.GetCriticalMin(MySQL.GetSensorName(…))) 
```
महत्वपूर्ण अधिकतम
```
 CRMax[…]:=OUTSQL(MySQL.GetCriticalMax(MySQL.GetSensorName(…))) 
```
समय
```
 CRTime[…]:=MySQL.GetCriticalTime(MySQL.GetSensorName(…)) 
```
नोट: " ~~मूर्ख~~ से सुरक्षा" - यदि न्यूनतम अधिकतम या इसके विपरीत से अधिक है - तो हम इन मूल्यों को स्थानों में बदलते हैं।
```
 if (UMin[…]>=UMax[…]) then begin UM[…]:=UMin[…]; UMin[…]:=UMax[…]; UMax[…]:=UM[…]; end; 
```
दुर्घटना:

यदि कोई दुर्घटना नहीं हुई, तो एक रिकॉर्ड बनाएं
```
 MySQL.InsertCrash(FormatDateTime('yyyy-mm-dd hh:nn:ss', dt),FormatDateTime('yyyy-mm-dd hh:nn:ss', dt),MySQL.GetSensorName(...),…) 
```
अगर कोई दुर्घटना होती है तो हम अपडेट करते हैं
```
 MySQL.UpdateCrash(MySQL.GetCrashID(MySQL.GetSensorName(...)),FormatDateTime('yyyy-mm-dd hh:nn:ss', dt),…) 
```
दुर्घटना समाप्त हो गई। पूरा ध्वज सेट करें।

वेब साइट

PHP में पेज लिखे।

मुख्य पृष्ठ (कोड का एक टुकड़ा, अधिक किक न करें):

 <?php require 'config.php'; session_start(); $page = isset( $_GET['page'] ) ? $_GET['page'] : ""; switch ( $page ) { case 'login': login(); break; case 'logout': logout(); break; case 'list': listpage(); break; ………………….. ?>

शेष पृष्ठ उसी प्रकार के हैं। प्रत्येक पृष्ठ अपना डेटा संसाधित करता है।

क्या किया गया है:

सेंसर की सूची। नाम, सेंसर नाम कार्यक्रम के लिए, सेंसर प्रकार।
सेंसर उद्देश्य से समूहीकृत किए गए थे।
"दुर्घटना की स्थिति" जोड़ा गया: दुर्घटना की प्रक्रिया में, दुर्घटना पूर्ण, गंभीर दुर्घटना।
उपयोगकर्ताओं और उनकी भूमिकाओं को जोड़कर कार्यान्वित किया गया।
लॉगिंग किसने की।
सभी दुर्घटनाओं का पुरालेख।
ग्राफिक्स।

बैसाखी

जब CoDeSys प्रोग्राम शुरू होता है, तो एक विंडो दिखाई देती है:

हम इसे प्रोग्रामेटिक रूप से बंद करते हैं।

 W_WND_Button_Run: HWND: W_WND_RUN: HWND; C_Button_Message='Button'; C_CoDeSys_Message='CoDeSys'; W_WND_RUN := FindWindow(nil,C_CoDeSys_Message); if W_WND_RUN<>0 then begin W_WND_Button_Run:=FindWindowEx(W_WND_RUN, 0,C_Button_Message, nil); if W_WND_Button_Run<>0 then begin SendMessage(W_WND_Button_Run, WM_LBUTTONDOWN, 10, 10); SendMessage(W_WND_Button_Run, WM_LBUTTONUP, 10, 10); SendMessage(W_WND_Button_Run, WM_LBUTTONDOWN, 10, 10); SendMessage(W_WND_Button_Run, WM_LBUTTONUP, 10, 10); end; end;

अचानक कंट्रोलर को बंद कर दिया गया।

 W_WND_Error:=FindWindow(nil,''); if W_WND_Error<>0 then begin W_WND_Button_Error:=FindWindowEx(W_WND_Error,0,'Button', nil); if W_WND_Button_Error<>0 then begin SendMessage(W_WND_Button_Error, WM_LBUTTONDOWN, 10, 10); SendMessage(W_WND_Button_Error, WM_LBUTTONUP, 10, 10); SendMessage(W_WND_Button_Error, WM_LBUTTONDOWN, 10, 10); SendMessage(W_WND_Button_Error, WM_LBUTTONUP, 10, 10); PostMessage(FindWindow(PChar(C_CoDeSys),nil), WM_QUIT, 0, 0); end; end;

असंगत हैंग।

हम एप्लिकेशन को पुनरारंभ करते हैं।

 C_CLOSE_DEBUG='CoDeSys for Automation Alliance (debug)'; W_WND_CLOSE:=FindWindow(nil,C_CLOSE_DEBUG); if W_WND_CLOSE<>0 then begin KillProcess('Codesys.exe'); KillProcess('WerFault.exe'); PostMessage(FindWindow(PChar(C_Close_DEBUG),nil), WM_QUIT, 0, 0); PostMessage(FindWindow(PChar(C_CoDeSys),nil), WM_QUIT, 0, 0); MySQL.InsertLog('Error debug.. Kill process - codesys.exe and WerFault.exe'); MySQL.InsertLog('Restart programm'); RestartThisApp; end; //  function KillProcess(ExeName: string): LongBool; var B: BOOL; ProcList: THandle; PE: TProcessEntry32; begin Result := False; ProcList := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0); PE.dwSize := SizeOf(PE); B := Process32First(ProcList, PE); while B do begin if (UpperCase(PE.szExeFile) = UpperCase(ExtractFileName(ExeName))) then Result := TerminateProcess(OpenProcess($0001, False, PE.th32ProcessID), 0); B:= Process32Next(ProcList, PE); end; CloseHandle(ProcList); end; //  procedure TForm1.RestartThisApp; begin ShellExecute(Handle, nil, PChar(Application.ExeName), nil, nil, SW_SHOWNORMAL); Application.Terminate; // or, if this is the main form, simply Close; end;

Zabbix

127.0.0.1 पते के साथ एक मेजबान बनाया।

इसमें "सेंसर" नाम का एक डिटेक्शन नियम है।

डेटा तत्वों के प्रोटोटाइप।

प्रोटोटाइप ट्रिगर।

Zabbix_agentd.conf में जोड़ें

 UserParameter=sensors[*],/usr/lib/zabbix/alertscripts/sensors.sh UserParameter=crash[*],/usr/lib/zabbix/alertscripts/crash.sh $1

स्क्रिप्ट खुद:

sensors.sh

 #!/bin/sh unset id unset res id=(`echo "select id FROM sensor WHERE type='1'" | mysql -uroot -p -D workdb -h 0.0.0.0 --default-character-set=utf8 2>/dev/null`) echo '{ "data": [' for (( count=1; count<${#id[@]}; count++ )) do res=(`echo "select name FROM sensor WHERE (type='1' and id='${id[$count]}') " | mysql -uroot -p -D workdb -h 0.0.0.0 --default-character-set=utf8 2>/dev/null `) r={${res[@]} l=${#r} res1=(`echo "select param FROM sensor WHERE (type='1' and id='${id[$count]}') " | mysql -uroot -p -D workdb -h 0.0.0.0 --default-character-set=utf8 2>/dev/null `) r1={${res1[@]} l1=${#r1} res2=(`echo "select ddename FROM sensor WHERE (type='1' and id='${id[$count]}') " | mysql -uroot -p -D workdb -h 0.0.0.0 --default-character-set=utf8 2>/dev/null `) r2={${res2[@]} l2=${#r2} res3=(`echo "select min FROM temp_${r2:17:l2} ORDER BY id DESC LIMIT 1 " | mysql -uroot -ps -D workdb -h 0.0.0.0 --default-character-set=utf8 2>/dev/null`) r3={${res3[@]} l3=${#r3} res4=(`echo "select max FROM temp_${r2:17:l2} ORDER BY id DESC LIMIT 1 " | mysql -uroot -p -D workdb -h 0.0.0.0 --default-character-set=utf8 2>/dev/null`) r4={${res4[@]} l4=${#r4} res5=(`echo "select cmin FROM temp_${r2:17:l2} ORDER BY id DESC LIMIT 1 " | mysql -uroot -p -D workdb -h 0.0.0.0 --default-character-set=utf8 2>/dev/null`) r5={${res5[@]} l5=${#r5}2>/dev/null res6=(`echo "select cmax FROM temp_${r2:17:l2} ORDER BY id DESC LIMIT 1 " | mysql -uroot -p -D workdb -h 0.0.0.0 --default-character-set=utf8 2>/dev/null`) r6={${res6[@]} l6=${#r6} res7=(`echo "select param FROM temp_${r2:17:l2} ORDER BY id DESC LIMIT 1 " | mysql -uroot -p -D workdb -h 0.0.0.0 --default-character-set=utf8 2>/dev/null`) r7={${res7[@]} l7=${#r7} s=$s'{ "{#SID}": "'${id[$count]}'", "{#SNAME}": "'${r:5:l}'", "{#SDDENAME}": "'${r2:17:l2}'" , "{#SPARAM}": "'${r7:7:l7}'", "{#SMIN}": "'${r3:5:l3}'", "{#SMAX}": "'${r4:5:l4}'", "{#SCMIN}": "'${r5:6:l5}'", "{#SCMAX}": "'${r6:6:l6}'" },' done a=${#s} b=${s: 0: $a-1} c=${#b} d=$b echo $d']}'

crash.sh

 #!/bin/sh a=$1 unset res res=(`echo "select flag, id_status FROM crash WHERE id_sensor='$a' ORDER BY id DESC LIMIT 1 " | mysql -uroot -p -D workdb -h 0.0.0.0 --default-character-set=utf8 2>/dev/null `) for (( count=2; count<${#res[@]}; count++ )) do s=$s' '${res[$count]} done b=${s:0:2} c=${s:3:4} if [ $b = 0 -a $c = 1 ] then echo 0 else echo 1 fi

और फिर zabbix के माध्यम से आप मेल और एसएमएस और बहुत कुछ भेज सकते हैं।

परिणाम

परिणाम वर्तमान और पिछले दुर्घटनाओं की समीक्षा के साथ उद्यम में एक तापमान निगरानी प्रणाली थी।

दुर्घटना के बारे में और पढ़ें।

फिलहाल, दरवाजे खोलने / बंद करने के लिए सेंसर जोड़े जाते हैं।

पेशेवरों:

न्यूनतम लागत ( सापेक्ष )।
कर्म से (?)।
3 साल से निगरानी चल रही है।

विपक्ष:

विफलता के कई बिंदु: नियंत्रक, नेटवर्क, CoDeSys प्रोग्राम, वर्चुअल मशीन, MySQL , IIS ।

पुनश्च

ज्यादा लात मत मारो। यह मेरा पहला लेख है।