FTV SE - Open Display by Event - Help Please

[sachincool786]

Public WithEvents PlcTags As TagGroup

Dim Sample1Req As Tag

Public Sub Display_AnimationStart()
Dim TagsInError As StringList
If PlcTags Is Nothing Then
Set PlcTags = Application.CreateTagGroup(Me.AreaName, 500)
Set Sample1Req = PlcTags.Add("heater_off_alarm")

PlcTags.Active = True
PlcTags.RefreshFromSource TagsInError
End If

End Sub


Private Sub EventTriggerTags_Change(ByVal TagNames As IGOMStringList)

On Error GoTo errHandler

If Sample1Req.Value = 1 Then
ShowDisplay ("Heating off")
End If


ErrHandler:
LogDiagnosticsMessage Err.Description, FTDiagSeverityError

End Sub

 

[sachincool786]

Please tell me what is wrong in the above code. I am totally naive in VBA linkage to FT view SE. I am using FT View SE v8.0. This is my very much first project on AB.

If the above code is write, then what i have to do extra to make it properly working.

Please Please tell me very clearly...I'll be highly thankful to you.

 

[ASF]

Can you compile the code successfully? What errors are you getting when the code runs? Have you checked your diagnostics viewer for errors?

Note that Set Sample1Req = PlcTags.Add("heater_off_alarm") does not get the PLC tag "heater_off_alarm", it only gets the HMI tag "heater_off_alarm". In my case I had created a HMI tag, which was linked to the PLC tag. If that HMI tag is in a folder, you will also need to include that, e.g. "HeaterTags\Heater_Off_Alarm"

 

[sachincool786]

I can compile the code without any error.
When i compile it, my display opens in test mode.
That is my HMI tag connected to a particular PLC tag without any folder so that is OK.

But in run time its not opening when the tag gets high in PLC.

 

[ASF]

Three things:

1. Try out the code in the development environment, see if you can make it work there first (i.e. press test display in FTView Studio). It won't actually pop up the window, but you should get an error in your status bar saying something along the lines of "Display command is ignored from the development environment". Once you get that far, you'll know your code is good.

2. If the VBA code encounters an error and doesn't have error handling, it will halt and will not restart until the SE application is shut down and opened again. In your code above, Private Sub EventTriggerTags_Change has error handling, but Public WithEvents PlcTags As TagGroup does not. Perhaps restart the client to ensure that it's executing the VBA code

3. Once you've rebooted, trigger the tag in the PLC, and then go and look through your diagnostics list for any events between when you restarted the application and after you triggered the alarm tag. The diagnostics list will hopefully at least give you an idea of what is happening when that tag is triggered.

 

[sachincool786]

THe above code is working very much fine, it is not giving me any error.

But i am trying to ask Sir is: I have written this code in VBA display of that "Heating off screen" only.

I have to trigger any event or anything else to keep cached as u said above in the thread, VBA code only run when u press a buttob, they are not cyclic.

 

[sachincool786]

????I can't make a display Exposed to VBA.????


When i execute this code from VBA triangle button, it bring me back to FT View Screens with Test mode running and without any error in the below status bar.

 

[ASF]

I have to trigger any event or anything else to keep cached as u said above in the thread, VBA code only run when u press a buttob, they are not cyclic.

You are correct. The first part of the code needs to run ONCE ONLY at the startup of the SE application to set up the tags. So you would attach this code to the "before animation start" of a SCADA display that is loaded at startup. Then the second piece of code is triggered whenever there is a change in one of the tags. So that takes care of the trigger, you don't need to press a button or anything to make it work.

But i am trying to ask Sir is: I have written this code in VBA display of that "Heating off screen" only.

That will not work. VBA code associated with a screen only executes if the screen is open. There a few different approaches to make this work - in my application I always have a navigation bar across the bottom of the screen. This display never goes away, so all my VBA code that needs to be continuously active is programmed in this display. Another way is to have a display that is opened at startup and can never be replaced, and positioned off screen so the operator can't see it.

 

[sachincool786]

Can u plz plz plz send me he backup of application FT View >=6.0

 

[ASF]

No I can't, it's the full SCADA application for an entire factory, I am not at liberty to post it online.

 

[sachincool786]

Plz there would be any way by which u can send me the backup.
I mean that part only.

Ok, atleast attach the screenshots here of that particular part:
And explain a little bit with the pics.

That would be highly appreciable.

 

[ASF]

Even if I could, the application is enormous and would make even less sense to you. I have already gone to the effort of extracting just the parts relevant to what you (and the OP) are trying to do.

Follow the advice above and report back with your results. I can't and won't do the job for you.

 

[sachincool786]

OK...
Lemme tell u my condition :
I have a Alarm banner screen on the down of every screen(/DB)... I've put a numerical display (not visible to runtime)

Now on that numerical display i have written this code, whenever i test it, I get this error (pics attached)
Please lemme know where i am wrong.

 

[sachincool786]

Public WithEvents oGroup As TagGroup

Private Sub Display_BeforeAnimationStart()
On Error Resume Next
Err.Clear
If oGroup Is Nothing Then
Set oGroup = Application.CreateTagGroup(Me.AreaName, 500)
If Err.Number Then
LogDiagnosticsMessage "Error creating TagGroup. Error: " _
& Err.Description, ftDiagSeverityError

Exit Sub
End If
oGroup.Add "System\Second"
oGroup.Add "System\Minute"
oGroup.Add "Heating_AutFF_SCADA"
oGroup.Active = True
End If

End Sub

Private Sub NumericDisplay1_change()
On Error Resume Next
Dim oTag As Tag
If Not oGroup Is Nothing Then
Set oTag = oGroup.Item("Heating_AutFF_SCADA")
Err.Clear
End If
If oTag.Value = 1 Then
ShowDisplay ("Heating_Off")
End If
End Sub


THis one is finally working, but its showing pop up again and again without checking PLC tag (Tag is low, even then pop up is displaying).

Please tell me what is wrong now

 

[ASF]

Good work, you're getting close. Take a look at what's triggering your second section of code.

"Private Sub NumericDisplay1_change()"

So basically, whenever NumericDisplay1 changes, the code will be executed.

You need to trigger it when your tag changes state.

In post #16 of this thread, you declared:
"Public WithEvents PlcTags As TagGroup"
and then had another sub:
"Private Sub EventTriggerTags_Change(ByVal TagNames As IGOMStringList)"

The first declaration sets up a Tag Group called "PlcTags", and monitors them for changes.

But then your sub is looking for a Tag Group called "EventTriggerTags" to change; when it does then it will execute the code below. That will never happen though, because you never set up a Tag Group called "EventTriggerTags".

You will need to set up the tag group and add the tag in the BeforeAnimationStart section though, because you can't monitor a tag for a change in value if you haven't told the VBA which tag to look at first.