初始化

2025-12-11 10:59:57 +08:00
commit 5bae5bc88c
309 changed files with 65739 additions and 0 deletions
--- a/RCU-10/RCU/DeviceListInfo.vb
+++ b/RCU-10/RCU/DeviceListInfo.vb
@@ -0,0 +1,114 @@
+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