VBA Scripts on RSView SE

sephiroth said:

Hi everybody.

I'm having a problem rigth now with RSView, I need to execute periodic VBA Scripts on my application, the problem is that the VBA scripts can only be created independently for each display.

So how can I create a global script and execute it whenever I want?... for example calling it from an Event. I had seem that in RSView32 can be use a vbaExec function, it is possible to do the same in RSView SE... how????

J.J.

Click to expand...

1. Create a dedicated window, it does not have to be pretty. Set it up as "On Top", "Cache After Displaying - YES", check off "Always Updating", "Show Last Acquired Value", and set the update rate to a relatively fast rate.
2. Create a startup macro, to open that window with the /ZA switches. "Display _VBA_Code_Win /ZA". I also advise creating a button to close all windows, flush the cache, and then reopen "Home" windows with the above switch. The /ZA option will open the window, and keep it updating, even when it gets hidden by a 'Replace' window.
3. On the new window, put an analog tag, pointing to the [PLC]Trigger bit, expose it to VBA, and use an OnChange event in VBA to trigger your other processing. Give it a name, such as "nd_TriggerDisp". NOTE: Generally, in the VBA for the window, you will first want to create a global tag array, and populate it with your trigger bit, so you can reset it:

Dim GlobalGroup as TagGroup

Dim TagGlobal as Tag

Dim TagsInError as StringList



     In DisplayLoad:

if GlobalGroup is Nothing Then

   Set GlobalGroup = Application.CreateTagGroup(Me.AreaName, 500)

   GlobalGroup.Add "{[PLC]Trigger}"



     In your nd_TriggerDisp_Change() event for your tag on the window:



If nd_TriggerDisp.Value = 1 then 

   (Process your special VBA Code)

   

   ' Reset the tag in the PLC to indicate processing complete:

   Set TagGlobal = GlobalGroup.Item({[PLC]Trigger])

   TagGlobal.PendingWriteValue = 0

   GlobalGroup.WritePendingValues(TagsInError)

End If

End Sub