search

Echelon i.LON SmartServer Technical Information Page 383

  • Download
  • Add to my manuals
  • Print
  • Page
    / 443
  • Table of contents
  • BOOKMARKS
    • Rated. / 5. Based on customer reviews
Page view 382
i.LON SmartServer 2.0 Programmer’s Reference
21-31
Next
Dim ItemWriteDpValues As ILON_SmartServer.Item_Coll = SmartServer._iLON.Write(ItemDataColl)
'check that there are obejcts in the ItemWriteDpValues
If (ItemWriteDpValues.UCPTfaultCount > 0) Then
Console.Out.WriteLine("you've got errors")
Else
Console.Out.WriteLine(vbNewLine + "Reading Updated Data Point Values" + vbNewLine)
For j As Integer = 0 To ItemWriteDpValues.Item.Length - 1
' we allocate a Item-Data array object to read DP values, which should all be 100.0 1
Dim dpItems As iLON_SmartServer.Dp_Data = ItemWriteDpValues.Item(j)
Console.Out.WriteLine(dpItems.UCPTname + " = " + dpItems.UCPTvalue(0).Value)
Next
End If
End If
Console.ReadLine()
Finally
SmartServer.CloseBindingToSmartServer()
End Try
End Sub
End Module
21.2.2
Creating and Reading a Data Logger in Visual Basic. NET
The following VB console example creates a data logger and then reads the data recorded by it. You
can execute this code after you have referenced and inherited from the SmartServer WSDL as
described in
section 20.1, and instantiated and initialized the Web service client as described in section
20.2.
21.2.2.1 Creating a Data Logger
This VB console example creates a new data logger from an existing uninstantiated (hidden) data
logger on the SmartServer, specifies the type, format, and size of the new data logger, and then
specifies that the data logger record both of the SmartServer’s digital relay outputs every minute (the
Net/LON/iLON App/Digital Output 1/nviClaValue_1 and Net/LON/iLON App/Digital Output
2/nviClaValue_2 data points).
For more information on the data logger properties set in this example, see
section 5.3.2, Using the
Get Function on a Data Logger.
Module DataLogModule
Private Sub PrintGetError(ByVal ItemCfgColl As iLON_SmartServer.Item_CfgColl)
' print out error and exit
Console.Out.WriteLine("An error occurred:")
For j As Integer = 0 To ItemCfgColl.Item.Length - 1
If ItemCfgColl.Item(j).fault IsNot Nothing Then
Console.Out.WriteLine((("Item: " & ItemCfgColl.Item(j).UCPTname & ", fault code: ") +
ItemCfgColl.Item(j).fault.faultcode.Value & ", fault string: ") +
ItemCfgColl.Item(j).fault.faultstring)
End If
Next
End Sub
Public Sub Main()
Page view 382
1 2 ... 378 379 380 381 382 383 384 385 386 387 388 ... 442 443

Comments to this Manuals

No comments
  • Hale Wyre Storm Daiber Global Direct Ideal-Zanussi
  • Gillette Men's shavers Fisher-Price Toy vehicles Allied Telesis Network switches Black Box AV extenders HoMedics Vacuum cleaners
  • Sony MPK-WE Casio EX-TR15 Brother SC-2000USB Yamaha Personal Studio ST7 RIDGID R861150
  • Sony ECM-HGZ1 User Manual LG LV880 User Manual Electrolux EWS1477FDW User Manual Sony Xperia Ear XEA10 User Manual Sony BDP-S5000ES User Manual