Echelon i.LON SmartServer 2.0 Manual de usuario Pagina 398

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 443
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 397
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
Vista de pagina 397
1 2 ... 393 394 395 396 397 398 399 400 401 402 403 ... 442 443

Comentarios a estos manuales

Sin comentarios