Boonlive_RD_Web/Desktop_BLVStudio_EN
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
4243e3e4d8a93b2c3b8c5e932f6a72781de0d681
Desktop_BLVStudio_EN/BLV_Studio/ModelGrid/RowNodeCompile.vb

3129 lines
124 KiB
VB.net
Raw Normal View History

初始化项目
2025-12-11 14:22:51 +08:00
Imports System.Net
Imports BLV_Studio.GridModel
Imports BLV_Studio.GridModel.DeviceEventModel
Public Class RowNodeCompile
''' <summary>输出信息打印</summary>
Public Event OutputPrint(sender As Object, e As OutputPrintEventArgs)
Public _rootNode As RowNode
Public _configInfo As ConfigInfoStuct
''' <summary>
''' 场景编号,从1开始
''' </summary>
Public _sceneIndex As UShort
''' <summary>
''' 动作编号,从1开始
''' </summary>
Public _actionIndex As UShort
''' <summary>
''' 便于索引的动作编号
''' </summary>
Private _tempActionIndex As UShort
''' <summary>
''' 事件键值对，用于保存事件编号和对应的节点
''' </summary>
Public _eventRowNode As Dictionary(Of UShort, RowNode)
''' <summary>
''' 节点集合，表明该设备在哪些地方产生了调用
''' </summary>
Public _objectWhereUsed As Dictionary(Of String, List(Of RowNode))
''' <summary>
''' 节点集合，表明该动作组被哪些地方调用
''' </summary>
Public _actionGroupWhereUsed As Dictionary(Of String, List(Of RowNode))
''' <summary>
''' 节点集合，表明该场景被哪些地方调用
''' </summary>
Public _contexualGroupsWhereUsed As Dictionary(Of String, List(Of RowNode))
''' <summary>
''' 所有已配置词条的小宝的集合
''' </summary>
Public _xiaobaoUsed As List(Of RowNode)
''' <summary>
''' 动作组集合,键为动作组别名，键位动作组节点
''' </summary>
Public _actionGroups As Dictionary(Of String, RowNode)
''' <summary>
''' 模型集合,键为设备对象别名，键为模型节点
''' </summary>
Public _modelGroups As Dictionary(Of String, RowNode)
''' <summary>
''' 模型集合,键为设备对象行号，键为模型节点
''' </summary>
Public _modelGroups2 As Dictionary(Of Integer, RowNode)
''' <summary>
''' 设备对象集合,键为设备对象别名，键为设备对象节点
''' </summary>
Public _objectGroups As Dictionary(Of String, RowNode)
''' <summary>
''' 场景模式集合,键为设备对象别名，键为设备对象节点
''' </summary>
Public _contextualGroups As Dictionary(Of String, RowNode)
''' <summary>
''' 所有设备对象的集合
''' </summary>
Public _objectLst As List(Of RowNode)
''' <summary>
''' 所有非设备事件的自定义场景集合
''' </summary>
Public _contexualLst As List(Of RowNode)
''' <summary>
''' 所有设备存在的集合
''' </summary>
Public _deviceExists As List(Of RowNode)
''' <summary>
''' 所有小宝的集合
''' </summary>
Public _xiaobao As List(Of RowNode)
''' <summary>
''' RCU模型节点
''' </summary>
Public _modelNode As RowNode
''' <summary>
''' 别名转换所使用的编码格式,默认方式GBK
''' </summary>
Public Property AliasEncoding As Text.Encoding
''' <summary>
''' 单条数据帧，最大动作数量,默认80
''' </summary>
Public Property MaxActionCount As Integer
''' <summary>
''' 键为场景别名,值为场景编号
''' </summary>g
Private _dicScese As Dictionary(Of String, UShort)
''' <summary>
''' 键为场景编号，值为场景别名与设备动作编号
''' </summary>
Private _lstScese As Dictionary(Of UShort, tmpClass)
Public Class tmpClass
Public rowNode As RowNode
Public AliasName As String
Public Actions As New List(Of UShort)
Sub New(name As String, node As RowNode)
AliasName = name
rowNode = node
End Sub
Public Function GetActionNums() As Byte()
Dim lst As New List(Of Byte)
For Each num As UShort In Actions
lst.AddRange(BitConverter.GetBytes(num))
Next
Return lst.ToArray
End Function
End Class
Sub New(root As RowNode)
_rootNode = root '根节点
_sceneIndex = 1
_actionIndex = 1
_tempActionIndex = 1
_actionGroups = New Dictionary(Of String, RowNode)
_modelGroups = New Dictionary(Of String, RowNode)
_modelGroups2 = New Dictionary(Of Integer, RowNode)
_objectGroups = New Dictionary(Of String, RowNode)
_contextualGroups = New Dictionary(Of String, RowNode)
_objectWhereUsed = New Dictionary(Of String, List(Of RowNode))
_actionGroupWhereUsed = New Dictionary(Of String, List(Of RowNode))
_contexualGroupsWhereUsed = New Dictionary(Of String, List(Of RowNode))
_eventRowNode = New Dictionary(Of UShort, RowNode)
_objectLst = New List(Of RowNode)
_deviceExists = New List(Of RowNode)
_xiaobao = New List(Of RowNode)
_xiaobaoUsed = New List(Of RowNode)
_contexualLst = New List(Of RowNode)
AliasEncoding = Text.Encoding.GetEncoding("GBK")
MaxActionCount = 80
_dicScese = New Dictionary(Of String, UShort)
_lstScese = New Dictionary(Of UShort, tmpClass)
End Sub
#Region "输出打印"
''' <summary>
''' 输出对应类型信息
''' </summary>
''' <param name="type"></param>
''' <param name="txt"></param>
Private Sub Print(type As OutputPrintEventArgs.Types, txt As String)
RaiseEvent OutputPrint(Me, New OutputPrintEventArgs(type, txt))
End Sub
''' <summary>
''' 输出执行信息
''' </summary>
''' <param name="txt"></param>
Private Sub PrintInfo(txt As String)
RaiseEvent OutputPrint(Me, New OutputPrintEventArgs(OutputPrintEventArgs.Types.Info, txt))
End Sub
''' <summary>
''' 输出警告信息
''' </summary>
''' <param name="txt"></param>
Private Sub PrintWarning(txt As String)
RaiseEvent OutputPrint(Me, New OutputPrintEventArgs(OutputPrintEventArgs.Types.Warn, txt))
End Sub
''' <summary>
''' 输出错误信息
''' </summary>
''' <param name="txt"></param>
Private Sub PrintError(txt As String)
RaiseEvent OutputPrint(Me, New OutputPrintEventArgs(OutputPrintEventArgs.Types.Error, txt))
End Sub
#End Region
''' <summary>
''' 填充编译所需要的必要索引信息
''' </summary>
Public Sub FillActionGroups()
_objectLst.Clear()
_actionGroups.Clear()
_modelGroups.Clear()
_modelGroups2.Clear()
_objectGroups.Clear()
_contextualGroups.Clear()
_deviceExists.Clear()
_xiaobao.Clear()
_objectWhereUsed.Clear()
_actionGroupWhereUsed.Clear()
_contexualGroupsWhereUsed.Clear()
_xiaobaoUsed.Clear()
_contexualLst.Clear()
_eventRowNode.Clear()
Dim tmpStr As String = 0
Try
For Each node As RowNode In _rootNode.RowList
tmpStr = " 行号: " & node.RowListIndex & vbCrLf &
" 节点: " & node.Text & vbCrLf &
" 别名: " & node.DeviceAlias & vbCrLf
'填充编译所需节点内容
Select Case node.RowType
Case RowNode.RowTypeEnum.Model
_modelNode = node
_deviceExists.Add(node)
Case RowNode.RowTypeEnum.DeviceObject
_objectLst.Add(node)
_modelGroups2.Add(node.RowListIndex, node.ParentNode.ParentNode)
Case RowNode.RowTypeEnum.ExternalModel
_deviceExists.Add(node)
Case RowNode.RowTypeEnum.ModelAttributes_DeviceExists
_deviceExists.Add(node)
Case RowNode.RowTypeEnum.ModelAttributes_XiaoBaoCMD
_xiaobao.Add(node)
Case RowNode.RowTypeEnum.ModelAttribute_XiaoBaoCMD
If String.IsNullOrEmpty(node.DeviceType) OrElse String.IsNullOrEmpty(node.DeviceName) Then
Else
_xiaobaoUsed.Add(node)
End If
Case RowNode.RowTypeEnum.ContextualModel '场景模式
_contexualLst.Add(node)
End Select
'根据别名索引
If String.IsNullOrEmpty(node.DeviceAlias) Then Continue For
Select Case node.RowType
Case RowNode.RowTypeEnum.DeviceObject '设备对象
_objectGroups.Add(node.DeviceAlias, node)
_modelGroups.Add(node.DeviceAlias, node.ParentNode.ParentNode)
Case RowNode.RowTypeEnum.DeviceEventActions '设备动作组
_actionGroups.Add(node.DeviceAlias, node)
Case RowNode.RowTypeEnum.DeviceEvent '设备事件
_contextualGroups.Add(node.DeviceAlias, node)
_modelGroups.Add(node.DeviceAlias, _modelNode)
Case RowNode.RowTypeEnum.ContextualModel '场景模式
_contextualGroups.Add(node.DeviceAlias, node)
_modelGroups.Add(node.DeviceAlias, _modelNode)
End Select
Next
''增加动作组调用列表
If _actionGroups.Count > 0 Then
For Each tmpStrKey As String In _actionGroups.Keys
Dim keyObject As RowNode = _actionGroups(tmpStrKey) '键对应的rownode
Dim tmpNodeList As New List(Of RowNode) '新建一个list对象用于保存调用列表’
tmpNodeList.Clear()
For Each node As RowNode In _rootNode.RowList
'如果 DeviceType 和 DeviceName都相同，就加入列表’
If node.DeviceType = keyObject.DeviceType AndAlso node.DeviceName = tmpStrKey Then
tmpNodeList.Add(node)
End If
Next
_actionGroupWhereUsed.Add(tmpStrKey, tmpNodeList)
Next
End If
'增加场景调动列表
If _contextualGroups.Count > 0 Then
For Each tmpStrKey As String In _contextualGroups.Keys
Dim keyObject As RowNode = _contextualGroups(tmpStrKey) '键对应的rownode
Dim tmpNodeList As New List(Of RowNode) '新建一个list对象用于保存调用列表’
tmpNodeList.Clear()
For Each node As RowNode In _rootNode.RowList
'如果 DeviceName 相同，就加入列表’
If node.DeviceName = tmpStrKey Then
tmpNodeList.Add(node)
End If
Next
_contexualGroupsWhereUsed.Add(tmpStrKey, tmpNodeList)
Next
End If
'增加别名调用列表
If _objectGroups.Count > 0 Then
For Each tmpStrKey As String In _objectGroups.Keys
Dim keyObject As RowNode = _objectGroups(tmpStrKey) '键对应的rownode
Dim tmpNodeList As New List(Of RowNode) '新建一个list对象用于保存调用列表’
tmpNodeList.Clear()
For Each node As RowNode In _rootNode.RowList
'如果 DeviceType 和 DeviceName都相同，就加入列表’
If node.DeviceType = keyObject.DeviceType AndAlso node.DeviceName = tmpStrKey Then
tmpNodeList.Add(node)
End If
Next
_objectWhereUsed.Add(tmpStrKey, tmpNodeList)
Next
End If
Catch ex As Exception
MsgBox(ex.Message & vbCrLf & vbCrLf & tmpStr)
End Try
End Sub
''' <summary>
''' 编译
''' </summary>
Public Function Complie(ByRef argEffMsg As String, ByVal configInfo As ConfigInfoStuct, ByRef tsp As ToolStripProgressBar, datPath As String, Optional ByVal dic As List(Of Dictionary(Of String， String)) = Nothing) As Boolean
PrintInfo("开始编译")
'传递配置信息，这些信息将会保存在0x01数据块
_configInfo = configInfo
'编译错误消息
argEffMsg = ""
'获取基础数据
FillActionGroups()
If _modelNode Is Nothing Then Throw New Exception("请选择模型后重试")
_sceneIndex = 1
_actionIndex = 1
_dicScese.Clear()
_lstScese.Clear()
_eventRowNode.Clear()
Dim lst As New List(Of Byte())
'编译配置信息 Momo 2020-05-14
Dim configInfoLst As New List(Of Byte())
Dim tmpInfo() As Byte = FillConfigInfo().ToArray
configInfoLst.Add(tmpInfo)
lst.AddRange(configInfoLst.ToArray)
PrintInfo("配置信息编译完成，长度：" & tmpInfo.Count & " Bytes")
'编译全局属性
'编译设备存在
Dim deviceExistsDatas As List(Of Byte())
Dim OutDevlist As New List(Of Byte)
deviceExistsDatas = FillDeviceExistsData(dic)
lst.AddRange(deviceExistsDatas.ToArray)
'获取编译的设备动作
Dim actionDatas As New List(Of Byte())
actionDatas.AddRange(FillDeviceObject(tsp)) '编译设备对象动作数据
actionDatas.AddRange(FillSceneModel) '编译场景动作数据
lst.AddRange(actionDatas.ToArray)
'编译小宝数据
Dim xiaobaoDatas As List(Of Byte())
xiaobaoDatas = FillXiaobaoData()
lst.AddRange(xiaobaoDatas.ToArray)
'编译场景信息
Dim SceneDatas As List(Of Byte())
SceneDatas = FillSceneData()
lst.AddRange(SceneDatas.ToArray)
'填充数据帧
Dim frames As List(Of Byte()) = FillDataFrames(lst)
'生成Bin文件
Dim path As String = datPath.Replace(".xml", ".dat")
'Dim devpath As String = datPath.Replace(".xml", "_dev.dat")
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)
'IO.File.WriteAllBytes(devpath, OutDevlist.ToArray)
'PrintWarning("编译警告")
'PrintError("编译错误")
PrintInfo("编译完成")
PrintInfo("事件键值对：")
For Each key As UShort In _eventRowNode.Keys
Dim tmpRode As RowNode = _eventRowNode(key)
Dim tmpString As String = " 事件编号：" & key &
" ,行号：" & tmpRode.RowListIndex &
" ,事件名称：" & tmpRode.Text &
" ,事件别名：" & tmpRode.DeviceAlias
PrintInfo(tmpString)
Next
PrintInfo("")
PrintInfo("")
PrintInfo("场景键值对：")
For Each key As UShort In _lstScese.Keys
Dim tmpRode As RowNode = _lstScese(key).rowNode
Dim tmpString As String = " 场景编号：" & key &
" ,行号：" & tmpRode.RowListIndex &
" ,场景名称：" & tmpRode.Text &
" ,场景别名：" & tmpRode.DeviceAlias
PrintInfo(tmpString)
Next
Return True
End Function
''' <summary>
''' 下载
''' </summary>
Public Sub Download()
End Sub
''' <summary>
''' 规则检测
''' </summary>
Public Sub RuleCheck()
End Sub
''' <summary>
''' 填充数据帧
''' </summary>
''' <param name="data">包含帧类型和帧参数</param>
''' <returns></returns>
Private Function FillDataFrames(data As List(Of Byte())) As List(Of Byte())
Dim result As New List(Of Byte())
Dim index As Short = 1
Dim count As Short = data.Count
Dim frameBuf As List(Of Byte)
Dim num As Integer = 0
For Each buf As Byte() In data
num = num + buf.Length
frameBuf = New List(Of Byte)
'包头(2位)
frameBuf.Add(&HCC)
frameBuf.Add(&HC0)
'长度(2位)
Dim length As Short = buf.Length + 10
frameBuf.AddRange(BitConverter.GetBytes(length))
'CRC校验(2位)
frameBuf.AddRange(New Byte() {0, 0})
'帧号(2位)
frameBuf.AddRange(BitConverter.GetBytes(index))
'帧总数(2位)
frameBuf.AddRange(BitConverter.GetBytes(count))
''帧类型(1位)
'frameBuf.Add(type)
'帧参数(不定长)
frameBuf.AddRange(buf)
Dim crc() As Byte = GetCRC16CheckSum(frameBuf.ToArray, frameBuf.Count)
frameBuf(4) = crc(0)
frameBuf(5) = crc(1)
index += 1
result.Add(frameBuf.ToArray)
Next
'Dim themore As Integer = num Mod 4
'Console.WriteLine(num)
'For isnum As Integer = 1 To (4 - themore)
' result(result.Count -1).Add({0})
'Next
Return result
End Function
''' <summary>
''' CRC16校验
''' </summary>
''' <param name="dataBuff"></param>
''' <param name="length"></param>
''' <returns></returns>
Public Function GetCRC16CheckSum(dataBuff() As Byte, length As Integer) As Byte()
Dim crc16 As UInteger
Dim crcBytes() As Byte
crc16 = &HFFFF
For i = 0 To length - 1
crc16 = crc16 And &HFFFF
crc16 = crc16 Xor dataBuff(i)
For bit = 0 To 7
crc16 = IIf((crc16 And 1) = 0, crc16 >> 1, (crc16 >> 1) Xor &HA001)
Next
Next
crc16 = crc16 And &HFFFF
crcBytes = BitConverter.GetBytes(UShort.Parse(crc16))
Return crcBytes
End Function
Private Function FindModelDeviceGroupUnderModel_By_Interface(pNode As RowNode, strInterface As String) As RowNode
Dim resultNode As RowNode = Nothing
For Each node As RowNode In pNode.Nodes
If node.RowType <> RowNode.RowTypeEnum.DeviceGroup Then Continue For
If String.Compare(node.Interface, strInterface, True) <> 0 Then Continue For
resultNode = node
Exit For
Next
Return resultNode
End Function
''' <summary>
''' 在模型节点下查询指定名称的设备组节点
''' </summary>
''' <param name="pNode">模型节点</param>
''' <returns></returns>
Private Function FindModelDeviceGroupUnderModel(pNode As RowNode, name As String) As RowNode
Dim resultNode As RowNode = Nothing
''2022-05-14 2.0.2.0 版本以前：匹配节点名称与“DI”‘DO’字符串，来确定是否返回端点
''外设有继电器时，继电器名称为“Relay”，Interface为“DO”，此方法会范围“0”
For Each node As RowNode 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
''' <summary>
''' 在模型节点下查询属性集节点
''' </summary>
''' <param name="pNode">模型节点</param>
''' <returns></returns>
Private Function FindModelAttributesUnderModel(pNode As RowNode) As RowNode
Dim resultNode As RowNode = Nothing
For Each node As RowNode In pNode.Nodes
If node.RowType <> RowNode.RowTypeEnum.ModelAttributes Then Continue For
resultNode = node
Exit For
Next
Return resultNode
End Function
''' <summary>
''' 在属性集节点下查询指定名称的属性组节点
''' </summary>
''' <param name="pNode">属性集合节点</param>
''' <param name="name">属性组名称</param>
''' <returns></returns>
Private Function FindAttributeGroupUnderAttributes(pNode As RowNode, name As String) As RowNode
Dim resultNode As RowNode = Nothing
For Each node As RowNode In pNode.Nodes
If node.RowType <> RowNode.RowTypeEnum.ModelAttributeGroup AndAlso
node.RowType <> RowNode.RowTypeEnum.ModelAttributes_DeviceExists Then Continue For
If String.Compare(node.Name, name, True) <> 0 Then Continue For
resultNode = node
Exit For
Next
Return resultNode
End Function
''' <summary>
''' 在属性组节点下查询属性节点
''' </summary>
''' <param name="pNode"></param>
''' <param name="name"></param>
''' <returns></returns>
Private Function FindAttributeUnderAttributeGroup(pNode As RowNode, name As String) As RowNode
Dim resultNode As RowNode = Nothing
For Each node As RowNode In pNode.Nodes
' If node.RowType <> RowNode.RowTypeEnum.DeviceAttribute Then Continue For
If String.Compare(node.Name, name, True) <> 0 Then Continue For
resultNode = node
Exit For
Next
Return resultNode
End Function
''' <summary>
''' 获取节点选择项对应的数值
''' </summary>
''' <param name="node"></param>
''' <returns></returns>
Private Function GetNodeSelectStringValue(node As RowNode) As String
Dim result As String
Dim tag As AttributeRowNodeTag = node.Tag
result = tag.ValueData
If node.Text.Contains("判断锁定状态") Then
Console.WriteLine($"{node.ParentNode.ParentNode.ParentNode.ParentNode.ParentNode.Text }")
Console.WriteLine($"{node.ParentNode.ParentNode.ParentNode.Text }")
Console.WriteLine($"判断锁定状态{result}")
End If
result = tag.ValueData
Return result
End Function
''' <summary>
''' 在模型节点下查询指定组名下的指定名称属性节点
''' </summary>
''' <param name="pNode">模型节点</param>
''' <returns></returns>
Private Function FindAttributeUnderModel(pNode As RowNode， groupName As String, attributeName As String) As RowNode
Dim resultNode As RowNode = Nothing
If pNode Is Nothing Then Return resultNode
Dim n As RowNode = FindModelAttributesUnderModel(pNode)
If n Is Nothing Then Return resultNode
Dim n2 As RowNode = FindAttributeGroupUnderAttributes(n, groupName)
If n2 Is Nothing Then Return resultNode
resultNode = FindAttributeUnderAttributeGroup(n2, attributeName)
Return resultNode
End Function
''' <summary>
''' 在模型节点下查询指定组名下的指定名称的属性节点值
''' </summary>
''' <param name="pNode">模型节点</param>
''' <returns></returns>
Private Function FindAttributeValueUnderModel(pNode As RowNode, groupName As String, attributeName As String) As String
Dim node As RowNode = FindAttributeUnderModel(pNode, groupName, attributeName)
If node Is Nothing Then Throw New Exception($"{pNode.RowListIndex}:{pNode.Name} 未查询属性组[{groupName}]下属性[{attributeName}]节点")
Dim result As String
Try
result = GetNodeSelectStringValue(node)
Catch ex As Exception
Throw New Exception($"{pNode.RowListIndex}:{pNode.Name} 查询属性值失败，{ex.Message}")
End Try
Return result
End Function
''' <summary>
''' 在模型节点下查询指定组名下的指定名称的属性节点值
''' </summary>
''' <param name="pNode">模型节点</param>
''' <returns></returns>
Private Function TheFindAttributeValueUnderModel(pNode As RowNode, groupName As String, attributeName As String) As String
Dim node As RowNode = FindAttributeUnderModel(pNode, groupName, attributeName)
If node Is Nothing Then Return String.Empty
Dim result As String
Try
result = GetNodeSelectStringValue(node)
Catch ex As Exception
Return String.Empty
End Try
Return result
End Function
''' <summary>
''' 在属性组节点下查询指定属性名的属性节点值
''' </summary>
''' <param name="pNode">属性组节点</param>
''' <param name="attributeName">属性值</param>
''' <returns></returns>
Private Function FindAttributeValueUnderGroup(pNode As RowNode, attributeName As String) As String
Dim node As RowNode = FindAttributeUnderAttributeGroup(pNode, attributeName)
Return GetNodeSelectStringValue(node)
End Function
''' <summary>
''' 在模型节点下查询指定名称的设备组节点
''' </summary>
''' <param name="pNode">模型节点</param>
''' <param name="name">设备组名</param>
''' <returns></returns>
Private Function FindDeviceGroupUnderModel(pNode As RowNode, name As String) As RowNode
Dim resultNode As RowNode = Nothing
For Each node As RowNode 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 FillSceneData() 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 As UShort In _lstScese.Keys
buf = New List(Of Byte)
buf.Add(cmd)
buf.AddRange(BitConverter.GetBytes(num)) '2字节场景编号
Dim aliasData() As Byte = AliasEncoding.GetBytes(_lstScese(num).AliasName)
ReDim Preserve aliasData(15)
buf.AddRange(aliasData) '16字节场景别名
buf.AddRange(_lstScese(num).GetActionNums) '2n动作编号集
tmpBufferCount = tmpBufferCount + buf.Count
resultDatas.Add(buf.ToArray)
Next
PrintInfo("场景编译完成，长度：" & tmpBufferCount & "Bytes")
Return resultDatas
End Function
''' <summary>
''' 填充小宝数据
''' </summary>
''' <returns></returns>
Private Function FillXiaobaoData() As List(Of Byte())
Dim tmpBufferCount As Integer = 0
Dim resultDatas As New List(Of Byte())
Dim cmd As Byte = &H5
Dim buf As List(Of Byte)
PrintInfo("开始编译小宝数据")
For Each node As RowNode In _xiaobao
PrintInfo(" - 行号：" & node.RowListIndex & " " & node.Text) 'Momo 20220617 增加场景编译输出信息
For Each data() As Byte In FillXiaoBaoGroupData(node)
buf = New List(Of Byte)
buf.Add(cmd)
buf.AddRange(data)
resultDatas.Add(buf.ToArray)
tmpBufferCount = tmpBufferCount + buf.Count
Next
Next
PrintInfo("小宝编译完成，长度：" & tmpBufferCount & "Bytes")
Return resultDatas
End Function
''' <summary>
''' 获取小宝词条组的数据
''' </summary>
''' <param name="pNode">小宝词条组节点</param>
''' <returns></returns>
Private Function FillXiaoBaoGroupData(pNode As RowNode) As List(Of Byte())
Dim lst As New List(Of Byte())
If pNode.RowType <> RowNode.RowTypeEnum.ModelAttributes_XiaoBaoCMD Then Throw New Exception($"未知的小宝类型：{pNode.RowListIndex}")
Dim data As List(Of Byte)
For Each node As RowNode In pNode.Nodes
If String.IsNullOrEmpty(node.DeviceType) OrElse String.IsNullOrEmpty(node.DeviceName) Then Continue For
data = New List(Of Byte)
Dim tag As XiaoBaoRowNodeTag = node.Tag
data.Add(CInt(tag.DevType)) '输入类型(1个字节)
data.Add(CInt(tag.Address)) '输入地址(1个字节)
If node.DeviceType = "场景" Then
data.Add(GetContextualModelDeviceType()) '控制类型(1个字节)
data.Add(GetContextualModelDeviceAddr()) '控制地址(1个字节)
If _dicScese.ContainsKey(node.DeviceName) Then
Dim tmpDicSceseIdx As UShort = _dicScese(node.DeviceName)
data.AddRange(BitConverter.GetBytes(_dicScese(node.DeviceName))) '场景编号(2个字节)
PrintInfo(" 行号：" & node.RowListIndex & " 小宝命令：" & node.Text & " ,场景别名：" & node.DeviceName & " ,场景编号：" & tmpDicSceseIdx) 'Momo 20220610 增加场景编译输出信息
Else
Throw New Exception($"无效的场景名{node.DeviceName}")
End If
Else
data.Add(GetActionDeviceType(node.DeviceName)) '控制类型(1个字节)
data.Add(GetActionDeviceAddr(node.DeviceName)) '控制地址(1个字节)
data.AddRange(GetActionDeviceLoop(node.DeviceName)) '控制回路(2个字节)
End If
lst.Add(data.ToArray)
Next
Return lst
End Function
''' <summary>
''' 填充配置信息
''' 修改记录：
''' 2022-05-16 曹聪
''' 1、下发的软件版本类型不对 - 已修改
''' 2、下发的中文编码不对 - 已修改
''' </summary>
''' <returns></returns>
Private Function FillConfigInfo() 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)
'填充配置信息
'_configInfo.Author = Account '配置发布作者
'_configInfo.ConfigToolVersion = Application.ProductVersion '配置软件版本号’
'_configInfo.ReleaseDate = date_now '发布日期
'_configInfo.HotelName = _project.HotelName '项目名称’
'_configInfo.HotelCode = _project.HotelCode '项目代号
'_configInfo.HotelGroupName = _project.VerdorName '项目分组
'_configInfo.RoomTypeName = _project.RoomType(g_CurrentTreeNodeRoomTypeItemIndex).structRoomType_Name '房型别名
'_configInfo.CfgFileVersion = _project.RoomType(g_CurrentTreeNodeRoomTypeItemIndex).structRoomType_ConfigVersion + 1 '配置版本号加一
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 = _modelNode.Name.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)
'完成配置数据添加
Return buf 'resultDatas
End Function
''' <summary>
''' 填充设备存在
''' </summary>
''' <returns></returns>
Private Function FillDeviceExistsData(ByRef OutDevlist As List(Of Dictionary(Of String, String))) As List(Of Byte())
Dim resultDatas As New List(Of Byte())
Dim cmd As Byte = &H3
Dim buf As List(Of Byte)
For Each node As RowNode In _deviceExists
buf = New List(Of Byte)
PrintInfo("[行号：" & node.RowListIndex & "]" & " - 开始编译节点：" & node.Text)
If node.RowType = RowNode.RowTypeEnum.ExternalModel Then
''485外设 03 加到每个设备组数据块前面
Dim tmpBufferLst As List(Of Byte()) = FillExternalModelDeviceExsist(node, OutDevlist)
Dim tmpOutData As Byte()
For i = 0 To tmpBufferLst.Count - 1
tmpOutData = tmpBufferLst(i).ToArray
Console.WriteLine("FillDeviceExistsData.outBuff( " & i & ": " & BitConverter.ToString(tmpOutData).Replace("-", " "))
resultDatas.Add(tmpOutData.ToArray)
PrintInfo(" 编译完成，长度：" & tmpOutData.Count & " Bytes")
Next
tmpBufferLst = SelfCheckingPower(node)
For i = 0 To tmpBufferLst.Count - 1
tmpOutData = tmpBufferLst(i).ToArray
Console.WriteLine("FillDeviceExistsData.outBuff( " & i & ": " & BitConverter.ToString(tmpOutData).Replace("-", " "))
resultDatas.Add(tmpOutData.ToArray)
PrintInfo(" 编译完成，长度：" & tmpOutData.Count & " Bytes")
Next
Continue For
ElseIf node.RowType = RowNode.RowTypeEnum.ModelAttributes_DeviceExists Then
buf.Add(cmd)
Dim tmpBuffer() As Byte = FillModeDeviceExsist(node)
buf.AddRange(tmpBuffer)
PrintInfo(" 设备存在 编译完成，长度：" & tmpBuffer.Count & " Bytes")
ElseIf node.RowType = RowNode.RowTypeEnum.Model Then
buf.Add(cmd)
Dim tmpBuffer() As Byte = FillRCUModelDeviceExsist(node)
buf.AddRange(tmpBuffer)
PrintInfo(" 主机模型 编译完成，长度：" & tmpBuffer.Count & " Bytes")
Else
PrintError("未知的设备存在类型：" & node.Text)
Throw New Exception($"FillDeviceExistsData : 未处理的设备存在类型行：{node.RowListIndex}")
End If
resultDatas.Add(buf.ToArray)
Next
Return resultDatas
End Function
'CZH 23 12 28 新增 自检功率 命令数据
Public Function SelfCheckingPower(pNode As RowNode) As List(Of Byte())
If pNode.RowType <> RowNode.RowTypeEnum.ExternalModel Then Throw New Exception($"行号：{pNode.RowListIndex} 不为外接设备类型")
'返回参数
Dim outDataLst As New List(Of Byte()) '输出数据列表
'公共参数
Dim pTag As DeviceObjectRowNodeTag = pNode.ParentNode.Tag
If Not pTag.Device.Interface.Equals("PB_BUS_LINE") Then Return outDataLst
'2022-05-23 Momo V3.0 找到外设设备（RowType=26）后，再遍历设备组(RowType=8)
'To be code here !
'OutDevlist.Add(System.Text.Encoding.Default.GetBytes(Str))
For Each objGroupNode As RowNode In pNode.Nodes
If objGroupNode.RowType <> RowNode.RowTypeEnum.DeviceGroup Then Continue For '找到模型外设组
If objGroupNode.Compile = False Then Continue For '判断是否enable action’
If objGroupNode.DEV_TYPE_DATA.Equals("49") OrElse objGroupNode.DEV_TYPE_DATA.Equals("50") OrElse objGroupNode.DEV_TYPE_DATA.Equals("51") Then
Dim cmd As Byte = &H7
Dim tmpAddr As Byte = CInt(FindAttributeValueUnderModel(pNode, "设备存在", "拨码地址")) '设备地址(1字节)
Dim devtype As Byte = CByte(objGroupNode.DEV_TYPE_DATA)
'遍历设备
For Each objNode As RowNode In objGroupNode.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 objNode.Interface
Case "DI"
Case "DO"
Dim nli As New List(Of Byte）
Dim upAddr As Integer = CInt(FindAttributeValueUnderModel(pNode, "设备存在", $"回路{bpTag.Device.LoopAddr}自检功率下限")) '设备地址(1字节)
Dim domAddr As Integer = CInt(FindAttributeValueUnderModel(pNode, "设备存在", $"回路{bpTag.Device.LoopAddr}自检功率上限")) '设备地址(1字节)
nli.Add(cmd)
nli.Add(devtype)
nli.Add(tmpAddr)
nli.AddRange(BitConverter.GetBytes(CShort(bpTag.Device.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
'CZH 23 12 28 新增 自检功率 命令数据
''' <summary>
''' 根据RCU模型的设备存在属性组，配置设备存在数据
''' </summary>
''' <param name="pNode">模型节点</param>
''' <returns></returns>
Private Function FillModeDeviceExsist2(pNode As RowNode) As Byte()
If pNode.RowType <> RowNode.RowTypeEnum.ModelAttributes_DeviceExists Then Return Nothing
Dim modelNode As RowNode = pNode.ParentNode.ParentNode
Dim tag As ModelRowNodeTag = modelNode.Tag
Dim buf(62) As Byte
buf(DeviceExsistParam.DeviceType) = FindAttributeValueUnderGroup(pNode, "DeviceType") '设备类型(1字节)
buf(DeviceExsistParam.DeviceAddr) = FindAttributeValueUnderGroup(pNode, "DeviceAddr") '设备地址(1字节)
buf(DeviceExsistParam.Port_485) = FindAttributeValueUnderGroup(pNode, "DevicePort") '485端口(1字节)
Dim baudData() As Byte = BitConverter.GetBytes(CInt(FindAttributeValueUnderGroup(pNode, "DeviceBaud")))
Array.Copy(baudData, 0, buf, DeviceExsistParam.BaudRate, baudData.Length) '波特率(4字节)
buf(DeviceExsistParam.ProtocolVer) = tag.Desc.ProtocolVer '协议版本(1字节)
buf(DeviceExsistParam.RetryCount) = FindAttributeValueUnderGroup(pNode, "DeviceRetryNum") '重发次数(1字节)
Dim retryTimeData() As Byte = BitConverter.GetBytes(CShort(FindAttributeValueUnderGroup(pNode, "DeviceRetryTime")))
Array.Copy(retryTimeData, 0, buf, DeviceExsistParam.WaitTime, retryTimeData.Length) '重发间隔(2字节)
buf(DeviceExsistParam.KeepParams) = &H0 '保留字段(32字节)
Dim index As Integer = pNode.Name.IndexOf("设备组信息")
Dim type As String = pNode.Name.Substring(0, index)
Dim inputCount, outputCount As Short
Select Case type
Case "DI"
inputCount = FindModelDeviceGroupUnderModel(modelNode, "DI").Count
outputCount = 0
Case "DO"
inputCount = 0
outputCount = FindModelDeviceGroupUnderModel(modelNode, "DO").Count
Case "RELAY"
inputCount = FindModelDeviceGroupUnderModel(modelNode, "RELAY").Count
outputCount = 0
Case "MUSIC"
inputCount = FindModelDeviceGroupUnderModel(modelNode, "MUSIC").Count
outputCount = 0
End Select
Dim inputCountData() As Byte = BitConverter.GetBytes(inputCount)
Array.Copy(inputCountData, 0, buf, DeviceExsistParam.InputLoopCount, inputCountData.Length) '输入回路数(2字节)
Dim outputCountData() As Byte = BitConverter.GetBytes(outputCount)
Array.Copy(outputCountData, 0, buf, DeviceExsistParam.OutputLoopCount, outputCountData.Length) '输出回路数(2字节)
'todo:获取所有输出节点的别名并填充
Dim aliasData() As Byte = AliasEncoding.GetBytes(pNode.DeviceAlias)
If aliasData.Length > 16 Then Throw New Exception($"当前行：{pNode.RowListIndex},超过上限长度上限")
Array.Copy(aliasData, 0, buf, DeviceExsistParam.LoopAlias, aliasData.Length) '属性组别名(16字节)
Return buf
End Function
''' <summary>
''' 根据RCU模型的设备存在属性组，配置设备存在数据
''' </summary>
''' <param name="pNode">模型节点</param>
''' <returns></returns>
Private Function FillModeDeviceExsist(pNode As RowNode) As Byte()
If pNode.RowType <> RowNode.RowTypeEnum.ModelAttributes_DeviceExists Then Throw New Exception($"行号：{pNode.RowListIndex} 不为设备存在模型属性类型")
Dim modelNode As RowNode = pNode.ParentNode.ParentNode
Dim tag As ModelRowNodeTag = modelNode.Tag
Dim buf As New List(Of Byte)
buf.Add(FindAttributeValueUnderGroup(pNode, "DeviceType")) '设备类型(1字节)
buf.Add(FindAttributeValueUnderGroup(pNode, "DeviceAddr")) '设备地址(1字节)
buf.Add(FindAttributeValueUnderGroup(pNode, "DevicePort")) '485端口(1字节)
Dim baudData() As Byte = BitConverter.GetBytes(CInt(FindAttributeValueUnderGroup(pNode, "DeviceBaud")))
buf.AddRange(baudData) '波特率(4字节)
buf.Add(FindAttributeValueUnderGroup(pNode, "DeviceVer")) '协议版本(1字节)
buf.Add(FindAttributeValueUnderGroup(pNode, "DeviceRetryNum")) '重发次数(1字节)
Dim retryTimeData() As Byte = BitConverter.GetBytes(CShort(FindAttributeValueUnderGroup(pNode, "DeviceRetryTime")))
buf.AddRange(retryTimeData) '重发间隔(2字节)
Dim keepParam(63) As Byte '保留字段(32字节) -> 2022-05-28 V3.1 32bytes->64Bytes
buf.AddRange(keepParam)
Dim index As Integer = pNode.Name.IndexOf("设备组信息")
Dim type As String = pNode.Name.Substring(0, index)
Dim inputCount, outputCount As UShort
Dim inputSettings As New List(Of Byte)
Dim outputAliases As New List(Of Byte)
Dim inputGroupNode As RowNode = Nothing
Dim outputGroupNode As RowNode = Nothing
Select Case type
Case "DI"
inputGroupNode = FindModelDeviceGroupUnderModel(modelNode, "DI")
Case Else
outputGroupNode = FindModelDeviceGroupUnderModel(modelNode, type)
End Select
If inputGroupNode Is Nothing Then
inputCount = 0
Else
For Each node As RowNode In inputGroupNode.Nodes
If node.RowType <> RowNode.RowTypeEnum.DeviceObject Then Continue For
If node.Compile = False Then Continue For
inputCount += 1
inputSettings.AddRange(GetDeviceObjectSetting(node))
Next
End If
If outputGroupNode Is Nothing Then
outputCount = 0
Else
For Each node As RowNode 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.DeviceAlias) = False Then
aliasData = AliasEncoding.GetBytes(node.DeviceAlias)
End If
ReDim Preserve aliasData(31) 'caocong 2022-06-07 修改别名长度16Byte -> 32Byte
outputAliases.AddRange(aliasData)
Next
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字节)
''输入回路设置(n*4)
'If inputCount > 0 Then
' For Each node As RowNode In inputGroupNode.Nodes
' '查询设备节点
' If node.RowType <> RowNode.RowTypeEnum.DeviceObject Then Continue For
' buf.AddRange(GetDeviceObjectSetting(node))
' Next
'End If
''所有输出回路别名(n*16字节)
'If outputCount > 0 Then
' For Each node As RowNode In outputGroupNode.Nodes
' Dim aliasData() As Byte = AliasEncoding.GetBytes(node.DeviceAlias)
' ReDim Preserve aliasData(15)
' buf.AddRange(aliasData)
' Next
'End If
Return buf.ToArray
End Function
''' <summary>
''' 获取输入类型设备对象的回路设置
''' </summary>
''' <param name="pNode"></param>
''' <returns></returns>
Private Function GetDeviceObjectSetting(pNode As RowNode) As Byte()
Dim buf(3) As Byte
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
''' <summary>
''' 根据连接在485设备下的模型节点信息，配置设备存在数据
''' </summary>
''' <param name="pNode">模型节点</param>
''' <returns></returns>
Private Function FillExternalModelDeviceExsist2(pNode As RowNode) As Byte()
If pNode.RowType <> RowNode.RowTypeEnum.ExternalModel Then Return Nothing
Dim buf(62) As Byte
Dim tag As ModelRowNodeTag = pNode.Tag
buf(DeviceExsistParam.DeviceType) = tag.Desc.DevTypeData '设备类型(1字节)
buf(DeviceExsistParam.DeviceAddr) = CInt(FindAttributeValueUnderModel(pNode, "设备存在", "拨码地址")) '设备地址(1字节)
Dim pTag As DeviceObjectRowNodeTag = pNode.ParentNode.Tag
buf(DeviceExsistParam.Port_485) = pTag.Device.LoopAddr '485端口(1字节)
Dim baudData() As Byte = BitConverter.GetBytes(CInt(FindAttributeValueUnderModel(pNode, "设备存在", "波特率")))
Array.Copy(baudData, 0, buf, DeviceExsistParam.BaudRate, baudData.Length) '波特率(4字节)
buf(DeviceExsistParam.ProtocolVer) = tag.Desc.ProtocolVer '协议版本(1字节)
buf(DeviceExsistParam.RetryCount) = CInt(FindAttributeValueUnderModel(pNode, "设备存在", "重发次数")) '重发次数(1字节)
Dim retryTimeData() As Byte = BitConverter.GetBytes(CShort(FindAttributeValueUnderModel(pNode, "设备存在", "重发时间")))
Array.Copy(retryTimeData, 0, buf, DeviceExsistParam.WaitTime, retryTimeData.Length) '重发间隔(2字节)
buf(DeviceExsistParam.KeepParams) = &H0 '保留字段(32字节)
Dim groupNode As RowNode = FindModelDeviceGroupUnderModel(pNode, "DI")
If groupNode Is Nothing Then
buf(DeviceExsistParam.InputLoopCount) = 0 '输入回路数(1字节)
Else
buf(DeviceExsistParam.InputLoopCount) = groupNode.Count '输入回路数(1字节)
End If
groupNode = FindModelDeviceGroupUnderModel(pNode, "DO")
If groupNode Is Nothing Then
buf(DeviceExsistParam.OutputLoopCount) = 0 '输出回路数(1字节)
Else
buf(DeviceExsistParam.OutputLoopCount) = groupNode.Count '输出回路数(1字节)
End If
For Each node As RowNode In groupNode.Nodes
'输出回路的名称
Dim aliasData() As Byte = AliasEncoding.GetBytes(pNode.DeviceAlias)
If aliasData.Length > 16 Then Throw New Exception($"当前行：{pNode.RowListIndex},超过上限长度上限")
Array.Copy(aliasData, 0, buf, DeviceExsistParam.LoopAlias, aliasData.Length) '回路别名(16字节)
Next
Return buf
End Function
''' <summary>
''' 配置RCU模型设备存在数据
''' </summary>
''' <param name="pNode">模型节点</param>
''' <returns></returns>
Private Function FillRCUModelDeviceExsist(pNode As RowNode) 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(tag.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(tag.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
''' <summary>
''' 根据连接在485设备下的模型节点信息，配置设备存在数据
''' </summary>
''' <param name="pNode">模型节点</param>
''' <returns></returns>
Private Function FillExternalModelDeviceExsist(pNode As RowNode， ByRef OutDevlist As List(Of Dictionary(Of String, String))) As List(Of Byte())
If pNode.RowType <> RowNode.RowTypeEnum.ExternalModel Then Throw New Exception($"行号：{pNode.RowListIndex} 不为外接设备类型")
'返回参数
Dim outDataLst As New List(Of Byte()) '输出数据列表
'公共参数
Dim pTag As DeviceObjectRowNodeTag = pNode.ParentNode.Tag
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 strObjGroupNodesTypedataAndProtocol As String = "" '键值对的Key 即：key = DevTypeData，ProtocolVer
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 strObjGroupNodesInterface As String = ""
'2022-05-23 Momo V3.0 找到外设设备（RowType=26）后，再遍历设备组(RowType=8)
'To be code here !
'OutDevlist.Add(System.Text.Encoding.Default.GetBytes(Str))
For Each objGroupNode As RowNode In pNode.Nodes
If objGroupNode.RowType <> RowNode.RowTypeEnum.DeviceGroup Then Continue For '找到模型外设组
If objGroupNode.Compile = False Then Continue For '判断是否enable action’
strObjGroupNodesTypedataAndProtocol = objGroupNode.DEV_TYPE_DATA & "," & objGroupNode.PROTOCOL_VER
strObjGroupNodesInterface = objGroupNode.Interface
PrintInfo(" 开始遍历：" & objGroupNode.Text & " (" & strObjGroupNodesTypedataAndProtocol & "," & strObjGroupNodesInterface & ")")
'OutDevlist.AddRange(System.Text.Encoding.Default.GetBytes(pNode.Text))
'OutDevlist.AddRange(System.Text.Encoding.Default.GetBytes(strObjGroupNodesTypedataAndProtocol & "," & strObjGroupNodesInterface))
'Console.WriteLine($"{pNode.Text}:{}")
'如果键值对不存在就增加键值对
If ObjGroupNodesInOutDic.ContainsKey(strObjGroupNodesTypedataAndProtocol) = False Then
ObjGroupNodesInputCnt.Add(strObjGroupNodesTypedataAndProtocol, 0) '输入回路数 = 0
ObjGroupNodesoutputCnt.Add(strObjGroupNodesTypedataAndProtocol, 0) '输出回路数 = 0
ObjGroupNodesInpuSettings.Add(strObjGroupNodesTypedataAndProtocol, New List(Of Byte))
ObjGroupNodesOutputAliases.Add(strObjGroupNodesTypedataAndProtocol, New List(Of Byte))
'添加输出合并设备键值对’
ObjGroupNodesInOutDic.Add(strObjGroupNodesTypedataAndProtocol, New List(Of Byte))
'添加设备组公共信息
baudData = BitConverter.GetBytes(CInt(FindAttributeValueUnderModel(pNode, "设备存在", "波特率")))
retryTimeData = BitConverter.GetBytes(CShort(FindAttributeValueUnderModel(pNode, "设备存在", "重发时间")))
Dim tmpAddr As Byte = CInt(FindAttributeValueUnderModel(pNode, "设备存在", "拨码地址")) '设备地址(1字节)
'cah 20223_12_27 编译设备增加 父设备类型相关描述 Start
Dim ParentDevType As Byte = 0
Dim ParentDevAddr As Byte = 0
Dim ParentDevPort As Byte = 0
Dim node As RowNode = FindAttributeUnderModel(pNode, "设备存在", "父设备类型")
If Not IsNothing(node) Then
ParentDevType = CInt(FindAttributeValueUnderModel(pNode, "设备存在", "父设备类型")) '父设备美型(1字节)
End If
node = FindAttributeUnderModel(pNode, "设备存在", "父设备地址")
If Not IsNothing(node) Then
ParentDevAddr = CInt(FindAttributeValueUnderModel(pNode, "设备存在", "父设备地址")) '父设备美型(1字节)
End If
node = FindAttributeUnderModel(pNode, "设备存在", "父设备端口")
If Not IsNothing(node) Then
ParentDevPort = CInt(FindAttributeValueUnderModel(pNode, "设备存在", "父设备端口")) '父设备美型(1字节)
End If
keepParam(0) = ParentDevType
keepParam(1) = ParentDevAddr
keepParam(2) = ParentDevPort
'cah 20223_12_27 编译设备增加 父设备类型相关描述 End
For weindex As Integer = 0 To 4
node = FindAttributeUnderModel(pNode, "设备存在", $"弱电输入{weindex + 1}")
If Not IsNothing(node) Then
keepParam(3 + weindex) = CInt(FindAttributeValueUnderModel(pNode, "设备存在", $"弱电输入{weindex + 1}")) '父设备美型(1字节)
End If
Next
'Dim ipAddr As IPAddress = IPAddress.Parse(FindAttributeValueUnderModel(pNode, "设备存在", "中控IP地址")) '设备地址(1字节)
'ipadd = ipAddr.GetAddressBytes()
With ObjGroupNodesInOutDic(strObjGroupNodesTypedataAndProtocol)
.Add(&H3) '设备存在，每个数据块前面都加上 &H03
.Add(CByte(objGroupNode.DEV_TYPE_DATA)) '设备类型(1字节)
.Add(tmpAddr)
PrintInfo(" *** 设备地址：" & tmpAddr.ToString)
.Add(CByte(pTag.Device.LoopAddr)) '485端口(1字节)
.AddRange(baudData) '波特率(4字节)
.Add(CByte(objGroupNode.PROTOCOL_VER)) '协议版本(1字节)
.Add(CInt(FindAttributeValueUnderModel(pNode, "设备存在", "重发次数"))) '重发次数(1字节)
.AddRange(retryTimeData) '重发间隔(2字节)
If objGroupNode.DEV_TYPE_DATA.Equals("42") Then
Dim ipAddr As IPAddress = IPAddress.Parse(FindAttributeValueUnderModel(pNode, "设备存在", "中控IP地址")) '设备地址(1字节)
ipadd = ipAddr.GetAddressBytes()
PrintInfo(" 中控IP地址 IPadd :" & ipAddr.ToString)
ElseIf objGroupNode.DEV_TYPE_DATA.Equals("43") Then
Dim ipAddr As IPAddress = IPAddress.Parse(FindAttributeValueUnderModel(pNode, "设备存在", "域控IP地址")) '设备地址(1字节)
ipadd = ipAddr.GetAddressBytes()
PrintInfo(" 域控IP地址 IPadd :" & ipAddr.ToString)
End If
.AddRange(ipadd)
.AddRange(keepParam)
End With
'OutDevlist.AddRange(ObjGroupNodesInOutDic(strObjGroupNodesTypedataAndProtocol))
'Momo 2022-10-31 把编译后的485公共参数打印出来
'Dim tmpData As Byte() = ObjGroupNodesInOutDic(strObjGroupNodesTypedataAndProtocol).ToArray
'Dim tmpStr As String = BitConverter.ToString(tmpData).Replace("-", " ")
'PrintInfo(" *** 编译数据：" & tmpStr)
'Dim tmpData As Byte() = ObjGroupNodesInOutDic(strObjGroupNodesTypedataAndProtocol).ToArray
'Console.WriteLine(BitConverter.ToString(tmpData).Replace("-", " "))
End If
'遍历设备
For Each objNode As RowNode In objGroupNode.Nodes
If objNode.RowType <> RowNode.RowTypeEnum.DeviceObject Then Continue For '设备
If objNode.Compile = False Then Continue For '判断是否enable action’
Select Case objNode.Interface
Case "DI"
ObjGroupNodesInputCnt(strObjGroupNodesTypedataAndProtocol) += 1 '输入回路数+1
ObjGroupNodesInpuSettings(strObjGroupNodesTypedataAndProtocol).AddRange(GetDeviceObjectSetting(objNode))'输入回路设定’
Case "DO"
Dim tmpDevAlias As String = objNode.DeviceAlias
If String.IsNullOrEmpty(tmpDevAlias) Then tmpDevAlias = String.Empty '未命名别名的输出设备不参与编译
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
PrintInfo(" 设备组遍历结束，合并后设备组数据如下：")
'遍历合并后的设备组（保存于键值对中）
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字节)
PrintInfo(" DevType and Protocol:" & strKey)
PrintInfo(" Input :" & inputCnt & ", Len=" & arryInputSetting.Length)
PrintInfo(" Output:" & outputCnt & ", Len=" & arryOutputSetting.Length)
'Dim tmpData As Byte() = ObjGroupNodesInOutDic(strKey).ToArray
'Console.WriteLine("strKey=" & strKey & " : " & BitConverter.ToString(tmpData).Replace("-", " "))
'OutDevlist.AddRange(ObjGroupNodesInOutDic(strKey).ToArray)
'OutDevlist.AddRange({&HD, &HA})
outDataLst.Add(ObjGroupNodesInOutDic(strKey).ToArray)
Next
'' OLD CODE --------------------------------------
'Dim oobjectGroupsBuf As New List(Of Byte) ' 设备组buff，所有设备组buff 组成一个外设的buff
'Dim tag As ModelRowNodeTag = pNode.Tag
''V3.0以前：整个设备共用DevTypeData，V3.0以后：以设备组的DEV_TYPE_DATA为准
'oobjectGroupsBuf.Add(tag.Desc.DevTypeData) '设备类型(1字节)
'oobjectGroupsBuf.Add(CInt(FindAttributeValueUnderModel(pNode, "设备存在", "拨码地址"))) '设备地址(1字节)
'Dim pTag As DeviceObjectRowNodeTag = pNode.ParentNode.Tag
'oobjectGroupsBuf.Add(pTag.Device.LoopAddr) '485端口(1字节)
'Dim baudData() As Byte = BitConverter.GetBytes(CInt(FindAttributeValueUnderModel(pNode, "设备存在", "波特率")))
'oobjectGroupsBuf.AddRange(baudData) '波特率(4字节)
''V3.0以前：整个设备共用ProtocolVer，V3.0以后：以设备组的ProtocolVer为准
'oobjectGroupsBuf.Add(tag.Desc.ProtocolVer) '协议版本(1字节)
'oobjectGroupsBuf.Add(CInt(FindAttributeValueUnderModel(pNode, "设备存在", "重发次数"))) '重发次数(1字节)
'Dim retryTimeData() As Byte = BitConverter.GetBytes(CShort(FindAttributeValueUnderModel(pNode, "设备存在", "重发时间")))
'oobjectGroupsBuf.AddRange(retryTimeData) '重发间隔(2字节)
'Dim keepParam(31) As Byte '保留字段(32字节)
'oobjectGroupsBuf.AddRange(keepParam)
'Dim inputCount, outputCount As UShort
'Dim inputSettings As New List(Of Byte)
'Dim outputAliases As New List(Of Byte)
''Dim inputGroupNode As RowNode = FindModelDeviceGroupUnderModel(pNode, "DI")
''Dim outputGroupNode As RowNode = FindModelDeviceGroupUnderModel(pNode, "DO")
'Dim inputGroupNode As RowNode = FindModelDeviceGroupUnderModel_By_Interface(pNode, "DI")
'Dim outputGroupNode As RowNode = FindModelDeviceGroupUnderModel_By_Interface(pNode, "DO")
'If inputGroupNode Is Nothing Then
' inputCount = 0
'Else
' For Each node As RowNode In inputGroupNode.Nodes
' If node.RowType <> RowNode.RowTypeEnum.DeviceObject Then Continue For
' If node.Compile = False Then Continue For
' inputCount += 1
' inputSettings.AddRange(GetDeviceObjectSetting(node))
' Next
'End If
'If outputGroupNode Is Nothing Then
' outputCount = 0
'Else
' For Each node As RowNode 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 = AliasEncoding.GetBytes(node.DeviceAlias)
' ReDim Preserve aliasData(15)
' outputAliases.AddRange(aliasData)
' Next
'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字节)
'PrintInfo(" InputCount = " & inputCount)
'PrintInfo(" OutputCount = " & outputCount)
Return outDataLst
End Function
Public Sub GetXMLdevList(ByRef OutDevlist As List(Of Dictionary(Of String, String)))
#Region "CZh2023-3-30"
FillActionGroups()
For Each node As RowNode In _deviceExists
If node.RowType = RowNode.RowTypeEnum.ExternalModel Then
If node.RowType <> RowNode.RowTypeEnum.ExternalModel Then Return
Dim ObjGroupNodesInOutDic As New Dictionary(Of String, List(Of Byte))
Dim strObjGroupNodesTypedataAndProtocol As String = ""
For Each objGroupNode As RowNode In node.Nodes
If objGroupNode.RowType <> RowNode.RowTypeEnum.DeviceGroup Then Continue For '找到模型外设组
If objGroupNode.Compile = False Then Continue For '判断是否enable action’
strObjGroupNodesTypedataAndProtocol = objGroupNode.DEV_TYPE_DATA & "," & objGroupNode.PROTOCOL_VER
If ObjGroupNodesInOutDic.ContainsKey(strObjGroupNodesTypedataAndProtocol) = False Then
ObjGroupNodesInOutDic.Add(strObjGroupNodesTypedataAndProtocol, New List(Of Byte))
Dim tmpAddr As Byte = CInt(FindAttributeValueUnderModel(node, "设备存在", "拨码地址")) '设备地址(1字节)
Dim devtype As String = TheFindAttributeValueUnderModel(node, "设备存在", "是否为BLE设备")
Dim devdic As New Dictionary(Of String, String)
If devtype.Contains("1") AndAlso Not IsNothing(OutDevlist) Then
devdic.Add("BleName", node.DeviceAlias)
devdic.Add("DeviceAdd", tmpAddr)
devtype = FindAttributeValueUnderModel(node, "设备存在", "BLE设备类型")
devdic.Add("BleType", devtype)
OutDevlist.Add(devdic)
End If
End If
Next
End If
Next
#End Region
End Sub
''' <summary>
''' 获取事件条件节点下的条件执行方式节点
''' </summary>
''' <param name="pNode">设备对象节点</param>
''' <returns></returns>
Private Function GetActionModeUnderEventCondition(pNode As RowNode) As RowNode
Dim resultNode As RowNode = Nothing
For Each node As RowNode In pNode.Nodes
If node.RowType <> RowNode.RowTypeEnum.DeviceEventActionModeGroup Then Continue For
resultNode = node
Exit For
Next
Return resultNode
End Function
''' <summary>
''' 在动作执行方式组节点下查询指定名称的动作执行方式节点
''' </summary>
''' <param name="pNode">模型节点</param>
''' <param name="name">设备组名</param>
''' <returns></returns>
Private Function GetActionModeUnderActionModeGroup(pNode As RowNode, name As String) As RowNode
Dim resultNode As RowNode = Nothing
For Each node As RowNode In pNode.Nodes
If node.RowType <> RowNode.RowTypeEnum.DeviceEventActionMode Then Continue For
If String.Compare(node.Name, name, True) <> 0 Then Continue For
resultNode = node
Exit For
Next
Return resultNode
End Function
''' <summary>
''' 获取事件条件下的编译数据
''' </summary>
''' <param name="pNode">条件组节点</param>
''' <returns></returns>
Private Function GetDataUnderEventCondition(pNode As RowNode) As List(Of Byte())
Dim lst As New List(Of Byte())
Return lst
End Function
''' <summary>
''' 获取设备对象的回路地址
''' </summary>
''' <param name="node"></param>
''' <returns></returns>
Private Function GetDeviceObjectData(node As RowNode) As Byte()
If node.RowType <> RowNode.RowTypeEnum.DeviceObject Then Throw New Exception($"行号:{node.RowListIndex},文本:{node.Text}不为设备对象节点")
Dim tag As DeviceObjectRowNodeTag = node.Tag
Return BitConverter.GetBytes(CShort(tag.Device.LoopAddr))
End Function
''' <summary>
''' 获取执行方式组节点下的执行方式编译数据
''' </summary>
''' <param name="pNode"></param>
''' <returns></returns>
Private Function GetExecModeDataUnderCondtion(pNode As RowNode) As Byte
If pNode.RowType <> RowNode.RowTypeEnum.DeviceEventActionModeGroup Then Throw New Exception("转换执行方式时无效的类型")
If pNode.Count <> 1 Then Throw New Exception("执行方式数量异常")
Return CInt(GetNodeSelectStringValue(pNode.Nodes(0)))
End Function
''' <summary>
''' 获取条件组节点下的条件编译数据
''' </summary>
''' <param name="pNode">条件组节点</param>
''' <returns></returns>
Private Function GetConditionDataUnderConditionGroup(pNode As RowNode) As Byte()
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()
End Function
''' <summary>
''' 获取设备对象下的所有动作编译数据(所有的设备对象动作数据)
''' </summary>
''' <returns></returns>
Private Function FillDeviceObject(ByRef tsp As ToolStripProgressBar) As List(Of Byte())
Dim lst As New List(Of Byte())
Dim tmpDataCount As Integer = 0
PrintInfo("开始编译设备对象")
For Each node As RowNode In _objectLst
tsp.Value = tsp.Value + 1
If node.Compile = False Then Continue For '过滤不编译的设备对象
If String.IsNullOrEmpty(node.DeviceType) Then Continue For
For Each data() As Byte In GetComplieDataUnderDeviceObject(node, tsp)
lst.Add(data)
tmpDataCount = tmpDataCount + data.Length
Next
Next
PrintInfo("设备对象编译完成，长度：" & tmpDataCount & "Bytes")
Return lst
End Function
''' <summary>
''' 获取场景模式集下的所有编译数据(多个节点的场景数据)
''' </summary>
''' <returns></returns>
Private Function FillSceneModel() As List(Of Byte())
Dim lst As New List(Of Byte())
Dim tmpBufferCount As Integer = 0
If _modelNode Is Nothing Then Return lst
'命令参数
Dim cmd As Byte = &H4
'场景存在组的设备类型
Dim devType As Byte = FindAttributeValueUnderModel(_modelNode, "场景设备组信息", "DeviceType")
'场景存在组的拨码地址
Dim devAddr As Byte = FindAttributeValueUnderModel(_modelNode, "场景设备组信息", "DeviceAddr")
Dim buf As List(Of Byte)
Dim devLoop As UShort = 1
'进度计数
PrintInfo("开始编译场景")
For Each node As RowNode In _contexualLst
If node.RowType <> RowNode.RowTypeEnum.ContextualModel Then Continue For
If node.Compile = False Then Continue For
Dim eventNodeLst As New List(Of RowNode)
Dim i As Integer = 0
For Each data() As Byte In GetComplieDataUnderSceneModel(node, eventNodeLst)
If data.Length = 0 Then Continue For
buf = New List(Of Byte)
buf.Add(cmd) '命令参数
buf.Add(devType) '设备类型
buf.Add(devAddr) '设备地址
buf.AddRange(BitConverter.GetBytes(_actionIndex)) '动作编号
buf.AddRange(BitConverter.GetBytes(devLoop)) '设备回路
buf.AddRange(data) '事件条件数据
tmpBufferCount = tmpBufferCount + buf.Count
lst.Add(buf.ToArray) '单包动作数据
If _lstScese.ContainsKey(_sceneIndex) = False Then
_lstScese.Add(_sceneIndex, New tmpClass(node.DeviceAlias, node))
End If
_lstScese(_sceneIndex).Actions.Add(_actionIndex)
If eventNodeLst.Count > i Then
Dim tmpNode As RowNode = eventNodeLst.Item(i)
PrintInfo(" --- 行号：" & tmpNode.RowListIndex &
" ，事件编号：" & _actionIndex &
" ，事件名称：" & tmpNode.Text &
" ，事件别名：" & tmpNode.DeviceAlias) 'Momo 20220617
'添加事件键值对
If _eventRowNode.ContainsKey(_actionIndex) Then
_eventRowNode(_actionIndex) = tmpNode
Else
_eventRowNode.Add(_actionIndex, tmpNode)
End If
End If
_actionIndex += 1
i = i + 1
Next
devLoop += 1 '更新设备回路
If String.IsNullOrEmpty(node.DeviceAlias) = False Then
_dicScese.Add(node.DeviceAlias, _sceneIndex)
End If
PrintInfo(" 行号：" & node.RowListIndex &
" 场景编号：" & _sceneIndex &
" ,场景名称：" & node.DeviceAlias) 'Momo 20220610 增加场景编译输出信息
_sceneIndex += 1 '更新场景编号
Next
PrintInfo("场景动作编译完成，长度：" & tmpBufferCount & "Bytes")
Return lst
End Function
''' <summary>
''' 获取设备节点下的所有编译数据(多个节点的事件数据)
''' </summary>
''' <param name="pNode">设备对象节点</param>
''' <returns></returns>
Private Function GetComplieDataUnderDeviceObject(pNode As RowNode, ByRef tsp As ToolStripProgressBar) As List(Of Byte())
If pNode.RowType <> RowNode.RowTypeEnum.DeviceObject Then Throw New Exception($"行号:{pNode.RowListIndex},文本:{pNode.Text}不为设备对象节点")
If pNode.Compile = False Then Return New List(Of Byte()) '过滤不编译的设备对象
Dim lst As New List(Of Byte())
'命令参数
Dim cmd As Byte = &H4
'模型的设备类型
Dim devType As Byte = GetActionDeviceType(pNode.RowListIndex)
'模型的拨码地址
Dim devAddr As Byte = GetActionDeviceAddr(pNode.RowListIndex)
'当前设备的回路
Dim devLoop() As Byte = GetDeviceObjectData(pNode)
Dim buf As List(Of Byte)
Dim eventNodeLst As New List(Of RowNode)
Dim i As Integer = 0
For Each node As RowNode In pNode.Nodes
tsp.Value = tsp.Value + 1
Select Case node.RowType
Case RowNode.RowTypeEnum.DeviceEvents
For Each data() As Byte In GetCompliDataUnderEvents(node, eventNodeLst)
buf = New List(Of Byte)
buf.Add(cmd) '命令参数
buf.Add(devType) '设备类型
buf.Add(devAddr) '设备地址
buf.AddRange(BitConverter.GetBytes(_actionIndex)) '动作编号
buf.AddRange(devLoop) '设备回路
buf.AddRange(data) '事件条件数据
lst.Add(buf.ToArray) '单包动作数据
Dim num As Integer = BitConverter.ToUInt16(data, 75) '2022-06-08 caocong
_lstScese(num).Actions.Add(_actionIndex)
If eventNodeLst.Count > i Then
Dim tmpNode As RowNode = eventNodeLst.Item(i)
PrintInfo(" --- 行号：" & tmpNode.RowListIndex &
" ，事件编号：" & _actionIndex &
" ，事件名称：" & tmpNode.Text &
" ，事件别名：" & tmpNode.DeviceAlias) 'Momo 20220617
'添加事件键值对
If _eventRowNode.ContainsKey(_actionIndex) Then
_eventRowNode(_actionIndex) = tmpNode
Else
_eventRowNode.Add(_actionIndex, tmpNode)
End If
End If
_actionIndex += 1 '更新动作编号
i += 1
Next
Case RowNode.RowTypeEnum.DeviceAttributes
'属性
End Select
Next
Return lst
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
''' <summary>
''' 获取事件节点下的编译数据(多个事件的编译数据)
''' </summary>
''' <param name="pNode">事件组节点</param>
''' <returns></returns>
Private Function GetCompliDataUnderEvents(pNode As RowNode, ByRef allCondictionsEventNodeLst As List(Of RowNode)) As List(Of Byte())
If pNode.RowType <> RowNode.RowTypeEnum.DeviceEvents Then Throw New Exception($"行号:{pNode.RowListIndex},文本:{pNode.Text}不为事件组节点")
Dim lst As New List(Of Byte())
allCondictionsEventNodeLst.Clear()
For Each node As RowNode In pNode.Nodes
If node.Compile = False Then Continue For '过滤不编译事件
Dim eventNodeLst As New List(Of RowNode)
Dim eventBuf As List(Of Byte()) = GetComplieDataUnderEvent(node, eventNodeLst)
If eventBuf.Count = 0 Then Continue For
allCondictionsEventNodeLst.AddRange(eventNodeLst)
lst.AddRange(eventBuf)
If String.IsNullOrEmpty(node.DeviceAlias) = False Then
_dicScese.Add(node.DeviceAlias, _sceneIndex)
End If
If _lstScese.ContainsKey(_sceneIndex) = False Then
_lstScese.Add(_sceneIndex, New tmpClass(node.DeviceAlias, node))
End If
PrintInfo(" *行号：" & node.RowListIndex &
" 场景编号：" & _sceneIndex &
" ,场景名称：" & node.DeviceAlias) 'Momo 20220610 增加场景编译输出信息
_sceneIndex += 1 '更新场景编号
Next
Return lst
End Function
''' <summary>
''' 获取场景模式节点下的编译数据(多个条件的编译数据)
''' </summary>
''' <param name="pNode">事件节点</param>
''' <returns></returns>
Private Function GetComplieDataUnderSceneModel(pNode As RowNode, ByRef eventNodeLst As List(Of RowNode)) As List(Of Byte())
If pNode.RowType <> RowNode.RowTypeEnum.ContextualModel Then Throw New Exception($"行号:{pNode.RowListIndex},文本:{pNode.Text}不为场景节点")
If pNode.Compile = False Then Return New List(Of Byte())
Dim lst As New List(Of Byte())
' Dim eventNum As UShort = 0
Dim eventNum() As Byte = BitConverter.GetBytes(CUShort(0))
Dim sceneNum() As Byte = BitConverter.GetBytes(_sceneIndex)
Dim buf As List(Of Byte)
eventNodeLst.Clear()
'获取不同条件的填包数据
For Each node As RowNode In pNode.Nodes
buf = New List(Of Byte)
Dim keepParam(31) As Byte '保留字段(32字节) -> 2022-05-28 V3.1 32bytes
'添加事件编号
buf.AddRange(eventNum)
'事件条件相关数据
Dim conditionBuf As List(Of Byte()) = GetCompileDataUnderEventCondition(node)
If conditionBuf.Count = 0 Then Continue For
eventNodeLst.Add(node)
buf.AddRange(conditionBuf(3)） '获取执行条件编译数据
buf.AddRange(keepParam) '条件保留32Byte
buf.AddRange(conditionBuf(2)） '获取执行模式
buf.AddRange(conditionBuf(0)） '32字节，事件条件别名 2022-06-07 caocong
buf.AddRange(sceneNum) '2字节，场景编号
buf.AddRange(conditionBuf(1)） '30位保留字段
buf.AddRange(conditionBuf(4)） '获取执行动作数量
buf.AddRange(conditionBuf(5)） '获取动作数据
lst.Add(buf.ToArray)
Next
Return lst
End Function
''' <summary>
''' 获取事件节点下的编译数据(多个条件的编译数据)
''' </summary>
''' <param name="pNode">事件节点</param>
''' <returns></returns>
Private Function GetComplieDataUnderEvent(pNode As RowNode, ByRef eventNodeLst As List(Of RowNode)) As List(Of Byte())
If pNode.RowType <> RowNode.RowTypeEnum.DeviceEvent Then Throw New Exception($"行号:{pNode.RowListIndex},文本:{pNode.Text}不为事件节点")
If pNode.Compile = False Then Return New List(Of Byte()) '过滤不编译事件
eventNodeLst.Clear()
Dim lst As New List(Of Byte())
Dim tag As DeviceEventRowNodeTag = pNode.Tag
Dim strEventNum As UShort = CUShort(tag.DataValue)
Dim eventNum() As Byte = BitConverter.GetBytes(strEventNum)
Dim sceneNum() As Byte = BitConverter.GetBytes(_sceneIndex)
Dim buf As List(Of Byte)
'获取不同条件的填包数据
For Each node As RowNode In pNode.Nodes
buf = New List(Of Byte)
Dim keepParam(31) As Byte '保留字段(32字节) -> 2022-05-28 V3.1 32bytes
'添加事件编号
buf.AddRange(eventNum)
eventNodeLst.Add(node)
'事件条件相关数据
Dim conditionBuf As List(Of Byte()) = GetCompileDataUnderEventCondition(node)
If conditionBuf.Count = 0 Then Continue For
buf.AddRange(conditionBuf(3)) '获取执行条件编译数据
buf.AddRange(keepParam) '条件保留32Byte
buf.AddRange(conditionBuf(2)) '获取执行模式
buf.AddRange(conditionBuf(0)) '32字节，事件条件别名 2022-06-07 caocong
buf.AddRange(sceneNum) '2字节，场景编号
buf.AddRange(conditionBuf(1)) '30位保留字段
buf.AddRange(conditionBuf(4)) '获取执行动作数量
buf.AddRange(conditionBuf(5)) '获取动作数据
lst.Add(buf.ToArray)
Next
Return lst
End Function
''' <summary>
''' 获取事件条件节点下的编译数据(单个条件的编译数据)
''' </summary>
''' <param name="pNode"></param>
''' <returns></returns>
Private Function GetCompileDataUnderEventCondition(pNode As RowNode) As List(Of Byte())
'If pNode.RowType <> RowNode.RowTypeEnum.DeviceEventConditionItem Then Throw New Exception($"行号:{pNode.RowListIndex},文本:{pNode.Text}不为事件节点")
'If pNode.Compile = False Then Return New List(Of Byte()) '过滤不编译事件
Dim lst As New List(Of Byte())
Dim aliasbuf(31) As Byte 'caocong 2022-06-07 修改别名长度16Byte -> 32Byte
If String.IsNullOrEmpty(pNode.DeviceAlias) = False Then
Dim buf() As Byte = AliasEncoding.GetBytes(pNode.DeviceAlias)
If buf.Length > aliasbuf.Length Then
Array.Copy(buf, 0, aliasbuf, 0, aliasbuf.Length)
Else
Array.Copy(buf, 0, aliasbuf, 0, buf.Length)
End If
End If
lst.Add(aliasbuf) '32字节，事件条件别名
'30位保留字段
Dim keepBuf(31) As Byte
lst.Add(keepBuf)
For Each node As RowNode In pNode.Nodes
If node.Text.Contains("睡眠场景") OrElse node.Text.Contains("睡眠模式") Then
Console.WriteLine(node.Text)
End If
If node.RowListIndex > 575 Then
Console.WriteLine("")
End If
Select Case node.RowType
Case RowNode.RowTypeEnum.DeviceEventAllConditions
lst.Add(GetConditionDataUnderConditionGroup(node)）'获取执行条件编译数据
Case RowNode.RowTypeEnum.DeviceEventActionModeGroup
lst.Add(New Byte() {GetExecModeDataUnderCondtion(node)})'获取执行模式
Case RowNode.RowTypeEnum.DeviceEventActions
If node.Compile Then
Dim actionCount As Integer = GetActionCount(node, New List(Of String))
If actionCount = 0 Then Return New List(Of Byte()) '没有动作节点则退出
If actionCount > MaxActionCount Then Throw New Exception($"当前动作总数({actionCount})超过上限({MaxActionCount})")
lst.Add(New Byte() {actionCount}) '获取执行动作数量
Dim actionBuf() As Byte = GetActionDataByActionGroup(node)
If actionBuf.Length = 0 Then
Return New List(Of Byte()) '没有动作数据则退出
End If
lst.Add(actionBuf) '获取动作数据
Else
Return New List(Of Byte()) '没有动作组不参与编译则退出
End If
Case Else
Throw New Exception($"[{node.RowListIndex}]:[{node.Text}]无效的事件条件节点")
End Select
Next
Return lst
End Function
''' <summary>
''' 通过设备对象别名，查找设备对象回路信息
''' </summary>
''' <param name="name"></param>
''' <returns></returns>
Private Function GetActionDeviceLoop(name As String) As Byte()
Dim node As RowNode = _objectGroups(name)
Dim tag As DeviceObjectRowNodeTag = node.Tag
Return BitConverter.GetBytes(CShort(tag.Device.LoopAddr))
End Function
''' <summary>
''' 获取场景节点的设备类型
''' </summary>
''' <returns></returns>
Private Function GetContextualModelDeviceType() As Byte
'If node.RowType <> RowNode.RowTypeEnum.ContextualModel AndAlso
' node.RowType <> RowNode.RowTypeEnum.DeviceEvent Then Throw New Exception($"行号：{node.RowListIndex} 不为场景模式节点或事件节点")
Return CInt(FindAttributeValueUnderModel(_modelNode, $"场景设备组信息", "DeviceType"))
End Function
''' <summary>
''' 获取场景节点的设备地址
''' </summary>
''' <returns></returns>
Private Function GetContextualModelDeviceAddr() As Byte
' If node.RowType <> RowNode.RowTypeEnum.ContextualModel AndAlso
'node.RowType <> RowNode.RowTypeEnum.DeviceEvent Then Throw New Exception($"行号：{node.RowListIndex} 不为场景模式节点或事件节点")
Return CInt(FindAttributeValueUnderModel(_modelNode, $"场景设备组信息", "DeviceAddr"))
End Function
''' <summary>
''' 获取指定名称设备对象的设备类型
''' </summary>
''' <param name="index">设备节点所在行</param>
''' <returns></returns>
Private Function GetActionDeviceType(index As Integer) As Byte
Dim modelNode As RowNode = _modelGroups2(index)
Select Case modelNode.RowType
Case RowNode.RowTypeEnum.Model 'RCU模型
Dim devGroup As String = _rootNode.RowList(index).ParentNode.Name
Return CInt(FindAttributeValueUnderModel(modelNode, $"{devGroup}设备组信息", "DeviceType"))
Case RowNode.RowTypeEnum.ExternalModel '外接模型
'Dim tag As ModelRowNodeTag = modelNode.Tag
'Return tag.Desc.DevTypeData
'2022-05-25 CaoCong 修改，设备类型在XML中位置有变动
Dim objGroupNode As RowNode = _rootNode.RowList(index).ParentNode
If objGroupNode.RowType <> RowNode.RowTypeEnum.DeviceGroup Then
Throw New Exception("获取设备类型意料之外的情况 - 未找到模型外设组")
End If
If objGroupNode.Compile = False Then
Throw New Exception("获取设备类型意料之外的结果 - 动作未使能")
End If
Return CByte(objGroupNode.DEV_TYPE_DATA)
Case Else
Throw New Exception("获取设备类型意料之外的结果")
End Select
End Function
''' <summary>
''' 获取指定名称设备对象的设备类型
''' </summary>
''' <param name="name">设备对象别名</param>
''' <returns></returns>
Private Function GetActionDeviceType(name As String) As Byte
Dim modelNode As RowNode = _modelGroups(name)
Select Case modelNode.RowType
Case RowNode.RowTypeEnum.Model 'RCU模型
Dim devGroup As String = _objectGroups(name).ParentNode.Name
Return CInt(FindAttributeValueUnderModel(modelNode, $"{devGroup}设备组信息", "DeviceType"))
Case RowNode.RowTypeEnum.ExternalModel '外接模型
'Dim tag As ModelRowNodeTag = modelNode.Tag
'Return tag.Desc.DevTypeData
'2022-05-25 CaoCong 修改，设备类型在XML中位置有变动
Dim objGroupNode As RowNode = _objectGroups(name).ParentNode
If objGroupNode.RowType <> RowNode.RowTypeEnum.DeviceGroup Then
Throw New Exception("获取设备类型意料之外的情况 - 未找到模型外设组")
End If
If objGroupNode.Compile = False Then
Throw New Exception("获取设备类型意料之外的结果 - 动作未使能")
End If
Return CByte(objGroupNode.DEV_TYPE_DATA)
Case Else
Throw New Exception("获取设备类型意料之外的结果")
End Select
End Function
''' <summary>
''' 获取执行名称设备对象的设备地址
''' </summary>
''' <param name="index">设备节点所在行</param>
''' <returns></returns>
Private Function GetActionDeviceAddr(index As Integer) As Byte
Dim modelNode As RowNode = _modelGroups2(index)
Select Case modelNode.RowType
Case RowNode.RowTypeEnum.Model 'RCU模型
Dim devGroup As String = _rootNode.RowList(index).ParentNode.Name
Return CInt(FindAttributeValueUnderModel(modelNode, $"{devGroup}设备组信息", "DeviceAddr"))
Case RowNode.RowTypeEnum.ExternalModel '外接模型
Return CInt(FindAttributeValueUnderModel(modelNode, "设备存在", "拨码地址"))
Case Else
Throw New Exception("获取设备地址意料之外的结果")
End Select
End Function
''' <summary>
''' 获取执行名称设备对象的设备地址
''' </summary>
''' <param name="name">设备对象别名</param>
''' <returns></returns>
Private Function GetActionDeviceAddr(name As String) As Byte
Dim modelNode As RowNode = _modelGroups(name)
Select Case modelNode.RowType
Case RowNode.RowTypeEnum.Model 'RCU模型
Dim devGroup As String = _objectGroups(name).ParentNode.Name
Return CInt(FindAttributeValueUnderModel(modelNode, $"{devGroup}设备组信息", "DeviceAddr"))
Case RowNode.RowTypeEnum.ExternalModel '外接模型
Return CInt(FindAttributeValueUnderModel(modelNode, "设备存在", "拨码地址"))
Case Else
Throw New Exception("获取设备地址意料之外的结果")
End Select
End Function
''' <summary>
''' 获取节点组下所有动作的编译数据
''' </summary>
''' <param name="pNode"></param>
''' <returns></returns>
Private Function GetActionDataByActionGroup(pNode As RowNode) As Byte()
If pNode.RowType <> RowNode.RowTypeEnum.DeviceEventActions Then Throw New Exception($"行号:{pNode.RowListIndex},文本:{pNode.Text}不为动作组节点")
If pNode.Compile = False Then Return New Byte() {}
Dim lst As New List(Of Byte)
For Each node As RowNode In pNode.Nodes
If node.Compile = False Then Continue For
If String.IsNullOrEmpty(node.DeviceType) Then Continue For
If String.IsNullOrEmpty(node.DeviceName) Then Continue For
If node.DeviceType = "动作组" Then
If _actionGroups.ContainsKey(node.DeviceName) Then
lst.AddRange(GetActionDataByActionGroup(_actionGroups(node.DeviceName)))
Else
Throw New Exception($"行号：[{node.RowListIndex}] ,动作组中不包含：[{node.DeviceName}]")
End If
Else
If String.IsNullOrEmpty(node.DeviceMothed) Then Continue For
Try
lst.AddRange(GetActionData(node))
Catch ex As Exception
Throw New Exception($"行号：{node.RowListIndex} 动作编译异常：{ex.Message}")
End Try
End If
Next
Return lst.ToArray
End Function
Public Event updanodetext(node As RowNode)
''' <summary>
''' 从动作行节点获取动作数据
''' </summary>
''' <param name="node"></param>
''' <returns></returns>
Private Function GetActionData(node As RowNode) As Byte()
If node.RowType <> RowNode.RowTypeEnum.DeviceEventAction Then Throw New Exception($"行号:{node.RowListIndex},文本:{node.Text}不为动作节点")
Dim buf(7) As Byte
'设备类型，外接设备设备类型（主机特殊处理）
buf(ActionDataParam.DeviceType) = GetActionDeviceType(node.DeviceName)
'设备地址，选择对象的设备拨码地址（主机特殊处理）
buf(ActionDataParam.DeviceAddr) = GetActionDeviceAddr(node.DeviceName)
'设备回路，选择对象的回路地址
Dim loopBuf() As Byte = GetActionDeviceLoop(node.DeviceName)
Array.Copy(loopBuf, 0, buf, ActionDataParam.DeviceLoop, loopBuf.Length)
Dim buf2() As Byte = GetExecMode(buf(ActionDataParam.DeviceType), node)
'执行方式,不同设备类型有不同方式
buf(ActionDataParam.ExecMode) = buf2(0) '执行方式
'执行内容,不同设备类型有不同内容
buf(ActionDataParam.ExecInfo) = buf2(1) '执行内容
'延时时间,动作执行延时
buf(ActionDataParam.DelayTime) = GetDelayTime(node.DelayTime) '延时时间
'延时单位，做东执行延时单位
buf(ActionDataParam.DelayUnit) = GetDelayUnit(node.DelayUnit) '延时单位
'2022-10-31 Momo 打印动作数据
Dim tmpStr As String = BitConverter.ToString(buf).Replace("-", " ")
PrintInfo(" [行号:" & node.RowListIndex & "] - " & "> 动作数据：" & tmpStr)
Return buf
End Function
''' <summary>
''' 根据动作节点内容获取执行方式与执行内容
''' </summary>
''' <param name="devType">设备类型</param>
''' <param name="node">动作节点</param>
''' <returns></returns>
Private Function GetExecMode(devType As Byte, node As RowNode) As Byte()
'参考设备详细协议进行填充
Dim buf(1) As Byte
Select Case devType
Case DeviceTypes.指令场景
'涉及打开与关闭，参考强电继电器
buf(0) = node.Params(0).ValueData
Case DeviceTypes.强电继电器
Dim sw As Integer '开关状态
sw = CInt(node.Params(0).ValueData)
buf(0) = sw
Case DeviceTypes.弱电输入
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
buf(0) = node.Params(0).ValueData
buf(1) = node.Params(1).ValueData
Case DeviceTypes.弱电输出
buf(0) = CInt(node.Params(0).ValueData)
If node.Params.Count >= 2 Then
buf(1) = CInt(node.Params(1).ValueData)
End If
Case DeviceTypes.服务信息
Dim sw As Integer '开关状态
sw = CInt(node.Params(0).ValueData)
buf(0) = sw
Case DeviceTypes.干接点窗帘
'基类为CURTAIN的类型
buf(0) = CInt(node.Params(0).ValueData)
Case DeviceTypes.开关
'基类为Light的类型
buf(0) = CInt(node.Params(0).ValueData)
Case DeviceTypes.空调
'基类为Temp的类型
Dim sw As Integer = CInt(node.Params(0).ValueData) '开关状态
Dim mode As Integer = CInt(node.Params(1).ValueData) '模式
Dim speed As Integer = CInt(node.Params(2).ValueData) '风速
Dim fm As Integer = CInt(node.Params(3).ValueData) '阀门
Dim temp As Integer = CInt(node.Params(4).ValueData) '温度
'start 2022-05-03 Temp 直接顺序调换 --------------------------b
'buf(0) = fm
'buf(0) = buf(0) Or (speed << 2)
'buf(0) = buf(0) Or (mode << 4)
'buf(0) = buf(0) Or (sw << 6)
'buf(1) = temp
buf(1) = fm
buf(1) = buf(1) Or (speed << 2)
buf(1) = buf(1) Or (mode << 4)
buf(1) = buf(1) Or (sw << 6)
buf(0) = temp
'end 2022-05-03 Temp 直接顺序调换 ----------------------------
Case DeviceTypes.红外感应
'只有开关状态，参考强电继电器
Dim sw As Integer '开关状态
sw = CInt(node.Params(0).ValueData)
buf(0) = sw
Case DeviceTypes.空气质量检测设备
'特殊类型，暂无处理
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.插卡取电
'无控制方法
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.地暖
'Dim sw As Integer '开关状态
'Dim mode As Integer '模式
'Dim fm As Integer '阀门
'Dim temp As Integer '温度
'buf(0) = buf(0) Or (mode << 0)
'buf(0) = buf(0) Or (sw << 4)
'buf(1) = temp
'buf(1) = buf(1) Or (fm << 6)
'CZH注释
'''buf(0) = node.Params(0).ValueData
'''If node.Params.Count > 1 Then
''' ' buf(1) = node.Params(1).ValueData
''' Dim temp As Integer = CInt(node.Params(1).ValueData) '温度
''' buf(1) = temp
'''End If
buf(0) = node.Params(0).ValueData
If node.Params.Count > 1 Then buf(1) = node.Params(1).ValueData
' Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.RCU设备网络
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.窗帘
buf(0) = node.Params(0).ValueData
Case DeviceTypes.继电器
Dim sw As Integer '开关状态
sw = CInt(node.Params(0).ValueData)
buf(0) = sw
Case DeviceTypes.红外发送
buf(0) = node.Params(0).ValueData
If node.Params.Count > 1 Then buf(1) = node.Params(1).ValueData
Case DeviceTypes.直流调光
buf(0) = node.Params(0).ValueData
If node.Params.Count > 1 Then buf(1) = node.Params(1).ValueData
Case DeviceTypes.可控硅调光
buf(0) = node.Params(0).ValueData
If node.Params.Count > 1 Then buf(1) = node.Params(1).ValueData
Case DeviceTypes.灯带
buf(0) = node.Params(0).ValueData
If node.Params.Count > 1 Then buf(1) = node.Params(1).ValueData
Case DeviceTypes.中控
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.微信锁
buf(0) = node.Params(0).ValueData
Case DeviceTypes.背景音乐
''Music类型
'Dim dirIndex As Integer = node.Params(0).ValueData '文件夹索引
'Dim modeStatus As Integer = node.Params(1).ValueData '播放时场景状态
'Dim fileIndex As Integer = node.Params(2).ValueData '文件索引
'2022-05-06 Caocong: 先将变量初始化为0.有可能没有三个参数
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 node.Params.Count
Case 1
dirIndex = node.Params(0).ValueData
Case 2
dirIndex = node.Params(0).ValueData '文件夹索引
modeStatus = node.Params(1).ValueData '播放时场景状态
Case 3
dirIndex = node.Params(0).ValueData '文件夹索引
modeStatus = node.Params(1).ValueData '播放时场景状态
fileIndex = node.Params(2).ValueData '文件索引
Case Else
End Select
'2022-05-06 Caocong: 先将变量初始化为0.有可能没有三个参数 ---end
buf(0) = buf(0) Or (dirIndex << 0)
buf(0) = buf(0) Or (modeStatus << 4)
buf(1) = fileIndex
'2023-03-02 CZH: 新增 新风设备 类型
Case DeviceTypes.新风设备
buf(0) = node.Params(0).ValueData
If node.Params.Count > 1 Then buf(1) = node.Params(1).ValueData
Case DeviceTypes.房态下发
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.主机本地调光
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.PWM调光
buf(0) = node.Params(0).ValueData
If node.Params.Count > 1 Then buf(1) = node.Params(1).ValueData
Case DeviceTypes.总线调光
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.RCU电源
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.A9IO开关
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.A9IO扩展
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.A9IO电源
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.无线网关轮询
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.无线网关主动
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.无线门磁
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.空气参数显示设备
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.无线继电器红外
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.时间同步
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.监控控制
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.旋钮开关
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.BLV_CxIO类型
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
Case DeviceTypes.中控管道
buf(0) = CInt(node.Params(0).ValueData)
Case DeviceTypes.域控管道
buf(0) = CInt(node.Params(0).ValueData)
Case DeviceTypes.PB_总线
buf(0) = node.Params(0).ValueData
If node.Params.Count > 1 Then buf(1) = node.Params(1).ValueData
Case DeviceTypes.PB_BUS_LINE
buf(0) = node.Params(0).ValueData
If node.Params.Count > 1 Then buf(1) = node.Params(1).ValueData
Case DeviceTypes.PB_STRIP
buf(0) = node.Params(0).ValueData
If node.Params.Count > 1 Then buf(1) = node.Params(1).ValueData
Case DeviceTypes.PB_Relay
buf(0) = node.Params(0).ValueData
If node.Params.Count > 1 Then buf(1) = node.Params(1).ValueData
Case DeviceTypes.无卡断电
buf(0) = node.Params(0).ValueData
If node.Params.Count > 1 Then buf(1) = node.Params(1).ValueData
Case Else
Throw New Exception($”行号:{node.RowListIndex},未处理的设备类型")
End Select
Return buf
End Function
Enum DeviceTypes
指令场景
强电继电器
弱电输入
弱电输出
服务信息
干接点窗帘
开关
空调
红外感应
空气质量检测设备
插卡取电
地暖
RCU设备网络
窗帘
继电器
红外发送
直流调光
可控硅调光
灯带
中控
微信锁
背景音乐
房态下发
主机本地调光
PWM调光
总线调光
RCU电源
A9IO开关
A9IO扩展
A9IO电源
无线网关轮询
无线网关主动
无线门磁
空气参数显示设备
无线继电器红外
时间同步
监控控制
旋钮开关
BLV_CxIO类型
'2023-03-02 CZH
插卡状态虚拟设备
新风设备
人脸机 '未做
中控管道
域控管道
无卡断电
PB_总线 = 48
PB_BUS_LINE
PB_STRIP
PB_Relay
End Enum
''' <summary>
''' Integer 类型转 3 字节 byte数组，高字节在前
''' </summary>
''' <param name="i"></param>
''' <returns></returns>
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
''' <summary>
''' Integer 类型转 4 字节 byte数组，高字节在前
''' </summary>
''' <param name="i"></param>
''' <returns></returns>
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
Private Function GetDelayUnit(str As String) As Byte
Dim result As Integer
Select Case str
Case "ms"
result = 1
Case "s"
result = 2
Case "m"
result = 3
Case "h"
result = 4
Case "d"
result = 5
Case Else
result = 1
End Select
Return result
End Function
''' <summary>
''' 获取延时时间
''' </summary>
''' <param name="str"></param>
''' <returns></returns>
Private Function GetDelayTime(str As String) As Byte
If String.IsNullOrEmpty(str) Then Return 0
Dim num As Integer
If Integer.TryParse(str, num) Then
If num > 255 Then
num = 255
ElseIf num < 0 Then
num = 0
End If
Else
num = 0
End If
Return num
End Function
''' <summary>
''' 获取动作组节点下动作总数
''' </summary>
''' <param name="pNode"></param>
''' <returns></returns>
Private Function GetActionCount(pNode As RowNode, groupStack As List(Of String)) As Byte
If pNode.Compile = False Then Return 0
'检测是否动作组嵌套调用
If String.IsNullOrEmpty(pNode.DeviceAlias) = False Then
If groupStack.Contains(pNode.DeviceAlias) Then Throw New Exception($"行号:[{pNode.RowListIndex}]:[{pNode.DeviceAlias}]动作组递归调用,递归调用过程:{String.Join("->", groupStack)}->{pNode.DeviceAlias}")
groupStack.Add(pNode.DeviceAlias)
End If
Dim result As Byte
For Each node As RowNode In pNode.Nodes
If node.Compile = False Then Continue For
If String.IsNullOrEmpty(node.DeviceType) Then Continue For
If String.IsNullOrEmpty(node.DeviceName) Then Continue For
If node.DeviceType = "动作组" Then
If _actionGroups.ContainsKey(node.DeviceName) Then
result += GetActionCount(_actionGroups(node.DeviceName), groupStack)
Else
Throw New Exception($"行号:{node.RowListIndex},文本:{node.Text}不为设备对象节点")
End If
Else
If String.IsNullOrEmpty(node.DeviceMothed) Then Continue For
result += 1
End If
Next
Return result
End Function
''' <summary>
''' 执行条件转换为编译数据类
''' 2022-05-10 曹聪
''' 1、将变量类型从Integer改为Uint64 变量左移溢出导致条件参数不正确
''' 2、条件参数中背光状态没有调用
''' </summary>
Public Class ConditionConverter
Public Property 动作输出使能 As UInt64
Public Property 房态 As UInt64
Public Property 控制取电服务 As UInt64
Public Property 取电状态 As UInt64
Public Property 勿扰状态 As UInt64
Public Property 清理状态 As UInt64
Public Property 呼叫状态 As UInt64
Public Property 洗衣状态 As UInt64
Public Property 退房状态 As UInt64
Public Property 稍后状态 As UInt64
Public Property SOS状态 As UInt64
Public Property 预约待租状态 As UInt64
Public Property 开锁状态 As UInt64
Public Property 行李状态 As UInt64
Public Property 保险箱状态 As UInt64
Public Property 门磁状态 As UInt64
Public Property 提示音状态 As UInt64
Public Property 背光状态 As UInt64
Public Property 季节状态 As UInt64
Public Property 时间状态 As UInt64
Public Property 起夜状态 As UInt64
Public Property 锁定状态 As UInt64
Public Function GetConditionData() As Byte()
Dim num As UInt64 = 0
num = num Or (动作输出使能 << ConditionBits.动作输出使能)
num = num Or (房态 << ConditionBits.房态)
num = num Or (控制取电服务 << ConditionBits.控制取电服务)
num = num Or (取电状态 << ConditionBits.取电状态)
num = num Or (勿扰状态 << ConditionBits.勿扰状态)
num = num Or (清理状态 << ConditionBits.清理状态)
num = num Or (呼叫状态 << ConditionBits.呼叫状态)
num = num Or (洗衣状态 << ConditionBits.洗衣状态)
num = num Or (退房状态 << ConditionBits.退房状态)
num = num Or (稍后状态 << ConditionBits.稍后状态)
num = num Or (SOS状态 << ConditionBits.SOS状态)
num = num Or (预约待租状态 << ConditionBits.预约待租状态)
num = num Or (开锁状态 << ConditionBits.开锁状态)
num = num Or (行李状态 << ConditionBits.行李状态)
num = num Or (保险箱状态 << ConditionBits.保险箱状态)
num = num Or (门磁状态 << ConditionBits.门磁状态)
num = num Or (提示音状态 << ConditionBits.提示音状态)
num = num Or (背光状态 << ConditionBits.背光状态)
num = num Or (季节状态 << ConditionBits.季节状态)
num = num Or (时间状态 << ConditionBits.时间状态)
num = num Or (起夜状态 << ConditionBits.起夜状态)
num = num Or (锁定状态 << ConditionBits.锁定状态)
Return BitConverter.GetBytes(num)
End Function
Enum ConditionBits
''' <summary>动作输出使能</summary>
动作输出使能 = 0
''' <summary>房态</summary>
房态 = 1
''' <summary>控制取电服务</summary>
控制取电服务 = 4
''' <summary>取电状态</summary>
取电状态 = 5
''' <summary>勿扰状态</summary>
勿扰状态 = 8
''' <summary>清理状态</summary>
清理状态 = 11
''' <summary>呼叫状态</summary>
呼叫状态 = 14
''' <summary>洗衣状态</summary>
洗衣状态 = 17
''' <summary>退房状态</summary>
退房状态 = 20
''' <summary>稍后状态</summary>
稍后状态 = 23
''' <summary>SOS状态</summary>
SOS状态 = 26
''' <summary>预约待租状态</summary>
预约待租状态 = 29
''' <summary>开锁状态</summary>
开锁状态 = 32
''' <summary>行李状态</summary>
行李状态 = 35
''' <summary>保险箱状态</summary>
保险箱状态 = 38
''' <summary>门磁状态</summary>
门磁状态 = 41
''' <summary>提示音状态</summary>
提示音状态 = 44
''' <summary>背光状态</summary>
背光状态 = 47
''' <summary>季节状态</summary>
季节状态 = 50
''' <summary>时间状态</summary>
时间状态 = 53
''' <summary>起夜状态</summary>
起夜状态 = 56
''' <summary>锁定状态</summary>
锁定状态 = 59
''' <summary>保留字段</summary>
保留字段 = 62
End Enum
End Class
''' <summary>配置信息协议位</summary>
Enum ConfigParam
''' <summary>配置发布作者</summary>
ConfigReleaseAuthor
''' <summary>配置软件版本号</summary>
ConfigSoftwareVer
''' <summary>配置发布日期</summary>
ReleaseDate
''' <summary>用户名</summary>
UserName
''' <summary>项目编号</summary>
ProjectIndex
''' <summary>房型ID</summary>
RoomTypeID
''' <summary>房型别名</summary>
RommTypeAlias
''' <summary>配置数据版本</summary>
ConfigDataVer
End Enum
''' <summary>
''' 设备存在协议位
''' </summary>
Enum DeviceExsistParam
''' <summary>设备类型</summary>
DeviceType
''' <summary>设备地址</summary>
DeviceAddr
''' <summary>485端口</summary>
Port_485
''' <summary>波特率</summary>
BaudRate
''' <summary>设备协议版本</summary>
ProtocolVer = BaudRate + 4
''' <summary>通讯重发次数</summary>
RetryCount
''' <summary>通讯等待时间</summary>
WaitTime
''' <summary>保留</summary>
KeepParams = WaitTime + 2
''' <summary>输入回路数</summary>
InputLoopCount = KeepParams + 32
''' <summary>输出回路数</summary>
OutputLoopCount = InputLoopCount + 2
''' <summary>回路别名</summary>
LoopAlias = OutputLoopCount + 2
End Enum
''' <summary>设备动作协议位</summary>
Enum ActionParam
''' <summary>设备类型</summary>
DeviceType
''' <summary>设备地址</summary>
DeviceAddr
''' <summary>设备动作编号</summary>
DeviceActionNum
''' <summary>设备输入回路</summary>
DeviceInputLoop = DeviceActionNum + 2
''' <summary>设备输入类型</summary>
DeviceInputType = DeviceInputLoop + 2
''' <summary>动作执行条件</summary>
ActionCondition = DeviceInputType + 2
''' <summary>动作执行方式</summary>
ActionMode = ActionCondition + 8
''' <summary>设备动作别名</summary>
ActionAlias
''' <summary>保留参数</summary>
KeepParam = ActionAlias + 16
''' <summary>输出设备动作数</summary>
ActionCount = KeepParam + 32
''' <summary>设备动作</summary>
ActionParams
End Enum
''' <summary>设备动作参数协议位</summary>
Enum ActionDataParam
''' <summary>设备类型，外接设备设备类型（主机特殊处理）</summary>
DeviceType
''' <summary>设备地址，选择对象的设备拨码地址（主机特殊处理）</summary>
DeviceAddr
''' <summary>设备回路，选择对象的回路地址，2位</summary>
DeviceLoop
''' <summary>执行方式,不同设备类型有不同方式</summary>
ExecMode = DeviceLoop + 2
''' <summary>执行内容,不同设备类型有不同内容</summary>
ExecInfo
''' <summary>延时时间,动作执行延时</summary>
DelayTime
''' <summary>延时单位，做东执行延时单位</summary>
DelayUnit
End Enum
End Class
Reference in New Issue Copy Permalink