久久精品人妻一区二区蜜桃-欧美精品人妻一区二区免费视频-久久精品免费一区二区喷潮-久久精品中文闷骚内射-精品bbw-精品久久无码中文字幕-小小水蜜桃3视频高清在线观看-日韩免费一级aaa片毛太久-欧美激情肉欲高潮无码鲁大师-欧美影片一区二区三区-亚洲精品无码av无码专区一本,波多野吉衣一区二区三区在线观看,囯精品人妻无码一区二区三区99,包哟哟在线观看免费观看

       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ī)架，即可以保持用戶(hù)原有的傳統(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ì)勝利油田石化總廠(chǎng)、催化劑奧達(dá)分公司，催化劑長(zhǎng)嶺分公司，燕山石化化工二廠(chǎng)，揚(yáng)州石化，潤(rùn)滑油北京、茂名、重慶分公司的老舊控制系統(tǒng)進(jìn)行了成功的改造，使用的產(chǎn)品為GEIP Rx3i及Cimplicity軟件。
        項(xiàng)目名稱(chē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ī)架。用戶(hù)之前使用的是傳統(tǒng)的DCS, 希望保持一些使用習(xí)慣，例如：普通oper 用戶(hù)不可以看到和運(yùn)行非HMI軟件，也看不到桌面；彈出的PID, AUTO_MANUAL等多個(gè)回路調(diào)節(jié)窗口一直在主畫(huà)面之上，除非用戶(hù)關(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)了用戶(hù)的期望。

        1， 在windows 啟動(dòng)目錄下設(shè)置快捷方式執(zhí)行cimplicity 命令行指令
        CimView.exe /autostart /captive /nomenutitle /alwaysmaximized c:ProjectsTESTscreensOverview.cim
        用戶(hù)只可以使用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