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