GE智能平台在中石化仪表隐患治理工程实现控制系统改造

解决方案
　　以催化剂奥达分公司为例，三台Cimplicity HMI 直接通过以太网联接Rx3i, Rx3i cpu 通过本地以太网扩展方式连接远程机架。
　　用户之前使用的是传统的DCS, 希望保持一些使用习惯，例如：普通oper 用户不可以看到和运行非HMI软件，也看不到桌面；弹出的PID, AUTO_MANUAL等多个回路调节窗口一直在主画面之上，除非用户关闭它们；系统管理员可以不受限制等等。工艺回路调节希望使用串级PID模式但reset 辅助级可以根据工艺特点调整斜率。
　　在GE智能平台 professional service工程师的帮助下系统集成商实现了用户的期望。

1， 在windows 启动目录下设置快捷方式执行cimplicity 命令行指令
　　CimView.exe /autostart /captive /nomenutitle /alwaysmaximized c:\Projects\TEST\screens\Overview.cim
　　用户只可以使用cimplicity HMI的内容
2， 弹出的回路调节窗口添加script 调用windows的窗体
　　Ｄeclare 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
　　这样多个PID, AUTO_MANUAL等回路调节窗口一直在主画面之上。
3， 热键退出按钮
　　Ｄeclare 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
　　Dim SYSMGR_LOGOUT As SYSMGR_LOGOUT_BOX
　　ans% = Dialog(SYSMGR_LOGOUT)
　　　　Select Case ans%
　　　　Case 0
　　　　　　Exit Sub
　　　　　Case 1
　　　　　　CimLogout "TEST"
　　　　　　WinClose("OVERVIEW")
　　　　　　stuff = ExitWindowsEx (EWX_LogOff Or EWX_FORCE, 0)
　　　　Case 2
　　　　　　CimLogout "TEST"
　　　　　　WinClose("OVERVIEW")
　　　　End Select
　　Else
　　　　Begin Dialog OPER_USER_LOGOUT_BOX ,,167,60,"Exiting PMC System",,,1
　　　　　　Text 16,4,150,8,"You are about to Exit the PMC system."
　　　　　　Text 16,15,150,8,"Click OK to Exit PMC"
　　　　　　Text 16,25,150,8,"Click Cancel to return to PMC"
　　　　　　OKButton 20,40,40,14
　　　　　　CancelButton 72,40,40,14
　　　　End Dialog
　　　　Dim OPER_USER_LOGOUT As OPER_USER_LOGOUT_BOX
　　　　ans% = Dialog(OPER_USER_LOGOUT)
　　　　Select Case ans%
　　　　Case 0
　　　　　　Exit Sub
　　　　Case -1
　　　　　　CimLogout "TEST"
　　　　　　WinClose("OVERVIEW")
　　　　　　stuff = ExitWindowsEx (EWX_LogOff Or EWX_FORCE, 0)
　　　　End Select
　　End If
　　End Sub
　　这样根据CIMPLICITY用户的角色可以选择退出windows 或回到desktop。
4, 斜率调节下一级主PID回路的设定值。
　　模拟量输入直接使用32位浮点数，精度较之前的系统大为提高，小于10ms的PID回路运算输出使得PID的调节工作大为简化。同时，根据具体回路的调节经验获得斜率曲线，调整主PID回路的给定值，简单有效的实现了工艺的PID整定。这得益于27Mbps的PCI背板带宽和1GHz可运行纯符号变量的cpu的能力.

实施结果
　　保持了用户原有的传统DCS下的操作习惯，使用了快速先进的PAC实现优化的工艺控制，使得石化行业的用户对在其他行业广为使用的Cimplicity HMI/SCADA plus PACs system 有了更准确的理解。