115 lines
2.4 KiB
VB.net
115 lines
2.4 KiB
VB.net
|
Public Class DeviceListInfo
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 设备类型
|
|||
|
|
''' </summary>
|
|||
|
|
Public Property DevType As String
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 设备地址
|
|||
|
|
''' </summary>
|
|||
|
|
Public Property DevAddr As String
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 设备状态
|
|||
|
|
''' </summary>
|
|||
|
|
Public Property DevState As String
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 设备名称
|
|||
|
|
''' </summary>
|
|||
|
|
Public Property DevName As String
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 设备控制计数
|
|||
|
|
''' </summary>
|
|||
|
|
Public Property DevControlCount As Integer
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 设备控制信息
|
|||
|
|
''' </summary>
|
|||
|
|
Public Property DevControlInfo As String
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 设备测试成功率
|
|||
|
|
''' </summary>
|
|||
|
|
Public Property DevTest As String
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 初始化
|
|||
|
|
''' </summary>
|
|||
|
|
Sub New()
|
|||
|
|
DevType = ""
|
|||
|
|
Me.DevAddr = ""
|
|||
|
|
DevName = GetDevName(DevType, DevAddr)
|
|||
|
|
DevState = $"未知"
|
|||
|
|
DevControlCount = 0
|
|||
|
|
DevControlInfo = ""
|
|||
|
|
DevTest = ""
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 初始化
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="devType">设备类型</param>
|
|||
|
|
''' <param name="devAddr">设备地址</param>
|
|||
|
|
Sub New(devType As String, devAddr As String)
|
|||
|
|
Me.DevType = devType
|
|||
|
|
Me.DevAddr = devAddr
|
|||
|
|
DevName = GetDevName(devType, devAddr)
|
|||
|
|
DevState = $"未知"
|
|||
|
|
DevControlCount = 0
|
|||
|
|
DevControlInfo = ""
|
|||
|
|
DevTest = ""
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 初始化
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="devType">设备类型</param>
|
|||
|
|
''' <param name="devAddr">设备地址</param>
|
|||
|
|
''' <param name="devState">设备状态</param>
|
|||
|
|
Sub New(devType As String, devAddr As String, devState As String)
|
|||
|
|
Me.DevType = devType
|
|||
|
|
Me.DevAddr = devAddr
|
|||
|
|
DevName = GetDevName(devType, devAddr)
|
|||
|
|
Me.DevState = devState
|
|||
|
|
DevControlCount = 0
|
|||
|
|
DevControlInfo = ""
|
|||
|
|
DevTest = ""
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 获取设备名称
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="devType">设备类型</param>
|
|||
|
|
''' <param name="devAddr">设备地址</param>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Shared Function GetDevName(devType As String, devAddr As String) As String
|
|||
|
|
Return $"{devType}_{devAddr}"
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 复位状态
|
|||
|
|
''' </summary>
|
|||
|
|
Public Sub ResetState()
|
|||
|
|
DevState = $"未知"
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Class
|