Imports System.ComponentModel Imports System.IO Imports System.Net Imports BLV_Studio.EnumExtend Imports BLV_Studio.GridModel.DeviceEventModel Imports FlexCell Imports Newtonsoft.Json Public Class TableInteraction #Region "全局变量" Public _isVisible_Attributes As Boolean = True Public _isVisible_Port As Boolean = True Public _isVisible_Action As Boolean = True Public _isVisible_Scenes As Boolean = True Public _isVisible_Conditions As Boolean = True ''' ''' RCU设备名 ''' Public _RcuModelName As String = "" Public Property AliasEncoding As Text.Encoding ''' 刷新锁计数 Private _autoRedraw As Integer ''' 进度条 控件 Public _tsp As ToolStripProgressBar ''' 表格控件 Public _grd As FlexCell.Grid ''' 条件文件名 Public ConditionFileName As String ''' ''' 设备对象基类信息 ''' ''' Public Property BasicClasses As DeviceObjectClasses ''' 基类文件名 Public BasicClassFilename As String ''' ''' 条件 ''' ''' Public Property Condictions As ConfigActionConcitons Public ConfigInfo As ConfigInfoStuct ''' ''' 主机名 ''' ''' Property hostname As String ''' ''' 设备键值对 设备名-设备信息集合 主机=主机名 外设=外设名+播马地址 ''' Public Dic_Devicemodel As Dictionary(Of String， DeviceModel） ''' ''' 设备动作信息 设备名-动作信息集合 ''' Public Dic_ActionConfiguration As List(Of TableRowTag) Private _Tip As String = "" ''' $"{ Chr(TableColSwitchKeyDate.TurnOn)} 表示开{vbLf }{ Chr(TableColSwitchKeyDate.TurnDrown)} 表示关{vbLf }数字 表示亮度百分比{vbCrLf }" '"表示先关后开{vbLf }{ Chr(TableColSwitchKeyDate.OnTodrowm)} 表示先开后关{vbLf }{ Chr(TableColSwitchKeyDate.TurnOn)} 表示只开不关{vbLf }{ Chr(TableColSwitchKeyDate.TurnDrown)} 表示只关不开{vbLf }数字 表示亮度百分比{vbCrLf }" ''' ''' 场景号 累加 ''' Private _SceneID As Integer = 1 ''' 文件是否有修改，如果有修改，则在关闭时提示保存 Public _isCellChanged As Boolean = True Public _actionIndex As UShort ''' ''' 列的开始加载位置 ''' Private _ColumnStartLoad As Integer = TableColNumber.Max '' '' 服务集合！ '' Private _ServerAction As Dictionary(Of String， Integer) ''' ''' 服务插入行起始位 ''' Private _ServerInsertRows As Integer Public ColumnAnothername As Dictionary(Of String， String) #End Region #Region "枚举" ''' ''' 固定行 ''' Enum TableRowNumber ''' ''' 设备名 ''' DeviceName = 1 ''' ''' 功能名 ''' FunctionName FunctionAnotherName ''' ''' 功能下属节点ID ''' FunctionChildNodeID ''' ''' 功能下属节点别名 ''' FunctionChildNodeAnother ''' ''' 条件列名 ''' ConditionalColumnName Max End Enum ''' ''' 固定列 ''' Enum TableColNumber ''' ''' 行号 ''' RowID = 0 DeviceName choose SceneID KeyVal KeyName ' 'DeviceType SceneAttribute ServerAttribute InsertColumn Max End Enum ''' ''' 列数据的数据类型 ''' Enum TableColDateType ''' ''' 表列-音乐数据 ''' Music ''' ''' 表列-开关数据 ''' SwitchKey ''' ''' 表列-服务添加 ''' ServiceCondition End Enum ''' ''' ''' Enum TableColSwitchKeyDate ''' ''' 按键开 ''' TurnOn = -24116 ''' ''' 按键关 ''' TurnDrown = -23592 ''' ''' 表示先开后关 ''' 'OnTodrowm = -24080 ''' ''' 代表先关后开 ''' 'drowmToOn = -24075 End Enum Enum tabRange devname fr lr fc lc End Enum #End Region #Region "类 Body" Public Sub New(ByRef tsp As ToolStripProgressBar) CopyActionData = New Dictionary(Of Integer, String） _actionIndex = 1 _tsp = tsp Dic_Devicemodel = New Dictionary(Of String, DeviceModel) Dic_ActionConfiguration = New List(Of TableRowTag) _ServerAction = New Dictionary(Of String, Integer) ColumnAnothername = New Dictionary(Of String, String) AliasEncoding = Text.Encoding.GetEncoding("GBK") End Sub #End Region #Region "表格设置" ''' ''’ ''' ''' Public Property Grid As Grid Get Return _grd End Get Set(value As Grid) _grd = value grdRemoveHandler() grdAddHandler() End Set End Property Public Sub grdRemoveHandler() RemoveHandler _grd.OwnerDrawCell, AddressOf Grid_OwnerDrawCell RemoveHandler _grd.Click, AddressOf Grid_Click RemoveHandler _grd.DoubleClick, AddressOf Grid_DoubleClick RemoveHandler _grd.ComboDropDown, AddressOf Grid_ComboDropDown 'RemoveHandler _grd.ComboClick, AddressOf Grid_ComboClick RemoveHandler _grd.CellChange, AddressOf Grid_CellChange 'RemoveHandler _grd.SelChange, AddressOf Grid_SelChange 'RemoveHandler _grd.KeyDown, AddressOf Grid_KeyDown 'RemoveHandler _grd.KeyUp, AddressOf Grid_KeyUp 'RemoveHandler _grd.MouseMove, AddressOf Grid_MouseMove 'RemoveHandler _grd.MouseWheel, AddressOf Grid_MouseWheel 'RemoveHandler _grd.LeaveCell, AddressOf Grid_LeaveCell 'RemoveHandler _grd.MouseDown, AddressOf Grid_MouseDown 'RemoveHandler _grd.MouseUp, AddressOf Grid_MouseUp End Sub Public Sub grdAddHandler() 'AddHandler _grd.MouseWheel, AddressOf Grid_MouseWheel 'AddHandler _grd.MouseMove, AddressOf Grid_MouseMove 'AddHandler _grd.KeyUp, AddressOf Grid_KeyUp 'AddHandler _grd.KeyDown, AddressOf Grid_KeyDown 'AddHandler _grd.SelChange, AddressOf Grid_SelChange AddHandler _grd.CellChange, AddressOf Grid_CellChange AddHandler _grd.ComboDropDown, AddressOf Grid_ComboDropDown 'AddHandler _grd.ComboClick, AddressOf Grid_ComboClick AddHandler _grd.Click, AddressOf Grid_Click AddHandler _grd.DoubleClick, AddressOf Grid_DoubleClick AddHandler _grd.OwnerDrawCell, AddressOf Grid_OwnerDrawCell 'AddHandler _grd.LeaveCell, AddressOf Grid_LeaveCell 'AddHandler _grd.MouseDown, AddressOf Grid_MouseDown 'AddHandler _grd.MouseUp, AddressOf Grid_MouseUp End Sub Private Sub Grid_OwnerDrawCell(Sender As Object, e As Grid.OwnerDrawCellEventArgs) 'Console.WriteLine($"Grid_OwnerDrawCell_{e.Row}_{ e.Col}_{_grd.Cell(e.Row, e.Col).Text }") If e.Row < TableRowNumber.Max OrElse e.Col < TableColNumber.InsertColumn Then 'Dim bColor As New SolidBrush(_grd.Cell(e.Row, e.Col).ForeColor) 'With _grd.Cell(e.Row, e.Col) ' Dim stringFormat = New StringFormat() ' stringFormat.Alignment = StringAlignment.Center ' Dim ft = New Font(_grd.DefaultFont.Name, .FontSize) ' Console.WriteLine($"Grid_OwnerDrawCell__【{ .Text}】color：【{ .ForeColor}】 Left：【{e.Bounds.Left}】 top：【{e.Bounds.Top}】Height：【{e.Bounds.Height}】Width：【{e.Bounds.Width}】 ppp:【{e.Graphics.MeasureString(.Text, .Font).Height}】") ' Dim rect As RectangleF = New RectangleF(e.Bounds.Left, e.Bounds.Top + (e.Bounds.Height - e.Graphics.MeasureString(.Text, .Font).Height) / 2 + 2, e.Bounds.Width, e.Bounds.Height) ' e.Graphics.DrawString(.Text, ft, bColor, rect, stringFormat) 'End With Return End If If Dic_ActionConfiguration.Count <= (e.Row - TableRowNumber.Max) Then Return End If '获取显示内容 'Dim nodename As String = _grd.Cell(TableRowNumber.FunctionName, e.Col).Text Dim celltext As String = _grd.Cell(e.Row, e.Col).Text.Trim Dim rowtag As TableRowTag = Dic_ActionConfiguration.Item(e.Row - TableRowNumber.Max) Dim Isflig As Boolean = False '画树线 Dim pen As New System.Drawing.Pen(Color.CornflowerBlue, 1) If Not String.IsNullOrEmpty(_grd.Cell(e.Row, e.Col).Text) Then Console.WriteLine(_grd.Cell(e.Row, e.Col).Text) End If Try pen.DashStyle = Drawing2D.DashStyle.Solid '判断内容 If rowtag.G_DicRow.ContainsKey(e.Col) Then Dim cdrstr As String = rowtag.G_DicRow.Item(e.Col) Dim g_devname As New CtabRange(_grd, TableRowNumber.FunctionName, e.Col) Dim ctstr As String = EstimateFilag(cdrstr, g_devname.devname) Dim nbuf() As String = cdrstr.Split(vbLf) If Not String.IsNullOrEmpty(celltext) AndAlso celltext.Equals(ctstr) AndAlso Not (cdrstr.Substring(0, 1).Equals("0") AndAlso nbuf.Length = 1) Then '+/- For i = 0 To 8 e.Graphics.DrawLine(Pens.Green, e.Bounds.Left, e.Bounds.Top + i, e.Bounds.Left + i, e.Bounds.Top) Next End If End If '文字 Dim bColor As New SolidBrush(_grd.Cell(e.Row, e.Col).ForeColor) With _grd.Cell(e.Row, e.Col) Dim stringFormat = New StringFormat() stringFormat.Alignment = StringAlignment.Center Dim ft = New Font(_grd.DefaultFont.Name, 8.2) ' Console.WriteLine($"Grid_OwnerDrawCell__【{ .Text}】color：【{ .ForeColor}】 Left：【{e.Bounds.Left}】 top：【{e.Bounds.Top}】Height：【{e.Bounds.Height}】Width：【{e.Bounds.Width}】 ppp:【{e.Graphics.MeasureString(.Text, .Font).Height}】") Dim rect As RectangleF = New RectangleF(e.Bounds.Left, e.Bounds.Top + (e.Bounds.Height - e.Graphics.MeasureString(.Text, .Font).Height) / 2 + 2, e.Bounds.Width, e.Bounds.Height) e.Graphics.DrawString(.Text, ft, bColor, rect, stringFormat) End With Catch ex As Exception End Try e.Handled = True End Sub Public Function EstimateFilag(cellstr As String, nodename As String) As String If String.IsNullOrEmpty(cellstr) OrElse String.IsNullOrEmpty(nodename) Then Return String.Empty Dim tbuf() As String = cellstr.Split(vbLf) Dim cbuf() As String = tbuf(0).Split(",") If cbuf.Length < 2 Then Return String.Empty Dim buf() As String = cbuf(cbuf.Length - 1).Split("*") Dim result As String = String.Empty Select Case nodename Case "RKEY" result = cellstr Case "CLED_FRESHAIR" result = cellstr Case "CLEDFLOORHEAT" result = cellstr Case "485FloorHeat"， "485FreshAir" If buf.Length > 3 Then cbuf = buf(3).Split(" ") result = $"{cbuf(cbuf.Length - 1)}" End If 'Case 'result = $"{buf(3)}" Case "485MUSIC" result = cellstr 'Case ' result = $"{buf(3)}" Case "INFRARED_FORWARD" If buf.Length = 3 Then cbuf = buf(2).Split(" ") result = $"{cbuf(cbuf.Length - 1)}" ElseIf buf.Length > 3 Then cbuf = buf(2).Split(" ") result = $"{cbuf(cbuf.Length - 1)}" cbuf = buf(3).Split(" ") 'result = $"{cbuf(cbuf.Length - 1)}" result = $"{result}:{cbuf(cbuf.Length - 1)}" End If Case "RELAY", "PB_RELAY_DEVICE" If buf.Length > 2 Then cbuf = buf(2).Split(" ") result = $"{cbuf(cbuf.Length - 1)}" If result.Equals("开") Then result = Chr(TableColSwitchKeyDate.TurnOn).ToString() ElseIf result.Equals("关") Then result = Chr(TableColSwitchKeyDate.TurnDrown).ToString() End If End If 'If buf.Length > 2 Then ' cbuf = buf(2).Split(" ") ' result = $"{cbuf(cbuf.Length - 1)}" ' If result.Equals("80") Then ' result = Chr(TableColSwitchKeyDate.TurnOn).ToString() ' ElseIf result.Equals("0") Then ' result = Chr(TableColSwitchKeyDate.TurnDrown).ToString() ' End If 'End If Case "PB_LINE_CONTROL", "PB_STRIP_DEVICE", "PB_LED_DEVICE" result = cellstr 'If buf.Length > 3 AndAlso ((tbuf(0).Contains("PB灯带亮度控制")) OrElse (tbuf(0).Contains("控制灯光"))) Then ' cbuf = buf(3).Split(" ") ' result = $"{cbuf(cbuf.Length - 1)}" ' If result.Equals("80") Then ' result = Chr(TableColSwitchKeyDate.TurnOn).ToString() ' ElseIf result.Equals("0") Then ' result = Chr(TableColSwitchKeyDate.TurnDrown).ToString() ' End If 'End If Case "Dimming" result = cellstr If buf.Length > 2 AndAlso cellstr.Contains("Control lighting") Then cbuf = buf(3).Split(" ") result = $"{cbuf(cbuf.Length - 1)}" If result.Equals("80") Then result = Chr(TableColSwitchKeyDate.TurnOn).ToString() ElseIf result.Equals("0") Then result = Chr(TableColSwitchKeyDate.TurnDrown).ToString() End If End If Case "DO", "LIGHT"， "DRY_CURTAIN", "RS485_Curtain", "CURTAIN" If buf.Length > 2 Then cbuf = buf(2).Split(" ") result = $"{cbuf(cbuf.Length - 1)}" End If Case "RS485_Curtain" result = cellstr If buf.Length = 3 Then cbuf = buf(2).Split(" ") result = $"{cbuf(cbuf.Length - 1)}" End If Case "MUSIC" result = cellstr Case "DRY_NoCard" result = cellstr Case "HOPO_Curtain" result = cellstr Case "Dev_ColorTemp" result = cellstr Case "BLEMUSIC" result = cellstr Case "Carbon_Device", "Scene_Restore" result = cellstr 'Case ' result = $"{buf(2)}" 'Case ' result = $"{buf(2)}" Case "Temp" If buf.Length > 5 Then 'cbuf = buf(3).Split(" ") 'result = $"{cbuf(cbuf.Length - 1)}" cbuf = buf(4).Split(" ") result = $"{cbuf(cbuf.Length - 1)}" cbuf = buf(5).Split(" ") result = $"{result}{cbuf(cbuf.Length - 1)}" End If Case Else End Select Return result End Function Public Sub LoadTheHostTable(model As DeviceModel) '新主机项目 清空设备列表 Dic_Devicemodel.Clear() Dic_ActionConfiguration.Clear() _ServerAction.Clear() ColumnAnothername.Clear() '记录主机名称 hostname = model.Name _ServerInsertRows = 0 _SceneID = 1 _ColumnStartLoad = TableColNumber.Max - 1 '加载表头 initGrid1() '加载设备 '将主机存入设备列表 Dic_Devicemodel.Add(model.Name, model) 'ShowRelay(model) ShowRelay_Test(model) SpecifySetting(model.Name, "") End Sub ''' ''' 表头初始化 ''' Public Sub initGrid1() LockGridAutoRedraw() If Not IsNothing(oldColDisplayDic) Then oldColDisplayDic.Clear() End If _grd.NewFile() _grd.DefaultRowHeight = 21 _grd.DrawMode = DrawModeEnum.OwnerDraw _grd.Cols = TableColNumber.Max _grd.Rows = TableRowNumber.DeviceName _grd.Column(0).Visible = False _grd.Row(0).Visible = False _grd.DefaultFont = New Font(_grd.DefaultFont.Name, 8) '_grd.BackColorFixed = Color.LightPink '_grd.BackColorFixedSel = Color.LightCoral For i As Integer = TableRowNumber.DeviceName To TableRowNumber.Max - 1 _grd.AddItem("") Next _grd.Row(TableRowNumber.FunctionChildNodeAnother).Height = 70 With _grd.Range(TableRowNumber.DeviceName, TableColNumber.SceneID, TableRowNumber.FunctionChildNodeID, TableColNumber.SceneAttribute) .Merge() .Alignment = AlignmentEnum.CenterCenter End With _grd.Cell(TableRowNumber.DeviceName, TableColNumber.InsertColumn - 1).Text = "主机时间偏移" _grd.Cell(TableRowNumber.DeviceName, TableColNumber.InsertColumn - 1).Locked = True 'With _grd.Range(TableRowNumber.FunctionChildNodeID, TableColNumber.InsertColumn - 1, TableRowNumber.FunctionChildNodeID, TableColNumber.InsertColumn - 1) ' .Merge() ' .Alignment = AlignmentEnum.CenterCenter 'End With With _grd.Cell(TableRowNumber.FunctionAnotherName, TableColNumber.InsertColumn - 1) .Text = "0" .CellType = CellTypeEnum.ComboBox .Alignment = AlignmentEnum.CenterCenter ' .Locked = True End With With _grd.Range(TableRowNumber.DeviceName, TableColNumber.DeviceName, TableRowNumber.FunctionChildNodeID, TableColNumber.choose) .Merge() .Alignment = AlignmentEnum.CenterCenter .WrapText = True End With With _grd.Range(TableRowNumber.FunctionChildNodeAnother, TableColNumber.DeviceName, TableRowNumber.FunctionChildNodeAnother, TableColNumber.InsertColumn - 1) .Merge() .Alignment = AlignmentEnum.CenterCenter .Locked = True End With _grd.Cell(TableRowNumber.FunctionChildNodeAnother, TableColNumber.DeviceName).WrapText = True '_grd.Cell(TableRowNumber.FunctionChildNodeAnother, TableColNumber.DeviceName).Text = "test" With _grd.Cell(TableRowNumber.DeviceName, TableColNumber.DeviceName) .Text = "There is a card to take power" .Locked = True .WrapText = True End With With _grd.Cell(TableRowNumber.DeviceName, TableColNumber.SceneID) .Text = _Tip .Locked = True .WrapText = True End With _grd.Cell(TableRowNumber.ConditionalColumnName, TableColNumber.DeviceName).Text = EnumExtender.GetEnumDescription(TableColNumber.DeviceName) _grd.Cell(TableRowNumber.ConditionalColumnName, TableColNumber.KeyVal).Text = EnumExtender.GetEnumDescription(TableColNumber.KeyVal) _grd.Column(TableColNumber.KeyVal).Width = 30 _grd.Column(TableColNumber.KeyVal).Locked = True _grd.Cell(TableRowNumber.ConditionalColumnName, TableColNumber.KeyName).Text = EnumExtender.GetEnumDescription(TableColNumber.KeyName) _grd.Cell(TableRowNumber.ConditionalColumnName, TableColNumber.choose).Text = EnumExtender.GetEnumDescription(TableColNumber.choose) _grd.Column(TableColNumber.choose).Width = 30 _grd.Cell(TableRowNumber.ConditionalColumnName, TableColNumber.SceneID).Text = EnumExtender.GetEnumDescription(TableColNumber.SceneID) _grd.Column(TableColNumber.SceneID).Width = 40 _grd.Column(TableColNumber.SceneID).Locked = True _grd.Column(TableColNumber.InsertColumn).Width = 0 _grd.Column(TableColNumber.choose).Width = 0 _grd.Cell(TableRowNumber.ConditionalColumnName, TableColNumber.ServerAttribute).Text = EnumExtender.GetEnumDescription(TableColNumber.ServerAttribute) _grd.Cell(TableRowNumber.ConditionalColumnName, TableColNumber.SceneAttribute).Text = EnumExtender.GetEnumDescription(TableColNumber.SceneAttribute) _grd.Range(TableRowNumber.ConditionalColumnName, TableColNumber.DeviceName, TableRowNumber.ConditionalColumnName, TableColNumber.ServerAttribute).Locked = True _grd.Cell(TableRowNumber.ConditionalColumnName, TableColNumber.SceneAttribute).Text = EnumExtender.GetEnumDescription(TableColNumber.SceneAttribute) '_grd.Cell(TableRowNumber.ConditionalColumnName, TableColNumber.DeviceType).Text = EnumExtender.GetEnumDescription(TableColNumber.DeviceType) _grd.Row(TableRowNumber.FunctionChildNodeID).Locked = True _grd.Row(TableRowNumber.FunctionName).Visible = False _grd.FrozenRows = TableRowNumber.Max - 1 _grd.FrozenCols = TableColNumber.Max - 2 '_grd.Column(TableColNumber.InsertColumn).AutoFit() UnLockGridAutoRedraw() End Sub Public Sub AddToTableDevMode(filepath As String) Dim from1 As New AddPeripherals from1.Dirpath = filepath from1.g_grd = _grd from1.g_Devicemodel = Dic_Devicemodel from1.g_DevRELAYrow = GetDevLoopName("RELAY", "PB_RELAY_DEVICE") from1.g_Devinfraredrow = GetDevLoopName("INFRARED_FORWARD") from1.g_Devintemp = GetDevLoopName("Temp") from1.g_DevDimming = GetDevLoopName("Dimming") from1.g_Devin485fraredrow = GetDevLoopName("RS485_Curtain") from1.g_DevinCURTAINdrow = GetDevLoopName("CURTAIN") from1.g_Devservice = GetHOSTSERVICENumber() from1.g_DevScenenumber = GetSceneNumbeAr() from1.g_ColumnAnothername = ColumnAnothername If from1.ShowDialog() <> DialogResult.OK Then Return If IsNothing（from1.Resultmodel） Then MsgBox("Failed to add peripheral devices. Procedure！") Return End If ShowRelay(from1.Resultmodel, from1.ResulDic) Grid_Click(Nothing, Nothing) For Each index In from1.Resultmodel.Nodes If index.Interface.Equals("DI") AndAlso (index.DEV_TYPE_DATA.Equals("10") OrElse index.DEV_TYPE_DATA.Equals("24")) Then SpecifySetting(from1.Resultmodel.Name, "") End If Next End Sub Public Shared Function CURTAIN_check(grd As FlexCell.Grid， col As Integer) As List(Of Integer） If IsNothing(grd) OrElse grd.Cols - 1 <= col Then Return Nothing Dim li As New List(Of Integer) For i = TableRowNumber.Max To grd.Rows - 1 'Console.WriteLine($"{grd.Cell(i, col).Text.Trim}___{grd.Column(col).Locked}") If (Not String.IsNullOrEmpty(grd.Cell(i, col).Text.Trim)) OrElse grd.Column(col).Locked Then li.Add(i) End If Next Return li End Function Public Function GetSceneNumbeAr() As Dictionary(Of String， Integer） Dim resulrdic As New Dictionary(Of String， Integer） For i = TableRowNumber.Max To _grd.Rows - 1 Dim g_devname = New CtabRange(_grd, i, TableColNumber.DeviceName) If g_devname.devname.Equals("HOSTSERVICE") Then Continue For End If If _grd.Cell(i, TableColNumber.SceneID).Text.Equals("Voice") AndAlso String.IsNullOrEmpty(_grd.Cell(i, TableColNumber.SceneAttribute).Text) Then Continue For End If Dim ss As String = $"{_grd.Cell(i, TableColNumber.SceneID).Text}*({_grd.Cell(i, TableColNumber.KeyName).Text})" resulrdic.Add($"{_grd.Cell(i, TableColNumber.SceneID).Text}*({_grd.Cell(i, TableColNumber.KeyName).Text})", i) Next Return resulrdic End Function Public Function GetHOSTSERVICENumber() As Dictionary(Of String， Integer） Dim resulrdic As New Dictionary(Of String， Integer） For i = TableRowNumber.Max To _grd.Rows - 1 Dim g_devname = New CtabRange(_grd, i, TableColNumber.DeviceName) If g_devname.devname.Equals("HOSTSERVICE") Then Dim dkey As String = $"{hostname}*HOSTSERVICE*{_grd.Cell(i, TableColNumber.KeyVal).Text }*({_grd.Cell(i, TableColNumber.KeyName).Text})" If resulrdic.ContainsKey(dkey) Then Continue For End If resulrdic.Add(dkey, i) Else Continue For End If Next Return resulrdic End Function Public Function GetDevLoopName(LoopName As String, Optional LoopName1 As String = Nothing) As Dictionary(Of String， Integer） Dim resulrdic As New Dictionary(Of String， Integer） 'resulrdic.Add("", 0) For i = TableColNumber.InsertColumn To _grd.Cols - 1 Dim g_devname = New CtabRange(_grd, TableRowNumber.FunctionName, i) If g_devname.devname.Equals(LoopName) Then Dim devname = New CtabRange(_grd, TableRowNumber.DeviceName, i) Dim gdevname = New CtabRange(_grd, TableRowNumber.FunctionName, i) Dim devnamestr As String = devname.devname For ci = g_devname.fc To g_devname.lc resulrdic.Add($"{devnamestr}*{_grd.Cell(TableRowNumber.FunctionChildNodeID, ci).Text }*{gdevname.devname }", ci) Next End If If （LoopName1 <> Nothing） AndAlso g_devname.devname.Equals(LoopName1) Then Dim devname = New CtabRange(_grd, TableRowNumber.DeviceName, i) Dim gdevname = New CtabRange(_grd, TableRowNumber.FunctionName, i) Dim devnamestr As String = devname.devname For ci = g_devname.fc To g_devname.lc resulrdic.Add($"{devnamestr}*{_grd.Cell(TableRowNumber.FunctionChildNodeID, ci).Text }*{gdevname.devname }", ci) Next End If i = g_devname.lc Next Return resulrdic End Function Public Sub ShowRelay_Test(moduStr As DeviceModel, Optional OPTdic As Dictionary(Of String, String) = Nothing) LockGridAutoRedraw() '_grd.Cols = TableColNumber.Max Dim demoindex As Integer = _ColumnStartLoad Dim Interace_DI As New List(Of DeviceChildNodeClass) Dim Interace_DO As New List(Of DeviceChildNodeClass) ' If moduStr.Nodes.Count = 1 AndAlso moduStr.Nodes(0).Nodes.Count = 0 Then If moduStr.Nodes.Count = 1 AndAlso (moduStr.Nodes(0).Nodes.Count = 0 OrElse moduStr.Nodes(0).DEV_TYPE_DATA.Equals("48") OrElse moduStr.Nodes(0).DEV_TYPE_DATA.Equals("46")) Then Dim ctext As String = _grd.Cell(TableRowNumber.FunctionChildNodeAnother, TableColNumber.DeviceName).Text If String.IsNullOrEmpty(ctext) Then ctext = moduStr.Name Else ctext = ctext & "," & moduStr.Name End If 'ctext = ctext.Substring(0, ctext.Length - 1) _grd.Cell(TableRowNumber.FunctionChildNodeAnother, TableColNumber.DeviceName).Text = ctext UnLockGridAutoRedraw() Return End If For Each ModuleFre In moduStr.Nodes Select Case ModuleFre.Interface Case "DO" If String.IsNullOrEmpty(ModuleFre.DEV_TYPE_DATA) OrElse ModuleFre.DEV_TYPE_DATA = 4 Then Continue For If ModuleFre.DEV_TYPE_DATA = 21 AndAlso ModuleFre.PROTOCOL_VER = 1 Then Interace_DO.Insert（0, ModuleFre） Else Interace_DO.Add（ModuleFre） End If Case "DI" Interace_DI.Add（ModuleFre） End Select Next For Each indesx In Interace_DO If indesx.DEV_TYPE_DATA = 3 Then AddColumnConfig(indesx, demoindex, _ColumnStartLoad, moduStr, OPTdic) Else AddColumnConfig(indesx, demoindex, _ColumnStartLoad, moduStr) End If Next _ColumnStartLoad = demoindex ShowSwitch2(moduStr.Name, Interace_DI, OPTdic) ChangeTheServiceLineNumber() UnLockGridAutoRedraw() End Sub Public Sub ShowRelay(moduStr As DeviceModel, Optional OPTdic As Dictionary(Of String, String) = Nothing) LockGridAutoRedraw() '_grd.Cols = TableColNumber.Max Dim demoindex As Integer = _ColumnStartLoad Dim g_Dimming As DeviceChildNodeClass Dim g_RELAY As DeviceChildNodeClass Dim g_DO As DeviceChildNodeClass Dim g_MUSIC As DeviceChildNodeClass Dim g_Lock As DeviceChildNodeClass Dim g_RS485_Curtain As DeviceChildNodeClass Dim g_485MUSIC As DeviceChildNodeClass Dim g_CURTAIN As DeviceChildNodeClass Dim g_INFRARED_FORWARD As DeviceChildNodeClass Dim g_Temp As DeviceChildNodeClass Dim g_485FreshAir As DeviceChildNodeClass Dim g_485FloorHeat As DeviceChildNodeClass Dim g_PBnode As DeviceChildNodeClass Dim Dev_ColorTemp As DeviceChildNodeClass Dim All_DO As New List(Of DeviceChildNodeClass) Dim Interace_DI As New List(Of DeviceChildNodeClass) g_PBnode = Nothing g_Dimming = Nothing g_RELAY = Nothing g_DO = Nothing g_MUSIC = Nothing g_Lock = Nothing g_RS485_Curtain = Nothing g_485MUSIC = Nothing g_CURTAIN = Nothing g_INFRARED_FORWARD = Nothing g_Temp = Nothing g_485FreshAir = Nothing g_485FloorHeat = Nothing Dev_ColorTemp = Nothing If moduStr.Nodes.Count = 1 AndAlso (moduStr.Nodes(0).Nodes.Count = 0 OrElse moduStr.Nodes(0).DEV_TYPE_DATA.Equals("48") OrElse moduStr.Nodes(0).DEV_TYPE_DATA.Equals("46")) Then Dim ctext As String = _grd.Cell(TableRowNumber.FunctionChildNodeAnother, TableColNumber.DeviceName).Text If String.IsNullOrEmpty(ctext) Then ctext = moduStr.Name Else ctext = ctext & "," & moduStr.Name End If 'ctext = ctext.Substring(0, ctext.Length - 1) _grd.Cell(TableRowNumber.FunctionChildNodeAnother, TableColNumber.DeviceName).Text = ctext UnLockGridAutoRedraw() Return End If For Each ModuleFre In moduStr.Nodes If ModuleFre.Name.Equals("Dimming") Then g_Dimming = ModuleFre ElseIf ModuleFre.Name.Equals("RELAY") Then g_RELAY = ModuleFre ElseIf ModuleFre.Name.Equals("Dev_ColorTemp") Then Dev_ColorTemp = ModuleFre ElseIf ModuleFre.Name.Equals("DO") Then g_DO = ModuleFre ElseIf ModuleFre.Name.Equals("RKEY") AndAlso ModuleFre.Interface.Equals("DO") Then g_Lock = ModuleFre ElseIf ModuleFre.Name.Equals("DRY_NoCard") Then g_DO = ModuleFre ElseIf ModuleFre.Name.Equals("MUSIC") AndAlso ModuleFre.PROTOCOL_VER.Equals("1") Then g_MUSIC = ModuleFre ElseIf ModuleFre.Name.Equals("Lock") Then g_Lock = ModuleFre ElseIf ModuleFre.Name.Equals("485MUSIC") Then g_485MUSIC = ModuleFre ElseIf ModuleFre.Name.Equals("RS485_Curtain") Then g_RS485_Curtain = ModuleFre ElseIf ModuleFre.Name.Equals("CURTAIN") Then g_CURTAIN = ModuleFre ElseIf ModuleFre.Name.Equals("INFRARED_FORWARD") Then g_INFRARED_FORWARD = ModuleFre ElseIf ModuleFre.Name.Equals("Temp") Then g_Temp = ModuleFre ElseIf ModuleFre.Name.Equals("485FreshAir") Then g_485FreshAir = ModuleFre ElseIf ModuleFre.Name.Equals("CLED_FRESHAIR") Then g_485FreshAir = ModuleFre ElseIf ModuleFre.Name.Equals("CLEDFLOORHEAT") Then g_485FloorHeat = ModuleFre ElseIf ModuleFre.Name.Equals("485FloorHeat") Then g_485FloorHeat = ModuleFre ElseIf ModuleFre.Name.Equals("PB_LED") OrElse ModuleFre.Name.Equals("PB_RELAY_DEVICE") OrElse ModuleFre.Name.Equals("PB_STRIP_DEVICE") Then g_PBnode = ModuleFre ElseIf ModuleFre.Interface.Equals("DO") AndAlso Not ModuleFre.Name.Equals("Virtual_Card") Then All_DO.Add（ModuleFre） ElseIf ModuleFre.Interface.Equals("DI") Then Interace_DI.Add（ModuleFre） End If Next AddColumnConfig(g_MUSIC, demoindex, _ColumnStartLoad, moduStr) AddColumnConfig(g_DO, demoindex, _ColumnStartLoad, moduStr, OPTdic) AddColumnConfig(g_Dimming, demoindex, _ColumnStartLoad, moduStr) AddColumnConfig(g_RELAY, demoindex, _ColumnStartLoad, moduStr) AddColumnConfig(g_Lock, demoindex, _ColumnStartLoad, moduStr) AddColumnConfig(g_PBnode, demoindex, _ColumnStartLoad, moduStr) AddColumnConfig(g_RS485_Curtain, demoindex, _ColumnStartLoad, moduStr) AddColumnConfig(g_485MUSIC, demoindex, _ColumnStartLoad, moduStr) AddColumnConfig(g_CURTAIN, demoindex, _ColumnStartLoad, moduStr) AddColumnConfig(g_INFRARED_FORWARD, demoindex, _ColumnStartLoad, moduStr) AddColumnConfig(g_Temp, demoindex, _ColumnStartLoad, moduStr) AddColumnConfig(g_485FloorHeat, demoindex, _ColumnStartLoad, moduStr) AddColumnConfig(g_485FreshAir, demoindex, _ColumnStartLoad, moduStr) For Each donode In All_DO AddColumnConfig(donode, demoindex, _ColumnStartLoad, moduStr) Next If Not IsNothing（Dev_ColorTemp） Then AddColumnConfig(Dev_ColorTemp, demoindex, _ColumnStartLoad, moduStr， Nothing, CInt（moduStr.Desc.DevDescription)) End If _ColumnStartLoad = demoindex ShowSwitch2(moduStr.Name, Interace_DI, OPTdic) ChangeTheServiceLineNumber() UnLockGridAutoRedraw() End Sub Public Shared Function GetAnotherName(str As String) As String Dim result As String = String.Empty If String.IsNullOrEmpty(str) Then result = "Unknown" Else Select Case str Case "CLED_FRESHAIR" result = "CLED Fresh air" Case "CLEDFLOORHEAT" result = "CLED Underfloor heating" Case "485FloorHeat" result = "Underfloor heating" Case "485FreshAir" result = "Fresh air" Case "485MUSIC" result = "485 music" Case "CURTAIN" result = "Dry contact curtain" Case "INFRARED_FORWARD" result = "Infrared" Case "RS485_Curtain" result = "485 Curtain" Case "RELAY" result = "RELAY" Case "MUSIC" result = "music" Case "Dimming" result = "Dimming" Case "DO" result = "DO" Case "Temp" result = "Temp" Case "PB_LINE_CONTROL" result = "PB_LINE_CONTROL" Case "PB_STRIP_DEVICE" result = "PB_STRIP_DEVICE" Case "PB_RELAY_DEVICE" result = "PLC_RELAY" Case "Dev_ColorTemp" result = "Color temperature control" Case "BLEMUSIC" result = "BLE MUSIC" Case "Carbon_Device" result = "Carbon Device" Case "DRY_NoCard" result = "Non-stuck power off" Case "RKEY" result = "RKEY" Case "Scene_Restore" result = "Scene Restore" Case Else result = $"{str}" End Select End If Return result End Function ''' ''' 加载设备头输出信息 ''' ''' ''' ''' ''' Public Sub AddColumnConfig(ModuleFre As DeviceChildNodeClass， ByRef demoindex As Integer， Startid As Integer， moduStr As DeviceModel, ByRef Optional OPTdic As Dictionary(Of String, String) = Nothing, Optional len As Integer = 0) '添加继电器列 If IsNothing(ModuleFre) OrElse ModuleFre.Nodes.Count = 0 Then Return If len = 0 Then len = ModuleFre.Nodes.Count End If 'Console.WriteLine($"AddColumnConfig::::{demoindex}:{ _grd.Column(demoindex).Visible}") _grd.InsertCol(demoindex, len) _grd.Column(demoindex).Visible = True '_grd.Column(demoindex).Width = 300 _grd.Range(0, demoindex, _grd.Rows - 1, demoindex).BackColor = Color.White _grd.Range(0, demoindex, _grd.Rows - 1, demoindex).ForeColor = Color.Black '_grd.Cols = demoindex + ModuleFre.Nodes.Count _grd.Cell(TableRowNumber.FunctionName, demoindex).Text = ModuleFre.Name _grd.Cell(TableRowNumber.FunctionAnotherName, demoindex).Text = GetAnotherName(ModuleFre.Name) _grd.Range(TableRowNumber.FunctionName, demoindex, TableRowNumber.FunctionName, demoindex + len - 1).Locked = False 'For ti = demoindex To demoindex + len - 1 ' Console.WriteLine($"C:{ti} V:{_grd.Column(ti).Locked }") 'Next Console.WriteLine($"R:{TableRowNumber.FunctionName} V:{_grd.Row(TableRowNumber.FunctionName).Locked }") _grd.Range(TableRowNumber.FunctionName, demoindex, TableRowNumber.FunctionName, demoindex + len - 1).Merge() _grd.Range(TableRowNumber.FunctionName, demoindex, TableRowNumber.FunctionName, demoindex + len - 1).Locked = True _grd.Range(TableRowNumber.FunctionAnotherName, demoindex, TableRowNumber.FunctionAnotherName, demoindex + len - 1).Locked = False _grd.Range(TableRowNumber.FunctionAnotherName, demoindex, TableRowNumber.FunctionAnotherName, demoindex + len - 1).Merge() _grd.Range(TableRowNumber.FunctionAnotherName, demoindex, TableRowNumber.FunctionAnotherName, demoindex + len - 1).Locked = True _grd.Range(TableRowNumber.DeviceName, Startid, TableRowNumber.DeviceName, demoindex + len - 1).Locked = False _grd.Range(TableRowNumber.DeviceName, Startid, TableRowNumber.DeviceName, demoindex + len - 1).Merge() _grd.Range(TableRowNumber.DeviceName, Startid, TableRowNumber.DeviceName, demoindex + len - 1).Locked = True _grd.Cell(TableRowNumber.DeviceName, Startid).Text = moduStr.Name _grd.Range(TableRowNumber.DeviceName, Startid, TableRowNumber.FunctionChildNodeAnother, Startid + len - 1).Alignment = AlignmentEnum.CenterCenter For i As Integer = 0 To len - 1 Dim incol As Integer = demoindex + i _grd.Cell(TableRowNumber.FunctionChildNodeID, incol).Text = (i + 1).ToString 'Console.WriteLine($"{ModuleFre.Name}_R:{TableRowNumber.FunctionChildNodeID.ToString }_C:{Startid + i}_{(i + 1).ToString}") _grd.Cell(TableRowNumber.FunctionChildNodeAnother, incol).Text = ModuleFre.Nodes(i).DefaultAliasName _grd.Cell(TableRowNumber.FunctionChildNodeAnother, incol).WrapText = True _grd.Column(incol).Width = 30 ' Console.WriteLine($"AddColumnConfig::::{incol}:{_grd.Column(incol).Visible}:{_grd.Column(incol).Width}") _grd.Column(incol).Visible = True '_grd.Cell(TableRowNumber.FunctionChildNodeAnother, incol).Orientation = TextOrientationEnum.Vertical With _grd.Range(TableRowNumber.FunctionChildNodeAnother, incol, TableRowNumber.ConditionalColumnName, incol) .Locked = False .Merge() ' .Locked = True End With 'If i = 0 Then ' _grd.Cell(TableRowNumber.FunctionName, demoindex).Text = ModuleFre.Nodes(i).BaseClasses.Classes(0).Name 'End If If IsNothing（OPTdic） OrElse OPTdic.Count = 0 Then Continue For If _grd.Cell(TableRowNumber.FunctionChildNodeAnother, incol).Text.Equals("visible") Then Continue For If i = len - 1 AndAlso (Not ModuleFre.Nodes(i).Name.Equals("RKEY")) Then _grd.Column(incol).Visible = False End If For j = 0 To OPTdic.Count - 1 If OPTdic.Values(j).Equals(ModuleFre.Nodes(i).LoopAddr) Then OPTdic.Item(OPTdic.Keys(j)) = (incol).ToString ' _grd.Column(incol).Width = 0 End If Next Next demoindex = demoindex + len End Sub ''' ''' 加载设备输入信息 ''' ''' Public Sub ShowSwitch(moduStrName As String, nterace_DI As List(Of DeviceChildNodeClass), Optional OPTdic As Dictionary(Of String, String) = Nothing) Dim rowid As Integer Dim startrow As Integer = _grd.Rows Dim ModuleFre As DeviceChildNodeClass Dim SceneAttri As String = "1,1,0" For j As Integer = 0 To nterace_DI.Count - 1 ModuleFre = nterace_DI.Item(j) rowid = _grd.Rows ' If ModuleFre.Name.Equals("DI") Then '获取主机服务插入行起始位置 If moduStrName.Equals（hostname） Then _ServerInsertRows = ModuleFre.Nodes.Count End If '添加继电器行 For i As Integer = 0 To ModuleFre.Nodes.Count - 1 _grd.AddItem("") If j = 0 Then _grd.Cell(rowid, TableColNumber.DeviceName).Text = moduStrName _grd.Cell(rowid, TableColNumber.DeviceName).WrapText = True End If Dim gTableRowTag As New TableRowTag() gTableRowTag.G_DevNodeName = ModuleFre.Name gTableRowTag.G_DevNodeIndex = i + 1 gTableRowTag.G_DevModeName = moduStrName gTableRowTag.G_DicRow.Add(TableColNumber.choose, "1") gTableRowTag.G_DicRow.Add(TableColNumber.SceneAttribute, SceneAttri) gTableRowTag.G_DicRow.Add(TableColNumber.SceneID, _SceneID) gTableRowTag.G_DicRow.Add(TableColNumber.KeyVal, (i + 1).ToString) gTableRowTag.G_DicRow.Add(TableColNumber.KeyName, ModuleFre.Nodes(i).Name) If moduStrName.Equals(hostname) Then gTableRowTag.Set_G_Attributes("DRY", BasicClasses) SceneAttri = "1,1,1152921504606846976" Else gTableRowTag.Set_G_Attributes("KEY", BasicClasses) SceneAttri = "1,2,1224996690830819360" End If Dic_ActionConfiguration.Add(gTableRowTag) If Not (IsNothing(OPTdic) OrElse OPTdic.Count = 0) Then If OPTdic.ContainsKey(ModuleFre.Nodes(i).LoopAddr) Then Dim bgc As Integer = -1 If Integer.TryParse(OPTdic.Item(ModuleFre.Nodes(i).LoopAddr), bgc) Then gTableRowTag.G_DicRow.Add(bgc, "Corresponding scenario") _grd.Cell(rowid + i, bgc).Text = Chr("Corresponding scenario") End If End If End If _grd.Cell(rowid + i, TableColNumber.SceneID).Text = _SceneID.ToString _grd.Cell(rowid + i, TableColNumber.KeyVal).Text = (i + 1).ToString _grd.Cell(rowid + i, TableColNumber.KeyName).Text = ModuleFre.Nodes(i).Name _grd.Cell(rowid + i, TableColNumber.choose).Text = "1" _grd.Cell(rowid + i, TableColNumber.SceneAttribute).Text = SceneAttri _SceneID = _SceneID + 1 _grd.Cell(rowid + i, TableColNumber.ServerAttribute).WrapText = True Next 'End If Next If nterace_DI.Count > 0 Then _grd.Range(startrow, TableColNumber.DeviceName, _grd.Rows - 1, TableColNumber.DeviceName).Merge() _grd.Range(startrow, TableColNumber.DeviceName, _grd.Rows - 1, TableColNumber.DeviceName).Locked = True End If _grd.Range(TableRowNumber.Max - 1, TableColNumber.RowID， _grd.Rows - 1, _grd.Cols - 1).Alignment = AlignmentEnum.CenterCenter _grd.Range(TableRowNumber.Max, TableColNumber.SceneAttribute, _grd.Rows - 1, _grd.Cols - 1).CellType = CellTypeEnum.ComboBox _grd.Range(TableRowNumber.Max, TableColNumber.choose, _grd.Rows - 1, TableColNumber.choose).CellType = CellTypeEnum.CheckBox End Sub ''' ''' 加载设备输入信息 ''' ''' Public Sub ShowSwitch2(moduStrName As String, nterace_DI As List(Of DeviceChildNodeClass), Optional OPTdic As Dictionary(Of String, String) = Nothing) '当前行 Dim rowid As Integer '起始添加行 Dim startrow As Integer = _grd.Rows Dim ModuleFre As DeviceChildNodeClass Dim Mergerow， Mergecol As Integer Dim SceneAttri As String = "1,1,0" For j As Integer = 0 To nterace_DI.Count - 1 ModuleFre = nterace_DI.Item(j) '获取服务组起始行号 Dim srowid As CtabRange = GetRowDevNametabRange("HOSTSERVICE", TableColNumber.DeviceName) '默认从最后一行添加 If IsNothing(srowid) Then startrow = _grd.Rows Else startrow = srowid.fr End If rowid = startrow ' If ModuleFre.Name.Equals("DI") Then '获取主机服务插入行起始位置 'If moduStrName.Equals（hostname） Then ' _ServerInsertRows = ModuleFre.Nodes.Count 'End If '添加继电器行 For i As Integer = 0 To ModuleFre.Nodes.Count - 1 '记录添加行行号 rowid = startrow + i '行节点初始数据 Dim gTableRowTag As New TableRowTag() If moduStrName.Equals(hostname) Then gTableRowTag.Set_G_Attributes("DRY", BasicClasses) ModuleFre.Nodes(i).DefaultClass = "DRY" SceneAttri = "1,1,1152921504606846976" Else ' If String.IsNullOrEmpty(ModuleFre.Nodes(i).DefaultClass) Then If ModuleFre.Nodes(i).DefaultClass.Equals("KEY") Then gTableRowTag.Set_G_Attributes("KEY", BasicClasses) SceneAttri = "1,2,1224996690830819360" If ModuleFre.PROTOCOL_VER.Equals("003") Then SceneAttri = "1,2,1152921504606846976" End If ElseIf ModuleFre.Nodes(i).DefaultClass.Equals("CARD") Then gTableRowTag.Set_G_Attributes(ModuleFre.Nodes(i).DefaultClass, BasicClasses) SceneAttri = "1365,1,1152921504606846976" ElseIf ModuleFre.Nodes(i).DefaultClass.Equals("SLIDER") Then gTableRowTag.Set_G_Attributes(ModuleFre.Nodes(i).DefaultClass, BasicClasses) SceneAttri = "2,1,1152921504606847008" ElseIf ModuleFre.Nodes(i).DefaultClass.Equals("RKEY") Then gTableRowTag.Set_G_Attributes(ModuleFre.Nodes(i).DefaultClass, BasicClasses) SceneAttri = "4,12,1152921504606847008" Else gTableRowTag.Set_G_Attributes(ModuleFre.Nodes(i).DefaultClass, BasicClasses) SceneAttri = "1,1,1152921504606846976" End If End If gTableRowTag.G_DevNodeName = ModuleFre.Name gTableRowTag.G_DevNodeIndex = ModuleFre.Nodes(i).LoopAddr ' i + 1 gTableRowTag.G_DevModeName = moduStrName gTableRowTag.G_DicRow.Add(TableColNumber.choose, "1") gTableRowTag.G_DicRow.Add(TableColNumber.SceneAttribute, SceneAttri) gTableRowTag.G_DicRow.Add(TableColNumber.SceneID, _SceneID) gTableRowTag.G_DicRow.Add(TableColNumber.KeyVal, ModuleFre.Nodes(i).LoopAddr) gTableRowTag.G_DicRow.Add(TableColNumber.KeyName, ModuleFre.Nodes(i).DefaultAliasName) '添加行Or插入行 ---如果已经添加服务则要用插入方式 If rowid >= _grd.Rows Then _grd.AddItem("") '_grd.Row(rowid).Locked = False Dic_ActionConfiguration.Add(gTableRowTag) Else Dim growlock As Boolean = _grd.Row(rowid).Locked _grd.Row(rowid).Locked = False _grd.InsertRow(rowid, 1) _grd.Row(rowid).Locked = growlock ' _grd.Row(rowid).Locked = False Dic_ActionConfiguration.Insert(rowid - TableRowNumber.Max, gTableRowTag) End If '设置设备名 If j = 0 AndAlso i = 0 Then _grd.Cell(rowid, TableColNumber.DeviceName).Text = moduStrName _grd.Cell(rowid, TableColNumber.DeviceName).WrapText = True Mergerow = rowid End If '设置 DI对应反馈灯 If Not (IsNothing(OPTdic) OrElse OPTdic.Count = 0) Then If OPTdic.ContainsKey(ModuleFre.Nodes(i).LoopAddr) Then Dim bgc As Integer = -1 If Integer.TryParse(OPTdic.Item(ModuleFre.Nodes(i).LoopAddr), bgc) Then gTableRowTag.G_DicRow.Add(bgc, "Corresponding scenario") _grd.Cell(rowid, bgc).Text = "Corresponding scenario" _grd.Column(bgc).Visible = False _grd.Column(bgc).Locked = True End If End If End If '设置表格 _grd.Cell(rowid, TableColNumber.SceneID).Text = _SceneID.ToString _grd.Cell(rowid, TableColNumber.KeyVal).Text = ModuleFre.Nodes(i).LoopAddr '(i + 1).ToString _grd.Cell(rowid, TableColNumber.KeyName).Text = ModuleFre.Nodes(i).DefaultAliasName _grd.Cell(rowid, TableColNumber.choose).Text = "1" _grd.Cell(rowid, TableColNumber.SceneAttribute).Text = SceneAttri _SceneID = _SceneID + 1 _grd.Cell(rowid, TableColNumber.ServerAttribute).WrapText = True If ModuleFre.Name.Equals("Voice") Then _grd.Row(rowid).Locked = True _grd.Cell(rowid, TableColNumber.SceneAttribute).Text = "" gTableRowTag.G_DicRow.Item(TableColNumber.SceneAttribute) = "" End If Next Next 'Dim rowlock = _grd.Row(24).Locked 'rowlock = _grd.Row(26).Locked If nterace_DI.Count > 0 Then Try _grd.Range(Mergerow, TableColNumber.DeviceName, rowid, TableColNumber.DeviceName).Locked = False _grd.Range(Mergerow, TableColNumber.DeviceName, rowid, TableColNumber.DeviceName).Merge() _grd.Range(Mergerow, TableColNumber.DeviceName, rowid, TableColNumber.DeviceName).Locked = True Catch ex As Exception End Try End If 'rowlock = _grd.Row(24).Locked 'rowlock = _grd.Row(26).Locked _grd.Range(TableRowNumber.Max - 1, TableColNumber.RowID， _grd.Rows - 1, _grd.Cols - 1).Alignment = AlignmentEnum.CenterCenter _grd.Range(TableRowNumber.Max, TableColNumber.SceneAttribute, _grd.Rows - 1, _grd.Cols - 1).CellType = CellTypeEnum.ComboBox _grd.Range(TableRowNumber.Max, TableColNumber.choose, _grd.Rows - 1, TableColNumber.choose).CellType = CellTypeEnum.CheckBox End Sub Public Function GetgrdRange(r As Integer, c As Integer， selectstr As tabRange) As String Dim result As String = String.Empty With _grd.Range(r, c, r, c) Select Case selectstr Case tabRange.devname result = _grd.Cell(.FirstRow, .FirstCol).Text Case tabRange.fc result = .FirstCol Case tabRange.lc result = .LastCol Case tabRange.fr result = .FirstRow Case tabRange.lr result = .LastRow End Select Return result End With End Function Private Function GetRowDevNametabRange(devname As String, colint As Integer, Optional startcrow As Integer = TableRowNumber.Max) As CtabRange Dim result As CtabRange = Nothing Dim g_devname As CtabRange For i = startcrow To _grd.Rows - 1 g_devname = New CtabRange(_grd, i, colint) If devname.Equals(g_devname.devname) Then result = g_devname Exit For End If i = g_devname.lr Next Return result End Function Private Function GetCoLDevNametabRange(devname As String, colint As Integer, Optional startcol As Integer = TableColNumber.InsertColumn) As CtabRange Dim result As CtabRange = Nothing Dim g_devname As CtabRange For i = startcol To _grd.Cols - 1 g_devname = New CtabRange(_grd, colint, i) If devname.Equals(g_devname.devname) Then result = g_devname Exit For End If i = g_devname.lc Next Return result End Function ''' ''' 模型关联的表格控件 ''' ''' Protected Friend Sub LockGridAutoRedraw() If _grd Is Nothing Then Return If _autoRedraw = 0 Then _grd.AutoRedraw = False End If _autoRedraw += 1 End Sub Protected Friend Sub UnLockGridAutoRedraw() If _grd Is Nothing Then Return _autoRedraw -= 1 If _autoRedraw = 0 Then _grd.AutoRedraw = True _grd.Refresh() Else _autoRedraw = 0 End If End Sub #End Region #Region "表格事件" Public Cell_x, Cell_y As Integer Private Sub Grid_Click(Sender As Object, e As EventArgs) 'Console.WriteLine($"Grid_Click{_grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Text }") Dim C_x, C_y As Integer C_x = _grd.ActiveCell.Row C_y = _grd.ActiveCell.Col ' Console.WriteLine($"C_x:{C_x} Cell_x:{Cell_x} C_y:{C_y} Cell_y:{Cell_y} ") If C_x < TableRowNumber.Max Then Return If C_y = 5 Then '新加 If Cell_x = C_x AndAlso Cell_y = C_y Then Return '防止 重复点击 End If 'Console.WriteLine(_grd.Column(Cell_y).Locked) If Cell_x >= _grd.Rows OrElse Cell_y >= _grd.Cols Then Cell_x = 0 Cell_y = 0 End If _grd.Range(Cell_x, 0, Cell_x, _grd.Cols - 1).BackColor = Color.White _grd.Range(0, Cell_y, _grd.Rows - 1, Cell_y).BackColor = Color.White If C_x < TableRowNumber.Max OrElse C_y < TableColNumber.SceneID Then Return _grd.Range(C_x, 2, C_x, _grd.Cols - 1).BackColor = Color.LightBlue If Not (C_y < TableColNumber.InsertColumn) Then _grd.Range(TableRowNumber.FunctionChildNodeID, C_y, _grd.Rows - 1, C_y).BackColor = Color.LightBlue End If CheckGridData() _grd.Cell(C_x, C_y).BackColor = Color.LightPink Cell_x = C_x Cell_y = C_y 'Console.WriteLine(_grd.Cell(Cell_x, Cell_y).Locked) End Sub Public Function CheckGridData() As Boolean Dim result As Boolean = True For r = 7 To _grd.Rows - 1 For c = 6 To _grd.Cols - 1 If _grd.Cell(r, c).ForeColor = Color.DarkRed Then _grd.Cell(r, c).BackColor = Color.OrangeRed Console.WriteLine($" r:{r} c:{c} colname ：{_grd.Cell(TableRowNumber.FunctionChildNodeAnother, c).Text} text：{_grd.Cell(r, c).Text}") result = False End If Next Next Return result End Function Private Sub Grid_DoubleClick(Sender As Object, e As EventArgs) 'Console.WriteLine($"Grid_DoubleClick{_grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Text }") If _grd.ActiveCell.Row = TableRowNumber.DeviceName AndAlso _grd.ActiveCell.Col = TableColNumber.DeviceName Then Dim fromshow As New PowerSupply fromshow.G_ActionConfiguration = Dic_ActionConfiguration fromshow.ParseDeviceList(Dic_Devicemodel, _grd) If fromshow.ShowDialog() <> DialogResult.OK Then Return ElseIf _grd.ActiveCell.Row > TableRowNumber.Max - 1 AndAlso _grd.ActiveCell.Col = TableColNumber.DeviceName Then '取到设备名 Dim devname As String = GetgrdRange(_grd.ActiveCell.Row, TableColNumber.DeviceName, tabRange.devname) ModifyingDeviceInformationGroup(devname) ElseIf _grd.ActiveCell.Row = TableRowNumber.DeviceName AndAlso _grd.ActiveCell.Col > TableColNumber.InsertColumn Then '取到设备名 Dim devname As String = GetgrdRange(_grd.ActiveCell.Row, _grd.ActiveCell.Col, tabRange.devname) ModifyingDeviceInformationGroup(devname) ElseIf _grd.ActiveCell.Row = TableRowNumber.FunctionChildNodeAnother AndAlso _grd.ActiveCell.Col = TableColNumber.DeviceName Then Dim from1 As New DeviceListFrom Dim steinput As String = _grd.Cell(TableRowNumber.FunctionChildNodeAnother, TableColNumber.DeviceName).Text.Trim from1.SetDevnameTotable(steinput， Dic_Devicemodel) If from1.ShowDialog() <> DialogResult.OK Then Return _grd.Cell(TableRowNumber.FunctionChildNodeAnother, TableColNumber.DeviceName).Text = from1.G_result ElseIf _grd.ActiveCell.Row >= TableRowNumber.Max AndAlso _grd.ActiveCell.Col = TableColNumber.SceneAttribute Then If String.IsNullOrEmpty(_grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Text) Then Return Dim fromshow As New ExecutionCondition fromshow.DicDevicemodel = Dic_Devicemodel fromshow.G_grid = _grd fromshow.G_ActionConfiguration = Dic_ActionConfiguration fromshow.g_BasicClasses = BasicClasses fromshow.G_Row = _grd.ActiveCell.Row fromshow.G_celltag = JsonConvert.DeserializeObject(Of Dictionary(Of String, String))(_grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Tag) If IsNothing(fromshow.G_celltag) Then fromshow.G_celltag = New Dictionary(Of String, String) End If fromshow.G_ConfigActionConcitons = Condictions fromshow.G_input = _grd.Cell(_grd.ActiveCell.Row, TableColNumber.SceneAttribute).Text fromshow.G_ModeDevType = Dic_ActionConfiguration.Item(_grd.ActiveCell.Row - TableRowNumber.Max).G_KeyType.ToArray If fromshow.ShowDialog() <> DialogResult.OK Then Return _grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Tag = JsonConvert.SerializeObject(fromshow.G_celltag) _grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Text = fromshow.G_Result End If End Sub Public Sub ModifyingDeviceInformationGroup(devname As String) '判断设备是否是外设 If String.IsNullOrEmpty(devname) OrElse String.IsNullOrEmpty(hostname) Then Return End If If devname.Equals(hostname) Then MsgBox("主机不可修改设备属性!!") Return End If If devname.Equals("HOSTSERVICE") Then MsgBox("服务不可修改设备属性!!") Return End If Dim cdicv As New Dictionary(Of Integer, String） '列号+DO地址 Dim rdicv As New Dictionary(Of Integer, String） '行号+DI地址 Dim rvdicv As New Dictionary(Of String, String） 'DO地址+DI地址 Dim startrow, startcol As Integer '获取外设DO的所在列号集合 Dim tabledev As CtabRange = GetCoLDevNametabRange(devname, TableRowNumber.DeviceName) If Not IsNothing（tabledev） Then startcol = tabledev.fc tabledev = GetCoLDevNametabRange("DO", TableRowNumber.FunctionName, tabledev.fc) End If If Not IsNothing（tabledev） Then For i = tabledev.fc To tabledev.lc cdicv.Add(i， _grd.Cell(TableRowNumber.FunctionChildNodeID, i).Text) Next End If '行号集合 Dim devmodw As DeviceModel = Dic_Devicemodel.Item(devname) tabledev = GetRowDevNametabRange(devname, TableColNumber.DeviceName) '不一定在行有设备名 If Not IsNothing(tabledev) Then startrow = tabledev.fr For Each index In devmodw.Nodes If index.Name.Equals("DI") Then For Each node In index.Nodes For i = tabledev.fr To tabledev.lr Console.WriteLine($"{_grd.Cell(i， TableColNumber.KeyName).Text}_{node.Name}") If _grd.Cell(i， TableColNumber.KeyVal).Text.Equals(node.LoopAddr) Then If rdicv.ContainsKey(i) Then Continue For Else rdicv.Add(i, _grd.Cell(i, TableColNumber.KeyVal).Text) End If End If Next Next Exit For End If Next '匹配 DI_DO 键值对 For Each index In rdicv For Each node In cdicv If _grd.Cell(index.Key， node.Key).Text.Trim.Equals("Corresponding scenario") Then '_grd.Cell(index.Key， node.Key).Text = "" If rvdicv.ContainsKey(index.Value) Then Exit For Else rvdicv.Add(index.Value, node.Value) Exit For End If End If Next If Not rvdicv.ContainsKey(index.Value) Then rvdicv.Add(index.Value, "") End If Next End If '设置到弹窗显示 Dim from1 As New AddPeripherals from1.g_Devicemodel = Dic_Devicemodel from1.g_grd = _grd from1.g_Devintemp = GetDevLoopName("Temp") from1.g_DevRELAYrow = GetDevLoopName("RELAY", "PB_RELAY_DEVICE") from1.g_Devinfraredrow = GetDevLoopName("INFRARED_FORWARD") from1.g_DevDimming = GetDevLoopName("Dimming") from1.g_Devin485fraredrow = GetDevLoopName("RS485_Curtain") from1.g_DevinCURTAINdrow = GetDevLoopName("CURTAIN") from1.g_Devservice = GetHOSTSERVICENumber() from1.g_DevScenenumber = GetSceneNumbeAr() from1.g_ColumnAnothername = ColumnAnothername from1.EditFeedbackLamp(rvdicv, devmodw) If from1.ShowDialog() <> DialogResult.OK Then Return '根据弹窗设置重新设置界面置 _grd.Cell(TableRowNumber.DeviceName， startcol).Text = devmodw.Name If startrow > 0 Then For ri = tabledev.fr To tabledev.lr Dic_ActionConfiguration(ri - TableRowNumber.Max).G_DevModeName = devmodw.Name Next _grd.Cell(startrow， TableColNumber.DeviceName).Text = devmodw.Name End If If IsNothing(from1.ResulDic) OrElse from1.ResulDic.Count = 0 Then Return Dim colstr As String LockGridAutoRedraw() For Each rindex In rdicv If from1.ResulDic.ContainsKey(rindex.Value) Then colstr = from1.ResulDic.Item(rindex.Value) '_grd.Cell(rindex.Key， TableColNumber.KeyName).Text =devmodw. For Each cnode In cdicv If _grd.Cell(rindex.Key， cnode.Key).Text.Trim.Equals("Corresponding scenario") Then _grd.Cell(rindex.Key， cnode.Key).Text = "" _grd.Column(cnode.Key).Visible = True _grd.Column(cnode.Key).Locked = False End If If cnode.Value.Equals(colstr) Then _grd.Cell(rindex.Key， cnode.Key).Text = "Corresponding scenario" _grd.Column(cnode.Key).Visible = False _grd.Column(cnode.Key).Locked = True End If Next End If Next UnLockGridAutoRedraw() End Sub Private Function DetermineDeviceType(Resultmodel As DeviceModel) As Integer Dim result As Integer = 0 For Each ModuleFre In Resultmodel.Nodes Select Case ModuleFre.Name Case "Temp" Return 1 Case "CURTAIN" Return 2 Case "485FreshAir", "CLED_FRESHAIR" Return 4 Case "485FloorHeat", "CLEDFLOORHEAT" Return 4 Case "语音" Return 3 End Select Next Return result End Function Public Sub UnlockColumn(Resultmodel As DeviceModel, Optional mbool As Boolean = True) Select Case DetermineDeviceType(Resultmodel) Case 0 Return Case 1 Case 2 Case 3 Case 4 Case Else Return End Select End Sub Private Sub Grid_CellChange(Sender As Object, e As FlexCell.Grid.CellChangeEventArgs) 'Console.WriteLine($"Grid_CellChange_{_grd.Cell(e.Row, e.Col).Text }") Dim errindex As Integer = 0 Try Select Case e.Row 'Case ComboDropDownON.HostDev ' For Each HostDevFN In IO.Directory.GetFiles(HostDevFNP) ' Grid1.ComboBox(0).Items.Add(HostDevFN.Substring(HostDevFNP.Length, HostDevFN.Length - HostDevFNP.Length - 4)) ' Next Case TableRowNumber.FunctionAnotherName If TableColNumber.ServerAttribute = e.Col Then Dim dtime As Integer = 0 Try dtime = CInt(_grd.Cell(TableRowNumber.FunctionAnotherName, TableColNumber.InsertColumn - 1).Text) If dtime < -24 OrElse dtime > 24 Then dtime = 0 End If Catch ex As Exception dtime = 0 End Try _grd.Cell(TableRowNumber.FunctionAnotherName, TableColNumber.InsertColumn - 1).Text = dtime _grd.Cell(TableRowNumber.FunctionAnotherName, TableColNumber.InsertColumn - 1).CellType = CellTypeEnum.ComboBox _grd.Cell(TableRowNumber.FunctionAnotherName, TableColNumber.InsertColumn - 1).Locked = False End If Case >= TableRowNumber.Max errindex = 1 Console.WriteLine() If e.Col = TableColNumber.SceneAttribute Then errindex = 3 Dim rowtag As TableRowTag = Dic_ActionConfiguration.Item(e.Row - TableRowNumber.Max) If ExecutionCondition.CheckDataIsOk(_grd.Cell(e.Row, e.Col).Text, Condictions, Dic_ActionConfiguration.Item(e.Row - TableRowNumber.Max).G_KeyType.ToArray, rowtag, Dic_ActionConfiguration, _grd) Then _grd.Cell(e.Row, e.Col).BackColor = Color.White AddTableToTableRowTag(e.Row, e.Col, _grd.Cell(e.Row, e.Col).Text) _grd.Cell(e.Row, e.Col).ForeColor = Color.Black Else _grd.Cell(e.Row, e.Col).BackColor = Color.OrangeRed _grd.Cell(e.Row, e.Col).ForeColor = Color.DarkRed AddTableToTableRowTag(e.Row, e.Col, _grd.Cell(e.Row, e.Col).Text) End If ElseIf e.Col = TableColNumber.ServerAttribute Then errindex = 4 Dim hostNode As DeviceChildNodeClass = Nothing For Each Anode In Dic_Devicemodel.Item(hostname).Nodes If Anode.Name.Equals（"HOSTSERVICE"） Then hostNode = Anode Exit For End If Next If ServiceAttribute.CheckDataIsOk(_grd.Cell(e.Row, e.Col).Text, hostNode) Then _grd.Cell(e.Row, e.Col).BackColor = Color.White _grd.Cell(e.Row, e.Col).ForeColor = Color.Black Dim serverstr As String = AddTableToTableRowTagX(e.Row, e.Col, _grd.Cell(e.Row, e.Col).Text) If String.IsNullOrEmpty(_grd.Cell(e.Row, e.Col).Text) Then Dim wbuff() As String = serverstr.Trim.Split(vbLf) For Each index In wbuff grdRemoveServerRow(index) Next Return End If Dim vbuff() As String = _grd.Cell(e.Row, e.Col).Text.Split(vbLf) For Each index In vbuff Dim vbuf() As String = index.Split(",") grdInsertServerRow(hostname, "HOSTSERVICE"， CInt（vbuf(0)), "SERVICE", vbuf（1）, hostNode) Next Else _grd.Cell(e.Row, e.Col).BackColor = Color.OrangeRed _grd.Cell(e.Row, e.Col).ForeColor = Color.DarkRed AddTableToTableRowTagX(e.Row, e.Col, _grd.Cell(e.Row, e.Col).Text) End If ElseIf e.Col = TableColNumber.KeyName Then AddTableToTableRowTagtow(e.Row, e.Col, _grd.Cell(e.Row, e.Col).Text) 'ElseIf _grd.Cell(TableRowNumber.FunctionName, e.Col).Text.Equals（"MUSIC"） Then ' errindex = 2 ' 'If MusicArrangement.CheckDataIsOk(_grd.Cell(e.Row, e.Col).Text, BasicClasses) Then ' ' _grd.Cell(e.Row, e.Col).BackColor = Color.White ' ' AddTableToTableRowTagtow(e.Row, e.Col, _grd.Cell(e.Row, e.Col).Text) ' 'Else ' ' _grd.Cell(e.Row, e.Col).BackColor = Color.OrangeRed ' 'End If ' Dim g_devname As New CtabRange(_grd, TableRowNumber.FunctionName, e.Col) ' If ActionParameter.CheckDataIsOk(g_devname.devname.ToUpper, _grd.Cell(e.Row, e.Col).Text, BasicClasses) Then ' _grd.Cell(e.Row, e.Col).BackColor = Color.White ' AddTableToTableRowTagtow(e.Row, e.Col, _grd.Cell(e.Row, e.Col).Text) ' Else ' _grd.Cell(e.Row, e.Col).BackColor = Color.OrangeRed ' End If ElseIf e.Col = TableColNumber.choose Then AddTableToTableRowTagtow(e.Row, e.Col, _grd.Cell(e.Row, e.Col).Text) ElseIf e.Col > TableColNumber.ServerAttribute Then errindex = 5 Dim g_devname As New CtabRange(_grd, TableRowNumber.FunctionName, e.Col) Dim highpric As String = _grd.Cell(e.Row, e.Col).Text Dim rowtag As TableRowTag = Dic_ActionConfiguration.Item(e.Row - TableRowNumber.Max) If g_devname.devname.Equals("DO") Then g_devname.devname = g_devname.devname.Replace("DO", "LIGHT") ElseIf g_devname.devname.Equals("CURTAIN") Then g_devname.devname = g_devname.devname.Replace("CURTAIN", "DRY_CURTAIN") End If If highpric.Equals("advanced") Then Dim fromshow As New ActionParameter fromshow.g_DevNodename = rowtag.G_DevNodeName fromshow.KeyName = _grd.Cell(_grd.ActiveCell.Row, TableColNumber.KeyName).Text fromshow.g_ExecutionMode = _grd.Cell(_grd.ActiveCell.Row, TableColNumber.SceneAttribute).Text Dim celltex As String = String.Empty Dim celltxt As String = String.Empty If rowtag.G_DicRow.ContainsKey(e.Col.ToString) Then celltex = rowtag.G_DicRow.Item(e.Col.ToString) Else celltex = "" End If fromshow.GetEquipmentParameter(g_devname.devname.ToUpper, celltex, BasicClasses) If fromshow.ShowDialog() <> DialogResult.OK Then If celltex.Contains("*") Then highpric = EstimateFilag(celltex, g_devname.devname) Else highpric = celltex End If CheckGridCellChangeIsOk(g_devname, celltex, e) _grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Text = highpric Return End If highpric = EstimateFilag(fromshow.G_Result, g_devname.devname) CheckGridCellChangeIsOk(g_devname, fromshow.G_Result, e) _grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Text = highpric Return Else End If 'Dim highpric As String = _grd.Cell(e.Row, e.Col).Text.Trim If rowtag.G_DicRow.ContainsKey(e.Col) Then Dim celltxt As String = rowtag.G_DicRow.Item(e.Col) celltxt = EstimateFilag(celltxt, g_devname.devname) If Not String.IsNullOrEmpty(highpric) AndAlso highpric.Equals(celltxt) Then highpric = rowtag.G_DicRow.Item(e.Col) End If End If CheckGridCellChangeIsOk(g_devname, highpric, e) End If Case = TableRowNumber.FunctionChildNodeAnother If e.Col > TableColNumber.ServerAttribute Then Dim gdevname = New CtabRange(_grd, TableRowNumber.DeviceName, e.Col) Dim gTdevname = New CtabRange(_grd, TableRowNumber.FunctionName, e.Col) Dim val As String = $"{gdevname.devname }*{_grd.Cell(TableRowNumber.FunctionChildNodeID, e.Col).Text }*{gTdevname.devname }" Dim key As String = $"{gdevname.devname}_{ _grd.Cell(TableRowNumber.FunctionChildNodeAnother, e.Col).Text}" 'Dim key As String = $"{_grd.Cell(TableRowNumber.FunctionChildNodeAnother, e.Col).Text}" If String.IsNullOrEmpty(key) Then Return If ColumnAnothername.ContainsKey(key) Then MsgBox($"{key}:该别名已存在！请重新命名！") _grd.Cell(TableRowNumber.FunctionChildNodeAnother, e.Col).Text = "" Console.WriteLine($"{ e.Col}：{_grd.Cell(TableRowNumber.FunctionChildNodeAnother, e.Col).Text}") Return Else For Each strval In ColumnAnothername If strval.Value.Equals(val) Then ColumnAnothername.Remove(strval.Key) Exit For End If Next ColumnAnothername.Add(key, val) End If End If End Select Catch ex As Exception MsgBox($"{errindex}_{ex.Message}") End Try End Sub Public Sub CheckGridCellChangeIsOk(g_devname As CtabRange， highpric As String, e As FlexCell.Grid.CellChangeEventArgs) If g_devname.devname.ToUpper.Equals("DIMMING") OrElse g_devname.devname.ToUpper.Equals("485MUSIC") OrElse g_devname.devname.ToUpper.Equals("INFRARED_FORWARD") OrElse g_devname.devname.ToUpper.Equals("PB_RELAY_DEVICE") OrElse g_devname.devname.ToUpper.Equals("PB_STRIP_DEVICE") OrElse g_devname.devname.ToUpper.Equals("PB_LED_DEVICE") OrElse g_devname.devname.ToUpper.Equals("DRY_CURTAIN") OrElse g_devname.devname.ToUpper.Equals("LIGHT") OrElse g_devname.devname.ToUpper.Equals("RELAY") OrElse g_devname.devname.ToUpper.Equals("TEMP") OrElse g_devname.devname.ToUpper.Equals("PB_LINE_CONTROL") OrElse g_devname.devname.ToUpper.Equals("485FloorHeat".ToUpper) OrElse g_devname.devname.ToUpper.Equals("485FreshAir".ToUpper) OrElse g_devname.devname.ToUpper.Equals("CLED_FRESHAIR".ToUpper) OrElse g_devname.devname.ToUpper.Equals("CLEDFLOORHEAT".ToUpper) OrElse g_devname.devname.ToUpper.Equals("DRY_NoCard".ToUpper) OrElse g_devname.devname.ToUpper.Equals("Dev_ColorTemp".ToUpper) OrElse g_devname.devname.ToUpper.Equals("RKEY".ToUpper) OrElse g_devname.devname.ToUpper.Equals("BLEMUSIC".ToUpper) OrElse g_devname.devname.ToUpper.Equals("RS485_Curtain".ToUpper) OrElse g_devname.devname.ToUpper.Equals("Carbon_Device".ToUpper) OrElse g_devname.devname.ToUpper.Equals("Scene_Restore".ToUpper) OrElse g_devname.devname.ToUpper.Equals("HOPO_Curtain".ToUpper) OrElse g_devname.devname.ToUpper.Equals("MUSIC".ToUpper) Then If ActionParameter.CheckDataIsOk(g_devname.devname.ToUpper, highpric, BasicClasses) Then _grd.Cell(e.Row, e.Col).BackColor = Color.White _grd.Cell(e.Row, e.Col).ForeColor = Color.Black AddTableToTableRowTagtow(e.Row, e.Col, highpric) Else If CheckDataIsOk(g_devname.devname, highpric) Then _grd.Cell(e.Row, e.Col).BackColor = Color.White _grd.Cell(e.Row, e.Col).ForeColor = Color.Black AddTableToTableRowTagtow(e.Row, e.Col, highpric) Else _grd.Cell(e.Row, e.Col).BackColor = Color.OrangeRed _grd.Cell(e.Row, e.Col).ForeColor = Color.DarkRed AddTableToTableRowTagtow(e.Row, e.Col, highpric) End If End If Else If CheckDataIsOk(g_devname.devname, highpric) Then _grd.Cell(e.Row, e.Col).BackColor = Color.White _grd.Cell(e.Row, e.Col).ForeColor = Color.Black AddTableToTableRowTagtow(e.Row, e.Col, highpric) Else _grd.Cell(e.Row, e.Col).BackColor = Color.OrangeRed _grd.Cell(e.Row, e.Col).ForeColor = Color.DarkRed AddTableToTableRowTagtow(e.Row, e.Col, highpric) End If End If End Sub Public Sub grdRemoveServerRow(serverstr As String) If String.IsNullOrEmpty(serverstr) Then Return Dim buf() As String = serverstr.Split(",") Dim serverindex As String = $"{buf(0)},{buf(1)}" '存在调用则不用删除 For i As Integer = TableRowNumber.Max To _grd.Rows - 1 If String.IsNullOrEmpty(_grd.Cell(i, TableColNumber.ServerAttribute).Text.Trim) Then Continue For Dim Clfbuf() As String = _grd.Cell(i, TableColNumber.ServerAttribute).Text.Trim.Split(vbLf) For Each index In Clfbuf If index.Trim.IndexOf(serverindex) = 0 Then Return End If Next Next If Not _ServerAction.ContainsKey(serverindex) Then Return Dim deleterow As Integer = _ServerAction.Item(serverindex) ' Dim srowid As CtabRange = GetRowDevNametabRange("HOSTSERVICE", TableColNumber.DeviceName) '表格删除 If srowid.fr = deleterow Then _grd.Cell(deleterow, TableColNumber.DeviceName).Text = "HOSTSERVICE" _grd.Range(deleterow, TableColNumber.DeviceName, _grd.Rows - 1, TableColNumber.DeviceName).Locked = False _grd.Range(deleterow, TableColNumber.DeviceName, _grd.Rows - 1, TableColNumber.DeviceName).Merge() _grd.Range(deleterow, TableColNumber.DeviceName, _grd.Rows - 1, TableColNumber.DeviceName).Merge() _grd.Range(deleterow, TableColNumber.DeviceName, _grd.Rows - 1, TableColNumber.DeviceName).Locked = True End If _grd.Row(deleterow).Delete() '内存删除 Dic_ActionConfiguration.RemoveAt(deleterow - TableRowNumber.Max) '更服务所在行行号 For i As Integer = 0 To _ServerAction.Count If _ServerAction.Values(i) > deleterow Then _ServerAction.Item(_ServerAction.Keys(i)) = _ServerAction.Values(i) - 1 End If Next '删除服务动作 _ServerAction.Remove(serverindex) _ServerInsertRows = _ServerInsertRows - 1 End Sub Public Sub grdInsertServerRow(DevModeName As String， DevNodeName As String, DevNodeIndex As Integer， rowtype As String, Keytype As String, hostNode As DeviceChildNodeClass) Dim serverindex As String = $"{DevNodeIndex},{Keytype}" If _ServerAction.ContainsKey(serverindex) Then Return Dim InsertRow As Integer = _grd.Rows _ServerAction.Add(serverindex, InsertRow) Dim gTableRowTag As New TableRowTag() Dim KeyName As String = ServiceAttribute.Getservername(DevNodeIndex, hostNode) gTableRowTag.G_DevNodeName = DevNodeName gTableRowTag.G_DevNodeIndex = DevNodeIndex gTableRowTag.G_DevModeName = DevModeName gTableRowTag.Set_G_Attributes(rowtype, BasicClasses, Keytype) gTableRowTag.G_DicRow.Add(TableColNumber.choose, "1") gTableRowTag.G_DicRow.Add(TableColNumber.SceneAttribute, $"{Keytype},1,0") gTableRowTag.G_DicRow.Add(TableColNumber.SceneID, _SceneID) gTableRowTag.G_DicRow.Add(TableColNumber.KeyVal, DevNodeIndex.ToString) gTableRowTag.G_DicRow.Add(TableColNumber.KeyName, KeyName) ' If _grd.Rows <= InsertRow Then '获取服务组起始行号 Dim srowid As CtabRange = GetRowDevNametabRange("HOSTSERVICE", TableColNumber.DeviceName) _grd.AddItem("") Dic_ActionConfiguration.Add(gTableRowTag) Dim rindex As Integer = _grd.Rows - 1 _grd.Cell(rindex, TableColNumber.DeviceName).Text = $"{DevNodeName}" _grd.Cell(rindex, TableColNumber.SceneID).Text = _SceneID.ToString _grd.Cell(rindex, TableColNumber.KeyVal).Text = DevNodeIndex.ToString _grd.Cell(rindex, TableColNumber.KeyName).Text = KeyName _grd.Cell(rindex, TableColNumber.choose).Text = "1" _grd.Cell(rindex, TableColNumber.SceneAttribute).Text = $"{Keytype},1,0" _SceneID = _SceneID + 1 If Not IsNothing(srowid) Then _grd.Range(srowid.fr, TableColNumber.DeviceName, rindex, TableColNumber.DeviceName).Locked = False _grd.Range(srowid.fr, TableColNumber.DeviceName, rindex, TableColNumber.DeviceName).Merge() _grd.Range(srowid.fr, TableColNumber.DeviceName, rindex, TableColNumber.DeviceName).Locked = True End If 'Else ' _grd.InsertRow(InsertRow, 1) ' Dic_ActionConfiguration.Insert(_ServerInsertRows, gTableRowTag) ' _grd.Cell(InsertRow, TableColNumber.DeviceName).Text = $"{DevNodeName}" ' _grd.Cell(InsertRow, TableColNumber.SceneID).Text = _SceneID.ToString ' _grd.Cell(InsertRow, TableColNumber.KeyVal).Text = DevNodeIndex.ToString ' _grd.Cell(InsertRow, TableColNumber.KeyName).Text = KeyName ' _grd.Cell(InsertRow, TableColNumber.choose).Text = "1" ' _grd.Cell(InsertRow, TableColNumber.SceneAttribute).Text = $"{Keytype},1,0" 'End If _ServerInsertRows = _ServerInsertRows + 1 _grd.Range(TableRowNumber.Max - 1, TableColNumber.RowID， _grd.Rows - 1, _grd.Cols - 1).Alignment = AlignmentEnum.CenterCenter _grd.Range(TableRowNumber.Max, TableColNumber.SceneAttribute, _grd.Rows - 1, _grd.Cols - 1).CellType = CellTypeEnum.ComboBox _grd.Range(TableRowNumber.Max, TableColNumber.choose, _grd.Rows - 1, TableColNumber.choose).CellType = CellTypeEnum.CheckBox End Sub Public Sub ChangeTheServiceLineNumber() '获取服务组起始行号 Dim srowid As CtabRange = GetRowDevNametabRange("HOSTSERVICE", TableColNumber.DeviceName) If IsNothing(srowid) Then Return Dim index As String Dim buff() As String For i = srowid.fr To srowid.lr index = _grd.Cell(i, TableColNumber.KeyVal).Text.Trim buff = _grd.Cell(i, TableColNumber.SceneAttribute).Text.Trim.Split(",") index = $"{index},{buff(0)}" _ServerAction.Item(index) = i Next End Sub Private Sub AddTableToTableRowTag(row As Integer， col As Integer, text As String) If String.IsNullOrEmpty(text) Then Return Dim rowtag As TableRowTag = Dic_ActionConfiguration.Item(row - TableRowNumber.Max) If rowtag.G_DicRow.ContainsKey(col.ToString) Then rowtag.G_DicRow.Item(col.ToString) = text Else rowtag.G_DicRow.Add(col.ToString, text) End If End Sub Private Sub AddTableToTableRowTagtow(row As Integer， col As Integer, text As String) Dim rowtag As TableRowTag = Dic_ActionConfiguration.Item(row - TableRowNumber.Max) If rowtag.G_DicRow.ContainsKey(col.ToString) Then rowtag.G_DicRow.Item(col.ToString) = text Else rowtag.G_DicRow.Add(col.ToString, text) End If End Sub Private Function AddTableToTableRowTagX(row As Integer， col As Integer, text As String) As String Dim rowtag As TableRowTag = Dic_ActionConfiguration.Item(row - TableRowNumber.Max) Dim reslut As String = String.Empty If String.IsNullOrEmpty(text) Then If rowtag.G_DicRow.ContainsKey(col.ToString) Then reslut = rowtag.G_DicRow.Item(col.ToString) End If End If If rowtag.G_DicRow.ContainsKey(col.ToString) Then reslut = rowtag.G_DicRow.Item(col.ToString) rowtag.G_DicRow.Item(col.ToString) = text Else rowtag.G_DicRow.Add(col.ToString, text) End If Return reslut End Function Public Function GetComboDropDownDic() As Dictionary(Of String,List(Of String)) Dim dic As New Dictionary(Of String,List(Of String)) Dim typeInten() As String = {"RELAY","RS485_Curtain".ToUpper,"LIGHT","CURTAIN","DRY_CURTAIN","DIMMING","TEMP","DO", "INFRARED_FORWARD","CLED_FRESHAIR","CLEDFLOORHEAT","485FreshAir".ToUpper,"485FloorHeat".ToUpper,"PB_LINE_CONTROL", "PB_LED_DEVICE","PB_STRIP_DEVICE","PB_RELAY_DEVICE","DRY_NoCard".ToUpper,"Dev_ColorTemp".ToUpper,"RKEY".ToUpper, "BLEMUSIC".ToUpper,"Carbon_Device".ToUpper,"HOPO_Curtain".ToUpper,"Scene_Restore".ToUpper} Try For Each index In typeInten AddLog($"获取类型{index}的下拉选项") Dim li As New List(Of String) If index.Equals("DO".ToUpper) Then Dim strarry() As String = {"open","close","flash","Corresponding scenario"} li.AddRange(strarry) End If Select Case index Case "RELAY","PB_RELAY_DEVICE" Dim cl = [Enum].GetValues(GetType(TableColSwitchKeyDate)) For Each Cindex In cl li.Add(Chr(Cindex)) Next Case "RS485_Curtain".ToUpper,"CURTAIN","DRY_CURTAIN" Dim strarry() As String = {"open","close","stop","intertangent"} li.AddRange(strarry) Case "DIMMING","PB_LINE_CONTROL","PB_STRIP_DEVICE","PB_LED_DEVICE" Dim strarry() As String = {Chr(TableColSwitchKeyDate.TurnDrown).ToString(),"5","20","50",Chr(TableColSwitchKeyDate.TurnOn).ToString()} li.AddRange(strarry) Case "TEMP","CLEDFLOORHEAT","485FloorHeat".ToUpper Dim strarry() As String = {"Open 26 degrees","close"} li.AddRange(strarry) Case "INFRARED_FORWARD" Dim strarry() As String = {"Turn on the TV","Turn off the TV","Mute ","volume+","volume-"} li.AddRange(strarry) Case "485FreshAir".ToUpper,"CLED_FRESHAIR" Dim strarry() As String = {"open","close"} li.AddRange(strarry) Case "LIGHT"',"DO" Dim strarry() As String = {"open","close","flash","Corresponding scenario"} li.AddRange(strarry) End Select If li.Count > 0 OrElse index.Equals("DRY_NoCard".ToUpper) OrElse index.Equals("HOPO_Curtain".ToUpper) OrElse index.Equals("Dev_ColorTemp".ToUpper) OrElse index.Equals("Carbon_Device".ToUpper) OrElse index.Equals("RKEY".ToUpper) OrElse index.Equals("BLEMUSIC".ToUpper) OrElse index.Equals("Scene_Restore".ToUpper) Then li.Add("advanced") End If dic.Add(index,li) Next Return dic Catch ex As Exception AddLog($"获取对应类型的下拉选项失败 ：{ex.Message} ")‘进入下来选项并清空下拉选项21,14 Return dic End Try End Function Public Sub AddLog(ByVal logMessage As String) Dim logFilePath As String = "C:\Logs\MyAppLog.txt" Try ' 确保日志目录存在 Dim logDirectory As String = Path.GetDirectoryName(logFilePath) If Not Directory.Exists(logDirectory) Then Directory.CreateDirectory(logDirectory) End If ' 打开日志文件并追加日志消息 Using writer As New StreamWriter(logFilePath, True) writer.WriteLine(DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") & " - " & logMessage) End Using Catch ex As Exception ' 如果写入日志时发生错误，输出错误信息到控制台 Console.WriteLine("Error writing to log file: " & ex.Message) End Try End Sub Private Sub Grid_ComboDropDown(Sender As Object, e As Grid.ComboDropDownEventArgs) AddLog($"进入下来选项并清空下拉选项{e.Row},{e.Col}") 'Console.WriteLine($"Grid_ComboDropDown{_grd.Cell(e.Row, e.Col).Text }") _grd.ComboBox(0).Items.Clear() Dim ComboDropDownDic As Dictionary(Of String, List(Of String)) = GetComboDropDownDic() AddLog($"获取对应类型的下拉选项完毕") Select Case e.Row Case TableRowNumber.FunctionAnotherName If TableColNumber.ServerAttribute Then For i = -24 To 24 _grd.ComboBox(0).Items.Add(i) Next End If 'Case ComboDropDownON.HostDev ' For Each HostDevFN In IO.Directory.GetFiles(HostDevFNP) ' Grid1.ComboBox(0).Items.Add(HostDevFN.Substring(HostDevFNP.Length, HostDevFN.Length - HostDevFNP.Length - 4)) ' Next Case >= TableRowNumber.Max ’ Console.WriteLine() AddLog($"进入下拉添加选项") If _grd.ActiveCell.Col = TableColNumber.SceneAttribute Then AddLog($"进入ExecutionCondition") Dim fromshow As New ExecutionCondition fromshow.G_grid = _grd fromshow.DicDevicemodel = Dic_Devicemodel fromshow.G_ActionConfiguration = Dic_ActionConfiguration fromshow.g_BasicClasses = BasicClasses fromshow.G_Row = _grd.ActiveCell.Row fromshow.G_celltag = JsonConvert.DeserializeObject(Of Dictionary(Of String, String))(_grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Tag) If IsNothing(fromshow.G_celltag) Then fromshow.G_celltag = New Dictionary(Of String, String) End If fromshow.G_ConfigActionConcitons = Condictions fromshow.G_input = _grd.Cell(_grd.ActiveCell.Row, TableColNumber.SceneAttribute).Text fromshow.G_ModeDevType = Dic_ActionConfiguration.Item(_grd.ActiveCell.Row - TableRowNumber.Max).G_KeyType.ToArray If fromshow.ShowDialog() <> DialogResult.OK Then Return AddLog($"退出ExecutionCondition {fromshow.G_Result}，{ JsonConvert.SerializeObject(fromshow.G_celltag)}") _grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Text = fromshow.G_Result _grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Tag = JsonConvert.SerializeObject(fromshow.G_celltag) ElseIf _grd.ActiveCell.Col = TableColNumber.ServerAttribute Then Dim fromshow As New ServiceAttribute AddLog($"退出ServerAttribute") fromshow.G_input = _grd.Cell(_grd.ActiveCell.Row, TableColNumber.ServerAttribute).Text fromshow.G_hostNode = Nothing For Each Anode In Dic_Devicemodel.Item(hostname).Nodes If Anode.Name.Equals（"HOSTSERVICE"） Then fromshow.G_hostNode = Anode End If Next If fromshow.ShowDialog() <> DialogResult.OK Then Return AddLog($"退出退出{fromshow.G_result}") _grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Text = fromshow.G_result 'ElseIf _grd.Cell(TableRowNumber.FunctionName, _grd.ActiveCell.Col).Text.Equals（"MUSIC"） Then ' Dim fromshow As New ActionParameter ' Dim g_devname As New CtabRange(_grd, TableRowNumber.FunctionName, _grd.ActiveCell.Col) ' fromshow.GetEquipmentParameter(g_devname.devname.ToUpper, _grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Text, BasicClasses) ' If fromshow.ShowDialog() <> DialogResult.OK Then Return ' _grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Text = fromshow.G_Result ElseIf _grd.ActiveCell.Col > TableColNumber.ServerAttribute Then Dim g_devname As New CtabRange(_grd, TableRowNumber.FunctionName, _grd.ActiveCell.Col) AddLog($"准备设置音乐动作{e.Row},{e.Col}，{g_devname.devname}") If g_devname.devname.ToUpper.Equals("485MUSIC") OrElse g_devname.devname.ToUpper.Equals("MUSIC".ToUpper) Then AddLog($"设置音乐动作{e.Row},{e.Col}，{g_devname.devname}") Dim fromshow As New ActionParameter fromshow.KeyName = _grd.Cell(_grd.ActiveCell.Row, TableColNumber.KeyName).Text Dim rowtag As TableRowTag = Dic_ActionConfiguration.Item(e.Row - TableRowNumber.Max) fromshow.g_DevNodename = rowtag.G_DevNodeName fromshow.g_ExecutionMode = _grd.Cell(_grd.ActiveCell.Row, TableColNumber.SceneAttribute).Text fromshow.GetEquipmentParameter(g_devname.devname.ToUpper, _grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Text, BasicClasses) If fromshow.ShowDialog() <> DialogResult.OK Then Return _grd.Cell(_grd.ActiveCell.Row, _grd.ActiveCell.Col).Text = fromshow.G_Result Else AddLog($"添加下拉选项1 {g_devname.devname.ToUpper} { JsonConvert.SerializeObject(ComboDropDownDic)}") If ComboDropDownDic.ContainsKey(g_devname.devname.ToUpper) Then Dim li As List(Of String) = ComboDropDownDic.Item(g_devname.devname.ToUpper) If IsNothing（li） Then Return End If _grd.ComboBox(0).Items.AddRange(li.ToArray) Else For Each index In [Enum].GetValues(GetType(TableColSwitchKeyDate)) _grd.ComboBox(0).Items.Add(Chr(index)) Next End If End If End If End Select End Sub Public Function CheckDataIsOk(devname As String， datastr As String) As Boolean If String.IsNullOrEmpty(datastr) Then Return True Dim ComboDropDownDic As Dictionary(Of String, List(Of String)) = GetComboDropDownDic() Select Case devname.ToUpper Case "DIMMING", "PB_LINE_CONTROL", "PB_LED_DEVICE", "PB_STRIP_DEVICE" Dim dvalint As Integer = -1 If datastr.Equals(Chr(TableColSwitchKeyDate.TurnDrown).ToString()) OrElse datastr.Equals(Chr(TableColSwitchKeyDate.TurnOn).ToString()) Then Return True If Integer.TryParse(datastr, dvalint) Then If dvalint > -1 AndAlso dvalint < 101 Then Return True End If Else Return False End If Case "485MUSIC" Case "TEMP", "RS485_Curtain".ToUpper, "DRY_CURTAIN", "485FloorHeat".ToUpper, "485FreshAir".ToUpper, "INFRARED_FORWARD", "RELAY", "DO", "LIGHT", "CLED_FRESHAIR", "CLEDFLOORHEAT" For Each indx In ComboDropDownDic.Item(devname.ToUpper) If indx.Equals(datastr) Then Return True End If Next Return False Case "MUSIC".ToUpper Case "DRY_NoCard".ToUpper Case "Dev_ColorTemp".ToUpper Case "BLEMUSIC".ToUpper Case "HOPO_Curtain".ToUpper Case "Carbon_Device".ToUpper Case "Scene_Restore".ToUpper Case Else For Each index In [Enum].GetValues(GetType（TableColSwitchKeyDate）) If datastr.Equals(Chr(index).ToString) Then Return True End If Next End Select Return False End Function Public Sub SpecifySetting(devname As String, cand As String) Dim srowid As CtabRange = GetRowDevNametabRange(devname, TableColNumber.DeviceName) If IsNothing(srowid) Then Return For i = srowid.fr To srowid.lr 'If i = srowid.fr Then 'End If Select Case _grd.Cell(i, TableColNumber.KeyName).Text Case "Insert card" _grd.Range(i, TableColNumber.KeyName, i, TableColNumber.KeyName).SelectCells() AddSceneLine("Insert card") _grd.Cell(i + 1, TableColNumber.KeyName).Text = "pull out" 'Console.WriteLine(_grd.Cell(i + 1, TableColNumber.SceneAttribute).Text) If _grd.Cell(i + 1, TableColNumber.SceneAttribute).Text.Contains("1365,1") Then _grd.Cell(i + 1, TableColNumber.SceneAttribute).Text = "2730,1,1152921504606846976" Else _grd.Cell(i + 1, TableColNumber.SceneAttribute).Text = "2,1,1152921504606846976" End If i = i + 1 Case "door bell" _grd.Cell(i, TableColNumber.SceneAttribute).Text = "1,1,1152921504606847520" Case "SOS pressed" _grd.Range(i, TableColNumber.KeyName, i, TableColNumber.KeyName).SelectCells() AddSceneLine("SOS pressed") _grd.Cell(i + 1, TableColNumber.KeyName).Text = "SOS release" _grd.Cell(i + 1, TableColNumber.SceneAttribute).Text = "2,1,1152921504606846976" i = i + 1 Case "Open door contact" _grd.Range(i, TableColNumber.KeyName, i, TableColNumber.KeyName).SelectCells() AddSceneLine("Open door contact") _grd.Cell(i + 1, TableColNumber.KeyName).Text = "Close door contact" _grd.Cell(i, TableColNumber.SceneAttribute).Text = "2,1,1152921504606846976" i = i + 1 Case Else If _grd.Cell(i, TableColNumber.KeyName).Text.Contains("Sliding bar") Then _grd.Range(i, TableColNumber.KeyName, i, TableColNumber.KeyName).SelectCells() AddSceneLine("Right sliding") _grd.Cell(i + 1, TableColNumber.KeyName).Text = "Left sliding" _grd.Cell(i + 1, TableColNumber.SceneAttribute).Text = "1,1,1152921504606847008" i = i + 1 End If End Select Next End Sub Public Function AddSceneLine(Optional valname As String = ""， Optional condition As String = "") As Boolean If _grd.ActiveCell.Row >= TableRowNumber.Max And _grd.ActiveCell.Col >= TableColNumber.choose Then Dim Crowtag As TableRowTag = Dic_ActionConfiguration.Item(_grd.ActiveCell.Row - TableRowNumber.Max) If Crowtag.G_DevNodeName.Equals("HOSTSERVICE") AndAlso False Then MsgBox("The replication scenario fails, and the service scenario cannot be replicated！") Return False Else Dim rowtag As New TableRowTag rowtag.G_DevModeName = Crowtag.G_DevModeName rowtag.G_DevNodeName = Crowtag.G_DevNodeName rowtag.G_DevNodeIndex = Crowtag.G_DevNodeIndex rowtag.G_KeyType = Crowtag.G_KeyType Dim old_SceneID As String = _grd.Cell(_grd.ActiveCell.Row, TableColNumber.SceneID).Text Dim FirstRow, Firstcol, LastCol, Lastrow As Integer With _grd.Range(_grd.ActiveCell.Row, TableColNumber.DeviceName, _grd.ActiveCell.Row, TableColNumber.DeviceName) FirstRow = .FirstRow Firstcol = .FirstCol LastCol = .LastCol Lastrow = .LastRow End With Dic_ActionConfiguration.Insert(_grd.ActiveCell.Row - TableRowNumber.Max, rowtag) Dim growlock As Boolean = _grd.Row(_grd.ActiveCell.Row).Locked _grd.InsertRow(_grd.ActiveCell.Row, 1) _grd.Row(_grd.ActiveCell.Row).Locked = growlock For Each node In Crowtag.G_DicRow If node.Key = TableColNumber.SceneID Then rowtag.G_DicRow.Add(node.Key, old_SceneID) _grd.Cell(_grd.ActiveCell.Row, node.Key).Text = old_SceneID _grd.Cell(_grd.ActiveCell.Row + 1, node.Key).Text = _SceneID Else If node.Key = TableColNumber.KeyName AndAlso Not String.IsNullOrEmpty(valname) Then rowtag.G_DicRow.Add(node.Key, valname) _grd.Cell(_grd.ActiveCell.Row, node.Key).Text = valname ElseIf node.Key = TableColNumber.SceneAttribute AndAlso Not String.IsNullOrEmpty(condition) Then rowtag.G_DicRow.Add(node.Key, condition) _grd.Cell(_grd.ActiveCell.Row, node.Key).Text = condition Else rowtag.G_DicRow.Add(node.Key, node.Value) _grd.Cell(_grd.ActiveCell.Row, node.Key).Text = node.Value End If If node.Key = 6 Then _grd.Cell(_grd.ActiveCell.Row, node.Key).Tag = _grd.Cell(_grd.ActiveCell.Row + 1, node.Key).Tag End If End If Next Crowtag.G_DicRow.Item(TableColNumber.SceneID) = _SceneID _SceneID = _SceneID + 1 If FirstRow = _grd.ActiveCell.Row Then _grd.Range(FirstRow, TableColNumber.choose, FirstRow, TableColNumber.Max).Locked = False _grd.Range(FirstRow, TableColNumber.SceneAttribute, FirstRow, _grd.Cols - 1).CellType = CellTypeEnum.ComboBox _grd.Range(FirstRow, TableColNumber.choose, FirstRow, TableColNumber.choose).CellType = CellTypeEnum.CheckBox _grd.Range(FirstRow, TableColNumber.SceneID, FirstRow, TableColNumber.KeyVal).Locked = True Dim rlockli As New List(Of Integer) For rli = _grd.ActiveCell.Row To Lastrow + 1 If _grd.Row(rli).Locked = True Then _grd.Row(rli).Locked = False rlockli.Add(rli) End If Next _grd.Range(_grd.ActiveCell.Row, Firstcol, FirstRow + 1, LastCol).Locked = False _grd.Range(_grd.ActiveCell.Row, Firstcol, FirstRow + 1, LastCol).Merge() _grd.Range(_grd.ActiveCell.Row, Firstcol, FirstRow + 1, LastCol).Locked = True For Each rl In rlockli _grd.Row(rl).Locked = True Next End If '_grd.Range(_grd.ActiveCell.Row, Firstcol, Lastrow 1, LastCol).Locked = False '_grd.Range(_grd.ActiveCell.Row, Firstcol, Lastrow + 1, LastCol).Merge() '_grd.Range(_grd.ActiveCell.Row, Firstcol, Lastrow + 1, LastCol).Locked = True ChangeTheServiceLineNumber() Return True End If Else MsgBox("Failed to copy the scenario. The scenario to be copied is not selected！") Return False End If End Function Public Sub LaunchService() 'Dim srowid As CtabRange = GetRowDevNametabRange("HOSTSERVICE", TableColNumber.DeviceName) 'If IsNothing(srowid) Then Return 'For i = srowid.fr To srowid.lr ' If _grd.Row(i).Height > 0 Then ' _grd.Row(i).Height = 0 ' Else ' _grd.Row(i).Height = 19 ' End If 'Next DisplayDicCol() End Sub Public oldColDisplayDic As Dictionary(Of Integer, Boolean) Public Sub DisplayDicCol() If IsNothing(_grd) OrElse _grd.Cols = 0 Then Return If IsNothing(oldColDisplayDic) Then oldColDisplayDic = New Dictionary(Of Integer, Boolean) End If Dim isEmpty As Integer = oldColDisplayDic.Count For i = 1 To _grd.Cols - 1 If isEmpty = 0 Then If _grd.Column(i).Visible = True Then If oldColDisplayDic.ContainsKey(i) Then oldColDisplayDic.Item(i) = True Else oldColDisplayDic.Add(i, True) End If Else oldColDisplayDic.Add(i, False) End If _grd.Column(i).Visible = True Else If oldColDisplayDic.ContainsKey(i) Then _grd.Column(i).Visible = oldColDisplayDic.Item(i) oldColDisplayDic.Remove(i) End If End If Next End Sub Private CopyActionData As Dictionary(Of Integer, String） Public Sub CopySceneActionData() CopyActionData.Clear() If _grd.ActiveCell.Row > TableRowNumber.Max - 1 Then For ei As Integer = TableColNumber.KeyName To _grd.Cols - 1 CopyActionData.Add(ei, _grd.Cell(_grd.ActiveCell.Row, ei).Text.Trim) Next Else MsgBox("Non-scene action data cannot be copied!") End If End Sub Public Sub GlueSceneActionData() If CopyActionData.Count = 0 Then Return If _grd.ActiveCell.Row > TableRowNumber.Max - 1 Then If AddSceneLine() Then ' _grd.Cell(_grd.ActiveCell.Row + 1, TableColNumber.KeyName).Text = _grd.Cell(_grd.ActiveCell.Row + 1, TableColNumber.KeyName).Text.Trim & "(复制)" For Each index In CopyActionData If index.Key = TableColNumber.KeyName Then _grd.Cell(_grd.ActiveCell.Row + 1, index.Key).Text = index.Value.Trim & "(Copy)" Else _grd.Cell(_grd.ActiveCell.Row + 1, index.Key).Text = index.Value End If Next End If Else Return End If End Sub Public Sub SelectRowNode() 'LockGridAutoRedraw() If _grd.ActiveCell.Row > TableRowNumber.Max - 1 Then If _grd.ActiveCell.Col = TableColNumber.DeviceName Then Dim fr, lr， fc, lc As Integer With _grd.Range(_grd.ActiveCell.Row, TableColNumber.DeviceName, _grd.ActiveCell.Row, TableColNumber.DeviceName) fr = .FirstRow lr = .LastRow fc = .FirstCol lc = .LastCol End With Dim Removename As String = _grd.Cell(fr, TableColNumber.DeviceName).Text.Trim If Removename.Trim.Equals(hostname) Then MsgBox("Host devices cannot be deleted!!!") Return ElseIf Removename.Trim.Equals("HOSTSERVICE") Then MsgBox("The service module cannot be deleted!!!") Return Else Dim devmode As DeviceModel = Dic_Devicemodel.Item(Removename) Dic_Devicemodel.Remove(Removename) Dim serverli As New List(Of String) For i = fr To lr '从模块最大行号开始删 Dim deleteid As Integer = lr - i + fr '先删除输入行 _grd.Row(deleteid).Delete() Dim rowtag As TableRowTag = Dic_ActionConfiguration.Item(deleteid - TableRowNumber.Max) Dic_ActionConfiguration.RemoveAt(deleteid - TableRowNumber.Max) If rowtag.G_DicRow.ContainsKey(TableColNumber.ServerAttribute) Then Dim serverstr As String = rowtag.G_DicRow.Item(TableColNumber.ServerAttribute) If Not String.IsNullOrEmpty(serverstr) Then serverli.Add(serverstr) End If End If Next ChangeTheServiceLineNumber() For Each serverstr In serverli Dim wbuff() As String = serverstr.Trim.Split(vbLf) For Each index In wbuff grdRemoveServerRow(index) Next Next Dim coldevname As String = String.Empty Dim TCols As Integer = _grd.Cols - 2 For ci = TableColNumber.InsertColumn To TCols With _grd.Range(TableRowNumber.DeviceName, ci, TableRowNumber.DeviceName, ci) fr = .FirstRow lr = .LastRow fc = .FirstCol lc = .LastCol End With If Removename.Equals(_grd.Cell(fr, fc).Text.Trim) Then '清空待删列缓存数据 DeleteTableClunm(fc, lc) '删除列 Dim cons As Integer = ColumnAnothername.Count For indekey = 0 To cons - 1 If ColumnAnothername.Keys(cons - 1 - indekey).Contains(Removename) Then ColumnAnothername.Remove(ColumnAnothername.Keys(cons - 1 - indekey)) End If Next _grd.Range(0, fc, _grd.Rows - 1, lc).DeleteByCol() _ColumnStartLoad = _ColumnStartLoad - (lc - fc + 1) Exit For End If ci = lc Next '如果是特殊设备 Unboundrelay(devmode) End If Else Dim topval， inthepval， downpval As String topval = _grd.Cell(_grd.ActiveCell.Row - 1, TableColNumber.KeyVal).Text.Trim inthepval = _grd.Cell(_grd.ActiveCell.Row, TableColNumber.KeyVal).Text.Trim If _grd.ActiveCell.Row + 1 > _grd.Rows - 1 Then downpval = String.Empty Else downpval = _grd.Cell(_grd.ActiveCell.Row + 1, TableColNumber.KeyVal).Text.Trim End If Dim rowtag As TableRowTag = Dic_ActionConfiguration.Item(_grd.ActiveCell.Row - TableRowNumber.Max) Dim g_devname = New CtabRange(_grd, _grd.ActiveCell.Row, TableColNumber.DeviceName) If g_devname.devname.Trim.Equals("HOSTSERVICE") Then MsgBox("服務模块不可删除!!!") Return End If If Not String.IsNullOrEmpty(inthepval) Then If topval.Equals(inthepval) OrElse downpval.Equals(inthepval) Then Dim deleterow As Integer = _grd.ActiveCell.Row Dim srowid As CtabRange = GetRowDevNametabRange(rowtag.G_DevModeName, TableColNumber.DeviceName) _grd.Row(deleterow).Delete() Dic_ActionConfiguration.RemoveAt(deleterow - TableRowNumber.Max) If srowid.fr = deleterow Then _grd.Cell(deleterow, TableColNumber.DeviceName).Text = rowtag.G_DevModeName _grd.Range(deleterow, TableColNumber.DeviceName, srowid.lr - 1, TableColNumber.DeviceName).Merge() _grd.Range(deleterow, TableColNumber.DeviceName, srowid.lr - 1, TableColNumber.DeviceName).Locked = True End If 'If rowtag.G_DevModeName.Equals（hostname） Then ' _ServerInsertRows = _ServerInsertRows - 1 ' For dei As Integer = 0 To _ServerAction.Count - 1 ' _ServerAction.Item(_ServerAction.Keys(dei)) = _ServerAction.Values(dei) - 1 ' Next 'End If If rowtag.G_DicRow.ContainsKey(TableColNumber.ServerAttribute) Then Dim serverstr As String = rowtag.G_DicRow.Item(TableColNumber.ServerAttribute) If Not String.IsNullOrEmpty(serverstr) Then Dim wbuff() As String = serverstr.Trim.Split(vbLf) For Each index In wbuff grdRemoveServerRow(index) Next End If End If ChangeTheServiceLineNumber() Else MsgBox("设备固定输入不可删除") End If End If End If ElseIf _grd.ActiveCell.Row = TableRowNumber.DeviceName AndAlso _grd.ActiveCell.Col >= TableColNumber.InsertColumn AndAlso _grd.ActiveCell.Col < (_grd.Cols - 1) Then Dim g_devname = New CtabRange(_grd, TableRowNumber.DeviceName, _grd.ActiveCell.Col) Dim srowid As CtabRange = GetRowDevNametabRange(g_devname.devname, TableColNumber.DeviceName) If g_devname.devname.Trim.Equals(hostname) Then MsgBox("主机设备不可删除!!!") Return End If '删除行 Dim devmode As DeviceModel = Dic_Devicemodel.Item(g_devname.devname) Dic_Devicemodel.Remove(g_devname.devname) If Not IsNothing（srowid） Then Dim serverli As New List(Of String) For i = srowid.fr To srowid.lr '从模块最大行号开始删 Dim deleteid As Integer = srowid.lr - i + srowid.fr '先删除输入行 _grd.Row(deleteid).Delete() Dim rowtag As TableRowTag = Dic_ActionConfiguration.Item(deleteid - TableRowNumber.Max) Dic_ActionConfiguration.RemoveAt(deleteid - TableRowNumber.Max) If rowtag.G_DicRow.ContainsKey(TableColNumber.ServerAttribute) Then Dim serverstr As String = rowtag.G_DicRow.Item(TableColNumber.ServerAttribute) If Not String.IsNullOrEmpty(serverstr) Then serverli.Add(serverstr) End If End If Next End If '清空待删列缓存数据 DeleteTableClunm(g_devname.fc, g_devname.lc) '删除列 Dim cons As Integer = ColumnAnothername.Count For indekey = 0 To cons - 1 If ColumnAnothername.Keys(cons - 1 - indekey).Contains(g_devname.devname) Then ColumnAnothername.Remove(ColumnAnothername.Keys(cons - 1 - indekey)) End If Next _grd.Range(0, g_devname.fc, _grd.Rows - 1, g_devname.lc).DeleteByCol() _ColumnStartLoad = _ColumnStartLoad - (g_devname.lc - g_devname.fc + 1) '如果是特殊设备 Unboundrelay(devmode) End If UnLockGridAutoRedraw() End Sub Public Sub Unboundrelay(devmode As DeviceModel) If IsNothing（devmode） Then Return If devmode.Nodes(0).Name.Equals("CURTAIN") OrElse devmode.Nodes(0).Name.ToUpper.Equals("485FreshAir".ToUpper) OrElse devmode.Nodes(0).Name.ToUpper.Equals("485FloorHeat".ToUpper) OrElse devmode.Nodes(0).Name.ToUpper.Equals("CLED_FRESHAIR".ToUpper) OrElse devmode.Nodes(0).Name.ToUpper.Equals("CLEDFLOORHEAT".ToUpper) Then Dim oldbuf() As String = devmode.Desc.ProtocolData.Split(",") If Not IsNothing（oldbuf） AndAlso oldbuf.Length > 0 Then For Each index In oldbuf Dim g_DevRELAYrow = GetDevLoopName("RELAY", "PB_RELAY_DEVICE") If String.IsNullOrEmpty(index) Then Continue For Dim oldcbuf() As String = index.Split("*") Dim buf As String = $"{oldcbuf(0)}*{oldcbuf(1)}*{oldcbuf(2)}" If g_DevRELAYrow.ContainsKey(buf) AndAlso _grd.Cols > g_DevRELAYrow.Item(buf) Then _grd.Column(g_DevRELAYrow.Item(buf)).Visible = True _grd.Column(g_DevRELAYrow.Item(buf)).Locked = False End If Next End If Else For Each node In devmode.Nodes If node.Name.ToUpper.Equals("TEMP") Then Dim dic As Dictionary(Of String, String) = JsonConvert.DeserializeObject(Of Dictionary(Of String, String))(devmode.Desc.ProtocolData) If Not IsNothing（dic） AndAlso dic.Count > 0 Then For Each index In dic Dim g_DevRELAYrow = GetDevLoopName("RELAY", "PB_RELAY_DEVICE") If g_DevRELAYrow.ContainsKey(index.Value) AndAlso _grd.Cols > g_DevRELAYrow.Item(index.Value) Then _grd.Column(g_DevRELAYrow.Item(index.Value)).Visible = True _grd.Column(g_DevRELAYrow.Item(index.Value)).Locked = False End If Next End If ElseIf node.Name.Equals("Dev_ColorTemp") Then For i = 1 To node.Nodes.Count Dim Index = node.Nodes（i - 1） If Index.DefaultClass.Equals("Dev_ColorTemp") Then Dim Oldcdic As List(Of List(Of String)) = JsonConvert.DeserializeObject(Of List(Of List(Of String)))(Index.Description) If Not IsNothing（Oldcdic） AndAlso Oldcdic.Count > 0 Then For Each oldnode In Oldcdic If Not IsNothing（oldnode） AndAlso oldnode.Count > 4 Then SetColumnBind(oldnode(4), oldnode(0), oldnode(2), True) End If Next End If End If Next End If Next End If End Sub Public Sub SetColumnBind(devname As String, nodetype As String， devloop As String, istrue As Boolean) If String.IsNullOrEmpty(devloop) Then Return For i = TableInteraction.TableColNumber.InsertColumn To _grd.Cols - 1 Dim g_devname = New CtabRange(_grd, TableInteraction.TableRowNumber.DeviceName, i) If g_devname.devname.Equals(devname) Then For ci = g_devname.fc To g_devname.lc Dim g_devcloumn = New CtabRange(_grd, TableInteraction.TableRowNumber.FunctionAnotherName, i) If g_devcloumn.devname.Equals(nodetype) Then For vi = g_devcloumn.fc To g_devcloumn.lc If _grd.Cell(TableInteraction.TableRowNumber.FunctionChildNodeID, vi).Text.Equals(devloop) Then _grd.Column(vi).Visible = istrue Console.WriteLine($"Column{vi},Visible{istrue}") Exit Sub End If Next End If Next End If Next End Sub Private Sub DeleteTableClunm(startindex As Integer， endtindex As Integer) Dim len As Integer = endtindex - startindex + 1 Dim dic As New List(Of (Integer, String)) Dim dick, dicv As String Dim G_DicRowlen As Integer = -1 For i = TableRowNumber.Max To _grd.Rows - 1 Dim rowtag As TableRowTag = Dic_ActionConfiguration.Item(i - TableRowNumber.Max) '删除每行中需要删的列数据 'For j = startindex To endtindex ' If rowtag.G_DicRow.ContainsKey(j) Then ' rowtag.G_DicRow.Remove(j) ' End If 'Next '变更列号 dic.Clear() G_DicRowlen = rowtag.G_DicRow.Count - 1 For nodeindex As Integer = 0 To G_DicRowlen dick = rowtag.G_DicRow.Keys(nodeindex) dicv = rowtag.G_DicRow.Values(nodeindex) If dick >= startindex AndAlso dick <= endtindex Then dic.Add((dick, "Remove")) End If If dick > endtindex Then dic.Add((dick, "Alter")) End If Next If dic.Count > 2 Then Console.WriteLine("") End If dic.Sort() For Each node In dic Select Case node.Item2 Case "Alter" Dim news As String = rowtag.G_DicRow.Item(node.Item1) rowtag.G_DicRow.Add((node.Item1 - len), rowtag.G_DicRow.Item(node.Item1)) rowtag.G_DicRow.Remove(node.Item1) Case "Remove" rowtag.G_DicRow.Remove(node.Item1) End Select Next Next End Sub #End Region #Region "编译" Public Function TableCompiletoByte(Optional savePath As String = "", Optional ByVal IsShowCompileResult As Boolean = False, Optional ByVal ifCfgVerPlusPlus As Boolean = False) As Boolean Dim lst As New List(Of Byte()) _actionIndex = 1 Dim newTableCompile As New TableCompile Dim configInfoLst As New List(Of Byte()) ' 编译配置信息 If IsNothing(ConfigInfo.Author) Then MsgBox("Room type not selected！！！") Return False End If Dim tmpInfo() As Byte = FillConfigInfo(ConfigInfo, hostname).ToArray configInfoLst.Add(tmpInfo) Console.WriteLine($"Compile configuration information：{ByteToString(tmpInfo)}") lst.AddRange(configInfoLst.ToArray) '编译设备存在 Dim deviceExistsDatas As List(Of Byte()) Dim OutDevlist As New List(Of Byte) deviceExistsDatas = FillDeviceExistsData(Dic_Devicemodel) lst.AddRange(deviceExistsDatas.ToArray) '获取编译的设备动作 Dim actibuf As List(Of Byte()) = FillDeviceObject(Dic_Devicemodel, Dic_ActionConfiguration, _grd) For Each buf In actibuf lst.Add(buf) Next '语音 actibuf = VoicementDeviceObject() For Each buf In actibuf lst.Add(buf) Next '编译场景 Dim NoCardDatabuf As List(Of Byte()) = GetNoCardData() For Each buf In NoCardDatabuf lst.Add(buf) Next '编译场景信息 Dim SceneDatas As List(Of Byte()) SceneDatas = FillSceneData(Dic_ActionConfiguration) lst.AddRange(SceneDatas.ToArray) Dim frames As List(Of Byte()) = newTableCompile.FillDataFrames(lst) Dim path As String = savePath.Replace(".blv", ".dat") 'Dim filename As String = Application.StartupPath & "\Shipment\test.dat" 'If Not IO.Directory.Exists(Application.StartupPath & "\Shipment\") Then IO.Directory.CreateDirectory(Application.StartupPath & "\Shipment\") If IO.File.Exists(path) Then IO.File.Delete(path) Using steam As New IO.FileStream(path, IO.FileMode.OpenOrCreate) For Each frame As Byte() In frames steam.Write(frame, 0, frame.Length) Console.WriteLine($"Length:{frame.Length:D4} Data:{BitConverter.ToString(frame).Replace("-", " ")}") Next steam.Flush() steam.Close() End Using Dim filebuff() As Byte = IO.File.ReadAllBytes(path) Dim ismod As Integer = filebuff.Length Mod 4 Dim buff As New List(Of Byte) buff.AddRange(filebuff) For isnum As Integer = 1 To （4 - ismod） buff.Add(0) Next IO.File.WriteAllBytes(path, buff.ToArray) MsgBox($"Compile complete：{path}") Return True End Function Public Function GetNoCardData() As List(Of Byte()) Dim result As New List(Of Byte()) Dim UniqueDevice As DeviceModel Dim NoCardNode As DeviceChildNodeClass Dim vli， nli As List(Of Byte()) Dim mli As Byte() For Each index In Dic_Devicemodel.Values For Each node In index.Nodes If node.Name.Equals("Virtual_Card") Then UniqueDevice = index NoCardNode = node vli = PortInformation(NoCardNode) nli = ConditionalInformation(UniqueDevice) mli = EquipmentCommonStats(UniqueDevice) If Not IsNothing(vli) AndAlso vli.Count > 0 AndAlso Not IsNothing(vli) AndAlso vli.Count > 0 Then result.AddRange(vli) result.AddRange(nli) If Not IsNothing(mli) AndAlso mli.Count > 0 Then result.Add(mli) End If End If End If Next Next Return result End Function Public Function EquipmentCommonStats(UniqueDevice As DeviceModel) As Byte() Dim lst As New List(Of Byte) Dim strbuf() As String = UniqueDevice.Desc.ProtocolData.Split(",") If strbuf.Length < 2 Then Return Nothing Dim cmd As Byte = &HB lst.Add(cmd) lst.Add(If(strbuf(0).Equals("1"), 1, 0)) Dim number As Integer = 0 If String.IsNullOrEmpty(strbuf(1)) Then lst.AddRange(BitConverter.GetBytes(CShort(number))) Else Integer.TryParse(strbuf(1), number) lst.AddRange(BitConverter.GetBytes(CShort(number))) End If lst.Add(CInt(strbuf(2))) Return lst.ToArray End Function '端口信息 Public Function PortInformation(NoCardNode As DeviceChildNodeClass) As List(Of Byte()) Dim result As New List(Of Byte()) Dim sbuf() As String Dim isport As Boolean For Each node In NoCardNode.Nodes sbuf = node.Description.Split(",") isport = True For i = 0 To sbuf.Length - 1 If String.IsNullOrEmpty(sbuf(i)) AndAlso (i <> 2 AndAlso i <> 3) Then isport = False End If Next If isport AndAlso sbuf.Length > 4 Then result.Add(GetPortInformation(node.LoopAddr, node.Description)) Else Continue For End If Next Return result End Function Public Function GetPortInformation(LoopAddr As String， nStr As String) As Byte() Dim cmd As Byte = &H9 Dim Data = New List(Of Byte) Dim strbuf() As String = nStr.Split(",") Data.Add(cmd) Data.Add(CInt(strbuf(5))) Data.Add(CInt(strbuf(6))) Data.AddRange(BitConverter.GetBytes(CShort(CInt(strbuf(4))))) If String.IsNullOrEmpty(strbuf(2)) Then Data.Add(0) Else Data.Add(CInt(strbuf(2))) End If Data.Add(CInt(LoopAddr)) '- 1) '增加了减1 If String.IsNullOrEmpty(strbuf(3)) OrElse strbuf(3).Equals("0") Then Data.Add(0) Else Data.Add(1) End If Return Data.ToArray End Function Public Function ConditionalInformation(UniqueDevice As DeviceModel) As List(Of Byte()) Dim result As New List(Of Byte()) Dim sbuf() As String Dim isport As Boolean Dim IfGridRowdic As Dictionary(Of String, List(Of String)) Try IfGridRowdic = JsonConvert.DeserializeObject(Of Dictionary(Of String, List(Of String)))(UniqueDevice.Desc.DevDescription) Catch ex As Exception Return Nothing End Try If IsNothing(IfGridRowdic) Then Return result For Each index In IfGridRowdic For Each node In index.Value sbuf = node.Split(",") isport = True For Each nStr In sbuf If String.IsNullOrEmpty(nStr) Then isport = False End If Next If isport AndAlso sbuf.Length > 3 Then result.Add(GetConditionalInformation(index.Key, node)) Else Continue For End If Next Next Return result End Function '条件信息 Public Function GetConditionalInformation(key As String, nStr As String) As Byte() Dim cmd As Byte = &H8 Dim Data = New List(Of Byte) Dim strbuf() As String = nStr.Split(",") Dim nbbuf() As String Data.Add(cmd) nbbuf = strbuf(1).Split(":") Data.Add(PowerSupply.GetNoCarDataKeyVal(nbbuf(0))) Data.Add(CInt(key)) Data.Add(strbuf(0)) Data.AddRange(BitConverter.GetBytes(CShort(CInt(strbuf(13))))) Data.Add(GetGlossary8(strbuf(14))) For i = 1 To 11 'nbbuf = strbuf(i + 1).Split(":") Data.Add(PowerSupply.GetNoCarDataKeyVal(strbuf(i + 1))) Next Return Data.ToArray End Function Public Function GetGlossary8(sb As String) As Byte Dim result As Byte = 0 Select Case sb Case "S" result = 1 Case "m" result = 2 Case "H" result = 3 Case Else result = 0 End Select Return result End Function Private Function FillSceneData(SwitchConfig As List(Of TableRowTag)) As List(Of Byte()) Dim tmpBufferCount As Integer = 0 Dim resultDatas As New List(Of Byte()) Dim cmd As Byte = &H6 Dim buf As List(Of Byte) For Each num In SwitchConfig buf = New List(Of Byte) buf.Add(cmd) tmpBufferCount = CShort(num.G_DicRow.Item(TableColNumber.SceneID)) buf.AddRange(BitConverter.GetBytes(tmpBufferCount)) '2字节场景编号 Dim aliasData() As Byte = AliasEncoding.GetBytes(num.G_DicRow.Item(TableColNumber.KeyName)) ReDim Preserve aliasData(15) buf.AddRange(aliasData) '16字节场景别名 buf.AddRange(BitConverter.GetBytes(tmpBufferCount)) '2n动作编号集 'tmpBufferCount = tmpBufferCount + buf.Count resultDatas.Add(buf.ToArray) Next 'PrintInfo("场景编译完成，长度：" & tmpBufferCount & "Bytes") Return resultDatas End Function Public Function FillDeviceObject(ByRef DeviceModuleDic As Dictionary(Of String， DeviceModel), SwitchConfig As List(Of TableRowTag), Grid1 As FlexCell.Grid) As List(Of Byte()) '返回变量 Dim result As New List(Of Byte()) '行tag Dim rowtag As TableRowTag '编译固定参书 Dim cmd As Byte = &H4 Dim g_devLoop As Integer = 1 '遍历每个事件 For i As Integer = 0 To SwitchConfig.Count - 1 '取行tag、 rowtag = SwitchConfig.Item(i) '枚举列直 '判断是否执行 If rowtag.G_DicRow.Count > 0 AndAlso rowtag.G_DicRow.Item(TableColNumber.choose).Equals("1") AndAlso Not String.IsNullOrEmpty(rowtag.G_DicRow.Item(TableColNumber.SceneAttribute)) Then Dim Grow As Integer = i + TableRowNumber.Max Dim celltag As Dictionary(Of String, String) = JsonConvert.DeserializeObject(Of Dictionary(Of String, String))(_grd.Cell(Grow, TableColNumber.SceneAttribute).Tag) If Not IsNothing(celltag) AndAlso celltag.ContainsKey("CallRow") Then Continue For End If '模型的设备类型 Console.WriteLine($"FillDeviceObject 2561 {rowtag.G_DevModeName}") Dim devType As Byte Try devType = GetActionDeviceType(DeviceModuleDic, rowtag.G_DevModeName, rowtag.G_DevNodeName) Catch ex As Exception Console.WriteLine($"FillDeviceObject 2561 {rowtag.G_DevModeName}") End Try '模型的拨码地址 Dim devAddr As Byte = GetActionDeviceAddr(DeviceModuleDic, rowtag.G_DevModeName, rowtag.G_DevNodeName) '回路地址 Dim devLoop() As Byte = BitConverter.GetBytes(CShort(rowtag.G_DevNodeIndex)) '获取场景属性 Dim Exbuf() As String = rowtag.G_DicRow.Item(TableColNumber.SceneAttribute).Split(",") '事件编号 Dim strEventNum As UShort = 1 UShort.TryParse(Exbuf(0), strEventNum) Dim eventNum() As Byte = BitConverter.GetBytes(strEventNum) '执行条件编译数据 Dim clause() As Byte = GetConditionDataUnderConditionGroup(Exbuf(2)) '取执行模式 Dim condition As Byte Dim isCheckOut As Integer = 0 Dim CheckOutdeng As Integer = 0 Select Case Exbuf(1) Case "8", "9" condition = GetExecModeDataUnderCondtion(2) isCheckOut = CInt（Exbuf(1)) Case "7", "10" condition = GetExecModeDataUnderCondtion(1) isCheckOut = CInt（Exbuf(1)) Case Else condition = GetExecModeDataUnderCondtion(Exbuf(1)) End Select '事件条件别名 Dim aliasbuf(31) As Byte '场景编号 Dim sceneIndex As UShort = CUShort(rowtag.G_DicRow.Item(TableColNumber.SceneID)) Dim sceneNum() As Byte = BitConverter.GetBytes(sceneIndex) '30位保留字段 Dim keepBuf(31) As Byte '保留字段(32字节) -> 2022-05-28 V3.1 32bytes Dim keepParam(31) As Byte '执行动作 Dim ncbuf As New List(Of Byte()) Dim Scenebuf As New List(Of Byte()) Dim multiplebuf As New List(Of List(Of Byte())) Dim col As Integer = -1 Dim t_col As Integer = -1 Dim DevGroupName As String = String.Empty Dim databuff As List(Of Byte()) Dim textval As String = String.Empty Dim DevModeName As String Dim Ismusic As Boolean = False Dim CheckOutDic As New Dictionary(Of String, List(Of Byte)) '''转移到 入住服务 'If Not IsNothing(celltag) AndAlso celltag.ContainsKey("34 A9PB调光渐变时间") Then ' Dim Rdic As New Dictionary(Of String， String) ' Dim Musicdic As New Dictionary(Of String， String) ' Dim partime As String = String.Empty ' Dim partime1 As String = String.Empty ' For Each TheDevMode In DeviceModuleDic.Values ' Musicdic.Clear() ' Rdic.Clear() ' Select Case TheDevMode.Desc.Name ' Case "灯带" ' Rdic.Add("Dimming".ToUpper, "36 灯带调光渐变时间") ' partime = celltag.Item("36 灯带调光渐变时间") ' Case "1到10V调光" ' Rdic.Add("Dimming".ToUpper, "32 1-10V调光渐变时间") ' partime = celltag.Item("32 1-10V调光渐变时间") ' Case "A9调光" ' Rdic.Add("Dimming".ToUpper, "33 A9恒压调光渐变时间") ' partime = celltag.Item("33 A9恒压调光渐变时间") ' Case "A8PB调光" ' Rdic.Add("Dimming".ToUpper, "34 A9PB调光渐变时间") ' partime = celltag.Item("34 A9PB调光渐变时间") ' 'Case "PB" ' Case "PB_STRIP_DEVICE" ' Rdic.Add("PB_STRIP_DEVICE".ToUpper, "C8PLC外设恒压调光渐变时间") ' partime = celltag.Item("C8PLC外设恒压调光渐变时间") ' Case "BLV_C12" ' For Each configindex In TheDevMode.Nodes ' Select Case configindex.Name ' Case "PB_LINE_CONTROL".ToUpper ' Rdic.Add("PB_LINE_CONTROL".ToUpper, "C8PLC自带恒压调光渐变时间") ' partime = celltag.Item("C8PLC自带恒压调光渐变时间") ' partime1 = celltag.Item("48 主机调光百分比值(0-100)") ' Case "Dimming".ToUpper ' Rdic.Add("Dimming".ToUpper, "35 C12调光渐变时间") ' partime = celltag.Item("35 C12调光渐变时间") ' partime1 = celltag.Item("48 主机调光百分比值(0-100)") ' End Select ' Next ' If Not String.IsNullOrEmpty(celltag.Item("7 设定音乐音量")) Then ' Musicdic.Add(7, celltag.Item("7 设定音乐音量")) ' End If ' If Not String.IsNullOrEmpty(celltag.Item("8 设定提示音音量")) Then ' Musicdic.Add(8, celltag.Item("8 设定提示音音量")) ' End If ' If Not String.IsNullOrEmpty(celltag.Item("9 设定门铃和欢迎词音量")) Then ' Musicdic.Add(9, celltag.Item("9 设定门铃和欢迎词音量")) ' End If ' If Not String.IsNullOrEmpty(celltag.Item("10 设定全局音量上限")) Then ' Musicdic.Add(10, celltag.Item("10 设定全局音量上限")) ' 'Musicdic.Add(10, celltag.Item("10 设定最大音量限制")) ' End If ' If Not String.IsNullOrEmpty(celltag.Item("12 设定助眠音量")) Then ' Musicdic.Add(12, celltag.Item("12 设定助眠音量")) ' 'Musicdic.Add(10, celltag.Item("10 设定最大音量限制")) ' End If ' Case Else ' Continue For ' End Select ' If Rdic.ContainsKey("PB_LINE_CONTROL".ToUpper) Then ' If String.IsNullOrEmpty(partime) AndAlso String.IsNullOrEmpty(partime1) Then Continue For ' databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "PB_LINE_CONTROL"， 1， $"0,0,9,{partime}", Rdic) ' If Not IsNothing(databuff) Then ' ncbuf.AddRange(databuff.ToArray) ' End If ' databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "PB_LINE_CONTROL"， 1， $"0,0,10,{partime1}", Rdic) ' If Not IsNothing(databuff) Then ' ncbuf.AddRange(databuff.ToArray) ' End If ' End If ' If Rdic.ContainsKey("PB_STRIP_DEVICE".ToUpper) Then ' If String.IsNullOrEmpty(partime) AndAlso String.IsNullOrEmpty(partime1) Then Continue For ' databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "PB_STRIP_DEVICE"， 1， $"0,0,9,{partime}", Rdic) ' If Not IsNothing(databuff) Then ' ncbuf.AddRange(databuff.ToArray) ' End If ' 'databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "PB_LINE_CONTROL"， 1， $"0,0,10,{partime}", Rdic) ' 'If Not IsNothing(databuff) Then ' ' ncbuf.AddRange(databuff.ToArray) ' 'End If ' End If ' If Rdic.ContainsKey("Dimming".ToUpper) Then ' If String.IsNullOrEmpty(partime) AndAlso String.IsNullOrEmpty(partime1) Then Continue For ' databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "Dimming"， 1， $"0,0,1,{partime}", Rdic) ' If Not IsNothing(databuff) Then ' ncbuf.AddRange(databuff.ToArray) ' End If ' Rdic.Clear() ' Rdic.Add("Dimming".ToUpper, "48 主机调光百分比值(0-100)") ' databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "Dimming"， 1， $"0,0,16,{partime1}", Rdic) ' If Not IsNothing(databuff) Then ' ncbuf.AddRange(databuff.ToArray) ' End If ' End If ' If Musicdic.Count > 0 Then ' For Each mnode In Musicdic ' databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "MUSIC"， 1， $"0,0,0,{mnode.Key },{mnode.Value },0", Nothing) ' If IsNothing(databuff) Then Continue For ' ncbuf.AddRange(databuff.ToArray) ' Next ' End If ' Next 'End If '遍历设备列表 If rowtag.G_DicRow.ContainsKey(TableColNumber.ServerAttribute) = False OrElse String.IsNullOrEmpty(rowtag.G_DicRow.Item(TableColNumber.ServerAttribute)) Then '按键 Else '服务 '获取场景属性 Dim Tserverbuf() As String = rowtag.G_DicRow.Item(TableColNumber.ServerAttribute).Split(vbLf) For Each Findex In Tserverbuf Dim serverbuf() As String = Findex.Split(",") DevModeName = hostname DevGroupName = "HOSTSERVICE" databuff = GetActionDatagather(DeviceModuleDic, DevModeName, DevGroupName， serverbuf(0)， serverbuf(1), Nothing, CInt(serverbuf(2)), CInt(serverbuf(3))) If IsNothing(databuff) Then Continue For ncbuf.AddRange(databuff.ToArray) Scenebuf.AddRange(databuff.ToArray) Next End If If Not IsNothing(celltag) AndAlso celltag.ContainsKey("CallRowA") AndAlso Not String.IsNullOrEmpty(celltag.Item("CallRowA")) Then '添加反饋燈 Dim callA() = celltag.Item("CallRowA").Split(",") For Each callindex In callA databuff = AdditionalFeedbackLamp(callindex， DeviceModuleDic， celltag) If IsNothing(databuff) Then Continue For ncbuf.AddRange(databuff.ToArray) Scenebuf.AddRange(databuff.ToArray) databuff = ParallelScenario(callindex， DeviceModuleDic, SwitchConfig) If Not IsNothing(databuff) Then multiplebuf.Add(databuff) End If Next End If For Each index In rowtag.G_DicRow Integer.TryParse(index.Key, col) 'If index.Value.Equals("插卡") Then If index.Value.Equals("Check-in service") And rowtag.G_DicRow.Item(TableColNumber.SceneAttribute).Substring(0, 1).Equals("1") Then Dim onecelltag As Dictionary(Of String, String) = JsonConvert.DeserializeObject(Of Dictionary(Of String, String))(_grd.Cell(7, TableColNumber.SceneAttribute).Tag) If Not IsNothing(onecelltag) AndAlso onecelltag.ContainsKey("34 A9PB Dimming gradient time") Then Dim Rdic As New Dictionary(Of String， String) Dim Musicdic As New Dictionary(Of String， String) Dim partime As String = String.Empty Dim partime1 As String = String.Empty Dim partime2 As String = String.Empty Dim partime3 As String = String.Empty For Each TheDevMode In DeviceModuleDic.Values Musicdic.Clear() Rdic.Clear() Select Case TheDevMode.Desc.Name Case "灯带" Rdic.Add("Dimming".ToUpper, "36 Dimming gradient time of light strip") partime = onecelltag.Item("36 Dimming gradient time of light strip") Case "1到10V调光" Rdic.Add("Dimming".ToUpper, "32 1-10V Dimming gradient time") partime = onecelltag.Item("32 1-10V Dimming gradient time") Case "A9调光" Rdic.Add("Dimming".ToUpper, "33 A9 Constant voltage dimming gradient time") partime = onecelltag.Item("33 A9 Constant voltage dimming gradient time") Case "A8PB调光" Rdic.Add("Dimming".ToUpper, "34 A9PB Dimming gradient time") partime = onecelltag.Item("34 A9PB Dimming gradient time") 'Case "PB" Case "PB_STRIP_DEVICE" Rdic.Add("PB_STRIP_DEVICE".ToUpper, "C8PLC peripheral constant voltage dimming gradient time") partime = onecelltag.Item("C8PLC peripheral constant voltage dimming gradient time") Case "BLV_C12" For Each configindex In TheDevMode.Nodes Select Case configindex.Name Case "PB_LINE_CONTROL".ToUpper Rdic.Add("PB_LINE_CONTROL".ToUpper, "C8PLC comes with constant pressure dimming gradient time") partime = onecelltag.Item("C8PLC comes with constant pressure dimming gradient time") If onecelltag.ContainsKey("48 Percentage of host dimming(0-100)") Then partime1 = onecelltag.Item("48 Percentage of host dimming(0-100)") Else partime1 = Nothing End If If onecelltag.ContainsKey("50 Adjustable Lower limit Settings (0-100)") Then partime2 = onecelltag.Item("50 Adjustable Lower limit Settings (0-100)") Else partime2 = Nothing End If If onecelltag.ContainsKey("49 Adjustable Upper limit Settings (0-100)") Then partime3 = onecelltag.Item("49 Adjustable Upper limit Settings (0-100)") Else partime3 = Nothing End If Case "Dimming".ToUpper Rdic.Add("Dimming".ToUpper, "35 C12 dimming gradient") partime = onecelltag.Item("35 C12 Dimming gradient time") If onecelltag.ContainsKey("48 Host dimming percentage (0-100)") Then partime1 = onecelltag.Item("48 Host dimming percentage (0-100)") Else partime1 = Nothing End If If onecelltag.ContainsKey("50 Adjustable Lower limit Settings (0-100)") Then partime2 = onecelltag.Item("50 Adjustable Lower limit Settings (0-100)") Else partime2 = Nothing End If If onecelltag.ContainsKey("49 Adjustable Upper limit Settings (0-100)") Then partime3 = onecelltag.Item("49 Adjustable Upper limit Settings (0-100)") Else partime3 = Nothing End If End Select Next If Not String.IsNullOrEmpty(onecelltag.Item("7 Set music volume")) Then Musicdic.Add(7, onecelltag.Item("7 Set music volume")) End If If Not String.IsNullOrEmpty(onecelltag.Item("8 Set prompt sound volume")) Then Musicdic.Add(8, onecelltag.Item("8 Set prompt sound volume")) End If If Not String.IsNullOrEmpty(onecelltag.Item("9 Set doorbell and welcome message volume")) Then Musicdic.Add(9, onecelltag.Item("9 Set doorbell and welcome message volume")) End If If Not String.IsNullOrEmpty(onecelltag.Item("10 Set global volume limit")) Then Musicdic.Add(10, onecelltag.Item("10 Set global volume limit")) 'Musicdic.Add(10, onecelltag.Item("10 Set global volume limit")) End If If Not String.IsNullOrEmpty(onecelltag.Item("12 Set sleep aid volume")) Then Musicdic.Add(12, onecelltag.Item("12 Set sleep aid volume")) 'Musicdic.Add(10, celltag.Item("10 设定最大音量限制")) End If Case Else Continue For End Select If Rdic.ContainsKey("PB_LINE_CONTROL".ToUpper) Then If String.IsNullOrEmpty(partime) AndAlso String.IsNullOrEmpty(partime1) Then Continue For databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "PB_LINE_CONTROL"， 1， $"0,0,9,{partime}", Rdic) If Not IsNothing(databuff) Then ncbuf.AddRange(databuff.ToArray) End If 'databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "PB_LINE_CONTROL"， 1， $"0,0,10,{partime1}", Rdic) 'If Not IsNothing(databuff) Then ' ncbuf.AddRange(databuff.ToArray) 'End If End If If Rdic.ContainsKey("PB_LINE_CONTROL".ToUpper) Then If String.IsNullOrEmpty(partime) AndAlso String.IsNullOrEmpty(partime1) Then Continue For databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "PB_LINE_CONTROL"， 1， $"0,0,9,{partime}", Rdic) If Not IsNothing(databuff) Then ncbuf.AddRange(databuff.ToArray) End If If Not String.IsNullOrEmpty(partime1) Then databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "PB_LINE_CONTROL"， 1， $"0,0,10,{partime1}", Rdic) If Not IsNothing(databuff) Then ncbuf.AddRange(databuff.ToArray) End If End If If Not String.IsNullOrEmpty(partime2) Then databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "PB_LINE_CONTROL"， 2， $"0,0,12,{partime2}", Rdic) If Not IsNothing(databuff) Then ncbuf.AddRange(databuff.ToArray) End If End If If Not String.IsNullOrEmpty(partime3) Then databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "PB_LINE_CONTROL"， 3， $"0,0,11,{partime3}", Rdic) If Not IsNothing(databuff) Then ncbuf.AddRange(databuff.ToArray) End If End If End If If String.IsNullOrEmpty(partime) AndAlso String.IsNullOrEmpty(partime1) Then Continue For If Rdic.ContainsKey("Dimming".ToUpper) OrElse Rdic.ContainsKey("PB_LINE_CONTROL".ToUpper) Then For Each devRKEYnode In devRKEY If Not String.IsNullOrEmpty(partime2) Then Rdic.Clear() Rdic.Add("RKEY".ToUpper, "50 Adjustable Lower limit Settings (0-100)") databuff = GetActionDatagather(DeviceModuleDic, devRKEYnode.Name, "RKEY"， 1， $"0,0,6,{partime2}", Rdic) If Not IsNothing(databuff) Then ncbuf.AddRange(databuff.ToArray) End If End If If Not String.IsNullOrEmpty(partime3) Then Rdic.Clear() Rdic.Add("RKEY".ToUpper, "49 Adjustable Upper limit Settings (0-100)") databuff = GetActionDatagather(DeviceModuleDic, devRKEYnode.Name, "RKEY"， 1， $"0,0,5,{partime3}", Rdic) If Not IsNothing(databuff) Then ncbuf.AddRange(databuff.ToArray) End If End If Next End If If Rdic.ContainsKey("Dimming".ToUpper) Then If String.IsNullOrEmpty(partime) AndAlso String.IsNullOrEmpty(partime1) Then Continue For databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "Dimming"， 1， $"0,0,1,{partime}", Rdic) If Not IsNothing(databuff) Then ncbuf.AddRange(databuff.ToArray) End If If Not String.IsNullOrEmpty(partime1) Then Rdic.Clear() Rdic.Add("Dimming".ToUpper, "48 Host dimming percentage (0-100)") databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "Dimming"， 1， $"0,0,48,{partime1}", Rdic) If Not IsNothing(databuff) Then ncbuf.AddRange(databuff.ToArray) End If End If If Not String.IsNullOrEmpty(partime2) Then Rdic.Clear() Rdic.Add("Dimming".ToUpper, "50 Adjustable Lower limit Settings (0-100)") databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "Dimming"， 2， $"0,0,50,{partime2}", Rdic) If Not IsNothing(databuff) Then ncbuf.AddRange(databuff.ToArray) End If End If If Not String.IsNullOrEmpty(partime3) Then Rdic.Clear() Rdic.Add("Dimming".ToUpper, "49 Adjustable Upper limit Settings (0-100)") databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "Dimming"， 3， $"0,0,49,{partime3}", Rdic) If Not IsNothing(databuff) Then ncbuf.AddRange(databuff.ToArray) End If End If End If If Musicdic.Count > 0 Then For Each mnode In Musicdic databuff = GetActionDatagather(DeviceModuleDic, TheDevMode.Name, "MUSIC"， 1， $"0,0,0,{mnode.Key },{mnode.Value },0", Nothing) If IsNothing(databuff) Then Continue For ncbuf.AddRange(databuff.ToArray) Next End If Next End If For Each vindex In Voicement If vindex.Desc.DevDescription.Length > 0 AndAlso vindex.Desc.DevDescription.Substring(0, 1).Equals("1") Then databuff = GetActionDatagather(DeviceModuleDic, vindex.Name, "MUSIC"， 1, "0,0,0,1,0,开启语音识别", Nothing) If IsNothing(databuff) Then Continue For ncbuf.AddRange(databuff.ToArray) End If Next For Each vindex In devTempment If vindex.Desc.DevDescription.Length > 0 AndAlso vindex.Desc.DevDescription.Substring(0, 1).Equals("1") Then databuff = GetActionDatagather(DeviceModuleDic, vindex.Name, "Temp"， 1, "0,2,0,1,1,0,0,温控器高级设置,0*秒*0 设置*1 插卡状态同步*1 开*0*0", Nothing) If IsNothing(databuff) Then Continue For ncbuf.AddRange(databuff.ToArray) ElseIf vindex.Desc.DevDescription.Length > 0 AndAlso vindex.Desc.DevDescription.Substring(0, 1).Equals("0") Then databuff = GetActionDatagather(DeviceModuleDic, vindex.Name, "Temp"， 1, "0,2,0,1,2,0,0,温控器高级设置,0*秒*0 设置*1 插卡状态同步*1 开*0*0", Nothing) If IsNothing(databuff) Then Continue For ncbuf.AddRange(databuff.ToArray) End If 'If vindex.Desc.DevDescription.Length > 6 AndAlso vindex.Desc.DevDescription.Substring(6, 1).Equals("1") Then ' databuff = GetActionDatagather(DeviceModuleDic, vindex.Name, "Temp"， 1, "0,2,0,2,1,0,0,温控器高级设置,0*秒*0 设置*2 风速模式提示音*1 开*0*0", Nothing) ' If IsNothing(databuff) Then Continue For ' ncbuf.AddRange(databuff.ToArray) 'Else ' databuff = GetActionDatagather(DeviceModuleDic, vindex.Name, "Temp"， 1, "0,2,0,2,2,0,0,温控器高级设置,0*秒*0 设置*2 风速模式提示音*1 开*0*0", Nothing) ' If IsNothing(databuff) Then Continue For ' ncbuf.AddRange(databuff.ToArray) 'End If Next 'ElseIf index.Value.Equals("拔卡") Then ElseIf index.Value.Equals("Check-in service") And rowtag.G_DicRow.Item(TableColNumber.SceneAttribute).Substring(0, 1).Equals("2") Then Dim onecelltag As Dictionary(Of String, String) = JsonConvert.DeserializeObject(Of Dictionary(Of String, String))(_grd.Cell(7, TableColNumber.SceneAttribute).Tag) For Each vindex In Voicement If vindex.Desc.DevDescription.Length > 0 AndAlso vindex.Desc.DevDescription.Substring(0, 1).Equals("1") Then databuff = GetActionDatagather(DeviceModuleDic, vindex.Name, "MUSIC"， 1, "0,0,0,2,0,关闭语音识别", Nothing) If IsNothing(databuff) Then Continue For ncbuf.AddRange(databuff.ToArray) End If Next For Each vindex In devTempment If vindex.Desc.DevDescription.Length > 0 AndAlso vindex.Desc.DevDescription.Substring(0, 1).Equals("1") Then databuff = GetActionDatagather(DeviceModuleDic, vindex.Name, "Temp"， 1, "0,2,0,1,1,0,0,温控器高级设置,0*秒*0 设置*1 插卡状态同步*1 开*0*0", Nothing) If IsNothing(databuff) Then Continue For ncbuf.AddRange(databuff.ToArray) ElseIf vindex.Desc.DevDescription.Length > 0 AndAlso vindex.Desc.DevDescription.Substring(0, 1).Equals("0") Then databuff = GetActionDatagather(DeviceModuleDic, vindex.Name, "Temp"， 1, "0,2,0,1,2,0,0,温控器高级设置,0*秒*0 设置*1 插卡状态同步*1 开*0*0", Nothing) If IsNothing(databuff) Then Continue For ncbuf.AddRange(databuff.ToArray) End If 'If vindex.Desc.DevDescription.Length > 6 AndAlso vindex.Desc.DevDescription.Substring(6, 1).Equals("1") Then ' databuff = GetActionDatagather(DeviceModuleDic, vindex.Name, "Temp"， 1, "0,2,0,2,1,0,0,温控器高级设置,0*秒*0 设置*2 风速模式提示音*1 开*0*0", Nothing) ' If IsNothing(databuff) Then Continue For ' ncbuf.AddRange(databuff.ToArray) 'Else ' databuff = GetActionDatagather(DeviceModuleDic, vindex.Name, "Temp"， 1, "0,2,0,2,2,0,0,温控器高级设置,0*秒*0 设置*2 风速模式提示音*1 开*0*0", Nothing) ' If IsNothing(databuff) Then Continue For ' ncbuf.AddRange(databuff.ToArray) 'End If Next End If If col > TableColNumber.Max - 2 And col < Grid1.Cols - 1 Then Integer.TryParse(Grid1.Cell(TableRowNumber.FunctionChildNodeID, col).Text, t_col) Console.WriteLine($"{Grid1.Cell(TableRowNumber.FunctionChildNodeAnother, col).Text}_{Grid1.Cell(TableRowNumber.FunctionChildNodeID, col).Text}") DevGroupName = Grid1.Cell(TableRowNumber.FunctionName, col - t_col + 1).Text DevModeName = Grid1.Cell(TableRowNumber.DeviceName, Grid1.Range(TableRowNumber.DeviceName, col, TableRowNumber.DeviceName, col).FirstCol).Text If DevGroupName.ToUpper.Equals("MUSIC") And Not String.IsNullOrEmpty(index.Value) Then Ismusic = True Else databuff = GetActionDatagather(DeviceModuleDic, DevModeName, DevGroupName， t_col， index.Value, celltag) If IsNothing(databuff) Then Continue For Scenebuf.AddRange(databuff.ToArray) End If If index.Value.Contains("Play prompt sound") AndAlso (index.Value.Contains("2 Play (prompt sound)") OrElse index.Value.Contains("1 Mute (alert sound)")) Then Dim strbuf() As String = index.Value.Split(vbLf) For Each prnode In strbuf If prnode.Contains("2 Play (prompt sound)") OrElse prnode.Contains("1 Mute (alert sound)") Then DevModeName = hostname DevGroupName = "HOSTSERVICE" Dim serverbuf() As String = prnode.Split(",") databuff = GetActionDatagather(DeviceModuleDic, DevModeName, DevGroupName， 24， serverbuf(2), Nothing, CInt(serverbuf(0)), CInt(serverbuf(1))) Else DevGroupName = Grid1.Cell(TableRowNumber.FunctionName, col - t_col + 1).Text DevModeName = Grid1.Cell(TableRowNumber.DeviceName, Grid1.Range(TableRowNumber.DeviceName, col, TableRowNumber.DeviceName, col).FirstCol).Text databuff = GetActionDatagather(DeviceModuleDic, DevModeName, DevGroupName， t_col， prnode, celltag) End If If isCheckOut > 0 Then If rowtag.G_DevModeName.Equals(DevModeName) AndAlso prnode.Equals("Corresponding scenario") AndAlso DevGroupName.Equals("DO") AndAlso Grid1.Column(col).Visible = True Then CheckOutdeng = t_col End If End If If IsNothing(databuff) Then Continue For If prnode.Equals("Corresponding scenario") AndAlso DevGroupName.Equals("DO") AndAlso rowtag.G_DicRow.Count = 6 AndAlso isCheckOut = 0 Then Continue For ncbuf.AddRange(databuff.ToArray) Next Continue For ElseIf index.Value.Contains("Huaersi Music Control") Then Dim strbuf() As String = index.Value.Split(vbLf) Dim Tpar As String = String.Empty Dim tbuf() As String For Each prnode In strbuf If prnode.Contains("2 Shutdown") Then tbuf = prnode.Split(",") Tpar = $"{tbuf(0)},{tbuf(1)},{tbuf(2)},{tbuf(tbuf.Length - 2)}" databuff = GetActionDatagather(DeviceModuleDic, DevModeName, DevGroupName， t_col， Tpar, celltag) ncbuf.AddRange(databuff.ToArray) Continue For ElseIf prnode.Contains("1 Power on") Then tbuf = prnode.Split(",") Tpar = $"{tbuf(0)},{tbuf(1)},{tbuf(2)},{tbuf(tbuf.Length - 2)}" databuff = GetActionDatagather(DeviceModuleDic, DevModeName, DevGroupName， t_col， Tpar, celltag) ncbuf.AddRange(databuff.ToArray) If prnode.Contains("channel") Then Tpar = $"{tbuf(0)},{tbuf(1)},{tbuf(3)},0,{tbuf(tbuf.Length - 2)}" databuff = GetActionDatagather(DeviceModuleDic, DevModeName, DevGroupName， t_col， Tpar, celltag) ncbuf.AddRange(databuff.ToArray) End If If prnode.Contains("volume") Then Tpar = $"{tbuf(0)},{tbuf(1)},0,{tbuf(4)},{tbuf(5)},{tbuf(tbuf.Length - 2)}" databuff = GetActionDatagather(DeviceModuleDic, DevModeName, DevGroupName， t_col， Tpar, celltag) ncbuf.AddRange(databuff.ToArray) Else Tpar = $"{tbuf(0)},{tbuf(1)},0,{tbuf(4)},{tbuf(tbuf.Length - 2)}" databuff = GetActionDatagather(DeviceModuleDic, DevModeName, DevGroupName， t_col， Tpar, celltag) ncbuf.AddRange(databuff.ToArray) End If End If Next Continue For End If databuff = GetActionDatagather(DeviceModuleDic, DevModeName, DevGroupName， t_col， index.Value, celltag) If isCheckOut > 0 Then If rowtag.G_DevModeName.Equals(DevModeName) AndAlso index.Value.Equals("Corresponding scenario") AndAlso DevGroupName.Equals("DO") AndAlso Grid1.Column(col).Visible = True Then CheckOutdeng = t_col End If End If If IsNothing(databuff) Then Continue For If index.Value.Equals("Corresponding scenario") AndAlso DevGroupName.Equals("DO") AndAlso rowtag.G_DicRow.Count = 6 AndAlso isCheckOut = 0 Then Continue For ncbuf.AddRange(databuff.ToArray) End If Next ' If Ismusic = True And Scenebuf.Count > 0 Then Dim li As New List(Of Byte) li.Add(cmd) '命令参数 li.Add(0) '设备类型 li.Add(0) '设备地址 li.AddRange(BitConverter.GetBytes(_actionIndex)) '动作编号 2 _actionIndex += 1 li.AddRange(BitConverter.GetBytes(CShort(g_devLoop))) '设备回路 2 g_devLoop += 1 li.AddRange(BitConverter.GetBytes(CShort(0))) '添加事件编号 2 li.AddRange(clause) '获取执行模式 8 li.AddRange(keepParam) '条件保留32Byte 32 li.Add(condition) '获取执行条件编译数据 1 li.AddRange(aliasbuf) '32字节，事件条件别名 2022-06-07 caocong 32 li.AddRange(sceneNum) '2字节，场景编号 2 li.AddRange(keepBuf) '30位保留字段 32 Dim valCount As UShort = Scenebuf.Count li.Add(valCount) '获取执行动作数量 2 For Each buf In Scenebuf '32 li.AddRange(buf) '获取动作数据 Next result.Add(li.ToArray) End If '本行动作数据 If ncbuf.Count > 50 Then MsgBox($"{sceneIndex}The number of scene actions has exceeded the limit. Please increase the services to move some of the actions to the new service.。") End If If ncbuf.Count > 0 Then Dim li As New List(Of Byte) li.Add(cmd) '命令参数 li.Add(devType) '设备类型 li.Add(devAddr) '设备地址 li.AddRange(BitConverter.GetBytes(_actionIndex)) '动作编号 2 _actionIndex += 1 li.AddRange(devLoop) '设备回路 2 li.AddRange(eventNum) '添加事件编号 2 li.AddRange(clause) '获取执行模式 8 li.AddRange(keepParam) '条件保留32Byte 32 li.Add(condition) '获取执行条件编译数据 1 li.AddRange(aliasbuf) '32字节，事件条件别名 2022-06-07 caocong 32 Dim valCount As UShort If Ismusic = True Then valCount = sceneIndex + 30000 Else valCount = sceneIndex End If li.AddRange(BitConverter.GetBytes(valCount)) '2字节，场景编号 2 li.AddRange(keepBuf) '30位保留字段 32 valCount = CUShort(ncbuf.Count) li.Add(valCount) '获取执行动作数量 2 For Each buf In ncbuf '32 li.AddRange(buf) '获取动作数据 Next '40901001 '40902001 '21 1 1 0 19 24 0 2 '3 0 1 0 14 0 0 1 If isCheckOut > 0 Then '判断是否需添加服务 CheckOutDic = CheckOutKey(isCheckOut, rowtag.G_DevNodeIndex, CheckOutdeng, li, devAddr) For Each index In CheckOutDic result.Add(index.Value.ToArray) Next Else li = PowerSupplyService(rowtag, strEventNum, li， DeviceModuleDic) result.Add(li.ToArray) End If ' Console.WriteLine($"UDP收到的数据：{ByteToString(li.ToArray)}") End If '调用场景 For Each blian In multiplebuf Dim li As New List(Of Byte) li.Add(cmd) '命令参数 li.Add(blian(0)(0)) '设备类型 li.Add(blian(1)(0)) '设备地址 li.AddRange(BitConverter.GetBytes(_actionIndex)) '动作编号 2 _actionIndex += 1 li.AddRange(blian(2)) '设备回路 2 li.AddRange(eventNum) '添加事件编号 2 li.AddRange(clause) '获取执行模式 8 li.AddRange(keepParam) '条件保留32Byte 32 li.Add(condition) '获取执行条件编译数据 1 li.AddRange(aliasbuf) '32字节，事件条件别名 2022-06-07 caocong 32 li.AddRange(blian(3)) '2字节，场景编号 2 li.AddRange(keepBuf) '30位保留字段 32 Dim valCount As UShort = ncbuf.Count li.Add(valCount) '获取执行动作数量 2 For Each buf In ncbuf '32 li.AddRange(buf) '获取动作数据 Next result.Add(li.ToArray) Next Else Continue For End If Next Return result End Function Public Function PowerSupplyService(rowtag As TableRowTag， strEventNum As UShort, li As List(Of Byte)， DeviceModuleDic As Dictionary(Of String， DeviceModel)) As List(Of Byte) '判断是否是入住服务 Console.WriteLine(rowtag.G_DevNodeName.ToUpper.Equals("HOSTSERVICE")) If rowtag.G_DevNodeName.ToUpper.Equals("HOSTSERVICE") AndAlso rowtag.G_DevNodeIndex = 1 Then Dim DevDescription As String = String.Empty Dim addr As Integer = 0 For Each index In DeviceModuleDic For Each node In index.Value.Nodes If node.DEV_TYPE_DATA.Equals("19") Then DevDescription = index.Value.Desc.DevDescription addr = GetActionDeviceAddr(DeviceModuleDic, index.Key, "") End If Next Next If Not String.IsNullOrEmpty(DevDescription) Then Dim actionlen As Integer = 116 Dim buf() As String = DevDescription.Split(",") Select Case strEventNum Case 1 If buf(0).Equals("1") Then li(actionlen) = li(actionlen) + 1 li.AddRange({21, addr, 1, 0, 16, 0, 0, 1}) End If If buf(3).Equals("1") Then li(actionlen) = li(actionlen) + 1 li.AddRange({21, addr, 1, 0, 192, 0, 10, 2}) End If ' GetActionDatagather() Case 2 If buf(0).Equals("1") Then li(actionlen) = li(actionlen) + 1 li.AddRange({21, addr, 1, 0, 32, 0, 10, 1}) End If Case Else End Select End If End If Return li End Function Public Function CheckOutKey(isCheckOut As Integer, Diloop As Integer, devloop As Integer, li As List(Of Byte), addr As Integer) As Dictionary(Of String, List(Of Byte)) If devloop = 0 Then devloop = Diloop End If Dim actionlen As Integer = 116 Dim resulrdic As New Dictionary(Of String, List(Of Byte)) Select Case isCheckOut '"7 清理", "8 勿扰", "9 稍后", "10 退房" Case "7" 'li(actionlen) = li(actionlen) + 1 'li.AddRange({4, 0, 3, 0, 1, 0, 0, 1}) 'resulrdic.Add("1", li) Dim index As Integer Dim actionlencun As Integer = li(actionlen) - 1 For i = 0 To actionlencun index = (actionlencun - i) * 8 + actionlen If li(index + 1) = 6 AndAlso li(index + 2) = addr AndAlso li(index + 3) = devloop AndAlso li(index + 4) = 0 AndAlso li(index + 5) = 3 AndAlso li(index + 6) = 0 AndAlso li(index + 7) = 0 AndAlso li(index + 8) = 1 Then li(actionlen) = li(actionlen) - 1 li.RemoveAt(index + 8) li.RemoveAt(index + 7) li.RemoveAt(index + 6) li.RemoveAt(index + 5) li.RemoveAt(index + 4) li.RemoveAt(index + 3) li.RemoveAt(index + 2) li.RemoveAt(index + 1) End If Next Dim li1(li.Count - 1), li2(actionlen) As Byte Dim arrli1， arrli2 As List(Of Byte) arrli1 = New List(Of Byte) arrli2 = New List(Of Byte) Array.Copy(li.ToArray, li2, actionlen) 'li2(actionlen) = 0 Array.Copy(li.ToArray, li1, li.Count - 1) Dim clause() As Byte = GetConditionDataUnderConditionGroup("1224996759550300160") Dim libufb() As Byte = li.ToArray Array.Copy(clause, 0, libufb, 9, 8) li.Clear() li.AddRange(libufb) li(3) = 1 li(actionlen) = li(actionlen) + 4 li.AddRange({4, 0, 11, 0, 1, 0, 0, 1}) li.AddRange({4, 0, 11, 0, 2, 0, 10, 2}) li.AddRange({21, 1, 1, 0, 19, 167, 0, 1}) Dim loopBuf() As Byte = BitConverter.GetBytes(CShort(devloop)) li.AddRange({6, addr, devloop, 0, 14, 0, 1, 2}) resulrdic.Add("1", li) clause = GetConditionDataUnderConditionGroup("1224996725190561792") Array.Copy(clause, 0, li1, 9, 8) arrli1.Clear() arrli1.AddRange(li1) arrli1(3) = 2 arrli1(actionlen) = arrli1(actionlen) + 4 arrli1.AddRange({4, 0, 3, 0, 1, 0, 0, 1}) arrli1.AddRange({4, 0, 11, 0, 1, 0, 0, 1}) arrli1.AddRange({21, 1, 1, 0, 19, 168, 0, 2}) ' arrli1.AddRange({6, addr, devloop, 0, 14, 0, 1, 2}) arrli1.AddRange({6, addr, devloop, 0, 3, 0, 0, 1}) resulrdic.Add("2", arrli1) clause = GetConditionDataUnderConditionGroup("1224996690830821376") Array.Copy(clause, 0, li2, 9, 8) arrli2.Clear() arrli2.AddRange(li2) arrli2(3) = 3 arrli2(actionlen) = arrli2(actionlen) + 3 arrli2.AddRange({4, 0, 3, 0, 2, 0, 0, 1}) arrli2.AddRange({4, 0, 11, 0, 2, 0, 0, 1}) arrli2.AddRange({21, 1, 1, 0, 19, 169, 0, 2}) resulrdic.Add("3", arrli2) Case "8" li(actionlen) = li(actionlen) + 1 li.AddRange({4, 0, 2, 0, 1, 0, 0, 1}) resulrdic.Add("1", li) Case "7" li(actionlen) = li(actionlen) + 1 li.AddRange({4, 0, 3, 0, 1, 0, 0, 1}) resulrdic.Add("1", li) Case "9" li(actionlen) = li(actionlen) + 1 li.AddRange({4, 0, 7, 0, 1, 0, 0, 1}) resulrdic.Add("1", li) Case "10" Dim index As Integer Dim actionlencun As Integer = li(actionlen) - 1 For i = 0 To actionlencun index = (actionlencun - i) * 8 + actionlen If li(index + 1) = 6 AndAlso li(index + 2) = addr AndAlso li(index + 3) = devloop AndAlso li(index + 4) = 0 AndAlso li(index + 5) = 3 AndAlso li(index + 6) = 0 AndAlso li(index + 7) = 0 AndAlso li(index + 8) = 1 Then li(actionlen) = li(actionlen) - 1 li.RemoveAt(index + 8) li.RemoveAt(index + 7) li.RemoveAt(index + 6) li.RemoveAt(index + 5) li.RemoveAt(index + 4) li.RemoveAt(index + 3) li.RemoveAt(index + 2) li.RemoveAt(index + 1) End If Next Dim li1(li.Count - 1), li2(li.Count - 1) As Byte Dim arrli1， arrli2 As List(Of Byte) arrli1 = New List(Of Byte) arrli2 = New List(Of Byte) Array.Copy(li.ToArray, li2, li.Count - 1) Array.Copy(li.ToArray, li1, li.Count - 1) Dim clause() As Byte = GetConditionDataUnderConditionGroup("1224996691906658304") Dim libufb() As Byte = li.ToArray Array.Copy(clause, 0, libufb, 9, 8) li.Clear() li.AddRange(libufb) li(3) = 1 li(actionlen) = li(actionlen) + 4 li.AddRange({4, 0, 9, 0, 1, 0, 0, 1}) li.AddRange({4, 0, 9, 0, 2, 0, 10, 2}) li.AddRange({21, 1, 1, 0, 19, 24, 0, 1}) Dim loopBuf() As Byte = BitConverter.GetBytes(CShort(devloop)) li.AddRange({6, addr, devloop, 0, 14, 0, 1, 2}) resulrdic.Add("1", li) clause = GetConditionDataUnderConditionGroup("1224996691369787392") Array.Copy(clause, 0, li1, 9, 8) arrli1.Clear() arrli1.AddRange(li1) arrli1(3) = 2 arrli1(actionlen) = arrli1(actionlen) + 3 arrli1.AddRange({4, 0, 6, 0, 1, 0, 0, 1}) arrli1.AddRange({21, 1, 1, 0, 19, 18, 0, 2}) ' arrli1.AddRange({6, addr, devloop, 0, 14, 0, 1, 2}) arrli1.AddRange({6, addr, devloop, 0, 3, 0, 0, 1}) resulrdic.Add("2", arrli1) clause = GetConditionDataUnderConditionGroup("1224996690831867904") Array.Copy(clause, 0, li2, 9, 8) arrli2.Clear() arrli2.AddRange(li2) arrli2(3) = 3 arrli2(actionlen) = arrli2(actionlen) + 3 arrli2.AddRange({4, 0, 6, 0, 2, 0, 0, 1}) arrli2.AddRange({21, 1, 1, 0, 19, 19, 0, 2}) arrli2.AddRange({6, addr, devloop, 0, 2, 0, 0, 1}) resulrdic.Add("3", arrli2) '40901001 '40902001 '21 1 1 0 19 24 0 2 '3 0 1 0 14 0 0 1 Case Else Return resulrdic End Select Return resulrdic End Function Public Function ParallelScenario(number As String, ByRef DeviceModuleDic As Dictionary(Of String， DeviceModel), SwitchConfig As List(Of TableRowTag)) As List(Of Byte()) Dim li As New List(Of Byte()) '获取行号 Dim Nr As Integer = 0 For r = 7 To _grd.Rows - 1 If _grd.Cell(r, 3).Text.Equals(number) Then Nr = r Exit For End If Next If Nr < 7 Then Return li '模型的设备类型 Dim rowtag As TableRowTag = SwitchConfig.Item(Nr - TableRowNumber.Max) 'Console.WriteLine("ParallelScenario 3123") Dim devType As Byte = GetActionDeviceType(DeviceModuleDic, rowtag.G_DevModeName, rowtag.G_DevNodeName) li.Add({devType}) '模型的拨码地址 Dim devAddr As Byte = GetActionDeviceAddr(DeviceModuleDic, rowtag.G_DevModeName, rowtag.G_DevNodeName) li.Add({devAddr}) '回路地址 Dim devLoop() As Byte = BitConverter.GetBytes(CShort(rowtag.G_DevNodeIndex)) li.Add(devLoop) '场景编号 Dim sceneIndex As UShort = CUShort(rowtag.G_DicRow.Item(TableColNumber.SceneID)) Dim sceneNum() As Byte = BitConverter.GetBytes(sceneIndex) li.Add(sceneNum) Return li End Function Public Function AdditionalFeedbackLamp(number As String， ByRef DeviceModuleDic As Dictionary(Of String， DeviceModel), celltag As Dictionary(Of String, String)) As List(Of Byte()) Dim li As New List(Of Byte()) '获取行号 Dim Nr As Integer For r = 7 To _grd.Rows - 1 Console.WriteLine(_grd.Cell(r, 3).Text) If _grd.Cell(r, 3).Text.Equals(number) Then Nr = r Exit For End If Next If Nr = 0 Then Return Nothing '获取设备名 Dim devname As String = GetgrdRange(Nr, 1， tabRange.devname) '获取设备名对应反馈灯列 Dim tabledev As CtabRange = GetCoLDevNametabRange(devname, TableRowNumber.DeviceName) tabledev = GetCoLDevNametabRange("DO", TableRowNumber.FunctionName, tabledev.fc) '行遍历反馈灯列动作 For col = tabledev.fc To tabledev.lc If String.IsNullOrEmpty(_grd.Cell(Nr, col).Text) Then Continue For Else Dim databuff = GetActionDatagather(DeviceModuleDic, devname, "DO"， _grd.Cell(TableRowNumber.FunctionChildNodeID, col).Text， _grd.Cell(Nr, col).Text, celltag) li.AddRange(databuff.ToArray) End If Next Return li End Function Private Function TempDeviceObject(ByRef Eventnumber As Integer, DeviceModuleDic As Dictionary(Of String， DeviceModel)， DevName As String, DevNodeName As String) As List(Of Byte()) '返回变量 Dim result As New List(Of Byte()) Dim ncbuf As New List(Of Byte()) Dim bytedic As New Dictionary(Of Integer, List(Of Byte())) '编译固定参书 Dim cmd As Byte = &H4 '模型的设备类型 'Console.WriteLine("TempDeviceObject 3180") Dim devType As Byte = GetActionDeviceType(DeviceModuleDic, DevName, DevNodeName) '模型的拨码地址 Dim devAddr As Byte = GetActionDeviceAddr(DeviceModuleDic, DevName, DevNodeName) '回路地址 Dim devLoop() As Byte = BitConverter.GetBytes(CShort(1)) '获取场景属性 'Dim Exbuf() As String = rowtag.G_DicRow.Item(TableColNumber.SceneAttribute).Split(",") '事件编号 Dim strEventNum As UShort = 1 UShort.TryParse(1, strEventNum) Dim eventNum() As Byte = BitConverter.GetBytes(strEventNum) '执行条件编译数据 Dim clause() As Byte = GetConditionDataUnderConditionGroup(1152921504606846976) '取执行模式 Dim condition As Byte = GetExecModeDataUnderCondtion(1) '事件条件别名 Dim aliasbuf(31) As Byte '场景编号 Dim sceneIndex As UShort Dim sceneNum() As Byte '30位保留字段 Dim keepBuf(31) As Byte '保留字段(32字节) -> 2022-05-28 V3.1 32bytes Dim keepParam(31) As Byte Dim Dev As DeviceModel = DeviceModuleDic.Item(DevName) 'Dim Startname() As String = Dev.Desc.ProtocolData.Split(",") Dim dic As Dictionary(Of String, String) = JsonConvert.DeserializeObject(Of Dictionary(Of String, String))(Dev.Desc.ProtocolData) If Not AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.红外转发, 1, dic) AndAlso Not AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.风低, 3, dic) AndAlso Not AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.冷阈开, 1, dic) AndAlso Not AddPeripherals.CheckWhetherTheKeyExists2(dic) AndAlso Not AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.互锁, 1, dic) Then MsgBox($"无法识别温控类型，编译失败！！") Return Nothing End If '判断所关联回路的回路设备存在 For Each index In dic If String.IsNullOrEmpty(index.Value.Trim) Then Continue For Dim Obuf() As String = index.Value.Trim.Split("*") '开 If Not DeviceModuleDic.ContainsKey(Obuf(0)) Then MsgBox($"设备:{DevName}{vbCrLf }事件:{index.Key }{vbCrLf } 关联继电器回路:{index.Value}{vbCrLf }未找到,编译失败！！") Return Nothing End If Next Dim temptype As Integer = -1 ' 判断是否是氟机 是则直接组包 If AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.红外转发, 1, dic) AndAlso Not AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.风低, 3, dic) Then temptype = 0 Else '不是氟机 If AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.冷阈开, 4, dic) Then '双阈三线 temptype = 4 ElseIf AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.冷阈开, 1, dic) AndAlso AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.热阈开, 1, dic) Then '双阈2线 temptype = 3 ElseIf AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.冷阈开, 1, dic) AndAlso AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.冷阈关, 1, dic) Then '单阈三线 temptype = 2 ElseIf AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.冷阈开, 1, dic) Then '单阈2线 temptype = 1 ElseIf AddPeripherals.CheckWhetherTheKeyExists2(dic) Then temptype = 5 ElseIf AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.风低, 3, dic) Then '单阈2线 temptype = 6 ElseIf AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.互锁, 1, dic) Then '单阈2线 temptype = 7 End If End If Dim Dbuf() As String Eventnumber = Eventnumber + 1 For i = 1 To 11 clause = GetConditionDataUnderConditionGroup(1152939096792891392) sceneIndex = CUShort(Eventnumber) sceneNum = BitConverter.GetBytes(sceneIndex) ncbuf.Clear() Select Case i Case 1 '开机 UShort.TryParse(32800, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) Dim checkbuf() As String = Dev.Desc.DevDescription.Split(",") If checkbuf(0).Equals("1") Then clause = GetConditionDataUnderConditionGroup(1152939096792891424) End If Select Case temptype Case 0 Dbuf = dic.Item(GetDescriptionOriginal(AddPeripherals.Temproweven.红外转发)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), "INFRARED_FORWARD", Dbuf(1), "0,1,1")) Case 1 Case 2 Case 3 Case 5 'Continue For Case 4 Case 6 End Select If temptype <> 0 AndAlso AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.红外转发, 1, dic) Then Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.红外转发)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), "INFRARED_FORWARD", Dbuf(1), "0,1,1")) End If If AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.互锁, 1, dic) Then Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.互锁)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), "Temp", Dbuf(1), "0,1,1,1,1,1,16")) End If If checkbuf(1).Equals("1") Then 'Dbuf = dic.Item(GetDescriptionOriginal( AddPeripherals.Temproweven.互锁)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, hostname, "MUSIC", 1, "0,2,3,1,11,0")) End If If checkbuf(3).Equals("1") Then ncbuf.Add(GetActionData(DeviceModuleDic, DevName, "Temp", 1, "0,2,0,2,1,0,0")) Else ncbuf.Add(GetActionData(DeviceModuleDic, DevName, "Temp", 1, "0,2,0,2,2,0,0")) End If Case 2 '关机 UShort.TryParse(32, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) Dim checkbuf() As String = Dev.Desc.DevDescription.Split(",") If temptype <> 0 AndAlso AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.红外转发, 1, dic) Then Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.红外转发)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), "INFRARED_FORWARD", Dbuf(1), "0,1,1")) End If Select Case temptype Case 0 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.红外转发)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), "INFRARED_FORWARD", Dbuf(1), "0,1,1")) Case 1 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 2 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Case 3 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 4 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Case 6 Case 5 'Continue For End Select If AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.风低, 3, dic) Then '单阈2线 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风低)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风中)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风高)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) End If If AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.互锁, 1, dic) Then Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.互锁)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), "Temp", Dbuf(1), "0,1,1,1,1,1,16")) End If If checkbuf(1).Equals("1") Then Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.互锁)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, hostname, "MUSIC", 1, "0,2,3,1,12,0")) End If If checkbuf(3).Equals("1") Then ncbuf.Add(GetActionData(DeviceModuleDic, DevName, "Temp", 1, "0,2,0,2,1,0,0")) Else ncbuf.Add(GetActionData(DeviceModuleDic, DevName, "Temp", 1, "0,2,0,2,2,0,0")) End If Case 3 '冷阀开 UShort.TryParse(1028, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) Dim checkbuf() As String = Dev.Desc.DevDescription.Split(",") If checkbuf(0).Equals("1") Then clause = GetConditionDataUnderConditionGroup(1152939096792891424) End If Select Case temptype Case 0 Case 6 Case 1 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Case 2 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 3 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 4 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Case 5 Continue For End Select Case 4 '冷阀关 UShort.TryParse(4, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) Dim checkbuf() As String = Dev.Desc.DevDescription.Split(",") If checkbuf(0).Equals("1") Then clause = GetConditionDataUnderConditionGroup(1152939096792891424) End If Select Case temptype Case 0 Case 6 Case 1 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 2 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 3 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 4 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Case 5 Continue For End Select Case 5 '热阀开 UShort.TryParse(768, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) Dim checkbuf() As String = Dev.Desc.DevDescription.Split(",") If checkbuf(0).Equals("1") Then clause = GetConditionDataUnderConditionGroup(1152939096792891424) End If Select Case temptype Case 0 Case 1 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Case 2 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 3 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 4 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Case 6 Case 5 Continue For End Select Case 6 '热阀关 UShort.TryParse(256, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) Dim checkbuf() As String = Dev.Desc.DevDescription.Split(",") If checkbuf(0).Equals("1") Then clause = GetConditionDataUnderConditionGroup(1152939096792891424) End If Select Case temptype Case 0 Case 1 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 2 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 3 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 4 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.热阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈开)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.冷阈关)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Case 6 Case 5 Continue For End Select Case 7 '风速停 UShort.TryParse(8, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) Dim checkbuf() As String = Dev.Desc.DevDescription.Split(",") If checkbuf(0).Equals("1") Then clause = GetConditionDataUnderConditionGroup(1152939096792891424) End If Select Case temptype Case 0 Case 5, 7 Continue For Case Else Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风低)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风中)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风高)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) End Select Case 8 '风速低 UShort.TryParse(2056, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) Dim checkbuf() As String = Dev.Desc.DevDescription.Split(",") If checkbuf(0).Equals("1") Then clause = GetConditionDataUnderConditionGroup(1152939096792891424) End If Select Case temptype Case 0 Case 5, 7 Continue For Case Else Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风低)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风中)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风高)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) End Select Case 9 '风速中 UShort.TryParse(4104, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) Dim checkbuf() As String = Dev.Desc.DevDescription.Split(",") If checkbuf(0).Equals("1") Then clause = GetConditionDataUnderConditionGroup(1152939096792891424) End If Select Case temptype Case 0 Case 5, 7 Continue For Case Else Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风低)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风中)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风高)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) End Select Case 10 '风速高 UShort.TryParse(6152, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) Dim checkbuf() As String = Dev.Desc.DevDescription.Split(",") If checkbuf(0).Equals("1") Then clause = GetConditionDataUnderConditionGroup(1152939096792891424) End If Select Case temptype Case 0 Case 5, 7 Continue For Case Else Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风低)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风中)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.风高)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) End Select Case 11 '控制 UShort.TryParse(30, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) Dim checkbuf() As String = Dev.Desc.DevDescription.Split(",") If checkbuf(0).Equals("1") Then clause = GetConditionDataUnderConditionGroup(1152921504606847008) End If Select Case temptype Case 0 Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.红外转发)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), "INFRARED_FORWARD", Dbuf(1), "0,1,1")) Case 5 'Continue For Case Else End Select If temptype <> 0 AndAlso AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.红外转发, 1, dic) Then Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.红外转发)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), "INFRARED_FORWARD", Dbuf(1), "0,1,1")) End If If AddPeripherals.CheckWhetherTheKeyExists(AddPeripherals.Temproweven.互锁, 1, dic) Then Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.互锁)).Trim.Split("*") ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), "Temp", Dbuf(1), "0,1,1,1,1,1,16")) End If End Select If ncbuf.Count > 0 Then Dim li As New List(Of Byte) li.Add(cmd) '命令参数 li.Add(devType) '设备类型 li.Add(devAddr) '设备地址 li.AddRange(BitConverter.GetBytes(_actionIndex)) '动作编号 2 _actionIndex += 1 li.AddRange(devLoop) '设备回路 2 li.AddRange(eventNum) '添加事件编号 2 li.AddRange(clause) '获取执行模式 8 li.AddRange(keepParam) '条件保留32Byte 32 li.Add(condition) '获取执行条件编译数据 1 li.AddRange(aliasbuf) '32字节，事件条件别名 2022-06-07 caocong 32 li.AddRange(sceneNum) '2字节，场景编号 2 Eventnumber = Eventnumber + 1 li.AddRange(keepBuf) '30位保留字段 32 Dim valCount As UShort = ncbuf.Count li.Add(valCount) '获取执行动作数量 2 For Each buf In ncbuf '32 li.AddRange(buf) '获取动作数据 Next result.Add(li.ToArray) ' Console.WriteLine($"UDP收到的数据：{ByteToString(li.ToArray)}") End If Next Return result End Function Private Function Virtual_CardFillDeviceObject(ByRef Eventnumber As Integer, DeviceModuleDic As Dictionary(Of String， DeviceModel)， DevName As String, DevNodeName As String) As List(Of Byte()) '返回变量 Dim result As New List(Of Byte()) Dim ncbuf As New List(Of Byte()) '编译固定参书 Dim cmd As Byte = &H4 '模型的设备类型 'Console.WriteLine("CURTAINFillDeviceObject 3615") Dim devType As Byte = GetActionDeviceType(DeviceModuleDic, DevName, DevNodeName) '模型的拨码地址 Dim devAddr As Byte = GetActionDeviceAddr(DeviceModuleDic, DevName, DevNodeName) '回路地址 Dim devLoop() As Byte = BitConverter.GetBytes(CShort(1)) '获取场景属性 'Dim Exbuf() As String = rowtag.G_DicRow.Item(TableColNumber.SceneAttribute).Split(",") '事件编号 Dim strEventNum As UShort = 1 '执行条件编译数据 Dim clause() As Byte = GetConditionDataUnderConditionGroup(0) '取执行模式 Dim condition As Byte = GetExecModeDataUnderCondtion(1) '事件条件别名 Dim aliasbuf(31) As Byte '场景编号 Dim sceneIndex As UShort Dim sceneNum() As Byte '30位保留字段 Dim keepBuf(31) As Byte '保留字段(32字节) -> 2022-05-28 V3.1 32bytes Dim keepParam(31) As Byte Dim Dev As DeviceModel = DeviceModuleDic.Item(DevName) Eventnumber = Eventnumber + 1 For i = 1 To 2 UShort.TryParse(i, strEventNum) Dim eventNum() As Byte = BitConverter.GetBytes(strEventNum) sceneIndex = CUShort(Eventnumber) sceneNum = BitConverter.GetBytes(sceneIndex) ncbuf.Clear() ncbuf.Add(GetActionData(DeviceModuleDic, hostname, "HOSTSERVICE", 1, i)) If ncbuf.Count > 0 Then Dim li As New List(Of Byte) li.Add(cmd) '命令参数 li.Add(devType) '设备类型 li.Add(devAddr) '设备地址 li.AddRange(BitConverter.GetBytes(_actionIndex)) '动作编号 2 _actionIndex += 1 li.AddRange(devLoop) '设备回路 2 li.AddRange(eventNum) '添加事件编号 2 li.AddRange(clause) '获取执行模式 8 li.AddRange(keepParam) '条件保留32Byte 32 li.Add(condition) '获取执行条件编译数据 1 li.AddRange(aliasbuf) '32字节，事件条件别名 2022-06-07 caocong 32 li.AddRange(sceneNum) '2字节，场景编号 2 Eventnumber = Eventnumber + 1 li.AddRange(keepBuf) '30位保留字段 32 Dim valCount As UShort = ncbuf.Count li.Add(valCount) '获取执行动作数量 2 For Each buf In ncbuf '32 li.AddRange(buf) '获取动作数据 Next result.Add(li.ToArray) ' Console.WriteLine($"UDP收到的数据：{ByteToString(li.ToArray)}") End If Next Return result End Function Private Function DRY_NoCardFillDeviceObject(ByRef Eventnumber As Integer, DeviceModuleDic As Dictionary(Of String， DeviceModel)， DevName As String, DevNodeName As String) As List(Of Byte()) '返回变量 Dim result As New List(Of Byte()) Dim ncbuf As New List(Of Byte()) '编译固定参书 Dim cmd As Byte = &H4 '模型的设备类型 'Console.WriteLine("CURTAINFillDeviceObject 3615") Dim devType As Byte = GetActionDeviceType(DeviceModuleDic, DevName, DevNodeName) '模型的拨码地址 Dim devAddr As Byte = GetActionDeviceAddr(DeviceModuleDic, DevName, DevNodeName) '回路地址 Dim devLoop() As Byte = BitConverter.GetBytes(CShort(1)) '获取场景属性 'Dim Exbuf() As String = rowtag.G_DicRow.Item(TableColNumber.SceneAttribute).Split(",") '事件编号 Dim strEventNum As UShort = 1 UShort.TryParse(1, strEventNum) Dim eventNum() As Byte = BitConverter.GetBytes(strEventNum) '执行条件编译数据 Dim clause() As Byte = GetConditionDataUnderConditionGroup(0) '取执行模式 Dim condition As Byte = GetExecModeDataUnderCondtion(1) '事件条件别名 Dim aliasbuf(31) As Byte '场景编号 Dim sceneIndex As UShort Dim sceneNum() As Byte '30位保留字段 Dim keepBuf(31) As Byte '保留字段(32字节) -> 2022-05-28 V3.1 32bytes Dim keepParam(31) As Byte Dim Dev As DeviceModel = DeviceModuleDic.Item(DevName) Eventnumber = Eventnumber + 1 For i = 1 To 1 sceneIndex = CUShort(Eventnumber) sceneNum = BitConverter.GetBytes(sceneIndex) ncbuf.Clear() ncbuf.Add(GetActionData(DeviceModuleDic, hostname, "HOSTSERVICE", 1, "2")) If ncbuf.Count > 0 Then Dim li As New List(Of Byte) li.Add(cmd) '命令参数 li.Add(devType) '设备类型 li.Add(devAddr) '设备地址 li.AddRange(BitConverter.GetBytes(_actionIndex)) '动作编号 2 _actionIndex += 1 li.AddRange(devLoop) '设备回路 2 li.AddRange(eventNum) '添加事件编号 2 li.AddRange(clause) '获取执行模式 8 li.AddRange(keepParam) '条件保留32Byte 32 li.Add(condition) '获取执行条件编译数据 1 li.AddRange(aliasbuf) '32字节，事件条件别名 2022-06-07 caocong 32 li.AddRange(sceneNum) '2字节，场景编号 2 Eventnumber = Eventnumber + 1 li.AddRange(keepBuf) '30位保留字段 32 Dim valCount As UShort = ncbuf.Count li.Add(valCount) '获取执行动作数量 2 For Each buf In ncbuf '32 li.AddRange(buf) '获取动作数据 Next result.Add(li.ToArray) ' Console.WriteLine($"UDP收到的数据：{ByteToString(li.ToArray)}") End If Next Return result End Function Private Function Dev_ColorTempFillDeviceObject(ByRef Eventnumber As Integer, DeviceModuleDic As Dictionary(Of String， DeviceModel)， DevName As String, DevNodeName As String) As List(Of Byte()) '返回变量 Dim result As New List(Of Byte()) Dim ncbuf As New List(Of Byte()) '编译固定参书 Dim cmd As Byte = &HA Dim devAddr As Byte = GetActionDeviceAddr(DeviceModuleDic, DevName, DevNodeName) Dim cvint As Integer = 0 Dim Dev As DeviceModel = DeviceModuleDic.Item(DevName) Integer.TryParse(Dev.Desc.DevDescription, cvint) Dim li As New List(Of Byte) li.Add(cmd) li.Add(devAddr) li.Add(cvint) For Each node In Dev.Nodes If node.Name.Equals("Dev_ColorTemp") Then For i = 1 To cvint Dim spbuf() As String = Nothing If Not String.IsNullOrEmpty(node.Nodes(i - 1).DefaultAliasName) Then spbuf = node.Nodes(i - 1).DefaultAliasName.Split(",") spbuf = spbuf(1).Split(":") Dim typem As Integer = 0 Integer.TryParse(spbuf（0）, typem) li.Add(typem) Dim vli As List(Of List(Of String)） = JsonConvert.DeserializeObject(Of List(Of List(Of String)）)(node.Nodes(i - 1).Description) For Each linode In vli li.Add(CInt(linode（3）)) li.Add(CInt(linode（1）)) li.Add(CInt(linode（2）)) Next If vli.Count < 5 Then Dim licount As Integer = ((5 - vli.Count） * 3) - 1 Dim testbuf(licount) As Byte li.AddRange(testbuf) End If Else Continue For End If Next End If Next result.Add(li.ToArray) Return result End Function Public Shared Function GetDescriptionOriginal(ByVal this As [Enum]) As String Dim name = this.ToString() Dim field = this.[GetType]().GetField(name) If field Is Nothing Then Return name Dim att = System.Attribute.GetCustomAttribute(field, GetType(DescriptionAttribute), False) Return If(att Is Nothing, field.Name, (CType(att, DescriptionAttribute)).Description) End Function Private Function CURTAINFillDeviceObject(ByRef Eventnumber As Integer, DeviceModuleDic As Dictionary(Of String， DeviceModel)， DevName As String, DevNodeName As String) As List(Of Byte()) '返回变量 Dim result As New List(Of Byte()) Dim ncbuf As New List(Of Byte()) '编译固定参书 Dim cmd As Byte = &H4 '模型的设备类型 Console.WriteLine("CURTAINFillDeviceObject 3615") Dim devType As Byte = GetActionDeviceType(DeviceModuleDic, DevName, DevNodeName) '模型的拨码地址 Dim devAddr As Byte = GetActionDeviceAddr(DeviceModuleDic, DevName, DevNodeName) '回路地址 Dim devLoop() As Byte = BitConverter.GetBytes(CShort(1)) '获取场景属性 'Dim Exbuf() As String = rowtag.G_DicRow.Item(TableColNumber.SceneAttribute).Split(",") '事件编号 Dim strEventNum As UShort = 1 UShort.TryParse(1, strEventNum) Dim eventNum() As Byte = BitConverter.GetBytes(strEventNum) '执行条件编译数据 Dim clause() As Byte = GetConditionDataUnderConditionGroup(0) '取执行模式 Dim condition As Byte = GetExecModeDataUnderCondtion(1) '事件条件别名 Dim aliasbuf(31) As Byte '场景编号 Dim sceneIndex As UShort Dim sceneNum() As Byte '30位保留字段 Dim keepBuf(31) As Byte '保留字段(32字节) -> 2022-05-28 V3.1 32bytes Dim keepParam(31) As Byte Dim Dev As DeviceModel = DeviceModuleDic.Item(DevName) Dim Startname() As String = Dev.Desc.ProtocolData.Split(",") If Startname.Length < 2 Then Return Nothing Dim Obuf() As String = Startname(0).Split("*") '开 Dim Dbuf() As String = Startname(1).Split("*") '关 If Not DeviceModuleDic.ContainsKey(Obuf(0)) Then MsgBox($"{DevName} 干接点窗帘开继电器回路未找到！！") Return Nothing ElseIf Not DeviceModuleDic.ContainsKey(Dbuf(0)) Then MsgBox($"{DevName} 干接点窗帘关继电器回路未找到！！") Return Nothing End If Eventnumber = Eventnumber + 1 For i = 1 To 3 sceneIndex = CUShort(Eventnumber) sceneNum = BitConverter.GetBytes(sceneIndex) ncbuf.Clear() Select Case i Case 1 '窗帘开 UShort.TryParse(1, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) ncbuf.Add(GetActionData(DeviceModuleDic, Obuf(0), Obuf(2), Obuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) ncbuf.Add(GetActionData(DeviceModuleDic, Obuf(0), Obuf(2), Obuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString, CInt(Obuf(3))， 2)) ncbuf.Add(GetActionData(DeviceModuleDic, DevName, DevNodeName, 1, "0,2,3")) Case 2 UShort.TryParse(2, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) ncbuf.Add(GetActionData(DeviceModuleDic, Obuf(0), Obuf(2), Obuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString, CInt(Dbuf(3))， 2)) ncbuf.Add(GetActionData(DeviceModuleDic, DevName, DevNodeName, 1, "0,2,3")) Case 3 UShort.TryParse(6, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) ncbuf.Add(GetActionData(DeviceModuleDic, Obuf(0), Obuf(2), Obuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) ' ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0),Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString, CInt(Dbuf(2))， 2)) ncbuf.Add(GetActionData(DeviceModuleDic, DevName, DevNodeName, 1, "0,2,3")) End Select If ncbuf.Count > 0 Then Dim li As New List(Of Byte) li.Add(cmd) '命令参数 li.Add(devType) '设备类型 li.Add(devAddr) '设备地址 li.AddRange(BitConverter.GetBytes(_actionIndex)) '动作编号 2 _actionIndex += 1 li.AddRange(devLoop) '设备回路 2 li.AddRange(eventNum) '添加事件编号 2 li.AddRange(clause) '获取执行模式 8 li.AddRange(keepParam) '条件保留32Byte 32 li.Add(condition) '获取执行条件编译数据 1 li.AddRange(aliasbuf) '32字节，事件条件别名 2022-06-07 caocong 32 li.AddRange(sceneNum) '2字节，场景编号 2 Eventnumber = Eventnumber + 1 li.AddRange(keepBuf) '30位保留字段 32 Dim valCount As UShort = ncbuf.Count li.Add(valCount) '获取执行动作数量 2 For Each buf In ncbuf '32 li.AddRange(buf) '获取动作数据 Next result.Add(li.ToArray) ' Console.WriteLine($"UDP收到的数据：{ByteToString(li.ToArray)}") End If Next Return result End Function Private Function Rs485DeviceObject(Tdevtype As Integer, ByRef Eventnumber As Integer, DeviceModuleDic As Dictionary(Of String， DeviceModel)， DevName As String, DevNodeName As String) As List(Of Byte()) '返回变量 Dim result As New List(Of Byte()) Dim ncbuf As New List(Of Byte()) '编译固定参书 Dim cmd As Byte = &H4 '模型的设备类型 Console.WriteLine("Rs485DeviceObject 3729") Dim devType As Byte = GetActionDeviceType(DeviceModuleDic, DevName, DevNodeName) '模型的拨码地址 Dim devAddr As Byte = GetActionDeviceAddr(DeviceModuleDic, DevName, DevNodeName) '回路地址 Dim devLoop() As Byte = BitConverter.GetBytes(CShort(1)) '获取场景属性 'Dim Exbuf() As String = rowtag.G_DicRow.Item(TableColNumber.SceneAttribute).Split(",") '事件编号 Dim strEventNum As UShort = 1 UShort.TryParse(1, strEventNum) Dim eventNum() As Byte = BitConverter.GetBytes(strEventNum) '执行条件编译数据 Dim clause() As Byte = GetConditionDataUnderConditionGroup(1152921504606846976) '取执行模式 Dim condition As Byte = GetExecModeDataUnderCondtion(1) '事件条件别名 Dim aliasbuf(31) As Byte '场景编号 Dim sceneIndex As UShort Dim sceneNum() As Byte '30位保留字段 Dim keepBuf(31) As Byte '保留字段(32字节) -> 2022-05-28 V3.1 32bytes Dim keepParam(31) As Byte Dim Dev As DeviceModel = DeviceModuleDic.Item(DevName) If String.IsNullOrEmpty(Dev.Desc.ProtocolData) Then Return Nothing Dim Startname() As String = Dev.Desc.ProtocolData.Split(",") If Dev.Desc.ProtocolData.Contains("Floor heating _ Valve open") Then Dim uvdic As Dictionary(Of String, String) = JsonConvert.DeserializeObject(Of Dictionary(Of String, String))(Dev.Desc.ProtocolData) Dim uvlis As New List(Of String) Select Case Tdevtype Case 1 If String.IsNullOrEmpty(uvdic.Item("Floor heating _ Valve open")) Then Return Nothing uvlis.Add(uvdic.Item("Floor heating _ Valve open")) Case 2 If String.IsNullOrEmpty(uvdic.Item("Floor heating _ Valve open")) And String.IsNullOrEmpty(uvdic.Item("Floor heating _ Valve open")) And String.IsNullOrEmpty(uvdic.Item("Floor heating _ Valve open")) Then Return Nothing uvlis.Add(uvdic.Item("Fresh wind _ Low wind speed")) uvlis.Add(uvdic.Item("Fresh wind _ Wind speed")) uvlis.Add(uvdic.Item("Fresh wind _ High wind speed")) End Select Startname = uvlis.ToArray End If Dim Rli As New List(Of String()) For i = 0 To Startname.Length - 1 Dim Obuf() As String = Startname(i).Split("*") '开 If Not DeviceModuleDic.ContainsKey(Obuf(0)) Then If Tdevtype = 1 Then MsgBox($" Floor heating valve open relay circuit not found！！") Return Nothing Else Select Case i Case 1 MsgBox($"Low fresh wind speed relay circuit not found！！") Case 2 MsgBox($"Relay circuit not found in fresh wind speed！！") Case 3 MsgBox($"High fresh wind speed Relay circuit not found！！") End Select Return Nothing End If Return Nothing Else Rli.Add(Obuf) End If Next Eventnumber = Eventnumber + 1 Dim checkbuf() As String = Dev.Desc.DevDescription.Split(",") If checkbuf(0).Equals("1") Then clause = GetConditionDataUnderConditionGroup(1152921504606847008) End If Select Case Tdevtype Case 1 For i = 1 To 2 sceneIndex = CUShort(Eventnumber) sceneNum = BitConverter.GetBytes(sceneIndex) ncbuf.Clear() Select Case i Case 1 UShort.TryParse(256, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) ncbuf.Add(GetActionData(DeviceModuleDic, Rli.Item(0)(0), Rli.Item(0)(2), Rli.Item(0)(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) Case 2 UShort.TryParse(0, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) ncbuf.Add(GetActionData(DeviceModuleDic, Rli.Item(0)(0), Rli.Item(0)(2), Rli.Item(0)(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) End Select If ncbuf.Count > 0 Then Dim li As New List(Of Byte) li.Add(cmd) '命令参数 li.Add(devType) '设备类型 li.Add(devAddr) '设备地址 li.AddRange(BitConverter.GetBytes(_actionIndex)) '动作编号 2 _actionIndex += 1 li.AddRange(devLoop) '设备回路 2 li.AddRange(eventNum) '添加事件编号 2 li.AddRange(clause) '获取执行模式 8 li.AddRange(keepParam) '条件保留32Byte 32 li.Add(condition) '获取执行条件编译数据 1 li.AddRange(aliasbuf) '32字节，事件条件别名 2022-06-07 caocong 32 li.AddRange(sceneNum) '2字节，场景编号 2 Eventnumber = Eventnumber + 1 li.AddRange(keepBuf) '30位保留字段 32 Dim valCount As UShort = ncbuf.Count li.Add(valCount) '获取执行动作数量 2 For Each buf In ncbuf '32 li.AddRange(buf) '获取动作数据 Next result.Add(li.ToArray) ' Console.WriteLine($"UDP收到的数据：{ByteToString(li.ToArray)}") End If Next Case 2 For i = 1 To 4 sceneIndex = CUShort(Eventnumber) sceneNum = BitConverter.GetBytes(sceneIndex) ncbuf.Clear() Select Case i Case 1 '窗帘开 UShort.TryParse(0, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) ncbuf.Add(GetActionData(DeviceModuleDic, Rli.Item(0)(0), Rli.Item(0)(2), Rli.Item(0)(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) ncbuf.Add(GetActionData(DeviceModuleDic, Rli.Item(1)(0), Rli.Item(1)(2), Rli.Item(1)(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) ncbuf.Add(GetActionData(DeviceModuleDic, Rli.Item(2)(0), Rli.Item(2)(2), Rli.Item(2)(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 2 UShort.TryParse(769, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) ncbuf.Add(GetActionData(DeviceModuleDic, Rli.Item(0)(0), Rli.Item(0)(2), Rli.Item(0)(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) ncbuf.Add(GetActionData(DeviceModuleDic, Rli.Item(1)(0), Rli.Item(1)(2), Rli.Item(1)(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) ncbuf.Add(GetActionData(DeviceModuleDic, Rli.Item(2)(0), Rli.Item(2)(2), Rli.Item(2)(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 3 UShort.TryParse(513, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) ncbuf.Add(GetActionData(DeviceModuleDic, Rli.Item(0)(0), Rli.Item(0)(2), Rli.Item(0)(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) ncbuf.Add(GetActionData(DeviceModuleDic, Rli.Item(1)(0), Rli.Item(1)(2), Rli.Item(1)(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) ncbuf.Add(GetActionData(DeviceModuleDic, Rli.Item(2)(0), Rli.Item(2)(2), Rli.Item(2)(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) Case 4 UShort.TryParse(257, strEventNum) eventNum = BitConverter.GetBytes(strEventNum) ncbuf.Add(GetActionData(DeviceModuleDic, Rli.Item(0)(0), Rli.Item(0)(2), Rli.Item(0)(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) ncbuf.Add(GetActionData(DeviceModuleDic, Rli.Item(1)(0), Rli.Item(1)(2), Rli.Item(1)(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString)) ncbuf.Add(GetActionData(DeviceModuleDic, Rli.Item(2)(0), Rli.Item(2)(2), Rli.Item(2)(1), Chr(TableColSwitchKeyDate.TurnOn).ToString)) End Select If ncbuf.Count > 0 Then Dim li As New List(Of Byte) li.Add(cmd) '命令参数 li.Add(devType) '设备类型 li.Add(devAddr) '设备地址 li.AddRange(BitConverter.GetBytes(_actionIndex)) '动作编号 2 _actionIndex += 1 li.AddRange(devLoop) '设备回路 2 li.AddRange(eventNum) '添加事件编号 2 li.AddRange(clause) '获取执行模式 8 li.AddRange(keepParam) '条件保留32Byte 32 li.Add(condition) '获取执行条件编译数据 1 li.AddRange(aliasbuf) '32字节，事件条件别名 2022-06-07 caocong 32 li.AddRange(sceneNum) '2字节，场景编号 2 Eventnumber = Eventnumber + 1 li.AddRange(keepBuf) '30位保留字段 32 Dim valCount As UShort = ncbuf.Count li.Add(valCount) '获取执行动作数量 2 For Each buf In ncbuf '32 li.AddRange(buf) '获取动作数据 Next result.Add(li.ToArray) ' Console.WriteLine($"UDP收到的数据：{ByteToString(li.ToArray)}") End If Next End Select Return result End Function Private Function GetActionDeviceType(DeviceModuleDic As Dictionary(Of String， DeviceModel)， DevName As String, DevNodeName As String) As Byte Dim Dev As DeviceModel Dev = DeviceModuleDic.Item(DevName) If DevName.Equals(hostname) Then For Each index In Dev.Config If index.Name.Equals($"{DevNodeName } device group information") Then For Each node In index.Attributes If node.Name.Equals("DeviceType") Then Return CInt(node.DataDefault) End If Next End If Next Else For Each index In Dev.Nodes If index.Name.Equals($"{DevNodeName}") Then Return CInt(index.DEV_TYPE_DATA) End If Next End If End Function Private Function GetActionDeviceAddr(DeviceModuleDic As Dictionary(Of String， DeviceModel), DevName As String, DevNodeName As String) As Byte Dim Dev As DeviceModel = DeviceModuleDic.Item(DevName) For Each index In Dev.Config If DevName.Equals(hostname) Then If index.Name.Equals($"{DevNodeName } device group information") Then For Each node In index.Attributes If node.Name.Equals("DeviceAddr") Then Return CInt(node.DataDefault) End If Next End If Else If index.Name.Equals($“Device present”) Then For Each node In index.Attributes If node.Name.Equals("Dialing address") Then Return CInt(node.Value) End If Next End If End If Next End Function Private Function GetConditionDataUnderConditionGroup(u64 As String) As Byte() 'Dim result As New List(Of Byte） 'For i = 1 To 8 ' result.Add(0) 'Next 'If pNode.RowType <> RowNode.RowTypeEnum.DeviceEventAllConditions Then Throw New Exception("转换条件时无效的类型") 'Dim a As New ConditionConverter 'For Each node As RowNode In pNode.Nodes ' Select Case node.Name ' Case " 1 动作输出使能" ' a.动作输出使能 = CInt(GetNodeSelectStringValue(node)) ' Case " 2 判断房态" ' a.房态 = CInt(GetNodeSelectStringValue(node)) ' Case " 3 控制取电服务" ' a.控制取电服务 = CInt(GetNodeSelectStringValue(node)) ' Case " 4 判断取电状态" ' a.取电状态 = CInt(GetNodeSelectStringValue(node)) ' Case " 5 判断勿扰状态" ' a.勿扰状态 = CInt(GetNodeSelectStringValue(node)) ' Case " 6 判断清理状态" ' a.清理状态 = CInt(GetNodeSelectStringValue(node)) ' Case " 7 判断呼叫状态" ' a.呼叫状态 = CInt(GetNodeSelectStringValue(node)) ' Case " 8 判断洗衣状态" ' a.洗衣状态 = CInt(GetNodeSelectStringValue(node)) ' Case " 9 判断退房状态" ' a.退房状态 = CInt(GetNodeSelectStringValue(node)) ' Case "10 判断稍后状态" ' a.稍后状态 = CInt(GetNodeSelectStringValue(node)) ' Case "11 判断SOS状态" ' a.SOS状态 = CInt(GetNodeSelectStringValue(node)) ' ' Case "12 判断预约待租状态" ' Case "12 判断送餐状态" ' a.预约待租状态 = CInt(GetNodeSelectStringValue(node)) ' Case "13 判断开锁状态" ' a.开锁状态 = CInt(GetNodeSelectStringValue(node)) ' Case "14 判断行李状态" ' a.行李状态 = CInt(GetNodeSelectStringValue(node)) ' Case "15 判断保险箱状态" ' a.保险箱状态 = CInt(GetNodeSelectStringValue(node)) ' Case "16 判断门磁状态" ' a.门磁状态 = CInt(GetNodeSelectStringValue(node)) ' Case "17 判断提示音状态" ' a.提示音状态 = CInt(GetNodeSelectStringValue(node)) ' Case "18 判断背光状态" ' a.背光状态 = CInt(GetNodeSelectStringValue(node)) ' Case "19 判断季节状态" ' a.季节状态 = CInt(GetNodeSelectStringValue(node)) ' Case "20 判断时间状态" ' a.时间状态 = CInt(GetNodeSelectStringValue(node)) ' Case "21 判断起夜状态" ' a.起夜状态 = CInt(GetNodeSelectStringValue(node)) ' Case "22 判断锁定状态" ' a.锁定状态 = CInt(GetNodeSelectStringValue(node)) ' Case Else ' Throw New Exception($"未知条件属性名:{node.Name}") ' End Select 'Next 'Return a.GetConditionData() Dim num As UInt64 = 0 UInt64.TryParse(u64, num) Return BitConverter.GetBytes(num) End Function ''' ''' 从动作行节点获取动作数据 ''' ''' ''' Private Function GetActionDatagather(DeviceModuleDic As Dictionary(Of String， DeviceModel), DevModeName As String, colname As String, DeviceLoop As String, textval As String, tagdic As Dictionary(Of String, String), Optional delaytime As Integer = 0， Optional unit As Integer = 1) As List(Of Byte()) ' If node.RowType <> RowNode.RowTypeEnum.DeviceEventAction Then Throw New Exception($"行号:{node.RowListIndex},文本:{node.Text}不为动作节点") If String.IsNullOrEmpty(textval) Then Return Nothing Dim li As New List(Of Byte()) Dim strbuf() As String = textval.Split(vbLf) For Each Tnode In strbuf '执行方式,不同设备类型有不同方式 Dim bolicActio As List(Of Byte()) = GetSymbolicAction(colname, Tnode, tagdic) If IsNothing(bolicActio) OrElse bolicActio.Count = 0 Then Return Nothing For Each liindex In bolicActio Dim buf(7) As Byte '模型的设备类型 'Console.WriteLine("GetActionDatagather 4053") Dim devType As Byte = GetActionDeviceType(DeviceModuleDic, DevModeName, colname) '模型的拨码地址 Dim devAddr As Byte = GetActionDeviceAddr(DeviceModuleDic, DevModeName, colname) '设备类型，外接设备设备类型（主机特殊处理） buf(0) = devType '设备地址，选择对象的设备拨码地址（主机特殊处理） buf(1) = devAddr '设备回路，选择对象的回路地址 Dim loopBuf() As Byte = BitConverter.GetBytes(CShort(DeviceLoop)) Array.Copy(loopBuf, 0, buf, 2, loopBuf.Length) Dim par() As String = Tnode.Split(",") If par.Length > 1 Then Integer.TryParse(par(0), delaytime) Integer.TryParse(par(1), unit) End If buf(4) = liindex(0) '执行方式 继电器开关 '执行内容,不同设备类型有不同内容 buf(5) = liindex(1) '执行内容 '延时时间,动作执行延时 buf(6) = delaytime '延时时间 '延时单位，做东执行延时单位 buf(7) = unit '延时单位 '2022-10-31 Momo 打印动作数据 ' Dim tmpStr As String = BitConverter.ToString(buf).Replace("-", " ") ' PrintInfo(" [行号:" & node.RowListIndex & "] - " & "> 动作数据：" & tmpStr) li.Add(buf) Next Next Return li End Function Private Function GetActionData(DeviceModuleDic As Dictionary(Of String， DeviceModel), DevModeName As String, colname As String, DeviceLoop As String, textval As String, Optional delaytime As Integer = 0， Optional unit As Integer = 1) As Byte() ' If node.RowType <> RowNode.RowTypeEnum.DeviceEventAction Then Throw New Exception($"行号:{node.RowListIndex},文本:{node.Text}不为动作节点") If String.IsNullOrEmpty(textval) Then Return Nothing Dim bolicActio As List(Of Byte()) = GetSymbolicAction(colname, textval, Nothing) If IsNothing(bolicActio) OrElse bolicActio.Count = 0 Then Return Nothing Dim buf(7) As Byte '模型的设备类型 Dim devType As Byte = GetActionDeviceType(DeviceModuleDic, DevModeName, colname) '模型的拨码地址 Dim devAddr As Byte = GetActionDeviceAddr(DeviceModuleDic, DevModeName, colname) '设备类型，外接设备设备类型（主机特殊处理） buf(0) = devType '设备地址，选择对象的设备拨码地址（主机特殊处理） buf(1) = devAddr '设备回路，选择对象的回路地址 Dim loopBuf() As Byte = BitConverter.GetBytes(CShort(DeviceLoop)) Array.Copy(loopBuf, 0, buf, 2, loopBuf.Length) Dim par() As String = textval.Split(",") If par.Length > 1 Then Integer.TryParse(par(0), delaytime) Integer.TryParse(par(1), unit) End If '执行方式,不同设备类型有不同方式 buf(4) = bolicActio(0)(0) '执行方式 继电器开关 '执行内容,不同设备类型有不同内容 buf(5) = bolicActio(0)(1) '执行内容 '延时时间,动作执行延时 buf(6) = delaytime '延时时间 '延时单位，做东执行延时单位 buf(7) = unit '延时单位 '2022-10-31 Momo 打印动作数据 ' Dim tmpStr As String = BitConverter.ToString(buf).Replace("-", " ") ' PrintInfo(" [行号:" & node.RowListIndex & "] - " & "> 动作数据：" & tmpStr) Return buf End Function Public Function GetSymbolicAction(modetyupe As String, straction As String, defkey As Dictionary(Of String, String)) As List(Of Byte()) Dim result(1) As Byte Dim Tresult(1) As Byte Dim li As New List(Of Byte()) Dim parstr() As String = straction.Split(",") Dim parCasre As String = String.Empty If IsNothing(parstr) OrElse parstr.Length = 0 Then Return Nothing Dim strli As New List(Of String) strli.AddRange(parstr) If strli.Item(strli.Count - 1).Contains("*") Then strli.RemoveAt(strli.Count - 1) parstr = strli.ToArray End If Select Case modetyupe Case "RKEY" If parstr.Length > 2 Then '高级设置 result(0) = parstr(2) If (parstr.Count - 3) > 0 Then result(1) = parstr(3) li.Add(result) End If Case "RELAY", "PB_RELAY_DEVICE" If parstr.Length = 1 Then parCasre = parstr(0) '快速设置 Select Case parCasre Case Chr(TableColSwitchKeyDate.TurnOn).ToString result(0) = 1 Case Chr(TableColSwitchKeyDate.TurnDrown).ToString result(0) = 2 'Case Chr(TableColSwitchKeyDate.OnTodrowm).ToString ' result(0) = 3 'Case Chr(TableColSwitchKeyDate.drowmToOn).ToString ' result(0) = 1 Case Else Return Nothing End Select ElseIf parstr.Length > 2 Then '高级设置 result(0) = parstr(2) Else Return Nothing End If li.Add(result) Case "Dimming" Dim strint As Integer = 0 If Not IsNothing(defkey) Then If defkey.ContainsKey("Dimming".ToUpper) Then Dim rbuf() As String = defkey.Item("Dimming".ToUpper).Split(" ") If Not IsNothing(rbuf) Then ‘Integer.TryParse(rbuf(0), strint) Integer.TryParse(rbuf(0), parstr(2)) End If End If End If If parstr.Length = 1 Then Dim dimmval As Integer = 0 If straction.Equals(Chr(TableColSwitchKeyDate.TurnOn).ToString) Then straction = 80 ElseIf straction.Equals(Chr(TableColSwitchKeyDate.TurnDrown).ToString) Then straction = 0 End If Integer.TryParse(straction, dimmval) result(1) = dimmval If strint = 0 Then If dimmval = 0 Then strint = 2 Else strint = 1 End If End If result(0) = strint ElseIf parstr.Length > 2 Then '高级设置 ' result(0) = parstr(2) If (parstr.Count - 2) > 1 Then result(1) = parstr(3) 'If strint = 0 Then ' If result(1) = 0 Then ' strint = 2 ' Else ' strint = 1 ' End If 'End If result(0) = parstr(2) End If Else Return Nothing End If li.Add(result) Case "PB_LINE_CONTROL", "PB_STRIP_DEVICE", "PB_LED_DEVICE" Dim strint As Integer = 0 If Not IsNothing(defkey) Then If defkey.ContainsKey("Dimming".ToUpper) Then Dim rbuf() As String = defkey.Item("Dimming".ToUpper).Split(" ") If Not IsNothing(rbuf) Then Integer.TryParse(rbuf(0), strint) End If End If Select Case strint Case 7 strint = 30 '主机未支持 2024.5.31 Case 8 strint = 31 '主机未支持 2024.5.31 Case 9 strint = 8 Case 10 strint = 28 Case 11 strint = 29 Case 26 strint = 26 Case 27 strint = 27 Case 28 strint = 32 Case 29 strint = 33 Case Else strint = 0 End Select 'If defkey.ContainsKey("PB_LINE_CONTROL".ToUpper) Then ' Dim rbuf() As String = defkey.Item("PB_LINE_CONTROL".ToUpper).Split(" ") ' If Not IsNothing(rbuf) Then ' Integer.TryParse(rbuf(0), strint) ' End If 'End If 'If defkey.ContainsKey("PB_STRIP_DEVICE".ToUpper) Then ' Dim rbuf() As String = defkey.Item("PB_STRIP_DEVICE".ToUpper).Split(" ") ' If Not IsNothing(rbuf) Then ' Integer.TryParse(rbuf(0), strint) ' End If 'End If End If If parstr.Length = 1 Then Dim dimmval As Integer = 0 If straction.Equals(Chr(TableColSwitchKeyDate.TurnOn).ToString) Then result(1) = 1 result(0) = 17 ElseIf straction.Equals(Chr(TableColSwitchKeyDate.TurnDrown).ToString) Then result(1) = 2 result(0) = 17 Else Integer.TryParse(straction, dimmval) result(1) = dimmval 'If strint = 0 Then ' If dimmval = 0 Then ' strint = 2 ' Else ' strint = 1 ' End If 'End If result(0) = 18 End If ElseIf parstr.Length > 2 Then '高级设置 ' result(0) = parstr(2) If (parstr.Count - 2) > 1 Then result(1) = parstr(3) 'If strint = -1 Then ' If result(1) = 0 Then ' strint = 2 ' Else ' strint = 1 ' End If 'End If result(0) = parstr(2) End If Else Return Nothing End If li.Add(result) Case "DO", "LIGHT" If parstr.Length = 1 Then parCasre = parstr(0) Select Case parCasre Case "open" result(0) = 1 Case "close" result(0) = 2 Case "flash" result(0) = 14 Case "Corresponding scenario" result(0) = 3 Case Else Return Nothing End Select ElseIf parstr.Length > 2 Then result(0) = parstr(2) Else Return Nothing End If li.Add(result) Case "Temp" If parstr.Length = 1 Then parCasre = parstr(0) '快速设置 Select Case parCasre Case "Open 26 degrees" Dim sw As Integer = 1 '开关状态 Dim mode As Integer = 0 '模式 Dim speed As Integer = 2 '风速 Dim fm As Integer = 1 '阀门 Dim temp As Integer = 26 '温度 result(1) = fm result(1) = result(1) Or (speed << 2) result(1) = result(1) Or (mode << 4) result(1) = result(1) Or (sw << 6) result(0) = temp Case "close" Dim sw As Integer = 2 '开关状态 Dim mode As Integer = 0 '模式 Dim speed As Integer = 2 '风速 Dim fm As Integer = 1 '阀门 Dim temp As Integer = 26 '温度 result(1) = fm result(1) = result(1) Or (speed << 2) result(1) = result(1) Or (mode << 4) result(1) = result(1) Or (sw << 6) result(0) = temp Case Else Return Nothing End Select ElseIf parstr.Length > 6 Then '高级设置 Dim sw As Integer = CInt(parstr(2)) '开关状态 Dim mode As Integer = CInt(parstr(3)) '模式 Dim speed As Integer = CInt(parstr(4)) '风速 Dim fm As Integer = CInt(parstr(5)) '阀门 Dim temp As Integer = CInt(parstr(6)) '温度 result(1) = fm result(1) = result(1) Or (speed << 2) result(1) = result(1) Or (mode << 4) result(1) = result(1) Or (sw << 6) result(0) = temp Else Return Nothing End If li.Add(result) Case "CURTAIN", "DRY_CURTAIN" If parstr.Length = 1 Then parCasre = parstr(0) Select Case parCasre Case "open" result(0) = 1 Case "close" result(0) = 2 Case "stop" result(0) = 6 Case "intertangent" result(0) = 4 Case Else Return Nothing End Select ElseIf parstr.Length > 2 Then result(0) = parstr(2) Else Return Nothing End If li.Add(result) Case "RS485_Curtain" If parstr.Length = 1 Then parCasre = parstr(0) Select Case parCasre Case "open" result(0) = 1 Case "close" result(0) = 2 Case "stop" result(0) = 6 Case "intertangent" result(0) = 4 Case Else Return Nothing End Select ElseIf parstr.Length > 2 Then parCasre = parstr(2) Else parCasre = String.Empty End If li.Add(result) Case "HOSTSERVICE" Dim sw As Integer '开关状态 sw = CInt(straction) result(0) = sw li.Add(result) Case "MUSIC" 'If Not IsNothing(defkey) Then ' If defkey.ContainsKey("MUSIC".ToUpper) Then ' Dim rbuf() As String = defkey.Item("Dimming".ToUpper).Split(" ") ' If Not IsNothing(rbuf) Then ' Integer.TryParse(rbuf(0), strint) ' End If ' End If 'End If Dim dirIndex As Integer = 0 'node.Params(0).ValueData '文件夹索引 Dim modeStatus As Integer = 0 'node.Params(1).ValueData '播放时场景状态 Dim fileIndex As Integer = 0 'node.Params(2).ValueData '文件索引 If straction.Contains("Play prompt sound") AndAlso (straction.Contains("5 Volume +") OrElse straction.Contains("6 Volume -")) Then parstr(4) = parstr(3) parstr(3) = parstr(2) parstr(2) = 0 End If If straction.Contains("Play music") AndAlso (straction.Contains("1 play") OrElse straction.Contains("2 stop")) Then parstr（4） = 0 End If Select Case parstr.Count - 3 '延时和延时单位占了数组两个元素 Case 1 dirIndex = parstr(2) Case 2 dirIndex = parstr（2） '文件夹索引 modeStatus = parstr（3） '播放时场景状态 Case 3 dirIndex = parstr（2） '文件夹索引 modeStatus = parstr（3） '播放时场景状态 fileIndex = parstr（4） '文件索引 Case > 3 dirIndex = parstr（2） '文件夹索引 modeStatus = parstr（3） '播放时场景状态 fileIndex = parstr（4） '文件索引 Case Else End Select '2022-05-06 Caocong: 先将变量初始化为0.有可能没有三个参数 ---end result(0) = result(0) Or (dirIndex << 0) result(0) = result(0) Or (modeStatus << 4) result(1) = fileIndex li.Add(result) Case "CLED_FRESHAIR" If parstr.Length = 1 Then parCasre = parstr(0) Select Case parCasre Case "open" Tresult(0) = 1 Tresult(1) = 2 li.Add(Tresult) Case "close" result(0) = 0 result(1) = 0 li.Add(result) End Select ElseIf parstr.Length > 2 Then '高级设置 result(0) = parstr(2) If (parstr.Count - 3) > 1 Then result(1) = parstr(3) li.Add(result) Else Return Nothing End If Case "CLEDFLOORHEAT" If parstr.Length = 1 Then parCasre = parstr(0) Select Case parCasre Case "Open 26 degrees" Tresult(0) = 1 Tresult(1) = 26 li.Add(Tresult) Case "close" result(0) = 1 result(1) = 0 li.Add(result) End Select ElseIf parstr.Length > 2 Then '高级设置 result(0) = parstr(2) If (parstr.Count - 3) > 1 Then result(1) = parstr(3) li.Add(result) Else Return Nothing End If Case "485FreshAir" If parstr.Length = 1 Then parCasre = parstr(0) Select Case parCasre Case "open" Tresult(0) = 1 Tresult(1) = 1 li.Add(Tresult) result(0) = 4 result(1) = 2 li.Add(result) Case "close" result(0) = 1 result(1) = 0 li.Add(result) End Select ElseIf parstr.Length > 2 Then '高级设置 result(0) = parstr(2) If (parstr.Count - 3) > 1 Then result(1) = parstr(3) li.Add(result) Else Return Nothing End If Case "485FloorHeat" '地暖 If parstr.Length = 1 Then parCasre = parstr(0) Select Case parCasre Case "Open 26 degrees" Tresult(0) = 1 Tresult(1) = 1 li.Add(Tresult) result(0) = 3 result(1) = 26 li.Add(result) Case "close" result(0) = 1 result(1) = 0 li.Add(result) End Select ElseIf parstr.Length > 2 Then '高级设置 result(0) = parstr(2) If (parstr.Count - 3) > 1 Then result(1) = parstr(3) li.Add(result) Else Return Nothing End If Case "INFRARED_FORWARD" If parstr.Length = 1 Then parCasre = parstr(0) Select Case parCasre Case "Turn on the TV" result(0) = 1 result(1) = 18 Case "Turn off the TV" result(0) = 2 result(1) = 1 Case "Mute" result(0) = 1 result(1) = 1 Case "volume+" result(0) = 1 result(1) = 3 Case "volume-" result(0) = 1 result(1) = 4 Case Else Return Nothing End Select li.Add(result) ElseIf parstr.Length > 2 Then '高级设置 result(0) = parstr(2) If (parstr.Count - 3) > 1 Then result(1) = parstr(3) li.Add(result) Else Return Nothing End If Case "DRY_NoCard" If parstr.Length > 2 Then '高级设置 result(0) = parstr(2) If (parstr.Count - 3) > 1 Then result(1) = parstr(3) li.Add(result) Else Return Nothing End If Case "Dev_ColorTemp" If parstr.Length > 2 Then '高级设置 result(0) = parstr(2) If (parstr.Count - 3) > 1 Then result(1) = parstr(3) li.Add(result) Else Return Nothing End If Case "HOPO_Curtain" If parstr.Length = 4 Then result(0) = parstr(2) ElseIf parstr.Length > 4 Then result(0) = parstr(2) result(1) = parstr(3) Else Return Nothing End If li.Add(result) Case "BLEMUSIC" Dim dirIndex As Integer = 0 'node.Params(0).ValueData '文件夹索引 Dim modeStatus As Integer = 0 'node.Params(1).ValueData '播放时场景状态 Dim fileIndex As Integer = 0 'node.Params(2).ValueData '文件索引 Select Case parstr.Count - 3 '延时和延时单位占了数组两个元素 Case 1 dirIndex = parstr(2) result(0) = dirIndex result(1) = modeStatus Case 2 dirIndex = parstr（2） '文件夹索引 modeStatus = parstr（3） '播放时场景状态 result(0) = dirIndex result(1) = modeStatus Case >= 3 dirIndex = parstr（2） '文件夹索引 modeStatus = parstr（3） '播放时场景状态 fileIndex = parstr（4） '文件索引 result(0) = result(0) Or (dirIndex << 0) result(0) = result(0) Or (modeStatus << 4) result(1) = fileIndex Case Else End Select '2022-05-06 Caocong: 先将变量初始化为0.有可能没有三个参数 ---end li.Add(result) Case "Carbon_Device", "Scene_Restore" Dim dirIndex As Integer = 0 'node.Params(0).ValueData '文件夹索引 Dim modeStatus As Integer = 0 'node.Params(1).ValueData '播放时场景状态 Dim fileIndex As Integer = 0 'node.Params(2).ValueData '文件索引 Select Case parstr.Count - 3 '延时和延时单位占了数组两个元素 Case 1 dirIndex = parstr(2) result(0) = dirIndex result(1) = modeStatus Case 2 dirIndex = parstr（2） '文件夹索引 modeStatus = parstr（3） '播放时场景状态 result(0) = dirIndex result(1) = modeStatus Case >= 3 dirIndex = parstr（2） '文件夹索引 modeStatus = parstr（3） '播放时场景状态 fileIndex = parstr（4） '文件索引 result(0) = dirIndex result(1) = result(1) Or (fileIndex << 0) result(1) = result(1) Or (modeStatus << 4) Case Else End Select li.Add(result) Case "485MUSIC" Dim dirIndex As Integer = 0 'node.Params(0).ValueData '文件夹索引 Dim modeStatus As Integer = 0 'node.Params(1).ValueData '播放时场景状态 Dim fileIndex As Integer = 0 'node.Params(2).ValueData '文件索引 Select Case parstr.Count - 3 '延时和延时单位占了数组两个元素 Case 1 dirIndex = parstr(2) Case 2 dirIndex = parstr（2） '文件夹索引 modeStatus = parstr（3） '播放时场景状态 Case >= 3 dirIndex = parstr（2） '文件夹索引 modeStatus = parstr（3） '播放时场景状态 fileIndex = parstr（4） '文件索引 Case Else End Select '2022-05-06 Caocong: 先将变量初始化为0.有可能没有三个参数 ---end result(0) = result(0) Or (dirIndex << 0) result(0) = result(0) Or (modeStatus << 4) result(1) = fileIndex li.Add(result) Case Else Return Nothing End Select Return li End Function Private Function GetExecModeDataUnderCondtion(straction As String) As Byte Dim result As Integer = 1 Integer.TryParse(straction, result) Return result End Function Public Function GetdevGroupHread(devMode As DeviceModel， Addrstr As String) As Byte() Dim buf = New List(Of Byte) '命令参数 Dim cmd As Byte = &H4 Dim devType As Byte '模型的拨码地址 Dim devAddr As Byte = Addrstr Dim DevGroupName = $"DI" For Each cnode In devMode.Nodes If cnode.Name.Equals(DevGroupName) Then devType = cnode.DEV_TYPE_DATA End If Next buf.Add(cmd) '命令参数 buf.Add(devType) '设备类型 buf.Add(devAddr) '设备地址 Return buf.ToArray End Function Public Function GetActionGroupHread(devMode As DeviceModel) As Byte() Dim buf = New List(Of Byte) '命令参数 Dim cmd As Byte = &H4 Dim devType As Byte '模型的拨码地址 Dim devAddr As Byte Dim DevGroupName = $"DI设备组信息" '模型的设备类型 For Each cnode In devMode.Config If cnode.Name.Equals(DevGroupName) Then For Each node In cnode.Attributes Select Case node.Name Case "DeviceType" devType = node.DataDefault Case "DeviceAddr" devAddr = node.DataDefault Case Else Continue For End Select Next End If Next buf.Add(cmd) '命令参数 buf.Add(devType) '设备类型 buf.Add(devAddr) '设备地址 Return buf.ToArray End Function '' '' 填充设备存在 '' '' Public Voicement As List(Of DeviceModel) Public devTempment As List(Of DeviceModel) Public devRKEY As List(Of DeviceModel) Public Function FillDeviceExistsData(ByRef DeviceModuleDic As Dictionary(Of String， DeviceModel)) As List(Of Byte()) Dim resultDatas As New List(Of Byte()) Dim cmd As Byte = &H3 Dim buf As List(Of Byte) Dim devmovement As New List(Of DeviceModel) Dim Heat485ment As New List(Of DeviceModel) Dim Air485ment As New List(Of DeviceModel) Dim AirDRYNoCard As New List(Of DeviceModel) Dim Dev_ColorTemp As New List(Of DeviceModel) Dim Dev_BLEMUSIC As New List(Of DeviceModel) Dim VirtualCard As New List(Of DeviceModel) Voicement = New List(Of DeviceModel) devTempment = New List(Of DeviceModel) devRKEY = New List(Of DeviceModel) For Each Fnode In DeviceModuleDic.Values ' 配置RCU模型设备存在数据 If String.IsNullOrEmpty(Fnode.Desc.DevInterface) Then buf = New List(Of Byte) buf.Add(cmd) Dim tmpBuffer() As Byte = FillRCUModelDeviceExsist(Fnode) buf.AddRange(tmpBuffer) resultDatas.Add(buf.ToArray) 'PrintInfo(" 主机模型 编译完成，长度：" & tmpBuffer.Count & " Bytes") Else Dim tmpBufferLst As List(Of Byte()) = FillExternalModelDeviceExsist(Fnode, DeviceModuleDic.Values(0)) Dim tmpOutData As Byte() For i = 0 To tmpBufferLst.Count - 1 tmpOutData = tmpBufferLst(i).ToArray resultDatas.Add(tmpOutData.ToArray) Next End If For Each Ccnode In Fnode.Config If Not IsNothing(Ccnode.CFG_Type) AndAlso Ccnode.CFG_Type.Equals("DeviceExists") Then buf = New List(Of Byte) Console.WriteLine(Ccnode.Name) buf.Add(cmd) Dim tmpBuffer() As Byte = FillModeDeviceExsist(Ccnode, Fnode) buf.AddRange(tmpBuffer) resultDatas.Add(buf.ToArray) 'PrintInfo(" 设备存在 编译完成，长度：" & tmpBuffer.Count & " Bytes") End If Next For Each Ccnode In Fnode.Nodes Select Case Ccnode.Name Case "RKEY" If Ccnode.Interface.Equals("DO") Then devRKEY.Add(Fnode) End If Case "BLEMUSIC" Dev_BLEMUSIC.Add(Fnode) Case "Dev_ColorTemp" Dev_ColorTemp.Add(Fnode) Case "DRY_NoCard" AirDRYNoCard.Add(Fnode) Case "Temp" devTempment.Add(Fnode) Case "CURTAIN" devmovement.Add(Fnode) Case "485FreshAir", "CLED_FRESHAIR" Air485ment.Add(Fnode) Case "485FloorHeat", "CLEDFLOORHEAT" Heat485ment.Add(Fnode) Case "语音" Voicement.Add(Fnode) Case "Virtual_Card" VirtualCard.Add(Fnode) Case Else End Select Next Next Dim T_SceneID As Integer = _SceneID Dim result As List(Of Byte()) For Each node In devmovement result = CURTAINFillDeviceObject(T_SceneID, DeviceModuleDic, node.Name, "CURTAIN") If IsNothing(result) Then Continue For resultDatas.AddRange(result.ToArray) Next For Each node In AirDRYNoCard result = DRY_NoCardFillDeviceObject(T_SceneID, DeviceModuleDic, node.Name, "DRY_NoCard") If IsNothing(result) Then Continue For resultDatas.AddRange(result.ToArray) Next For Each node In Dev_ColorTemp result = Dev_ColorTempFillDeviceObject(T_SceneID, DeviceModuleDic, node.Name, "Dev_ColorTemp") If IsNothing(result) Then Continue For resultDatas.AddRange(result.ToArray) Next For Each node In VirtualCard result = Virtual_CardFillDeviceObject(T_SceneID, DeviceModuleDic, node.Name, "Virtual_Card") If IsNothing(result) Then Continue For resultDatas.AddRange(result.ToArray) Next For Each node In devTempment result = TempDeviceObject(T_SceneID, DeviceModuleDic, node.Name, "Temp") If IsNothing(result) Then Continue For resultDatas.AddRange(result.ToArray) Next For Each node In Heat485ment For Each tname In node.Nodes Select Case tname.Name Case "485FloorHeat"， "CLEDFLOORHEAT" result = Rs485DeviceObject(1, T_SceneID, DeviceModuleDic, node.Name, tname.Name) If IsNothing(result) Then Continue For resultDatas.AddRange(result.ToArray) End Select Next Next For Each node In Air485ment For Each tname In node.Nodes Select Case tname.Name Case "485FreshAir", "CLED_FRESHAIR" result = Rs485DeviceObject(2, T_SceneID, DeviceModuleDic, node.Name, tname.Name) If IsNothing(result) Then Continue For resultDatas.AddRange(result.ToArray) End Select Next Next Return resultDatas End Function Public Function VoicementDeviceObject() As List(Of Byte()) Dim cmd As Byte = &H5 Dim lst As New List(Of Byte()) For Each node In Voicement For Each Cnode In node.Config If Cnode.CFG_Type.Equals("XiaoBaoCMD") Then For Each cTnode In Cnode.Attributes 'Console.WriteLine($"cTnode.DataRangeValue:{cTnode.DataRangeValue}") If Not String.IsNullOrEmpty(cTnode.DataRangeValue) Then Dim Data = New List(Of Byte) Data.Add(cmd) Data.Add(CInt（Cnode.CFG_Value）) Data.Add(CInt（cTnode.DataDefault）) Dim buf As String() = cTnode.DataRangeValue.Split("*") If buf.Length = 2 Then Dim devType As Byte = 0 Dim devAddr As Byte = 0 Data.Add(devType) Data.Add(devAddr) Data.AddRange(BitConverter.GetBytes(CShort(buf(0)))) lst.Add(Data.ToArray) ElseIf buf.Length = 3 Then If cTnode.DataRangeValue.Contains("HOSTSERVICE") Then Dim devType As Byte = GetActionDeviceType(Dic_Devicemodel, buf(0), buf(1)) Dim devAddr As Byte = GetActionDeviceAddr(Dic_Devicemodel, buf(0), buf(1)) Data.Add(devType) Data.Add(devAddr) Data.AddRange(BitConverter.GetBytes(CShort(buf(2)))) lst.Add(Data.ToArray) Else Dim devType As Byte = GetActionDeviceType(Dic_Devicemodel, buf(0), buf(2)) Dim devAddr As Byte = GetActionDeviceAddr(Dic_Devicemodel, buf(0), buf(2)) Data.Add(devType) Data.Add(devAddr) Data.AddRange(BitConverter.GetBytes(CShort(buf(1)))) lst.Add(Data.ToArray) End If End If 'Select Case Cnode.Name ' Case "0 场景" ' Dim buf As String() = cTnode.DataRangeValue.Split("*") ' Dim devType As Byte = 0 ' Dim devAddr As Byte = 0 ' Data.Add(devType) ' Data.Add(devAddr) ' Data.AddRange(BitConverter.GetBytes(CShort(buf(0)))) ' Case "1 继电器" ' Dim buf As String() = cTnode.DataRangeValue.Split("*") ' Dim devType As Byte = GetActionDeviceType(Dic_Devicemodel, buf(0), buf(2)) ' Dim devAddr As Byte = GetActionDeviceAddr(Dic_Devicemodel, buf(0), buf(2)) ' Data.Add(devType) ' Data.Add(devAddr) ' Data.AddRange(BitConverter.GetBytes(CShort(buf(1)))) ' Case "4 服务信息" ' Dim buf As String() = cTnode.DataRangeValue.Split("*") ' Dim devType As Byte = GetActionDeviceType(Dic_Devicemodel, buf(0), buf(1)) ' Dim devAddr As Byte = GetActionDeviceAddr(Dic_Devicemodel, buf(0), buf(1)) ' Data.Add(devType) ' Data.Add(devAddr) ' Data.AddRange(BitConverter.GetBytes(CShort(buf(2)))) ' Case "5 窗帘" ' Dim buf As String() = cTnode.DataRangeValue.Split("*") ' Dim devType As Byte = GetActionDeviceType(Dic_Devicemodel, buf(0), buf(2)) ' Dim devAddr As Byte = GetActionDeviceAddr(Dic_Devicemodel, buf(0), buf(2)) ' Data.Add(devType) ' Data.Add(devAddr) ' Data.AddRange(BitConverter.GetBytes(CShort(buf(1)))) ' Case "7 空调" ' Dim buf As String() = cTnode.DataRangeValue.Split("*") ' Dim devType As Byte = GetActionDeviceType(Dic_Devicemodel, buf(0), "Temp") ' Dim devAddr As Byte = GetActionDeviceAddr(Dic_Devicemodel, buf(0), "Temp") ' Data.Add(devType) ' Data.Add(devAddr) ' Data.AddRange(BitConverter.GetBytes(CShort(buf(1)))) ' Case "15 电视" ' Dim buf As String() = cTnode.DataRangeValue.Split("*") ' Dim devType As Byte = GetActionDeviceType(Dic_Devicemodel, buf(0), buf(2)) ' Dim devAddr As Byte = GetActionDeviceAddr(Dic_Devicemodel, buf(0), buf(2)) ' Data.Add(devType) ' Data.Add(devAddr) ' Data.AddRange(BitConverter.GetBytes(CShort(buf(1)))) ' Case "16 调光" ' Dim buf As String() = cTnode.DataRangeValue.Split("*") ' Dim devType As Byte = GetActionDeviceType(Dic_Devicemodel, buf(0), buf(2)) ' Dim devAddr As Byte = GetActionDeviceAddr(Dic_Devicemodel, buf(0), buf(2)) ' Data.Add(devType) ' Data.Add(devAddr) ' Data.AddRange(BitConverter.GetBytes(CShort(buf(1)))) ' Case "18 灯带" ' Dim buf As String() = cTnode.DataRangeValue.Split("*") ' Dim devType As Byte = GetActionDeviceType(Dic_Devicemodel, buf(0), buf(2)) ' Dim devAddr As Byte = GetActionDeviceAddr(Dic_Devicemodel, buf(0), buf(2)) ' Data.Add(devType) ' Data.Add(devAddr) ' Data.AddRange(BitConverter.GetBytes(CShort(buf(1)))) ' Case "21 音乐" 'End Select End If Next End If Next 'result = Rs485DeviceObject(2, T_SceneID, DeviceModuleDic, node.Name, node.Nodes(0).Name) 'If IsNothing(result) Then Continue For 'resultDatas.AddRange(result.ToArray) Next Return lst End Function ''' ''' 根据RCU模型的设备存在属性组，配置设备存在数据 ''' ''' 模型节点 ''' Private Function FillModeDeviceExsist(Ccnode As DeviceModelConfigGroup, pNode As DeviceModel) As Byte() 'If pNode.RowType <> RowNode.RowTypeEnum.ModelAttributes_DeviceExists Then Throw New Exception($"行号：{pNode.RowListIndex} 不为设备存在模型属性类型") Dim buf As New List(Of Byte) Dim Cbuf(10) As Byte For Each node In Ccnode.Attributes Select Case node.Name Case "DeviceType" Cbuf(0) = node.DataDefault Case "DeviceAddr" Cbuf(1) = node.DataDefault Case "DevicePort" Cbuf(2) = node.DataRangeValue Case "DeviceBaud" Dim baudData() As Byte = BitConverter.GetBytes(CInt(node.DataDefault)) Cbuf(3) = baudData(0) Cbuf(4) = baudData(1) Cbuf(5) = baudData(2) Cbuf(6) = baudData(3) Case "DeviceVer" Cbuf(7) = node.DataDefault Case "DeviceRetryNum" Cbuf(8) = node.DataDefault Case "DeviceRetryTime" Dim retryTimeData() As Byte = BitConverter.GetBytes(CShort(node.DataDefault)) Cbuf(9) = retryTimeData(0) Cbuf(10) = retryTimeData(1) Case Else Continue For End Select Next buf.AddRange(Cbuf) Dim keepParam(63) As Byte '保留字段(32字节) -> 2022-05-28 V3.1 32bytes->64Bytes buf.AddRange(keepParam) Dim index As Integer = Ccnode.Name.IndexOf("device group information") Dim type As String = Ccnode.Name.Substring(0, index - 1) Dim inputCount, outputCount As UShort Dim inputSettings As New List(Of Byte) Dim outputAliases As New List(Of Byte) Dim inputGroupNode As DeviceChildNodeClass = Nothing Dim outputGroupNode As DeviceChildNodeClass = Nothing Select Case type.Trim ' Case "DI" inputGroupNode = FindModelDeviceGroupUnderModel(pNode, "DI") Case Else outputGroupNode = FindModelDeviceGroupUnderModel(pNode, type) End Select If inputGroupNode Is Nothing Then inputCount = 0 Else For Each node In inputGroupNode.Nodes 'If node.RowType <> RowNode.RowTypeEnum.DeviceObject Then Continue For 'If node.Compile = False Then Continue For inputCount += 1 inputSettings.AddRange(GetDeviceObjectSetting(pNode.Name, node.DefaultClass)) Next End If If outputGroupNode Is Nothing Then outputCount = 0 Else For Each node In outputGroupNode.Nodes 'If node.RowType <> RowNode.RowTypeEnum.DeviceObject Then Continue For 'If node.Compile = False Then Continue For outputCount += 1 Dim aliasData() As Byte 'Momo 2022-05-03 增加DeviceAlias非空判断，避免报错 If String.IsNullOrEmpty(node.Name) = False Then aliasData = AliasEncoding.GetBytes(node.Name) End If ReDim Preserve aliasData(31) 'caocong 2022-06-07 修改别名长度16Byte -> 32Byte outputAliases.AddRange(aliasData) Console.WriteLine($"{node.DefaultAliasName}{vbCrLf}") Next Console.WriteLine($"{outputGroupNode.Name}:{outputGroupNode.Nodes.Count }:{outputAliases.Count }{vbCrLf}") End If buf.AddRange(BitConverter.GetBytes(inputCount)) '输入回路数(2字节) buf.AddRange(BitConverter.GetBytes(outputCount)) '输出回路数(2字节) buf.AddRange(inputSettings.ToArray) '所有输入回路设置(n*4字节) buf.AddRange(outputAliases.ToArray) '所有输出回路别名(n*16字节) Return buf.ToArray End Function Private Function FindModelDeviceGroupUnderModel(pNode As DeviceModel, name As String) As DeviceChildNodeClass Dim resultNode As DeviceChildNodeClass = Nothing ''2022-05-14 2.0.2.0 版本以前：匹配节点名称与“DI”‘DO’字符串，来确定是否返回端点 ''外设有继电器时，继电器名称为“Relay”，Interface为“DO”，此方法会范围“0” For Each node In pNode.Nodes 'If node.RowType <> RowNode.RowTypeEnum.DeviceGroup Then Continue For If String.Compare(node.Name, name, True) <> 0 Then Continue For resultNode = node Exit For Next Return resultNode End Function Private Function FindAttributeUnderModel(pNode As DeviceModel， groupName As String, attributeName As String) As Boolean For Each cnode In pNode.Config If cnode.Name.Equals(groupName) Then For Each ccnode In cnode.Attributes If ccnode.Name.Equals(attributeName) Then Return True End If Next End If Next Return False End Function Private Function FillExternalModelDeviceExsist(pNode As DeviceModel, hostNode As DeviceModel) As List(Of Byte()) Dim outDataLst As New List(Of Byte()) '输出数据列表 Dim strObjGroupNodesTypedataAndProtocol As String = "" Dim baudData(3) As Byte '波特率(4字节) Dim retryTimeData(1) As Byte '重发次数(2字节) Dim keepParam(59) As Byte '保留字段(32字节) -> 2022-05-28 V3.1 32bytes->64Bytes Dim ipadd(3) As Byte Dim ObjGroupNodesInOutDic As New Dictionary(Of String, List(Of Byte)) '键值对，用于保存合并后的数据，Val = 设备组编译后的byte数组 Dim ObjGroupNodesInputCnt As New Dictionary(Of String, UInt16) '键值对，用于保存合并后的输入回路数，Val = 设备组编译后的byte数组 Dim ObjGroupNodesoutputCnt As New Dictionary(Of String, UInt16) '键值对，用于保存合并后的输出回路数，Val = 设备组编译后的byte数组 Dim ObjGroupNodesInpuSettings As New Dictionary(Of String, List(Of Byte)) '用于保存合并后输入设定数组 Dim ObjGroupNodesOutputAliases As New Dictionary(Of String, List(Of Byte)) '用于保存合并后输出别名数组 '添加设备组公共信息 Dim Baudrate() As String = FindAttributeValueUnderModel(pNode, “Device present”, "Baud rate").Split(" ") baudData = BitConverter.GetBytes(CInt(Baudrate(1))) retryTimeData = BitConverter.GetBytes(CShort(FindAttributeValueUnderModel(pNode, “Device present”, "Resend time"))) Dim tmpAddr As Byte = CInt(FindAttributeValueUnderModel2(pNode, “Device present”, "Dialing address")) '设备地址(1字节) Dim hostAddr As Byte = CInt(FindNodeValueUnderModel(hostNode, "RS485", pNode.Desc.DevInterface)) '设备地址(1字节) Dim TemptDevType As Byte = 0 Dim ParentDevType As Byte = 0 Dim ParentDevAddr As Byte = 0 Dim ParentDevPort As Byte = 0 Dim bytes(9) As Byte Dim node As Boolean = FindAttributeUnderModel(pNode, "Device present", "BleName") If node Then Dim nodestr = FindAttributeValueUnderModel2(pNode, "Device present", "BleName") '父设备美型(1字节) bytes = System.Text.Encoding.UTF8.GetBytes(nodestr) Array.Copy(bytes, 0, keepParam, 8, bytes.Length) TemptDevType = bytes(0) End If node = FindAttributeUnderModel(pNode, “Device present”, "Parent device type") If node Then ParentDevType = CInt(FindAttributeValueUnderModel(pNode, “Device present”, "Parent device type")) '父设备美型(1字节) End If node = FindAttributeUnderModel(pNode, “Device present”, "Parent device address") If node Then ParentDevAddr = CInt(FindAttributeValueUnderModel(pNode, “Device present”, "Parent device address")) '父设备美型(1字节) End If node = FindAttributeUnderModel(pNode, “Device present”, "Parent device port") If node Then Dim BaudDevPort() As String = FindAttributeValueUnderModel(pNode, “Device present”, "Parent device port").Split(" ") ParentDevPort = CInt(BaudDevPort(0)) '父设备美型(1字节) End If node = FindAttributeUnderModel(pNode, "Device present", "Valveless machine") If node Then Dim BaudDevPort() As String = FindAttributeValueUnderModel(pNode, "Device present", "Valveless machine").Split(" ") TemptDevType = CInt(BaudDevPort(0)) '父设备美型(1字节) End If keepParam(0) = ParentDevType keepParam(1) = ParentDevAddr keepParam(2) = ParentDevPort keepParam(8) = TemptDevType For indexi = 1 To 5 node = FindAttributeUnderModel(pNode, "设备存在", $"弱电输入{indexi}") If node Then Dim BaudDevPort() As String = FindAttributeValueUnderModel(pNode, "设备存在", $"弱电输入{indexi}").Split(" ") ParentDevPort = CInt(BaudDevPort(0)) '父设备美型(1字节) keepParam(2 + indexi) = ParentDevPort End If Next If Not IsNothing(pNode.Desc.DevTypeData) AndAlso pNode.Desc.DevTypeData.Equals("55") Then Dim tabledev As CtabRange = GetRowDevNametabRange(pNode.Name, TableRowNumber.DeviceName) If Not IsNothing（tabledev） Then Dim txtbuf() As String Dim txt As String Dim txtbyte() As Byte For indexi = tabledev.fr To tabledev.lr txtbuf = _grd.Cell(indexi, TableColNumber.SceneAttribute).Text.Split(",") txt = _grd.Cell(indexi, TableColNumber.SceneID).Text txtbyte = BitConverter.GetBytes(CShort(txt)) If txtbuf(0).Equals("1") Then Array.Copy(txtbyte, 0, keepParam, 8, txtbyte.Length) ElseIf txtbuf(0).Equals("2") Then Array.Copy(txtbyte, 0, keepParam, 10, txtbyte.Length) End If Next End If End If For Each cnode In pNode.Nodes strObjGroupNodesTypedataAndProtocol = cnode.DEV_TYPE_DATA & "," & cnode.PROTOCOL_VER If ObjGroupNodesInOutDic.ContainsKey(strObjGroupNodesTypedataAndProtocol) = False Then '添加输出合并设备键值对’ ObjGroupNodesInOutDic.Add(strObjGroupNodesTypedataAndProtocol, New List(Of Byte)) ObjGroupNodesInputCnt.Add(strObjGroupNodesTypedataAndProtocol, 0) '输入回路数 = 0 ObjGroupNodesoutputCnt.Add(strObjGroupNodesTypedataAndProtocol, 0) '输出回路数 = 0 ObjGroupNodesInpuSettings.Add(strObjGroupNodesTypedataAndProtocol, New List(Of Byte)) ObjGroupNodesOutputAliases.Add(strObjGroupNodesTypedataAndProtocol, New List(Of Byte)) With ObjGroupNodesInOutDic(strObjGroupNodesTypedataAndProtocol) .Add(&H3) '设备存在，每个数据块前面都加上 &H03 .Add(CByte(cnode.DEV_TYPE_DATA)) '设备类型(1字节) .Add(tmpAddr) 'PrintInfo(" *** 设备地址：" & tmpAddr.ToString) .Add(hostAddr) '485端口(1字节) .AddRange(baudData) '波特率(4字节) .Add(CByte(cnode.PROTOCOL_VER)) '协议版本(1字节) .Add(CInt(FindAttributeValueUnderModel(pNode, “Device present”, "Number of resending"))) '重发次数(1字节) .AddRange(retryTimeData) '重发间隔(2字节) If cnode.DEV_TYPE_DATA.Equals("42") Then Dim ipAddr As IPAddress = IPAddress.Parse(FindAttributeValueUnderModel(pNode, “Device present”, "中控IP地址")) '设备地址(1字节) ipadd = ipAddr.GetAddressBytes() ' PrintInfo(" 中控IP地址 IPadd :" & ipAddr.ToString) ElseIf cnode.DEV_TYPE_DATA.Equals("43") Then Dim ipAddr As IPAddress = IPAddress.Parse(FindAttributeValueUnderModel(pNode, “Device present”, "域控IP地址")) '设备地址(1字节) ipadd = ipAddr.GetAddressBytes() ' PrintInfo(" 域控IP地址 IPadd :" & ipAddr.ToString) End If .AddRange(ipadd) .AddRange(keepParam) End With End If '遍历设备 For Each objNode In cnode.Nodes Select Case objNode.Interface Case "DI" ObjGroupNodesInputCnt(strObjGroupNodesTypedataAndProtocol) += 1 '输入回路数+1 ObjGroupNodesInpuSettings(strObjGroupNodesTypedataAndProtocol).AddRange(GetDeviceObjectSetting(pNode.Name, objNode.DefaultClass))'输入回路设定’ ‘ObjGroupNodesInpuSettings(strObjGroupNodesTypedataAndProtocol).AddRange(GetDeviceObjectSetting(pNode.Name, objNode.DefaultClass))'输入回路设定’ Case "DO" Dim tmpDevAlias As String = String.Empty If Not String.IsNullOrEmpty(objNode.DefaultAliasName) Then tmpDevAlias = objNode.DefaultAliasName End If 'If String.IsNullOrEmpty(tmpDevAlias) Then Continue For '未命名别名的输出设备不参与编译 Dim aliasData() As Byte = AliasEncoding.GetBytes(tmpDevAlias) ReDim Preserve aliasData(31) 'caocong 2022-06-07 修改别名长度16Byte -> 32Byte ObjGroupNodesoutputCnt(strObjGroupNodesTypedataAndProtocol) += 1 '输出回路数+1’ ObjGroupNodesOutputAliases(strObjGroupNodesTypedataAndProtocol).AddRange(aliasData) '输出回路别名’ Case Else Continue For End Select Next Next '遍历合并后的设备组（保存于键值对中） For Each strKey As String In ObjGroupNodesInOutDic.Keys Dim inputCnt As UInt16 = ObjGroupNodesInputCnt(strKey) Dim outputCnt As UInt16 = ObjGroupNodesoutputCnt(strKey) Dim arryInputSetting As Byte() = ObjGroupNodesInpuSettings(strKey).ToArray Dim arryOutputSetting As Byte() = ObjGroupNodesOutputAliases(strKey).ToArray ObjGroupNodesInOutDic(strKey).AddRange(BitConverter.GetBytes(inputCnt)) ObjGroupNodesInOutDic(strKey).AddRange(BitConverter.GetBytes(outputCnt)) ObjGroupNodesInOutDic(strKey).AddRange(arryInputSetting) '所有输入回路设置(n*4字节) ObjGroupNodesInOutDic(strKey).AddRange(arryOutputSetting) '所有输出回路别名(n*16字节) outDataLst.Add(ObjGroupNodesInOutDic(strKey).ToArray) Next Dim tmpOutData As Byte() For i = 0 To outDataLst.Count - 1 tmpOutData = outDataLst(i).ToArray Console.WriteLine($"设备编译数据：{ByteToString(tmpOutData.ToArray)}") Next Dim tmpBufferLst As List(Of Byte()) = SelfCheckingPower(pNode) If IsNothing(tmpBufferLst) AndAlso tmpBufferLst.Count = 0 Then Else outDataLst.AddRange(tmpBufferLst.ToArray) End If Return outDataLst End Function Public Function SelfCheckingPower(pNode As DeviceModel) As List(Of Byte()) Dim outDataLst As New List(Of Byte()) '输出数据列表 If Not pNode.Desc.DevInterface.Equals("PB_BUS_LINE") Then Return outDataLst For Each objNode In pNode.Nodes If objNode.DEV_TYPE_DATA.Equals("49") OrElse objNode.DEV_TYPE_DATA.Equals("50") OrElse objNode.DEV_TYPE_DATA.Equals("51") Then Dim cmd As Byte = &H7 Dim tmpAddr As Byte = CInt(FindAttributeValueUnderModel(pNode, “Device present”, "Dialing address")) '设备地址(1字节) Dim devtype As Byte = CByte(objNode.DEV_TYPE_DATA) '遍历设备 For Each jNode As DeviceChildNode In objNode.Nodes 'If objNode.RowType <> RowNode.RowTypeEnum.DeviceObject Then Continue For '设备 'If objNode.Compile = False Then Continue For '判断是否enable action’ ' Dim bpTag As DeviceObjectRowNodeTag = objNode.Tag Select Case jNode.Interface Case "DI" Case "DO" Dim nli As New List(Of Byte） Dim upAddr As Integer = CInt(FindAttributeValueUnderModel(pNode, “Device present”, $"Circuit {jNode.LoopAddr} self check power lower limit")) '设备地址(1字节) Dim domAddr As Integer = CInt(FindAttributeValueUnderModel(pNode, “Device present”, $"Circuit {jNode.LoopAddr} self check power upper limit")) '设备地址(1字节) nli.Add(cmd) nli.Add(devtype) nli.Add(tmpAddr) nli.AddRange(BitConverter.GetBytes(CShort(jNode.LoopAddr))) nli.AddRange(BitConverter.GetBytes(CShort(upAddr))) nli.AddRange(BitConverter.GetBytes(CShort(domAddr))) outDataLst.Add(nli.ToArray) Case Else Continue For End Select Next End If Next Return outDataLst End Function Private Function GetDeviceObjectSetting(devname As String, nodetype As String) As Byte() Dim buf() As Byte Select Case nodetype Case "KEY" If devname.Equals(hostname) Then buf = {3, 2, 2, 0} Else buf = {1, 2, 2, 0} End If Case "RKEY" buf = {1, 0, 0, 100} Case "PIR" buf = {2, 2, 60, 0} Case "DRY" buf = {3, 2, 2, 0} Case "SLIDER" buf = {2, 2, 2, 0} Case "CARD" buf = {0, 1, 0, 0} Case "Virtual_Card" buf = {2, 0, 0, 0} Case "MUSIC" buf = {1, 0, 0, 0} Case "Carbon_Device", "Scene_Restore" buf = {1, 0, 0, 0} End Select 'If devname.Equals(hostname) Then ' buf = {3, 2, 2, 0} 'Else ' buf = {1, 2, 2, 0} 'End If 'For Each node As RowNode In pNode.Nodes ' '查询设备属性集合 ' If node.RowType <> RowNode.RowTypeEnum.DeviceAttributes Then Continue For ' '获取设备属性值 ' Dim index As Integer = 0 ' Dim tag As AttributeRowNodeTag ' For Each n As RowNode In node.Nodes ' tag = n.Tag ' buf(index) = tag.ValueData ' index += 1 ' If index >= 4 Then Exit For ' Next 'Next Return buf End Function Public Function ByteToString(databuff() As Byte) Dim strData As String = String.Empty For i = 0 To databuff.Length - 1 strData &= $" {Hex(databuff(i)).PadLeft(2, "0"c)}" Next Return strData End Function Private Function FindAttributeValueUnderModel(pNode As DeviceModel, groupName As String, attributeName As String) As String For Each cnode In pNode.Config If cnode.Name.Equals(groupName) Then For Each ccnode In cnode.Attributes If ccnode.Name.Equals(attributeName) Then Return ccnode.DataDefault End If Next End If Next End Function Private Function FindAttributeValueUnderModel2(pNode As DeviceModel, groupName As String, attributeName As String) As String For Each cnode In pNode.Config If cnode.Name.Equals(groupName) Then For Each ccnode In cnode.Attributes If ccnode.Name.Equals(attributeName) Then Return ccnode.Value End If Next End If Next End Function Private Function FindNodeValueUnderModel(pNode As DeviceModel, groupName As String, attributeName As String) As String For Each cnode In pNode.Nodes If cnode.Name.Equals(groupName) Then For Each ccnode In cnode.Nodes If ccnode.Interface.Equals(attributeName) Then Return ccnode.LoopAddr End If Next End If Next End Function ''' ''' 配置RCU模型设备存在数据 ''' ''' 模型节点 ''' Private Function FillRCUModelDeviceExsist(pNode As DeviceModel) As Byte() ' If pNode.RowType <> RowNode.RowTypeEnum.Model Then Throw New Exception($"行号：{pNode.RowListIndex} 不为RCU模型类型") Dim buf As New List(Of Byte) 'Dim tag As ModelRowNodeTag = pNode.Tag buf.Add(pNode.Desc.DevTypeData) '设备类型(1字节) buf.Add(&H0) '设备地址(1字节) buf.Add(&H0) '485端口(1字节) Dim baudrate As Integer = 0 buf.AddRange(BitConverter.GetBytes(baudrate)) '波特率(4字节) buf.Add(pNode.Desc.ProtocolVer) '协议版本(1字节) buf.Add(&H0) '重发次数(1字节) Dim retryInterval As Short = 0 buf.AddRange(BitConverter.GetBytes(retryInterval)) '重发间隔(2字节) Dim keepParam(63) As Byte buf.AddRange(keepParam) '保留字段(32字节) -> 2022-05-28 V3.1 32bytes->64Bytes Dim inputCount As Short = 0 Dim outputCount As Short = 0 buf.AddRange(BitConverter.GetBytes(inputCount)) '输入回路数(2字节) buf.AddRange(BitConverter.GetBytes(outputCount)) '输出回路数(2字节) '所有输入回路设置(n*4字节) '所有输出回路别名(n*16字节) Return buf.ToArray End Function Public Function FillConfigInfo(configInfo As ConfigInfoStuct, adevName As String) As List(Of Byte) Dim resultDatas As New List(Of Byte()) Dim cmd As Byte = &H1 Dim buf As List(Of Byte) = New List(Of Byte) Dim arrayCopyLenght As Integer = 0 '命令 buf.Add(cmd) '发布作者 P0~31 Dim bytesAuthor() As Byte = AliasEncoding.GetBytes(configInfo.Author.Trim) Dim bytesAuthor_32bytes(31) As Byte If bytesAuthor.Length <= 32 Then arrayCopyLenght = bytesAuthor.Length Else arrayCopyLenght = 32 End If Array.Copy(bytesAuthor, bytesAuthor_32bytes, arrayCopyLenght) buf.AddRange(bytesAuthor_32bytes) '软件版本号 P32~35 'Dim strConfigToolsVersion As String = Replace(configInfo.ConfigToolVersion, ".", "", 1, 4) 'Dim byetConfigToolsVersion() As Byte = System.Text.Encoding.UTF8.GetBytes(strConfigToolsVersion) Dim ByteConfigToolsVersion() As String = configInfo.ConfigToolVersion.Split(".") Dim byetConfigToolsVersion(3) As Byte byetConfigToolsVersion(0) = Val(ByteConfigToolsVersion(0)) byetConfigToolsVersion(1) = Val(ByteConfigToolsVersion(1)) byetConfigToolsVersion(2) = Val(ByteConfigToolsVersion(2)) byetConfigToolsVersion(3) = Val(ByteConfigToolsVersion(3)) buf.AddRange(byetConfigToolsVersion) '配置发布日期 P36~42 'Dim strReleaseDate As String = Format(configInfo.ReleaseDate, "yyyyMMddHHmmss") 'Dim byteReleaseDate() = System.Text.Encoding.UTF8.GetBytes(strReleaseDate) Dim byteReleaseDate(6) As Byte ' byteReleaseDate(0) = configInfo.ReleaseDate.Year \ 256 'yy H byteReleaseDate(1) = configInfo.ReleaseDate.Year Mod 256 'yy L byteReleaseDate(2) = configInfo.ReleaseDate.Month 'Month byteReleaseDate(3) = configInfo.ReleaseDate.Day 'd byteReleaseDate(4) = configInfo.ReleaseDate.Hour 'h byteReleaseDate(5) = configInfo.ReleaseDate.Minute 'm byteReleaseDate(6) = configInfo.ReleaseDate.Second 's buf.AddRange(byteReleaseDate) '项目名称 P43~74 Dim byteHotelName() As Byte = AliasEncoding.GetBytes(configInfo.HotelName.Trim) Dim byteHotelName_32Bytes(31) As Byte If byteHotelName.Length <= 32 Then arrayCopyLenght = byteHotelName.Length Else arrayCopyLenght = 32 End If Array.Copy(byteHotelName, byteHotelName_32Bytes, arrayCopyLenght) buf.AddRange(byteHotelName_32Bytes) '项目编号 P75~78 Dim byteHotelCode() As Byte = iByte4(configInfo.HotelCode) buf.AddRange(byteHotelCode) '项目分组 P79~110 Dim byteHoteGroupName() As Byte = AliasEncoding.GetBytes(configInfo.HotelGroupName.Trim) Dim byteHoteGroupName_32Bytes(31) As Byte If byteHoteGroupName.Length <= 32 Then arrayCopyLenght = byteHoteGroupName.Length Else arrayCopyLenght = 32 End If Array.Copy(byteHoteGroupName, byteHoteGroupName_32Bytes, arrayCopyLenght) buf.AddRange(byteHoteGroupName_32Bytes) '房型别名 P111~142 Dim byteRoomTypeName() As Byte = AliasEncoding.GetBytes(configInfo.RoomTypeName.Trim) Dim byteRoomTypeName_32Bytes(31) As Byte If byteRoomTypeName.Length <= 32 Then arrayCopyLenght = byteRoomTypeName.Length Else arrayCopyLenght = 32 End If Array.Copy(byteRoomTypeName, byteRoomTypeName_32Bytes, arrayCopyLenght) buf.AddRange(byteRoomTypeName_32Bytes) '配置版本号 P143~146 'Dim byteConfigFileVersion() As Byte = iByte4(configInfo.CfgFileVersion) 'buf.AddRange(byteConfigFileVersion) 'Momo 2022-09-06 配置版本号只有3位 P143~145 Dim byteConfigFileVersion() As Byte = iByte3(configInfo.CfgFileVersion) buf.AddRange(byteConfigFileVersion) '配置机型 P146~P209 MCU机型名称 64 Dim tmpModelName As String = adevName.Trim 'MsgBox(tmpModelName) Dim byteModelName() As Byte = AliasEncoding.GetBytes(tmpModelName) Dim byteModelName_64Bytes(63) As Byte If byteModelName.Length <= 64 Then arrayCopyLenght = byteModelName.Length Else arrayCopyLenght = 64 End If Array.Copy(byteModelName, byteModelName_64Bytes, arrayCopyLenght) buf.AddRange(byteModelName_64Bytes) '2024.12.20 CZH Dim dtime As Short = 0 Try dtime = CShort(_grd.Cell(TableRowNumber.FunctionAnotherName, TableColNumber.InsertColumn - 1).Text) If dtime < -24 OrElse dtime > 24 Then dtime = 0 End If Catch ex As Exception dtime = 0 End Try Dim eventNum() As Byte = BitConverter.GetBytes(dtime) buf.AddRange(eventNum) '完成配置数据添加 Return buf 'resultDatas End Function ''' ''' Integer 类型转 4 字节 byte数组，高字节在前 ''' ''' ''' Public Function iByte4(ByVal i As Integer) As Byte() Dim btemp() As Byte = {0, 0, 0, 0} Dim b() As Byte = BitConverter.GetBytes(i) btemp(3) = b(3) btemp(2) = b(2) btemp(1) = b(1) btemp(0) = b(0) Return btemp End Function ''' ''' Integer 类型转 3 字节 byte数组，高字节在前 ''' ''' ''' Public Function iByte3(ByVal i As Integer) As Byte() Dim btemp() As Byte = {0, 0, 0} Dim b() As Byte = BitConverter.GetBytes(i) btemp(2) = b(2) btemp(1) = b(1) btemp(0) = b(0) Return btemp End Function Public Function SaveToExle(g_XmlPath As String) Try _grd.ExportToExcel(g_XmlPath,) Return True Catch ex As Exception Return False End Try End Function Public Function Save(g_XmlPath As String) Try Dim fxml As New DrSeverGrid(Dic_Devicemodel, Dic_ActionConfiguration, _grd, BasicClassFilename, ConditionFileName) fxml.Save(g_XmlPath) Return True Catch ex As Exception Return False End Try End Function Public Sub test() For i = 5 To 20 Console.WriteLine($"Rows :{i} VAL ：{_grd.Row(i).Locked }") For j = 1 To 10 Console.WriteLine($"cols :{j} VAL ：{_grd.Column(j).Locked }") Console.WriteLine($"cell :{i}，{j} VAL ：{_grd.Cell(i, j).Locked }") Next Next _grd.Column(1).Locked = False _grd.Row(9).Locked = False _grd.Row(8).Locked = False With _grd.Range(8, 1, 9, 1) .ClearAll() .Locked = False '.Merge() End With End Sub '上传无卡取电回路别名 Public Function tbl_room_ble_devlistInsert(HotelID As String, RoomTypeID As String) As String '判断设备列表是否为空 Dim result As String = "" Dim strbuf() As String Dim arrayCopyLenght As String = $"{HotelID}_{RoomTypeID}" result = $"'{arrayCopyLenght}'," Dim kstr As String = "" Dim cnt As Integer = 0 Dim updatastr As String = "" For Each index In Dic_Devicemodel.Values For Each node In index.Nodes If node.Name.Equals("Virtual_Card") AndAlso node.Interface.Equals("DO") Then cnt = 0 For Each node1 In node.Nodes strbuf = node1.Description.Split(",") 'Description = "卫红外,关门磁(18),50,,2,2,0" If strbuf.Count > 1 Then kstr = $"{kstr}loop{cnt}," result = $"{result}'{strbuf(1).Replace("(", "_").Replace(")", "")}'," updatastr = $"{updatastr}loop{cnt} = VALUES(loop{cnt})," End If cnt = cnt + 1 Next End If Next Next If kstr.Length > 0 Then result = result.Substring(0, result.Length - 1) kstr = kstr.Substring(0, kstr.Length - 1) updatastr = updatastr.Substring(0, updatastr.Length - 1) result = $"INSERT INTO tbl_rcu_virtualcard_looplogs (Combination_ID,{kstr}) VALUES ({result}) ON DUPLICATE KEY UPDATE {updatastr};" Else Return "" End If Return result End Function Public Function TestReportingScenario(_UserName As String, _HotleID As String, _RoomTypeID As String, filename As String, Version As String) As ReportingScenario Dim aaa As New ReportingScenario(_UserName, _HotleID, _RoomTypeID, filename, Version, _grd, Dic_Devicemodel, Dic_ActionConfiguration) Dim li As List(Of MDevNodeMessage) = aaa.getDateDisposeRuning Dim str As String = JsonConvert.SerializeObject(li) 'MsgBox(str) Dim nsurl As String = "https://boonlive-rcu.com/api/UploadRoomTypeModal" '"https://pms.boonlive-rcu.com/api/UploadRoomTypeModal" GetAccountAuth(nsurl, str) Return aaa End Function Private Function GetAccountAuth(url As String, data As String) As Boolean Dim jsonString As String = HttpMothod.PostData2(url, data) If String.IsNullOrWhiteSpace(jsonString) OrElse jsonString.ToUpper.Contains("False".ToUpper) Then Throw New Exception($"用户鉴权异常，请联系管理员") Return False End If Return True End Function Public Function LoadFile(path As String) As Boolean '新主机项目 清空设备列表 Try 'Dim ts As DateTime = Now 'Dim st As TimeSpan Dic_Devicemodel.Clear() Dic_ActionConfiguration.Clear() _ServerAction.Clear() ColumnAnothername.Clear() '记录主机名称 hostname = "" _ServerInsertRows = 0 _SceneID = 1 _ColumnStartLoad = TableColNumber.Max - 1 initGrid1() LockGridAutoRedraw() Dim fxml As New DrSeverGrid(Dic_Devicemodel, Dic_ActionConfiguration, _grd, BasicClassFilename, ConditionFileName) grdRemoveHandler() 'st = Now - ts 'Console.WriteLine($"st1:({st.TotalMilliseconds })") fxml.LoadFile(path) 'st = Now - ts 'Console.WriteLine($"st2:({st.TotalMilliseconds })") hostname = _grd.Cell(1, 8).Text Dic_Devicemodel = fxml.Dic_Devicemodel _grd.Cell(TableRowNumber.FunctionChildNodeAnother, TableColNumber.DeviceName).Text = getFunctionChildNodeAnother(Dic_Devicemodel) _ColumnStartLoad = fxml.InsertColumn BasicClassFilename = fxml.Dic_Bname ConditionFileName = fxml.Dic_Cname _SceneID = fxml.G_SceneID ColumnAnothername = fxml.ColumnAnothername _ServerInsertRows = _grd.Rows - 1 ChangeTheServiceLineNumber() grdAddHandler() UnLockGridAutoRedraw() 'st = Now - ts 'Console.WriteLine($"st3:({st.TotalMilliseconds })") Return True Catch ex As Exception Return False End Try End Function Public Function getFunctionChildNodeAnother(Devicemodel As Dictionary(Of String， DeviceModel）) As String Dim result As String = String.Empty For Each moduStr In Devicemodel.Values If moduStr.Nodes.Count = 1 AndAlso (moduStr.Nodes(0).Nodes.Count = 0 OrElse moduStr.Nodes(0).DEV_TYPE_DATA.Equals("48") OrElse moduStr.Nodes(0).DEV_TYPE_DATA.Equals("46")) Then If String.IsNullOrEmpty(result) Then result = moduStr.Name Else result = result & "," & moduStr.Name End If End If Next Return result '_grd.Cell(TableRowNumber.FunctionChildNodeAnother, TableColNumber.DeviceName).Text = "test" End Function #End Region End Class Public Class CtabRange Public devname As String = String.Empty Public fr As Integer = 0 Public lr As Integer = 0 Public fc As Integer = 0 Public lc As Integer = 0 Sub New(grd As FlexCell.Grid， tabr As Integer, tabc As Integer) If grd.Rows > tabr AndAlso grd.Cols > tabc Then With grd.Range(tabr, tabc, tabr, tabc) devname = grd.Cell(.FirstRow, .FirstCol).Text fc = .FirstCol lc = .LastCol fr = .FirstRow lr = .LastRow End With End If End Sub End Class