Echelon i.LON SmartServer 2.0 User Manual
Page 398
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