Echelon i.LON SmartServer Technical Information Page 341

  • Download
  • Add to my manuals
  • Print
  • Page
    / 443
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 340
i.LON SmartServer 2.0 Programmer’s Reference
20-19
20.3.3
Reading and Writing Data Point Values in Visual Basic .NET 3.5
The following Visual Basic .NET 3.5 example reads the value of the Net/LON/iLON App/Digital
Output 1/nviClaValue_1 data point on the SmartServer, and then writes a value of “100.0 1” to it. This
SNVT_switch data point is one of the relay outputs on the SmartServer. You can execute this code
after you have completed section 20.1.1,
Referencing and Inheriting from the WSDL Using .NET 3.5
Framework, and section 20.2.3,
Instantiating the Web Service Client in Visual Basic .NET 3.5.
Module Module1
Sub Main()
Dim SmartServer As iLON_SoapCalls = New iLON_SoapCalls
// Enter your SmartServer's IpAddress
SmartServer.BindClientToSmartServer("<SmartServer IP Address>")
Try
' -------------- READING A DATA POINT VALUE --------------
' instantiate the member object
Dim itemColl As New iLON_SmartServer.Item_Coll()
itemColl.Item = New iLON_SmartServer.Item(0) {}
itemColl.Item(0) = New iLON_SmartServer.Dp_Data()
' set the DP name
itemColl.Item(0).UCPTname = "Net/LON/iLON App/Digital Output 1/nviClaValue_1"
' set maxAge to get the updated DP value in case it has been cached for more than 10
' seconds on the Data Server (see section 4.3.4.1 for more information)
DirectCast((itemColl.Item(0)), iLON_SmartServer.Dp_Data).UCPTmaxAge = 10
DirectCast((itemColl.Item(0)), iLON_SmartServer.Dp_Data).UCPTmaxAgeSpecified = True
'call the Read Function
Dim dataColl As iLON_SmartServer.Item_DataColl = SmartServer._iLON.Read(itemColl)
If dataColl.Item Is Nothing Then
' sanity check. this should not happen
Console.Out.WriteLine("No items were returned")
ElseIf dataColl.Item(0).fault IsNot Nothing Then
' error
Console.Out.WriteLine(("An error occurred. Fault code = " +
dataColl.Item(0).fault.faultcode.Value + ". Fault text = %s.") +
dataColl.Item(0).fault.faultstring)
Else
' success
Console.Out.WriteLine("Read is successful")
Console.Out.WriteLine((DirectCast
(dataColl.Item(0), iLON_SmartServer.Dp_Data).UCPTname &
" = ") + DirectCast(dataColl.Item(0), iLON_SmartServer.Dp_Data).UCPTvalue(0).Value &
vbLf)
End If
' -------------- WRITING A DATA POINT VALUE --------------
' reset the DP priority (see section 4.3.6 for more information)
Dim itemCollInvoke As New iLON_SmartServer.Item_Coll()
itemCollInvoke.Item = New iLON_SmartServer.Item(0) {}
itemCollInvoke.Item(0) = New iLON_SmartServer.Dp_ResetPrio_Invoke()
DirectCast((itemCollInvoke.Item(0)), iLON_SmartServer.Dp_ResetPrio_Invoke).UCPTname =
"Net/LON/iLON App/Digital Output 1/nviClaValue_1"
DirectCast((itemCollInvoke.Item(0)), iLON_SmartServer.Dp_ResetPrio_Invoke).UCPTpriority = 200
DirectCast((itemCollInvoke.Item(0)), iLON_SmartServer.Dp_ResetPrio_Invoke).UCPTprioritySpecified = True
Page view 340
1 2 ... 336 337 338 339 340 341 342 343 344 345 346 ... 442 443

Comments to this Manuals

No comments