产品厂商新闻方案技术培训下载招聘品牌展会视频媒体国防军民融合

  •  
     

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

    2012-03-18 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的窗体
      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 有了更准确的理解。

    分享到:
     
     
     
     
    热门产品
     
    推荐厂商
     
    关于我们 | 联系我们 | 广告服务 | 版权隐私 | 积分换礼 | 友情链接 | 站点导航 | 违规举报