PIStateSets Class

Public NotInheritable Class PIStateSets
	Implements IEnumerable(Of AFEnumerationSet), IEnumerable, 
	IAFList, IList, ICollection, IList(Of AFEnumerationSet), 
	ICollection(Of AFEnumerationSet)

Dim instance As PIStateSets

public ref class PIStateSets sealed : IEnumerable<AFEnumerationSet^>, 
	IEnumerable, IAFList, IList, ICollection, IList<AFEnumerationSet^>, 
	ICollection<AFEnumerationSet^>

[<SealedAttribute>]
type PIStateSets =  
    class
        interface IEnumerable<AFEnumerationSet>
        interface IEnumerable
        interface IAFList
        interface IList
        interface ICollection
        interface IList<AFEnumerationSet>
        interface ICollection<AFEnumerationSet>
    end

' Get the PIServers collection for the current user and default PIServer.
myPIServer = New PIServers().DefaultPIServer

' Create a new state set
Dim myColorsSet As AFEnumerationSet = myPIServer.StateSets.Add("myColors")

' Add values to the new set
myColorsSet.Add("Red", 0)
myColorsSet.Add("Blue", 1)
myColorsSet.Add("Green", 2)

' Commit the new state set to the PI Data Archive
myColorsSet.CheckIn()

' Print out set values
PrintStateSetValues(myColorsSet)

' Create a new PI Point with this digital state set
Dim pointAttributes As Dictionary(Of String, Object) = New Dictionary(Of String, Object)
pointAttributes(PICommonPointAttributes.PointType) = PIPointType.Digital
pointAttributes(PICommonPointAttributes.DigitalSetName) = "myColors"

Dim myColorPoint As PIPoint = myPIServer.CreatePIPoint("myColorPoint", pointAttributes)

' Write three color values to the points using different techniques
Dim redValue As AFValue = New AFValue(myColorsSet("Red"), New AFTime("t"))
myColorPoint.UpdateValue(redValue, AFUpdateOption.Insert)

Dim blueValue As AFValue = New AFValue(New AFEnumerationValue("Blue", 1), New AFTime("t+5s"))
myColorPoint.UpdateValue(blueValue, AFUpdateOption.Insert)

Dim greenValue As AFValue = New AFValue(2, New AFTime("t+10s"))
myColorPoint.UpdateValue(greenValue, AFUpdateOption.Insert)

' Write system state set values using different techniques
Dim ioTimeoutValue As AFValue = New AFValue(
    AFEnumerationSet.GetBySystemStateCode(AFSystemStateCode.IOTimeout),
    New AFTime("t+15s"))

myColorPoint.UpdateValue(ioTimeoutValue, AFUpdateOption.Insert)

Dim sampleBadValue As AFValue = New AFValue(
    AFEnumerationSet.SystemStateSet("Sample Bad"),
    New AFTime("t+20s"))

myColorPoint.UpdateValue(sampleBadValue, AFUpdateOption.Insert)

' Use system state specific to this PI Data Archive
Dim noLabDataValue As AFValue = New AFValue(
    myPIServer.StateSets("SYSTEM")("No Lab Data"),
    New AFTime("t+25s"))

myColorPoint.UpdateValue(noLabDataValue, AFUpdateOption.Insert)

' Read the values
Dim colorValues As AFValues = myColorPoint.RecordedValues(
    New AFTimeRange("t", "t+25s"), AFBoundaryType.Inside, Nothing, False)

' Print them out
For Each colorValue As AFValue In colorValues
    Dim setValue As AFEnumerationValue = TryCast(colorValue.Value, AFEnumerationValue)

    If Not setValue Is Nothing Then
        Console.WriteLine("Set Name: {0} Value Name: {1} Value Code: {2}",
            setValue.EnumerationSet.Name, setValue.Name, setValue.Value)
    End If

Next

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.