PixxUI.PIInterpolatedDataObs
Description
Query for PI interpolated data using a set number of observations. Note that you must have version 1.3.1 or greater of PI SDK in order to use this option.
Parameters
App As Application | Tags() As String | FilterExpression As String |
Servers() As String | StartDate As Variant | Show As FilteredViewConstants |
Users() As String | StopDate As Variant | GoodOnly As Boolean |
Passwords() As String | Obs As Long | MergeResults As Boolean |
SVB Example
' References required
' PixxAddin 1.0 Type Library (1.0)
' PISDK 1.3 Type Library (1.0)
' PISDKCommon 1.0 Type Library (1.0)
Option Base 1
Const g_nTags = 5
Sub Main
Dim PiConn As PixxUI
Set PiConn = AddIns.AddIn("PixxAddin.PixxUI.1")
Dim aServers(g_nTags) As String
Dim aUsers(g_nTags) As String
Dim aPwds(g_nTags) As String
Dim nItem As Integer
For nItem = 1 To g_nTags
aServers(nItem) = "PISERVER"
aUsers(nItem) = "piadmin"
aPwds(nItem) = ""
Next nItem
Dim aTags(g_nTags) As String
aTags(1) = "BA:ACTIVE.1"
aTags(2) = "BA:TEMP.1"
aTags(3) = "BA:CONC.1"
aTags(4) = "BA:LEVEL.1"
aTags(5) = "BA:PHASE.1"
Dim s As Spreadsheet
On Error Resume Next
Set s = PiConn.PIInterpolatedDataObs(Application,aServers,aUsers,aPwds,aTags,"y","t",24,"",btAuto,True,True)
If Err.Number <> 0 Then
MsgBox Err.Description
Exit Sub
End If
s.Visible = True
End Sub