PixxUI.PISummariesDataObs

Description

Query for PI summaries data over an evenly spaced interval given by a number of observations.

Parameters

App As Application

Tags() As String

Smry As ArchiveSummaryTypeConstants

Servers() As String

StartDate As Variant

CalcBasis As CalculationBasisConstants

Users() As String

StopDate As Variant

GoodOnly As Boolean

Passwords() As String

Obs As Long

 

Return Value

Result As Spreadsheet

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 w As Workbook

 

On Error Resume Next

 

Set w = PiConn.PISummariesDataObs(Application,aServers,aUsers,aPwds,aTags,"y","t",240,asAverage,cbTimeWeightedContinuous,True,False)

 

If Err.Number <> 0 Then

MsgBox Err.Description

Exit Sub

End If

 

w.Visible = True

 

End Sub