工控网首页
>

应用设计

>

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

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

2012/3/18 11:25:26

解决方案
  以催化剂奥达分公司为例,三台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的窗体
  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
  这样多个PID, AUTO_MANUAL等回路调节窗口一直在主画面之上。
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
  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 有了更准确的理解。

投诉建议

提交

查看更多评论
其他资讯

查看更多

PACSystems及触摸屏在膨化机控制系统改造中的应用

钢铁行业MES 解决方案——轧钢篇

GE 智能平台宣布PAC8000控制器提供DCS功能及增加PPS系统的灵活性

2016年通用电气—英华检测工业CT高级论坛

中国第一套农机行业MES