Emerson Exchange 365

• Not Answered

Changing primary graphic on remote operator station

hi all, does anyone know the format of the vb code i would use if i wanted to change the primary graphic on a different operator station to the one that would be executing the vb code?

• DeltaV

Stuart Jolley

• 27 Nov 2016 9:32 PM
• Cancel

9 Replies

• Digital Technician

  

  • 27 Nov 2016 10:09 PM

  Why would you like to do that?

  • Cancel
• Stuart Jolley

  

  • 28 Nov 2016 7:08 AM

  In reply to Digital Technician:

  we have a video-wall that by design, doesn't have a mouse/keyboard, therefore we would like the operator to be able to change graphic without the need to plug in a keyboard/mouse. There is only a choice of 2 graphics.

  • Cancel
• Digital Technician

  

  • 28 Nov 2016 8:26 AM

  In reply to Stuart Jolley:

  Sorry I don't know how to remote command other stations via VB scripts. Nevertheless, I would recommend doing a remote access via Windows Remote Desktop, it seems easier to me.

  • Cancel
• Brian Atkinson

  

  • 28 Nov 2016 8:31 AM

  Your best bet is probably to have the station that is doing the control write a value to a control module in your system. Then the video wall can monitor that parameter in the control module and update its own screen based on what if finds in the module.

  • Cancel
• Stuart Jolley

  

  • 28 Nov 2016 6:19 PM

  In reply to Digital Technician:

  thanks for the recommendation but we don't support remote login on our deltav systems.

  • Cancel
• Stuart Jolley

  

  • 28 Nov 2016 6:20 PM

  In reply to Brian Atkinson:

  interesting solution, which i can see working if i'm unable to find the correct vb script. thanks.

  • Cancel
• Ben Bishop

  

  • 28 Nov 2016 7:00 PM

  In reply to Brian Atkinson:

  To expand on what Brian said, I can share what I did in similar situation. I created a string parameter in the toolbar for the "remote" workstation called ps_NewPicture. I animated the value and tied it to a control module parameter, DISPLAY_AGENT/NEWPICNAME.A_CV. I then created an OnChange event for the toolbar parameter. Now, any time the value in the control module changes, the animated value of the toolbar parameter changes and the OnChange event fires the VB code. You can use the frsReplacePictureOnScreen function in your VB code. Your _OnChange event code might look something like:
  
  Private Sub ps_NewPicture_OnChange()
  
  Dim NewPicName As String
  NewPicName = frsReadValue("DVSYS.DISPLAY_AGENT/NEWPICNAME.A_CV")
  
  If Not frsIsPicOpen(NewPicName) Then
  frsReplacePictureOnScreen NewPicName, 1
  End If
  
  Exit Sub
  ErrorHandler:
  frsHandleError
  
  End Sub
  
  I took it one step further for demonstrations. I wanted to open multiple displays on multiple workstations (or Remote Client Sessions), and also open faceplates. I used the same principle, but with Boolean triggers for the OnChange events and a composite for each workstation in a control module. The composite has Boolean triggers and string values for each monitor up to quad screens, for faceplates and displays. Below is my code for the OnChange events for the faceplate trigger and picture trigger.
  
  Private Sub pb_FPTrigger_OnChange()
  
  If pb_FPTrigger.CurrentValue = True Then
  If frsIsTerminalServer() Then
  frsLoadFaceplate "DVSYS." + frsReadValue("DVSYS.DISPLAY_AGENT/" + CStr(frsReadValue("DVSYS.THISUSER/TSNAME.A_CV")) + "/FACEPLATE1.A_CV"), 1
  frsWriteValue "0", "DVSYS.DISPLAY_AGENT/" + CStr(frsReadValue("DVSYS.THISUSER/TSNAME.A_CV")) + "/TRIGGER_FP1.F_CV"
  Else
  frsLoadFaceplate "DVSYS." + frsReadValue("DVSYS.DISPLAY_AGENT/" + frsGetComputerName + "/FACEPLATE1.A_CV"), 1
  frsWriteValue "0", "DVSYS.DISPLAY_AGENT/" + frsGetComputerName + "/TRIGGER_FP1.F_CV"
  End If
  End If
  
  Exit Sub
  ErrorHandler:
  frsHandleError
  
  End Sub
  
  
  
  Private Sub pb_PicTrigger_OnChange()
  
  Dim NewPicName As String
  If pb_PicTrigger.CurrentValue = True Then
  If frsIsTerminalServer() Then
  NewPicName = frsReadValue("DVSYS.DISPLAY_AGENT/" + CStr(frsReadValue("DVSYS.THISUSER/TSNAME.A_CV")) + "/MONITOR1.A_CV")
  frsWriteValue "0", "DVSYS.DISPLAY_AGENT/" + CStr(frsReadValue("DVSYS.THISUSER/TSNAME.A_CV")) + "/TRIGGER_MON1.F_CV"
  Else
  NewPicName = frsReadValue("DVSYS.DISPLAY_AGENT/" + frsGetComputerName + "/MONITOR1.A_CV")
  frsWriteValue "0", "DVSYS.DISPLAY_AGENT/" + frsGetComputerName + "/TRIGGER_MON1.F_CV"
  End If
  If Not frsIsPicOpen(NewPicName) Then
  frsReplacePictureOnScreen NewPicName, 1
  End If
  
  End If
  
  Exit Sub
  ErrorHandler:
  frsHandleError
  
  End Sub

  The animated value is set at runtime so that I didn't have to hard-code the workstation names into the individual toolbars for each workstation/session.  The animations are set in the toolbar's CFixPicture_Initialize script upon loading in Operate Run, see excerpt below:

    '*** Begin DeltaV Display Agent ***
    'Animate the ps_MyPicture variable with the primary monitor parameter for this workstation
    'Each worksation should have a corresponding WORKSTATION_DA composite in the DISPLAY_AGENT module
    Set objTest = frsFindLocObj(Me, "AnimatePicTrigger")
    If Not objTest Is Nothing Then
      If frsIsTerminalServer() Then
          objTest.Source = "DVSYS.DISPLAY_AGENT/" + CStr(frsReadValue("DVSYS.THISUSER/TSNAME.A_CV")) + "/TRIGGER_MON1.B_CV[_NOT_CONFIG_OK_]"
      Else
          objTest.Source = "DVSYS.DISPLAY_AGENT/" + frsGetComputerName + "/TRIGGER_MON1.B_CV[_NOT_CONFIG_OK_]"
      End If
    End If
    Set objTest = Nothing
   
    Set objTest = frsFindLocObj(Me, "AnimateFPTrigger")
    If Not objTest Is Nothing Then
      If frsIsTerminalServer() Then
          objTest.Source = "DVSYS.DISPLAY_AGENT/" + CStr(frsReadValue("DVSYS.THISUSER/TSNAME.A_CV")) + "/TRIGGER_FP1.B_CV[_NOT_CONFIG_OK_]"
      Else
          objTest.Source = "DVSYS.DISPLAY_AGENT/" + frsGetComputerName + "/TRIGGER_FP1.B_CV[_NOT_CONFIG_OK_]"
      End If
    End If
    Set objTest = Nothing
    '*** End DeltaV Display Agent ***

  • Cancel
• petroban

  

  • 28 Nov 2016 8:24 PM

  Hi Stuart

  Chris Lloyd here 

  How are u?

  Replacepic is the way to go.

  Assign a module with a parameter 

  For the display required if there will only 

  Be 2 screens then this can be Boolean.

  This module can run on the operator 

  Workstation that drives the mimic 

  Display.

  Vb script in toolbar or graphic can 

  Run Replacepic with the graphic name required.

  Let me know how u get on.

  Thanks

  Chris
  
  Sent from my iPhone

  • Cancel
• Andre Dicaire

  

  • 29 Nov 2016 12:01 AM

  In reply to petroban:

  Petroban, Stuart, The module referenced above can run in a workstation, provided that workstation is either the Professional Plus or an Application station. Typically, a video wall is driven by a workstation other than the Professional Plus, and this cannot be an Application station, so, the statement that you can assign this module to the workstation driving the display is likely not accurate. But it would be appropriate to assign this module to an Application station rather than a physical controller. The module can reside anywhere in the DeltaV system where Module can run.

  Andre Dicaire

  • Cancel