Boonlive_RD_Web/Desktop_BLVStudio_EN
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
Desktop_BLVStudio_EN/BLV_Studio/Test/TableCompile.vb

1377 lines
60 KiB
VB.net
Raw Permalink Normal View History

初始化项目
2025-12-11 14:22:51 +08:00
Imports System.Net
Imports System.Text
Imports BLV_Studio.GridModel.DeviceEventModel
Imports BLV_Studio.TestForm1
Public Class TableCompile
Public _sceneIndex As UShort
Public _actionIndex As UShort
''' <summary>
''' 别名转换所使用的编码格式,默认方式GBK
''' </summary>8
Public Property AliasEncoding As Text.Encoding
Sub New()
AliasEncoding = Encoding.GetEncoding("GBK")
_actionIndex = 1
_sceneIndex = 1
End Sub
Public Function FillConfigInfo(configInfo As ConfigInfoStuct, Name 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)
'填充配置信息
'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 = 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>
''' 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
''' <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>
'' 填充设备存在
'' </summary>
'' <returns></returns>
Public Function FillDeviceExistsData(ByRef DeviceModuleDic As Dictionary(Of String， DeviceModel), SwitchConfig As Dictionary(Of String, Dictionary(Of Integer, 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 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 Cnode In Fnode.Nodes
' If Cnode.Name.Equals("DI") 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
' 'Continue For
' End If
'Next
Next
Return resultDatas
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, "设备存在", "波特率").Split(" ")
baudData = BitConverter.GetBytes(CInt(Baudrate(1)))
retryTimeData = BitConverter.GetBytes(CShort(FindAttributeValueUnderModel(pNode, "设备存在", "重发时间")))
Dim tmpAddr As Byte = CInt(FindAttributeValueUnderModel(pNode, "设备存在", "拨码地址")) '设备地址(1字节)
Dim hostAddr As Byte = CInt(FindNodeValueUnderModel(hostNode, "RS485", pNode.Desc.DevInterface)) '设备地址(1字节)
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, "设备存在", "重发次数"))) '重发次数(1字节)
.AddRange(retryTimeData) '重发间隔(2字节)
If cnode.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 cnode.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
End If
'遍历设备
For Each objNode In cnode.Nodes
Select Case objNode.Interface
Case "DI"
ObjGroupNodesInputCnt(strObjGroupNodesTypedataAndProtocol) += 1 '输入回路数+1
ObjGroupNodesInpuSettings(strObjGroupNodesTypedataAndProtocol).AddRange(GetDeviceObjectSetting())'输入回路设定’
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
Return outDataLst
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 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
''' <summary>
''' 根据连接在485设备下的模型节点信息，配置设备存在数据
''' </summary>
''' <param name="pNode">模型节点</param>
''' <returns></returns>
'Private Function FillExternalModelDeviceExsist(pNode As DeviceChildNodeClass， 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 i = 0 To pNode.Nodes.Count - 1
' Dim objGroupNode = pNode.Nodes(i)
' 'If objGroupNode.RowType <> RowNode.RowTypeEnum.DeviceGroup Then Continue For '找到模型外设组
' 'If objGroupNode.Compile = False Then Continue For '判断是否enable action’
' strObjGroupNodesTypedataAndProtocol = pNode.Nodes.Count & "," & i
' 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字节)
' '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 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
' '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
''' <summary>
''' 配置RCU模型设备存在数据
''' </summary>
''' <param name="pNode">模型节点</param>
''' <returns></returns>
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
''' <summary>
''' 根据RCU模型的设备存在属性组，配置设备存在数据
''' </summary>
''' <param name="pNode">模型节点</param>
''' <returns></returns>
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("设备组信息")
Dim type As String = Ccnode.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 DeviceChildNodeClass = Nothing
Dim outputGroupNode As DeviceChildNodeClass = Nothing
Select Case type '
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())
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字节)
''输入回路设置(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 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
''' <summary>
''' 获取输入类型设备对象的回路设置
''' </summary>
''' <param name="pNode"></param>
''' <returns></returns>
Private Function GetDeviceObjectSetting() As Byte()
Dim buf() As Byte = {1, 2, 2, 0}
'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>
''' 填充数据帧
''' </summary>
''' <param name="data">包含帧类型和帧参数</param>
''' <returns></returns>
Public 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
''' <summary>
''' 获取设备对象下的所有动作编译数据(所有的设备对象动作数据)
''' </summary>
''' <returns></returns>
Public Function FillDeviceObject(ByRef DeviceModuleDic As Dictionary(Of String， DeviceModel), SwitchConfig As Dictionary(Of String, Dictionary(Of Integer, String)), Grid1 As FlexCell.Grid) As List(Of Byte())
Dim lst As New List(Of Byte())
Dim tmpDataCount As Integer = 0
'PrintInfo("开始编译设备对象")
Dim devMode As DeviceModel
Dim t_row As Integer = -1
Dim t_col As Integer = -1
Dim DevGroupName As String = String.Empty
Dim Setval As String = String.Empty
Dim ConfigGroup As DeviceModelConfigGroup
Dim DeviceAlias As String = String.Empty
Dim hread() As Byte
Dim keepBuf(31) As Byte
For Each node In SwitchConfig
If node.Value.Count - 2 > 0 Then
Dim hreadname() As String = SwitchConfig.Keys(0).Split(":")
Dim chainame() As String = node.Key.Split(":")
If chainame(0).Equals(hreadname(0)) Then
devMode = DeviceModuleDic.Item("HostDevice")
'获取头部节点
hread = GetActionGroupHread(devMode)
Else
'devMode = DeviceModuleDic.Item(nodename)
devMode = DeviceModuleDic.Item("HostDevice")
'获取头部节点
Dim nodename As String = $"{chainame(0)}:{chainame(1)}"
Dim DcdevMode As DeviceModel = DeviceModuleDic.Item(nodename)
hread = GetdevGroupHread(DcdevMode, chainame(1))
End If
Dim strEventNum As UShort = 1
Dim eventNum() As Byte = BitConverter.GetBytes(strEventNum)
Dim keepParam(31) As Byte '保留字段(32字节) -> 2022-05-28 V3.1 32bytes
Dim condition As Byte
Dim aliasbuf(31) As Byte
Dim sceneNum() As Byte
Dim ncbuf As New List(Of Byte())
Integer.TryParse(chainame(chainame.Length - 1), t_row)
Dim devLoop() As Byte = BitConverter.GetBytes(CShort(t_row))
For Each Cnode In node.Value
If Cnode.Key < ComboDropDownCol.max Then Continue For
If chainame(0).Equals(hreadname(0)) Then
condition = GetExecModeDataUnderCondtion(Cnode.Value)
'DeviceAlias = Grid1.Cell(ComboDropDownON.LightingCircuit2, Cnode.Key).Text
If String.IsNullOrEmpty(DeviceAlias) = False Then
Dim cbuf() As Byte = AliasEncoding.GetBytes(DeviceAlias)
If cbuf.Length > aliasbuf.Length Then
Array.Copy(cbuf, 0, aliasbuf, 0, aliasbuf.Length)
Else
Array.Copy(cbuf, 0, aliasbuf, 0, cbuf.Length)
End If
End If
sceneNum = BitConverter.GetBytes(_sceneIndex)
Integer.TryParse(Grid1.Cell(ComboDropDownON.LightingCircuit1, Cnode.Key).Text, t_col)
DevGroupName = Grid1.Cell(ComboDropDownON.LightingCircuit0, Cnode.Key - t_col + 1).Text
Dim databuff() As Byte = GetActionData(DevGroupName, devMode, t_col， Cnode.Value)
If IsNothing(databuff) Then Continue For
ncbuf.Add(databuff)
Else
condition = GetExecModeDataUnderCondtion(Cnode.Value)
'DeviceAlias = Grid1.Cell(ComboDropDownON.LightingCircuit2, Cnode.Key).Text
If String.IsNullOrEmpty(DeviceAlias) = False Then
Dim cbuf() As Byte = AliasEncoding.GetBytes(DeviceAlias)
If cbuf.Length > aliasbuf.Length Then
Array.Copy(cbuf, 0, aliasbuf, 0, aliasbuf.Length)
Else
Array.Copy(cbuf, 0, aliasbuf, 0, cbuf.Length)
End If
End If
sceneNum = BitConverter.GetBytes(_sceneIndex)
Integer.TryParse(Grid1.Cell(ComboDropDownON.LightingCircuit1, Cnode.Key).Text, t_col)
DevGroupName = Grid1.Cell(ComboDropDownON.LightingCircuit0, Cnode.Key - t_col + 1).Text
Dim databuff() As Byte = GetActionData(DevGroupName, devMode, t_col， Cnode.Value)
If IsNothing(databuff) Then Continue For
ncbuf.Add(databuff)
End If
Next
If ncbuf.Count > 0 Then
Dim li As New List(Of Byte)
li.AddRange(hread) '获取头部节点 3
li.AddRange(BitConverter.GetBytes(_actionIndex)) '动作编号 2
_actionIndex += 1
li.AddRange(devLoop) '设备回路 2
li.AddRange(eventNum) '添加事件编号 2
li.AddRange(GetConditionDataUnderConditionGroup) '获取执行模式 8
li.AddRange(keepParam) '条件保留32Byte 32
li.Add(condition) '获取执行条件编译数据 1
li.AddRange(aliasbuf) '32字节，事件条件别名 2022-06-07 caocong 32
li.AddRange(sceneNum) '2字节，场景编k号 2
li.AddRange(keepBuf) '30位保留字段 32
Dim valCount As UShort = node.Value.Count - 2
li.Add(valCount) '获取执行动作数量 2
For Each buf In ncbuf '32
li.AddRange(buf) '获取动作数据
Next
lst.Add(li.ToArray)
Console.WriteLine($"UDP收到的数据：{ByteToString(li.ToArray)}")
End If
_sceneIndex += 1
End If
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
Public Function GetDevicegroupChildNodeConfid(devMode As DeviceModel) As DeviceModelConfigGroup
For Each ModuleFre In devMode.Config
If ModuleFre.Name.Equals("DI") Then
Return ModuleFre
Exit For
End If
Next
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 Function GetActionGroupBody(FDeviceLoop As Integer, Count As Integer, DeviceAlias As String, DevGroupName As String, devMode As DeviceModel, DeviceLoop As Integer， straction As String) As Byte()
Dim buf = New List(Of Byte)
Dim devLoop() As Byte = BitConverter.GetBytes(CShort(FDeviceLoop))
buf.AddRange(BitConverter.GetBytes(_actionIndex)) '动作编号
buf.AddRange(devLoop) '设备回路
Dim strEventNum As UShort = 1
Dim eventNum() As Byte = BitConverter.GetBytes(strEventNum)
Dim sceneNum() As Byte = BitConverter.GetBytes(_sceneIndex)
buf.AddRange(eventNum) '添加事件编号
Dim keepParam(31) As Byte '保留字段(32字节) -> 2022-05-28 V3.1 32bytes
buf.AddRange({GetExecModeDataUnderCondtion(straction)}) '获取执行条件编译数据
buf.AddRange(keepParam) '条件保留32Byte
buf.AddRange(GetConditionDataUnderConditionGroup) '获取执行模式
Dim aliasbuf(31) As Byte
If String.IsNullOrEmpty(DeviceAlias) = False Then
Dim cbuf() As Byte = AliasEncoding.GetBytes(DeviceAlias)
If cbuf.Length > aliasbuf.Length Then
Array.Copy(cbuf, 0, aliasbuf, 0, aliasbuf.Length)
Else
Array.Copy(cbuf, 0, aliasbuf, 0, cbuf.Length)
End If
End If
buf.AddRange(aliasbuf) '32字节，事件条件别名 2022-06-07 caocong
buf.AddRange(sceneNum) '2字节，场景编号
Dim keepBuf(31) As Byte
buf.AddRange(keepBuf) '30位保留字段
buf.AddRange(BitConverter.GetBytes(Count)) '获取执行动作数量
Dim ncbuf() As Byte = GetActionData(DevGroupName, devMode, DeviceLoop， straction)
If IsNothing(ncbuf) Then Return Nothing
buf.AddRange(ncbuf) '获取动作数据
Return buf.ToArray
End Function
''' <summary>
''' 从动作行节点获取动作数据
''' </summary>
''' <param name="node"></param>
''' <returns></returns>
Private Function GetActionData(DevGroupName As String, devMode As DeviceModel, DeviceLoop As Integer， straction As String) As Byte()
' If node.RowType <> RowNode.RowTypeEnum.DeviceEventAction Then Throw New Exception($"行号:{node.RowListIndex},文本:{node.Text}不为动作节点")
Dim buf(7) As Byte
Dim gDevGroupName = $"{DevGroupName}设备组信息"
Dim devType As Byte
'模型的拨码地址
Dim devAddr As Byte
'模型的设备类型
For Each cnode In devMode.Config
If cnode.Name.Equals(gDevGroupName) Then
For Each ccnode In cnode.Attributes
Select Case ccnode.Name
Case "DeviceType"
devType = ccnode.DataDefault
Case "DeviceAddr"
devAddr = ccnode.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
End If
Next
'设备类型，外接设备设备类型（主机特殊处理）
buf(0) = devType
'设备地址，选择对象的设备拨码地址（主机特殊处理）
buf(1) = devAddr
'设备回路，选择对象的回路地址
Dim loopBuf() As Byte = BitConverter.GetBytes(CShort(DeviceLoop))
Array.Copy(loopBuf, 0, buf, 2, loopBuf.Length)
'执行方式,不同设备类型有不同方式
Dim bolicActio() As Byte = GetSymbolicAction(DevGroupName, straction)
If IsNothing(bolicActio) Then Return Nothing
buf(4) = bolicActio(0) '执行方式 继电器开关
'执行内容,不同设备类型有不同内容
buf(5) = bolicActio(1) '执行内容
'延时时间,动作执行延时
buf(6) = 0 '延时时间
'延时单位，做东执行延时单位
buf(7) = 1 '延时单位
'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) As Byte()
Dim result(1) As Byte
Select Case modetyupe
Case "RELAY"
Select Case straction
Case Chr(CellDrop.TurnOn).ToString
result(0) = 1
Case Chr(CellDrop.TurnDrown).ToString
result(0) = 2
Case Chr(CellDrop.表示先开后关).ToString
result(0) = 1
Case Chr(CellDrop.代表先关后开).ToString
result(0) = 1
Case Else
Return Nothing
End Select
Case "Dimming"
Case "DO"
Case "MUSIC"
Dim parstr() As String = straction.Split(",")
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
Case 1
dirIndex = parstr(1)
Case 2
dirIndex = parstr（1） '文件夹索引
modeStatus = parstr（0） '播放时场景状态
Case 3
dirIndex = parstr（1） '文件夹索引
modeStatus = parstr（0） '播放时场景状态
fileIndex = parstr（2） '文件索引
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
Case Else
Return Nothing
End Select
Return result
End Function
''' <summary>
''' 获取条件组节点下的条件编译数据
''' </summary>
''' <param name="pNode">条件组节点</param>
''' <returns></returns>
Private Function GetConditionDataUnderConditionGroup() 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()
Return result.ToArray
End Function
Private Function GetExecModeDataUnderCondtion(straction As String) As Byte
'If pNode.RowType <> RowNode.RowTypeEnum.DeviceEventActionModeGroup Then Throw New Exception("转换执行方式时无效的类型")
'If pNode.Count <> 1 Then Throw New Exception("执行方式数量异常")
Dim result As Integer = 1
Select Case straction
Case Chr(CellDrop.TurnOn).ToString
result = 1
Case Chr(CellDrop.TurnDrown).ToString
result = 1
Case Chr(CellDrop.表示先开后关).ToString
result = 2
Case Chr(CellDrop.代表先关后开).ToString
result = 2
End Select
Return result
End Function
End Class
Reference in New Issue Copy Permalink