中文字幕第二一区_久久久久在线视频_精品国产自在现线看久久_亚洲精品一区二区三区电影网

       GEIP幫助中石化在儀表隱患治理工程中實(shí)現(xiàn)控制系統(tǒng)改造，以催化劑奧達(dá)分公司為例，三臺(tái)Cimplicity HMI 直接通過(guò)以太網(wǎng)聯(lián)接Rx3i, Rx3i cpu 通過(guò)本地以太網(wǎng)擴(kuò)展方式連接遠(yuǎn)程機(jī)架，即可以保持用戶原有的傳統(tǒng)DCS下的操作習(xí)慣，并且使用快速先進(jìn)的PAC實(shí)現(xiàn)優(yōu)化的工藝控制。

        中石化從2008年起，對(duì)下屬分公司的老舊控制系統(tǒng)系統(tǒng)進(jìn)行了一系列的改造工作。2011年，由GEIP公司負(fù)責(zé)，分別對(duì)勝利油田石化總廠、催化劑奧達(dá)分公司，催化劑長(zhǎng)嶺分公司，燕山石化化工二廠，揚(yáng)州石化，潤(rùn)滑油北京、茂名、重慶分公司的老舊控制系統(tǒng)進(jìn)行了成功的改造，使用的產(chǎn)品為GEIP Rx3i及Cimplicity軟件。
        項(xiàng)目名稱
        GEIP在中石化儀表隱患治理工程實(shí)現(xiàn)控制系統(tǒng)改造
        解決方案
        以催化劑奧達(dá)分公司為例，三臺(tái)Cimplicity HMI 直接通過(guò)以太網(wǎng)聯(lián)接Rx3i, Rx3i cpu 通過(guò)本地以太網(wǎng)擴(kuò)展方式連接遠(yuǎn)程機(jī)架。用戶之前使用的是傳統(tǒng)的DCS, 希望保持一些使用習(xí)慣，例如：普通oper 用戶不可以看到和運(yùn)行非HMI軟件，也看不到桌面；彈出的PID, AUTO_MANUAL等多個(gè)回路調(diào)節(jié)窗口一直在主畫(huà)面之上，除非用戶關(guān)閉它們；系統(tǒng)管理員可以不受限制等等。工藝回路調(diào)節(jié)希望使用串級(jí)PID模式但reset 輔助級(jí)可以根據(jù)工藝特點(diǎn)調(diào)整斜率。
        在GE智能平臺(tái) professional service工程師的幫助下系統(tǒng)集成商實(shí)現(xiàn)了用戶的期望。

        1， 在windows 啟動(dòng)目錄下設(shè)置快捷方式執(zhí)行cimplicity 命令行指令
        CimView.exe /autostart /captive /nomenutitle /alwaysmaximized c:ProjectsTESTscreensOverview.cim
        用戶只可以使用cimplicity HMI的內(nèi)容
        2， 彈出的回路調(diào)節(jié)窗口添加script 調(diào)用windows的窗體
        Declare Function SetWindowPos Lib "user32" _ 
        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ 
        ByVal x As Long, ByVal y As Long, ByVal cx As Long, _ 
        ByVal cy As Long, ByVal wFlags As Long) As Long 
        Const SWP_NOSIZE = &H1 
        Const SWP_NOMOVE = &H2 
        Const HWND_TOPMOST = -1  
        Sub onScreenOpen()  
        Dim oCimScr As GefScreen 
        Set oCimScr = CimGetScreen 
         ret = SetWindowPos(oCimScr.hwnd, HWND_TOPMOST, _ 
        0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE) 
        oCimScr.TitleVisible = True
        End Sub
        這樣多個(gè)PID, AUTO_MANUAL等回路調(diào)節(jié)窗口一直在主畫(huà)面之上。
        3， 熱鍵退出按鈕
        Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
        Const EWX_LogOff As Long = 0
        Const EWX_SHUTDOWN As Long = 1
        Const EWX_REBOOT As Long = 2
        Const EWX_FORCE As Long = 4
        Const EWX_POWEROFF As Long = 8
        Sub CheckRole
        Dim Role As New Point
        TEMP$ = "$ROLE"
        Role.Id = TEMP$
        Role.Get
        If (Right$(Role.Value,3) Like "MGR") Then
        Begin Dialog SYSMGR_LOGOUT_BOX ,,183,60,"Exiting PMC System",,,1
        Text 20,5,150,8,"You are about to Exit the PMC system."
        Text 20,15,150,8,"You have a choice of Logging off the system "
        Text 20,24,150,8,"or entering the Windows NT Desktop."
        PushButton 24,36,40,14,"Logout"
        PushButton 76,36,40,14,"Desktop"
        CancelButton 128,36,40,14
        End Dialog