Imports System.Text


Public Class NetworkData

    Enum states
        接收 = True
        发送 = False
    End Enum
    ''' <summary>
    ''' 解析网络数据
    ''' </summary>
    ''' <param name="data_content"></param>
    ''' <param name="Type_Param"></param>
    ''' <param name="state">接收或发送</param>
    ''' <returns></returns>
    Public Function Parsing_Network_Data(data_content As Byte(), ByRef Type_Param As List(Of String), state As Boolean) As List(Of String)
        Try
            Dim cmd As Byte = data_content(8)
            Dim frame As Integer = data_content(10) * 256 + data_content(9)
            Dim Project_Code As Integer = data_content(12) * 256 + data_content(11)
            Type_Param.Add($"帧号:{frame}")
            Type_Param.Add($"项目编码:{Project_Code},主机IP地址:192.168.{data_content(13)}.{data_content(14)}")
            Dim str As String = ""

            If data_content.Length - 17 > 0 Then
                Dim data As Byte() = data_content.Skip(15).Take(data_content.Length - 17).ToArray
                Select Case cmd
                    Case &H1
                        Type_Param.Add("搜索主机")
                        str = Search_The_Host(data, state)
                    Case &HA
                        Type_Param.Add("固件升级启动")
                        str = Firmware_Upgrade_Start(data, state)
                    Case &HE
                        Type_Param.Add("设备状态变化主动上报")
                        str = Devicestatus_Changes_Reported(data, state)
                    Case &HF
                        Type_Param.Add("服务器下发设备控制参数")
                        str = Deliversdevice_Control_Parameters(data, state)
                    Case &H8
                        Type_Param.Add("请求时间")
                        str = Request_Time(data, state)
                    Case &H22
                        Type_Param.Add("授权")
                        str = Authorization(data, state)
                    Case &H25
                        Type_Param.Add("查询授权时间")
                        str = Querying_Authorization_Time(data, state)
                    Case &H30
                        Type_Param.Add("读取映射寄存器内容")
                        str = Read_Contents_Mapregister(data, state)
                    Case &H31
                        Type_Param.Add("设置映射寄存器内容")
                        str = Set_Contents_Mappingregister(data, state)
                    Case &H70
                        Type_Param.Add("透传下发命令")
                        str = Transparent_Transmission_Delivers_Commands(data, state)
                    Case &H71
                        Type_Param.Add("透传上报")
                        str = Passthrough_Report(data, state)
                    Case &HA0
                        Type_Param.Add("时间同步")
                        str = Time_Synchronization(data, state)
                    Case &HB1
                        Type_Param.Add("读取主机系统参数信息")
                        str = Read_Parameter_Information(data, state)
                    Case &HD1
                        Type_Param.Add("启动设备测试")
                        str = Startup_Device_Test(data, state)
                    Case &HD2
                        Type_Param.Add("配置设备存在")
                        str = Configuration_Device_Exists(data, state)
                    Case &HD3
                        Type_Param.Add("读取配置设备")
                        str = Reading_Configuration_Devices(data, state)
                    Case &HB2
                        Type_Param.Add("BLV_Cx升级命令")
                        str = BLV_Cx_Upgrade_Command(data, state)
                    Case &HA
                        Type_Param.Add("BLV_Cx升级命令")
                        str = BLV_Cx_Upgrade_Command(data, state)
                    Case &HB3
                        Type_Param.Add("BLV_Cx校验命令")
                        str = BLV_Cx_Verification_Command(data, state)
                    Case &HB4
                        Type_Param.Add("BLV_Cx复位命令")
                        str = BLV_Cx_Reset_Command(data, state)
                    Case &HB5
                        Type_Param.Add("BLV_Cx配置文件下发命令")
                        str = BLV_Cx_Configuration_File_Send_Commands(data, state)
                    Case &HA
                        Type_Param.Add("BLV_Cx配置文件下发命令")
                        str = BLV_Cx_Configuration_File_Send_Commands(data, state)
                End Select
                Type_Param.Add(str)
            Else
                str = "无参数数据"
                Type_Param.Add(str)
            End If


        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return Type_Param
    End Function

#Region "cmd通讯命令"

#Region "搜索主机"

    ''' <summary>
    ''' 搜索主机
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Search_The_Host(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.发送 Then
                Dim IP As String = $"{data(0)}.{data(1)}.{data(2)}.{data(3)}"
                Dim Subnetmask As String = $"{data(4)}.{data(5)}.{data(6)}.{data(7)}"
                Dim gateway As String = $"{data(8)}.{data(9)}.{data(10)}.{data(11)}"
                Dim Port As String = data(13) * 256 + data(12)
                Dim MAC As String = $"{BitConverter.ToString(data.Skip(14).Take(6).ToArray).Replace("-", " ")}"
                Dim Version_Number As String = Encoding.UTF8.GetString(data.Skip(20).Take(20).ToArray)
                Dim Set_Data_Version_Number As String = data(41) * 256 + data(40)
                Dim DNSmask As String = $"{data(43)}.{data(44)}.{data(45)}.{data(46)}"
                Dim Room_Note As String = DataTypes.ByteToInt(data.Skip(47).Take(16).ToArray)
                Dim Room_Number_Note As String = DataTypes.ByteToInt(data.Skip(63).Take(16).ToArray)
                Dim Room_ID As String = DataTypes.ByteToInt(data.Skip(79).Take(4).ToArray).ToString
                Dim Room_Number_ID As String = DataTypes.ByteToInt(data.Skip(83).Take(4).ToArray).ToString
                str.Append($"服务器IP地址:{IP};子网掩码:{Subnetmask};网关:{gateway};端口:{Port};MAC地址:{MAC};版本号:{Version_Number};配置数据版本号:{Set_Data_Version_Number},
                             DNS地址:{DNSmask};房型备注:{Room_Note};房号备注:{Room_Number_Note};房型ID:{Room_ID};房号ID:{Room_Number_ID};")

            ElseIf state = states.接收 Then
                Dim IP As String = $"{data(5)}.{data(6)}.{data(7)}.{data(8)}"
                Dim Port As String = data(10) * 256 + data(9)
                str.Append($"配置软件IP地址:{IP},配置软件端口:{Port}")
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function


#End Region


#Region "固件升级启动"


    ''' <summary>
    ''' 固件升级启动
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Firmware_Upgrade_Start(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.接收 Then
                Select Case data(0)
                    Case &H0
                        str.Append($"状态：就绪;")
                    Case &H1
                        str.Append($"状态：成功;")
                    Case &H2
                        str.Append($"状态：失败;")
                    Case &H3
                        str.Append($"状态：文件块数错误;")
                    Case &H4
                        str.Append($"状态：文件类型错误;")
                    Case &H5
                        str.Append($"状态：文件MD5值错误;")
                    Case Else

                End Select
            ElseIf state = states.发送 Then
                Dim IP As String = $"{data(5)}.{data(6)}.{data(7)}.{data(8)}"
                Dim Port As String = data(10) * 256 + data(9)
                Dim MD5 As String = Encoding.UTF8.GetString(data.Skip(6).Take(16).ToArray)
                Dim File_Blocks_Number As String = data(23) * 256 + data(22)
                str.Append($"配置软件IP地址：{IP};配置端口号：{Port};升级文件MD5值：{MD5};文件总块数：{File_Blocks_Number}")
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function


#End Region


#Region "设备状态变化主动上报"

    ''' <summary>
    ''' 设备状态变化主动上报
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Devicestatus_Changes_Reported(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If data.Count > 0 Then

                Select Case data(0)
                    Case &H1
                        str.Append("系统锁:打开;")
                    Case &H2
                        str.Append("系统锁:关闭;")
                End Select
                str.Append($"卡类型:{data(1)};")
                Select Case data(2)
                    Case &H1
                        str.Append("门磁状态:开;")
                    Case &H2
                        str.Append("门磁状态:关;")
                End Select
                str.Append($"门锁电量:{data(4) * 256 + data(3)}mv;空调数量:{data(6)};上报设备数量:{data(7)};")
                Dim t As Integer = 8
                If data(7) > 0 Then

                    For i = 1 To data(7)
                        Dim DevType As String = data(t)
                        Dim DevAddr As String = data(t + 1)
                        Dim Devstate As String = data(t + 3) * 256 + data(t + 2)

                        Select Case DevType
                            Case &H0
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(指令场景);上报设备地址:{DevAddr};上报设备状态:{Devstate};")
                                Select Case data(t + 4)
                                    Case &H1
                                        str.Append("设备动作--开;")
                                    Case &H2
                                        str.Append("设备动作--关;")
                                End Select
                                str.Append($"设备内容:{data(t + 5)}")
                            Case &H1
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(强电继电器);上报设备地址:{DevAddr};上报设备状态:{Devstate};")
                                Select Case data(t + 4)
                                    Case &H1
                                        str.Append("设备动作--开;")
                                    Case &H2
                                        str.Append("设备动作--关;")
                                End Select
                                str.Append($"设备内容:{data(t + 5)}")
                            Case &H2
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(弱点输入);上报设备地址:{DevAddr};上报设备状态:{Devstate};")
                            Case &H3
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(弱点输出);上报设备地址:{DevAddr};上报设备状态:{Devstate};")
                                Select Case data(t + 4)
                                    Case &H1
                                        str.Append("设备动作--开;")
                                    Case &H2
                                        str.Append("设备动作--关;")
                                End Select
                                str.Append($"设备内容:{data(t + 5)};")
                            Case &H4
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(服务信息);上报设备地址:{DevAddr};")
                                Select Case data(3) And &HFF
                                    Case &H1
                                        str.Append("服务场景:入住;")
                                    Case &H2
                                        str.Append("服务场景:勿扰;")
                                    Case &H3
                                        str.Append("服务场景:清理;")
                                    Case &H4
                                        str.Append("服务场景:呼叫;")
                                    Case &H5
                                        str.Append("服务场景:洗衣;")
                                    Case &H6
                                        str.Append("服务场景:退房;")
                                    Case &H7
                                        str.Append("服务场景:稍后;")
                                    Case &H8
                                        str.Append("服务场景:SOS;")
                                    Case &H9
                                        str.Append("服务场景:送餐;")
                                    Case &HA
                                        str.Append("服务场景:开锁;")
                                    Case &HB
                                        str.Append("服务场景:行李;")
                                    Case &HC
                                        str.Append("服务场景:保险箱;")
                                    Case &HD
                                        str.Append("服务场景:门槛;")
                                End Select
                                Select Case data(t + 4)
                                    Case &H1
                                        str.Append("设备动作--开;")
                                    Case &H2
                                        str.Append("设备动作--关;")
                                End Select
                                str.Append($"设备内容:{data(t + 5)}")
                            Case &H5
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(干接点窗帘);上报设备地址:{DevAddr};上报设备状态:{Devstate};")
                                Select Case data(t + 4)
                                    Case &H1
                                        str.Append("设备动作--开;")
                                    Case &H2
                                        str.Append("设备动作--关;")
                                    Case &H6
                                        str.Append("设备动作--停;")
                                End Select
                                str.Append($"设备内容:{data(t + 5)}")
                            Case &H6
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(开关);上报设备地址:{DevAddr};上报设备状态:{Devstate};")
                                Select Case data(t + 4)
                                    Case &H1
                                        str.Append($"设备动作--开;亮度值:{data(t + 5)}")
                                    Case &H2
                                        str.Append($"设备动作--关;亮度值:{data(t + 5)}")
                                    Case &H6
                                        str.Append("设备动作:停;")
                                        Select Case data(t + 5)
                                            Case &H1
                                                str.Append("状态：点按;")
                                            Case &H2
                                                str.Append("状态：松开;")
                                            Case &H3
                                                str.Append("状态：长按;")
                                        End Select
                                End Select
                            Case &H7
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(空调);上报设备地址:{DevAddr};上报设备状态:{Devstate};")
                                Dim Switch_machine As Byte = (data(t + 4) >> 7) And &H3
                                Dim model As Byte = (data(t + 4) >> 5) And &HF
                                Dim windspeed As Byte = (data(t + 4) >> 3) And &HF
                                Dim valve As Byte = (data(t + 4) >> 2) And &H3
                                Dim Set_temperature_1 As Byte = ((data(t + 5) >> 5) And &H7) Or ((data(t + 4) << 3) And &H1F)
                                Dim Set_temperature_2 As Byte = data(t + 5) And &H1F
                                Select Case Switch_machine
                                    Case &H0
                                        str.Append("设备动作--开关机:关机;")
                                    Case &H1
                                        str.Append("设备动作--开关机:开机;")
                                End Select
                                Select Case model
                                    Case &H1
                                        str.Append("模式:制冷;")
                                    Case &H2
                                        str.Append("模式:制热;")
                                    Case &H3
                                        str.Append("模式:送风;")
                                    Case &H4
                                        str.Append("模式:自动;")
                                End Select
                                Select Case windspeed
                                    Case &H1
                                        str.Append("风速:低速;")
                                    Case &H2
                                        str.Append("风速:中速;")
                                    Case &H3
                                        str.Append("风速:高速;")
                                    Case &H4
                                        str.Append("风速:自动;")
                                End Select
                                Select Case valve
                                    Case &H1
                                        str.Append("阀门:开阀;")
                                    Case &H2
                                        str.Append("阀门:关阀;")
                                End Select
                                str.Append($"设置温度:{Set_temperature_1}摄氏度;")
                                str.Append($"室内温度:{Set_temperature_2}摄氏度;")
                            Case &H9
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(空气质量检测设备);上报设备地址:{DevAddr};")
                                Dim Air_quality As Byte = data(t + 3) And &HF
                                Select Case Air_quality
                                    Case &H1
                                        str.Append($"002浓度:{data(t + 5) * 256 + data(4)}")
                                    Case &H2
                                        str.Append($"甲醛浓度:{data(t + 5) * 256 + data(4)}")
                                    Case &H2
                                        str.Append($"TVOC浓度:{data(t + 5) * 256 + data(4)}")
                                    Case &H2
                                        str.Append($"PM2.5浓度:{data(t + 5) * 256 + data(4)}")
                                    Case &H2
                                        str.Append($"PM1.0浓度:{data(t + 5) * 256 + data(4)}")
                                    Case &H2
                                        str.Append($"温度:{data(t + 5) * 256 + data(4)}")
                                    Case &H2
                                        str.Append($"湿度:{data(t + 5) * 256 + data(4)}")
                                End Select
                                str.Append($"设备内容:{data(t + 5) * 256 + data(4)}")
                            Case &HA
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(插卡取电);上报设备地址:{DevAddr};上报设备状态:{Devstate};")
                                Dim card_action As Byte = (data(t + 4) >> 7) And &H3
                                Dim card_identity As Byte = (data(t + 4) >> 4) And &HF
                                str.Append($"卡动作:{card_action}")
                                Select Case card_identity
                                    Case &H0
                                        str.Append("卡身份:无人;")
                                    Case &H1
                                        str.Append("卡身份:客人;")
                                    Case &H2
                                        str.Append("卡身份:服务员;")
                                    Case &H3
                                        str.Append("卡身份:经理;")
                                    Case &H4
                                        str.Append("卡身份:工程;")
                                    Case &H5
                                        str.Append("卡身份:总管;")
                                    Case &H6
                                        str.Append("卡身份:高频卡;")
                                End Select
                                str.Append($"备用:{data(t + 4) And &HF};编号:{data(5)}")
                            Case &HB
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(地暖);上报设备地址:{DevAddr};上报设备状态:{Devstate};")
                                Dim Switch_machine As Byte = (data(t + 4) >> 7) And &H3
                                Dim model As Byte = (data(t + 4) >> 5) And &HF
                                Dim valve As Byte = (data(t + 4) >> 4) And &H3
                                Dim Set_temperature_1 As Byte = ((data(t + 5) >> 6) And &H3F) Or ((data(t + 4) << 4) And &HFF)
                                Dim Set_temperature_2 As Byte = data(t + 5) And &H3F
                                Select Case Switch_machine
                                    Case &H0
                                        str.Append("设备动作--开关机:关机;")
                                    Case &H1
                                        str.Append("设备动作--开关机:开机;")
                                End Select
                                Select Case model
                                    Case &H1
                                        str.Append("模式:手动;")
                                    Case &H2
                                        str.Append("模式:自动;")
                                    Case &H3
                                        str.Append("模式:定时;")
                                End Select
                                Select Case valve
                                    Case &H1
                                        str.Append("阀门:开阀;")
                                    Case &H2
                                        str.Append("阀门:关阀;")
                                End Select
                                str.Append($"设置温度:{Set_temperature_1}摄氏度;")
                                str.Append($"室内温度:{Set_temperature_2}摄氏度;")
                            Case &HC
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(RCU设备网络);")
                            Case &HD
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(窗帘);")
                            Case &HF
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(红外发送);上报设备地址:{DevAddr};上报设备回路:{Devstate};")
                                Select Case data(t + 4)
                                    Case &H1
                                        str.Append($"设备状态:开;设备内容--{data(t + 5)}")
                                    Case &H2
                                        str.Append($"设备状态:关;设备内容--{data(t + 5)}")
                                End Select

                            Case &H18
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(PWM调光);上报设备地址:{DevAddr};上报设备回路:{Devstate};")
                                Select Case data(t + 4)
                                    Case &H1
                                        str.Append($"设备状态:开;设备内容--亮度范围:{data(t + 5)}")
                                    Case &H2
                                        str.Append($"设备状态:关;设备内容--亮度范围:{data(t + 5)}")
                                End Select
                            Case &H12
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(灯带);上报设备地址:{DevAddr};上报设备回路:{Devstate};")
                                Select Case data(t + 4)
                                    Case &H1
                                        str.Append($"设备状态:开;设备内容--亮度范围:{data(t + 5)}")
                                    Case &H2
                                        str.Append($"设备状态:关;设备内容--亮度范围:{data(t + 5)}")
                                End Select
                            Case &H13
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(中控);")
                            Case &H14
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(微信锁);上报设备地址:{DevAddr};上报设备回路:{Devstate};")
                                Select Case data(t + 4)
                                    Case &H1
                                        str.Append($"设备状态:开;设备内容--{data(t + 5)}")
                                    Case &H2
                                        str.Append($"设备状态:关;设备内容--{data(t + 5)}")
                                End Select
                            Case &H15
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(背景音乐);上报设备地址:{DevAddr};上报设备回路:{Devstate};")
                                Select Case data(t + 4) And &HF
                                    Case &H0
                                        str.Append($"播放功能:功能设置;设备内容--文件序号:{data(t + 5)}")
                                    Case &H1
                                        str.Append($"播放功能:场景开时播放;设备内容--文件序号:{data(t + 5)}")
                                    Case &H2
                                        str.Append($"播放功能:场景关时播放;设备内容--文件序号:{data(t + 5)}")
                                    Case &H3
                                        str.Append($"播放功能:开机;设备内容--文件序号:{data(t + 5)}")
                                    Case &H4
                                        str.Append($"播放功能:关机;设备内容--文件序号:{data(t + 5)}")
                                End Select
                            Case &H16
                                str.Append($"设备参数{i}：上报设备类型:{DevType}(房态下发);上报设备地址:{DevAddr};上报设备回路:{Devstate};")
                                Select Case data(t + 4)
                                    Case &H1
                                        str.Append("设备动作:出租;设备内容--暂无")
                                    Case &H2
                                        str.Append("设备动作:退房;设备内容--暂无")
                                    Case &H2
                                        str.Append("设备动作:待租;设备内容--暂无")
                                    Case &H2
                                        str.Append("设备动作:空房;设备内容--暂无")
                                End Select

                        End Select

                        t += 6
                    Next
                End If
                str.Append($"主机故障数量:{data(t)}")
                                        If data(t) > 0 Then
                    For i = 1 To data(t)
                        Dim DevType As String = data(t + 1)
                        Dim DevAddr As String = data(t + 2)
                        Dim DevLoop As String = data(t + 4) * 256 + data(t + 3)
                        Dim Devstate As String = data(t + 5)
                        Dim DevData As String = data(t + 6)
                        Dim Devstr As String = ""
                        Select Case Devstate
                            Case &H1
                                Select Case DevData
                                    Case &H0
                                        Devstr = "在线"
                                    Case &H1
                                        Devstr = "离线"
                                End Select
                            Case &H2
                                Devstr = "0~100电量"
                            Case &H3
                                Devstr = "电流(10mA)"
                            Case &H4
                                Devstr = "1901故障检测次数"
                        End Select
                        str.Append($"故障设备参数{i}：故障设备类型:{DevType};故障设备地址:{DevAddr};故障设备的回路地址:{DevLoop};故障设备状态:{Devstr};")
                        t += 5
                    Next
                End If

            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "服务器下发设备控制参数"

    ''' <summary>
    ''' 服务器下发设备控制参数
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Deliversdevice_Control_Parameters(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            Dim t As Integer = 1
            str.Append($"控制设备总数:{data(0)};")
            If data(0) > 0 Then
                For i = 1 To data(0)
                    Dim DevType As String = data(t)
                    Dim DevAddr As String = data(t + 1)
                    Dim DevLoop As String = data(t + 3) * 256 + data(t + 2)
                    Dim Dev_Output_Type_L As String = data(t + 4)
                    Dim Dev_Output_Type_H As String = data(t + 5)
                    str.Append($"设备控制参数{i}：设备控制类型:{DevType};设备控制地址:{DevAddr};控制设备的回路地址:{DevLoop};控制设备输出类型--执行方式:{Dev_Output_Type_L},执行内容:{Dev_Output_Type_H};")
                    t += 6
                Next
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
            Return str.ToString
        End Try
        Return str.ToString
    End Function

#End Region


#Region "请求时间"

    ''' <summary>
    ''' 请求时间
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Request_Time(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            str.Append($"{data(0)}{data(1)}年{data(2)}月{data(3)}日 星期{data(4)} :{data(5)}时:{data(6)}分")
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "授权"

    ''' <summary>
    ''' 授权
    ''' </summary>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Authorization(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            str.Append($"授权天数：{data(1) * 256 + data(0)}")
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "查询授权时间"

    ''' <summary>
    ''' 查询授权时间
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Querying_Authorization_Time(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            Dim Current_running_time As String = $"当前运行时间:{data(0)}{data(1)}年{data(2)}月{data(3)}日;"
            Dim Current_Authorization_time As String = $"当前授权时间:{data(0)}{data(1)}年{data(2)}月{data(3)}日;"
            Dim Software_Version_number As String = Encoding.UTF8.GetString(data.Skip(6).Take(20).ToArray)
            str.Append($"{Current_running_time}{Current_Authorization_time}软件版本号:{Software_Version_number};")
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "读取映射寄存器内容"

    ''' <summary>
    ''' 读取映射寄存器内容
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Read_Contents_Mapregister(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.接收 Then
                Dim register_count As Integer = data(0)
                str.Append($"寄存器个数:{register_count};")
                Dim t As Integer = 1
                For i = 1 To register_count
                    Dim start_address As String = $"{data(t)}.{data(t + 1)}.{data(t + 2)}.{data(t + 3)}"
                    Dim register_data As String = Encoding.UTF8.GetString(data.Skip(t + 4).Take(4).ToArray)
                    str.Append($"寄存器地址:{start_address},寄存器内容:{register_data};")
                    t += 8
                Next

            ElseIf state = states.发送 Then
                Dim register_count As Integer = data(0)
                Dim start_address As String = $"{data(1)}.{data(2)}.{data(3)}.{data(4)}"
                str.Append($"寄存器个数:{register_count};寄存器起始地址:{start_address}")
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "设置映射寄存器内容"

    ''' <summary>
    ''' 设置映射寄存器内容
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Set_Contents_Mappingregister(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.接收 Then
                Select Case data(0)
                    Case &H1
                        str.Append("成功")
                    Case &H2
                        str.Append("失败")
                End Select
            ElseIf state = states.发送 Then
                Dim register_count As Integer = data(0)
                str.Append($"寄存器个数:{register_count};")
                Dim t As Integer = 1
                For i = 1 To register_count
                    Dim start_address As String = $"{data(t)}.{data(t + 1)}.{data(t + 2)}.{data(t + 3)}"
                    Dim register_data As String = Encoding.UTF8.GetString(data.Skip(t + 4).Take(4).ToArray)
                    str.Append($"寄存器地址:{start_address},寄存器内容:{register_data};")
                    t += 8
                Next
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "透传下发命令"

    ''' <summary>
    ''' 透传下发命令
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Transparent_Transmission_Delivers_Commands(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.接收 Then
                Select Case data(0)
                    Case &H1
                        Dim Passthrough_state As Integer = data(1)
                        Select Case Passthrough_state
                            Case &H1
                                str.Append("透传状态查询--状态:正常模式;")
                            Case &H2
                                str.Append("透传状态查询--状态:透传模式;")
                            Case &H3
                                str.Append("透传状态查询--状态:监控模式;")
                        End Select

                    Case &H2
                        Dim Passthrough_state As Integer = data(1)
                        Select Case Passthrough_state
                            Case &H1
                                str.Append("透传设置--状态:正确;")
                            Case &H2
                                str.Append("透传设置--状态:错误;")
                        End Select
                    Case &H3
                        Dim Passthrough_state As Integer = data(1)
                        Select Case Passthrough_state
                            Case &H1
                                str.Append("透传数据传输--状态:正确;")
                            Case &H2
                                str.Append("透传数据传输--状态:有误;")
                            Case &H3
                                str.Append("透传数据传输--状态:超时;")
                        End Select
                End Select
            ElseIf state = states.发送 Then
                Select Case data(0)
                    Case &H1
                        Dim Port As Integer = data(1)
                        str.Append($"透传状态查询--查询的485端口:{Port};")
                    Case &H2
                        Dim Port As Integer = data(1)
                        str.Append($"透传设置--设置的485端口:{Port};")
                        Select Case data(2)
                            Case &H1
                                str.Append($"波特率:9600;")
                            Case &H2
                                str.Append($"波特率:14400;")
                            Case &H3
                                str.Append($"波特率:19200;")
                            Case &H4
                                str.Append($"波特率:38400;")
                            Case &H5
                                str.Append($"波特率:56000;")
                            Case &H6
                                str.Append($"波特率:57600;")
                            Case &H7
                                str.Append($"波特率:115200;")
                        End Select
                        str.Append($"超时时间:{data(3)}s;")
                        Select Case data(4)
                            Case &H1
                                str.Append("透传模式设置：正常模式;")
                            Case &H2
                                str.Append("透传模式设置：透传模式;")
                            Case &H3
                                str.Append("透传模式设置：监控模式;")
                        End Select
                    Case &H3
                        Dim Port As Integer = data(1)
                        str.Append($"透传数据传输--485端口:{Port};")
                        str.Append($"超时时间:{data(2)}s;")
                        str.Append($"透传数据:{BitConverter.ToString(data.Skip(3).ToArray).Replace("-", " ")}")
                End Select
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "透传上报"

    ''' <summary>
    ''' 透传上报
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Passthrough_Report(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.接收 Then
                Select Case data(0)
                    Case &H1
                        str.Append("正确")
                    Case &H2
                        str.Append("有误")
                End Select

            ElseIf state = states.发送 Then
                Dim Port As Integer = data(1)
                str.Append($"透传数据传输--485端口:{Port};")
                Select Case data(1)
                    Case &H1
                        str.Append($"波特率:9600;")
                    Case &H2
                        str.Append($"波特率:14400;")
                    Case &H3
                        str.Append($"波特率:19200;")
                    Case &H4
                        str.Append($"波特率:38400;")
                    Case &H5
                        str.Append($"波特率:56000;")
                    Case &H6
                        str.Append($"波特率:57600;")
                    Case &H7
                        str.Append($"波特率:115200;")
                End Select
                str.Append($"透传数据:{BitConverter.ToString(data.Skip(2).ToArray).Replace("-", " ")}")
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "时间同步"

    ''' <summary>
    ''' 时间同步
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Time_Synchronization(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.接收 Then
                Select Case data(0)
                    Case &H1
                        str.Append("成功")
                    Case &H2
                        str.Append("失败")
                End Select
            ElseIf state = states.发送 Then
                str.Append($"20{data(0)}年{data(1)}月{data(2)}日 星期{data(3)} {data(4)}:{data(5)}:{data(6)}秒")
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "读取主机系统参数信息"

    ''' <summary>
    ''' 读取主机系统参数信息
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Read_Parameter_Information(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.发送 Then
                Dim Model_number As Integer = DataTypes.ByteToInt(data.Skip(1).Take(16).ToArray) '机型编号
                Dim ip As String = $"{data(17)}.{data(18)}.{data(19)}.{data(20)}" 'IP地址
                Dim Serverip As String = $"{data(17)}.{data(18)}.{data(19)}.{data(20)}" '服务器IP地址
                Dim Subnetmask As String = $"{data(21)}.{data(22)}.{data(23)}.{data(24)}" '子网掩码
                Dim gateway As String = $"{data(29)}.{data(30)}.{data(31)}.{data(32)}" '网关
                Dim Port As String = DataTypes.ByteToInt(data.Skip(33).Take(4).ToArray).ToString '端口
                Dim DNSmask As String = $"{data(37)}.{data(38)}.{data(39)}.{data(40)}" 'DNS地址
                Dim Version_Number As String = Encoding.UTF8.GetString(data.Skip(41).Take(20).ToArray) '软件版本号
                Dim Hosttime As String = $"20{data(61)}/{data(62)}/{data(63)} {data(64)}:{data(65)}:{data(66)}" '主机时间
                Dim MAC As String = BitConverter.ToString(data.Skip(87).Take(6).ToArray).Replace("-", " ") 'MAC地址
                Dim projectnumber As String = DataTypes.ByteToInt(data.Skip(93).Take(4).ToArray).ToString '项目编号
                Dim Room_Number_ID As String = DataTypes.ByteToInt(data.Skip(97).Take(4).ToArray).ToString '房号ID
                Dim Room_Type_ID As String = DataTypes.ByteToInt(data.Skip(101).Take(4).ToArray).ToString '房型ID
                Dim Set_Data_Version_Number As String = DataTypes.ByteToInt(data.Skip(105).Take(4).ToArray).ToString '配置数据版本号
                Dim toroom As String = Encoding.UTF8.GetString(data.Skip(109).Take(4).ToArray) '房态
                Dim season As String = Encoding.UTF8.GetString(data.Skip(113).Take(4).ToArray) '季节
                Dim lock_state As String = Encoding.UTF8.GetString(data.Skip(117).Take(4).ToArray) '锁定状态
                Dim Authorized_time As String = Encoding.UTF8.GetString(data.Skip(121).Take(4).ToArray) '授权时间
                Dim Authorized_date As String = DataTypes.ByteToInt(data.Skip(125).Take(4).ToArray).ToString '授权天数
                Dim Room_Number_Note As String = Encoding.UTF8.GetString(data.Skip(129).Take(16).ToArray) '房号备注
                Dim Room_Type_Note As String = Encoding.UTF8.GetString(data.Skip(145).Take(16).ToArray) '房型备注
                Dim Room_Note As String = Encoding.UTF8.GetString(data.Skip(161).Take(16).ToArray) '房间备注
                Dim MCU_Model_Name As String = Encoding.UTF8.GetString(data.Skip(257).Take(64).ToArray) 'MCU机型名称
                Dim Control_Model_Name As String = Encoding.UTF8.GetString(data.Skip(321).Take(64).ToArray) '中控机型名称
                Dim Read_Register_Address As String = Encoding.UTF8.GetString(data.Skip(385).Take(16).ToArray) '读取寄存器地址
                Dim Read_Register_Contents As String = Encoding.UTF8.GetString(data.Skip(389).Take(16).ToArray) '读取寄存器内容


                str.Append($"本机按键状态:{data(0)};机型编号:{Model_number};IP地址:{ip};服务器IP地址:{ip};子网掩码:{Subnetmask};
                        端口:{Port};DNS地址:{DNSmask};软件版本号:{Version_Number};主机时间:{Hosttime};MAC地址:{MAC};
                        项目编号:{projectnumber};房号ID:{Room_Number_ID};房型ID:{Room_Type_ID};配置数据版本号:{Set_Data_Version_Number};
                        房态:{toroom};季节:{season};锁定状态:{lock_state};授权时间:{Authorized_time};授权天数:{Authorized_date};
                        房号备注:{Room_Number_Note};房型备注:{Room_Type_Note};房间备注:{Room_Note};MCU机型名称:{MCU_Model_Name};
                        中控机型名称:{Control_Model_Name};读取寄存器地址:{Read_Register_Address};读取寄存器内容:{Read_Register_Contents};")


            ElseIf state = states.接收 Then
                Dim register_count As Integer = data(4)
                Dim start_address As String = Encoding.UTF8.GetString(data.Skip(5).Take(4).ToArray)
                str.Append($"寄存器个数:{register_count};寄存器起始地址:{start_address}")
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "启动设备测试"

    ''' <summary>
    ''' 启动设备测试
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Startup_Device_Test(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.发送 Then
                Dim number As Integer = data(0)
                Dim t As Integer = 1
                If number > 0 Then
                    For i = 1 To number
                        Dim DevType As String = data(t)
                        Dim DevAddr As String = data(t + 1)
                        Select Case data(t + 2)
                            Case &H1
                                str.Append($"测试设备类型:{DevType};测试设备地址:{DevAddr};测试设备状态:正常")
                            Case &H2
                                str.Append($"测试设备类型:{DevType};测试设备地址:{DevAddr};测试设备状态:失败")
                        End Select
                        t += 3
                    Next
                End If
            ElseIf state = states.接收 Then
                Select Case data(0)
                    Case 1
                        str.Append("启动测试")
                End Select
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)

        End Try
        Return str.ToString
    End Function

#End Region


#Region "配置设备存在"

    ''' <summary>
    ''' 配置设备存在
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Configuration_Device_Exists(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.接收 Then
                str.Append($"配置总包数:{data(0)};当前包序号:{data(1)};")
                Select Case data(2)
                    Case &H0
                        str.Append($"数据内容:设备存在")
                    Case &H1
                        str.Append($"数据内容:设备动作")
                End Select
                str.Append($"设备类型:{data(3)};设备地址:{data(4)}")
                Select Case data(5)
                    Case &H0
                        str.Append("波特率:无效")
                    Case &H1
                        str.Append("波特率:9600")
                    Case &H2
                        str.Append("波特率:14400")
                    Case &H3
                        str.Append("波特率:19200")
                    Case &H4
                        str.Append("波特率:38400")
                    Case &H5
                        str.Append("波特率:56000")
                    Case &H6
                        str.Append("波特率:57600")
                    Case &H7
                        str.Append("波特率:115200")
                    Case &H8
                        str.Append("波特率:4800")
                    Case &H9
                        str.Append("波特率:2400")
                End Select
                str.Append($"端口号:{data(6)};协议:{data(7)};设备型号:{Encoding.UTF8.GetString(data.Skip(72).Take(16).ToArray)};
                            设备名称:{Encoding.UTF8.GetString(data.Skip(88).Take(16).ToArray)};备注:{Encoding.UTF8.GetString(data.Skip(104).Take(138).ToArray)};")


            ElseIf state = states.发送 Then
                Select Case data(0)
                    Case &H1
                        str.Append("成功")
                    Case &H2
                        str.Append("失败")
                End Select
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "读取配置设备"

    ''' <summary>
    ''' 读取配置设备
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function Reading_Configuration_Devices(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.发送 Then
                Select Case data(0)
                    Case &H1
                        str.Append("读取配置类型:配置信息")
                    Case &H2
                        str.Append("读取配置类型:配置数据")
                End Select
                str.Append($"读取配置总包数:{data(1)};")
                For i = 1 To data(1)
                    str.Append($"读取配置当前包序号:{data(i + 1)};")
                Next
            ElseIf state = states.接收 Then
                Select Case data(0)
                    Case &H1
                        str.Append("读取配置类型:配置信息")
                    Case &H2
                        str.Append("读取配置类型:配置数据")
                End Select
                str.Append($"读取配置总包数:{data(1)};读取配置当前包序号:{data(2)};")
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "BLV_Cx升级命令"

    ''' <summary>
    ''' BLV_Cx升级命令
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function BLV_Cx_Upgrade_Command(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.接收 Then
                Select Case data(0)
                    Case &H0
                        str.Append("就绪")
                    Case &H1
                        str.Append("成功")
                    Case &H1
                        str.Append("失败")
                    Case &H1
                        str.Append("文件块数错误")
                    Case &H1
                        str.Append("文件类型错误")
                    Case &H1
                        str.Append("文件MD5值错误")
                End Select
                str.Append($"固件版本号:{Encoding.UTF8.GetString(data.Skip(1).Take(20).ToArray)}")
            ElseIf state = states.发送 Then
                str.Append($"配置软件IP地址:{data(0)}.{data(1)}.{data(2)}.{data(3)}")
                str.Append($"配置端口号:{DataTypes.ByteToInt(data.Skip(4).Take(4).ToArray)}")
                str.Append($"升级文件MD5值:{Encoding.UTF8.GetString(data.Skip(6).Take(16).ToArray)}")
                str.Append($"文件总块数:{DataTypes.ByteToInt(data.Skip(22).Take(4).ToArray)}")
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "BLV_Cx校验命令"

    ''' <summary>
    ''' BLV_Cx校验命令
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function BLV_Cx_Verification_Command(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.接收 Then
                Select Case data(0)
                    Case &H1
                        str.Append("文件校验成功")
                    Case &H2
                        str.Append("文件校验失败")
                    Case &H2
                        str.Append("文件未接收完成")
                    Case &H2
                        str.Append("未知错误")
                End Select
            ElseIf state = states.发送 Then
                Select Case data(0)
                    Case &H1
                        str.Append("APP文件校验")
                    Case &H2
                        str.Append("配置文件校验")
                End Select
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "BLV_Cx复位命令"

    ''' <summary>
    ''' BLV_Cx复位命令
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function BLV_Cx_Reset_Command(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.接收 Then
                Select Case data(0)
                    Case &H1
                        str.Append("执行结果:成功")
                    Case &H2
                        str.Append("执行结果:失败")
                End Select
            ElseIf state = states.发送 Then
                Select Case data(0)
                    Case &H1
                        str.Append("复位方式:软件复位")
                    Case &H2
                        str.Append("复位方式:看门狗复位")
                End Select
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#Region "BLV_Cx配置文件下发命令"

    ''' <summary>
    ''' BLV_Cx配置文件下发命令
    ''' </summary>
    ''' <param name="data"></param>
    ''' <param name="state"></param>
    ''' <returns></returns>
    Public Function BLV_Cx_Configuration_File_Send_Commands(data As Byte(), state As Boolean) As String
        Dim str As New StringBuilder
        Try
            If state = states.接收 Then
                Select Case data(0)
                    Case &H0
                        str.Append("就绪")
                    Case &H1
                        str.Append("成功")
                    Case &H2
                        str.Append("失败")
                    Case &H3
                        str.Append("文件块数错误")
                    Case &H4
                        str.Append("文件类型错误")
                    Case &H5
                        str.Append("文件MD5值错误")
                End Select
                str.Append($"固件版本号:{Encoding.UTF8.GetString(data.Skip(1).Take(20).ToArray)}")
            ElseIf state = states.发送 Then
                str.Append($"配置软件IP地址:{data(0)}.{data(1)}.{data(2)}.{data(3)}")
                str.Append($"配置端口号:{DataTypes.ByteToInt(data.Skip(4).Take(4).ToArray)}")
                str.Append($"升级文件MD5值:{Encoding.UTF8.GetString(data.Skip(6).Take(16).ToArray)}")
                str.Append($"文件总块数:{DataTypes.ByteToInt(data.Skip(22).Take(4).ToArray)}")
            End If
        Catch ex As Exception
            AdminLog.ApplicationLog.WriteErrorLog(ex)
        End Try
        Return str.ToString
    End Function

#End Region


#End Region





End Class