• State Verified Answer
  • Replies 6 replies
  • Subscribers 5479 subscribers
  • Views 23508 views
  • Users 0 members are here
Recent DeltaV Community Connect Discussions
Similar Posts
PCSD Dynamo and the Update Dynamo Expert
Can I edit dynamos in a dynamo set?
[IFIX/DeltaV Operate] Finding all dynamos in *fds.file and then list up dynamo names on list box using vba
Updating Dynamos
Dynamo name
Share

VB Scripting for Dynamos

We have decided to start using HCD graphics at our site and use the frsModules_Theme dynamo set.  I am creating my first custom dynamo to have a similar look as these dynamos.  I created my form, wrote my scripts, tested it and FAIL.  I have two questions about the VB scripting behind my form:

1.  The Edit script behind my dynamo has frmDyn.Open to open my form, but this only works if the form is on the current display.  I obviously don't want to have the form on every graphic.  How do I open the form if I store it in the User global file?

2. Below is a part of my UserForm_Active script.  I do not know how to set Objdynamo to the current dynamo object so it gives me an error when my form opens - "Object variable or With block variable not set".  So, my question is, how do I set Objdynamo equal to the current dynamo?

Dim objTest As Object

'Get Friendly Name
Set objTest = Nothing
Set objTest = findlocalobject(Objdynamo, "ps_FriendlyName")
If Not objTest Is Nothing Then
    FriendlyName.EditText = objTest.CurrentValue
End If

Thanks for any help,

Kevin

kdculb
  • Ben Bishop
    Kevin,

    Typically, a subroutine in a User.fxg module would open a form, also stored in User.fxg. In the example below, frmMyDynamoForm would be the name of your custom form. The subroutine passes the selected dynamo object to the form. The form would need to have objDynamo declared as a public global object (Public objdynamo As Object). Then you can pass the current dynamo object to the form and retrieve properties to populate your form, using the "if not objTest is Nothing" code you have above.


    Public Sub EditMyDynamo(objdynamo As Object)

    On Error GoTo ErrorHandler

    Dim frmDyn As New frmMyDynamoForm
    If Not frmDyn Is Nothing Then
    Set frmDyn.objdynamo = objdynamo
    frrDyn.Show
    Unload frmDyn
    Set frmDyn = Nothing
    End If

    Exit Sub

    ErrorHandler:
    frsHandleError

    End Sub


    The _Edit script of the dynamo object itself ("dynMyDynamo1" in the example below) would look like:


    Private Sub dynMyDynamo1_Edit()
    On Error GoTo ErrHandler
    EditMyDynamo dynMyDynamo1
    Exit Sub
    ErrHandler:
    frsHandleError
    End Sub
  • kdculb

    In reply to Ben Bishop:

    Ben,

    I am still missing something, because I can not get this to work. I still get an error when trying to edit my dynamo. When I compile my _Edit script on my dynamo I get: "Sub or Function not defined" and it highlights EditEMDynamo, which is the script I added to User.fxg. Below are my two scripts; any additional help would be greatly appreciated.

    This is in my User.fxg:

    Public Sub EditEMDynamo(Objdynamo As Object)
    On Error GoTo ErrorHandler

    Dim frmDyn As New frmEMDyn
    If Not frmDyn Is Nothing Then
    Set frmDyn.Objdynamo = Objdynamo
    frmDyn.Show
    Unload frmDyn
    Set frmDyn = Nothing
    End If

    Exit Sub

    ErrorHandler:
    frsHandleError
    End Sub

    And this is my dynamo script:

    Private Sub EM1_N__Edit()
    'Name: Tippe_1/EM1_N_ Version: 11.3
    On Error GoTo ErrHandler
    EditEMDynamo EM1_N_
    Exit Sub
    ErrHandler:
    frsHandleError
    End Sub
  • kdculb

    In reply to Ben Bishop:

    I did not know I had to put the script in a module, I had just placed it in with the other scripts on User.fxg. It works know that I created a module.
  • Ben Bishop

    In reply to kdculb:

    Excellent! I'm happy you were able to make it work.
  • gdpike

    In reply to Ben Bishop:

    That's really useful. How would we suggest handling changes to ps_DataSourceNN parameter?

    I've implemented a update to a custom copy the MA3_CH dynamo to correct the pb_UserScale not displaying, and need to get expressions in the dynamo to DVSYS.MODULE to update.
  • gdpike

    In reply to gdpike:

    worked it out, using a number of help/web sources...

    when writing back values to objDynamo, i.e. in OK_click() subroutine, store strOldNode and strNewNode before/after updating ps_DataSourceNN, then execute

    If strOldNode <> strNewNode Then
    Dim blnSuccess as Boolean
    Find.Replace.FindReplaceInObject objdynamo, 8, strOldNode, strNewNode, blnSuccess
    'The 8 indicates to include search/replace in scripts
    End If

This is the official online community site of the Emerson Exchange, a forum for the free exchange of non-proprietary information among the global user community of all Emerson's products and services. Our goal is to improve the efficiency and use of automation systems and solutions employed at members’ facilities by sharing our knowledge, experiences, and application information.

Community Guidelines | Legal Information | Privacy Policy | Contact Community Manager

Website translation provided by Website Translator

© 2015-2026 Emerson Exchange. All rights reserved.