Could you please post this code in VB.Net format? It would be greatly appreciated. Also, I need help with writing code in VB.Net to display values of a point starting from when another value equals zero until that value equals zero again. In other words, I am trying to view "batch data" without setting up PIBatch. We have a cycle time counter so when the counter goes to zero, that is the end of the batch. I'd then like to view data such as max, min, etc for various points. If anyone can help, I'd be extremely thankful.

- creation of SDK is (most of time) useful one time by application, so keep it outside of ConnectToPI method
- imbricated try catch is useless in this case

to my mind:

[/size]



Disconnect is only useful to properly exit any custom application (flush connections)

Here's my code I'm using in VB Express 2010.

(have reference to PISDK 1.3 Type Library)


Module Module1

Sub Main()


If ConnectToPI Then
Dim PITag As PISDK.PIPoint
PITag = PIServer.PIPoints("SINUSOID")

' Retrieve the current value (Snapshot) and timestamp
' Assign Value to PISDK.PIValue variable
Dim PITagVal As PISDK.PIValue
PITagVal = PITag.Data.Snapshot

' Write the value out to Immediate window
Debug.Print(PITagVal.TimeStamp.LocalDate & " " & PITagVal.Value)

' Retireve value from 1 day ago and write out to Immediate window
PITagVal = PITag.Data.ArcValue("*-1d", PISDK.RetrievalTypeConstants.rtAuto)

Debug.Print(PITagVal.TimeStamp.LocalDate & " " & PITagVal.Value)

' Retire a PI tag Point Attribute, in this case the descriptor
Debug.Print(PITag.PointAttributes("descriptor").Value)

PITagVal = Nothing
PITag = Nothing
Else
' Handle bad connection...
End If


End Sub


Private PIServer As PISDK.Server

Private Const PIServerName As String = "en1mspi003"
Private Const PIUserName As String = "piadmin"
Private Const PIUserPass As String = ""

Public Function ConnectToPI() As Boolean

Dim bRes As Boolean : bRes = False

' Check to ensure object is created
If TypeName(PIServer) = "Nothing" Then
On Error Resume Next
Err.Clear()
PIServer = PISDK.Server(PIServerName)
If Err.Number <> 0 Then
bRes = False
Exit Function
End If
On Error GoTo 0
End If

' Check connection status
If Not PIServer.Connected Then
On Error Resume Next
Err.Clear()
Call PIServer.Open("UID=" & PIUserName & ";PWD=" & PIUserPass)
If Err.Number <> 0 Then
bRes = False
Exit Function
End If
On Error GoTo 0
End If

' Final check of connection status - this is returned to calling method
bRes = PIServer.Connected
ConnectToPI = bRes

End Function

End Module

I do some class for this purpose Periodically checking PI server connection with C#

You are welcome, RJK Solutions!
I just a novice to the PI OSIsoft system (but i have 4 years expirience in .NET, C++, embedded and multidisciplinary environment) and i all the time dig out some usefully information for me. So, for myself (it is a easy way to remember things) and maybe for other .NET developers i open a little blog. I try update it every time, i find some little solution for some little PI programming task.
Thanks