System information

Table Of Contents
i.LON SmartServer 2.0 Programmer’s Reference
21-46
ItemColl_SetReturn.xSelect = "//Item[@xsi:type=""LON_Device_Cfg""]"
Dim ItemCfgColl_SetReturn As ILON_SmartServer.Item_CfgColl = SmartServer._iLON.Get(ItemColl_SetReturn)
If (ItemCfgColl_SetReturn.UCPTfaultCount > 0) Then
Console.Out.WriteLine("you've got Get errors")
Else
For i As Integer = 0 To ItemCfgColl_SetReturn.Item.Length - 1
Console.Out.WriteLine(vbNewLine + "*INSTALLATION STATUS CHECK*" + vbNewLine +
vbNewLine)
Dim deviceItemsCheck As iLON_SmartServer.LON_Device_Cfg =
ItemCfgColl_SetReturn.Item(i)
Console.Out.WriteLine(deviceItemsCheck.UCPTname & vbNewLine +
"COMMISSION REQUEST STATUS = " + deviceItemsCheck.Command(0).UCPTstatus.Value +
vbNewLine +
"ONLINE REQUEST STATUS = " + deviceItemsCheck.Command(1).UCPTstatus.Value + vbNewLine
+ "RESET REQUEST STATUS = " + deviceItemsCheck.Command(2).UCPTstatus.Value +
vbNewLine)
Do Until ((deviceItemsCheck.Command(0).UCPTstatus.Value = "STATUS_DONE") And
(deviceItemsCheck.Command(1).UCPTstatus.Value = "STATUS_DONE") And
(deviceItemsCheck.Command(2).UCPTstatus.Value = "STATUS_DONE"))
Threading.Thread.Sleep(1500)
ItemCfgColl_SetReturn = SmartServer._iLON.Get(ItemColl_SetReturn)
For j As Integer = 0 To ItemCfgColl_SetReturn.Item.Length – 1
Console.Out.WriteLine(vbNewLine + "*INSTALLATION STATUS CHECK*" + vbNewLine)
deviceItemsCheck = ItemCfgColl_SetReturn.Item(j)
Console.Out.WriteLine(deviceItemsCheck.UCPTname & vbNewLine +
"COMMISSION REQUEST STATUS = " + deviceItemsCheck.Command(0).UCPTstatus.Value
+ vbNewLine +
"ONLINE REQUEST STATUS = " + deviceItemsCheck.Command(1).UCPTstatus.Value +
vbNewLine +
"RESET REQUEST STATUS = " + deviceItemsCheck.Command(2).UCPTstatus.Value +
vbNewLine)
Next
Loop
Console.Out.WriteLine(vbNewLine + "*DEVICE INSTALLATION COMPLETE*" + vbNewLine +
vbNewLine + deviceItemsCheck.UCPTname & vbNewLine + vbNewLine +
"COMMISSION REQUEST STATUS = " + deviceItemsCheck.Command(0).UCPTstatus.Value +
vbNewLine +
"ONLINE REQUEST STATUS = " + deviceItemsCheck.Command(1).UCPTstatus.Value +
vbNewLine +
"RESET REQUEST STATUS = " + deviceItemsCheck.Command(2).UCPTstatus.Value +
vbNewLine)
Next
End If
Console.ReadLine()
Finally
SmartServer.CloseBindingToSmartServer()
End Try
End Sub
End Module