Enable Historic Logging on a Point

[Anonymous user]

📖 Home  Back  
The historic settings on a point in the ClearSCADA database make up what is called an aggregate. The aggregate is a class in the database structure (or schema) that defines some properties (and methods) that may be available on multiple objects. For historic settings, the aggregate is named "Historic", while for output point control options the name of the aggregate is "Control". The database schema on the server can be used to find names of aggregates and available properties and methods.

Most aggregates are configured with an Enable property that enables this aggregate functionality on the point object. Once enabled, the aggregates properties can be configured in much the same way as other properties of the object.

The code below shows an example of how an internal analog point in the database named "Test" can have historic logging enabled and the historic settings configured as required.

Dim Svr As ScxV6ServerDim Obj As ScxV6ObjectDim His As ScxV6AggregateSet Svr = New ScxV6Server'substitute your server name, username and passwordSvr.Connect "MAIN", "user", "pwd"Set Obj = Svr.FindObject("Test")' get the historic aggregateSet His = Obj.Aggregate("Historic")' Enable the historic optionHis.Enable = True' Can then set propertiesHis.Property("Compress") = TrueHis.Property("MinimumTime") = 300His.Property("TrendInterval") = "1H"His.Property("TrendOffset") = "M-55M"

There are various ways that data can be written to properties. The code could have been written in various ways as shown below. Note the differences in the way that the aggregate interface is referenced.

Dim Svr As ScxV6ServerDim Obj As ScxV6ObjectDim His As ScxV6AggregateSet Svr = New ScxV6Server'substitute your server name, username and passwordSvr.Connect "MAIN", "user", "pwd"Set Obj = Svr.FindObject("Test")' Enable the historic optionobj.Aggregate("Historic").Enable = True' Can then set propertiesobj.Aggregate("Historic").Property("Compress") = Trueobj.Aggregate("Historic").Property("MinimumTime") = 300obj.Aggregate("Historic").Property("TrendInterval") = "1H"obj.Aggregate("Historic").Property("TrendOffset") = "M-55M"

Go: Home Back