Public Class FrmTest_BLV_V9

    Implements IFrmTest
        Public FCsConfig As FrmCSeriesConfig
        Sub New(pathme As FrmCSeriesConfig)

            ' 此调用是设计器所必需的。
            InitializeComponent()
            FCsConfig = pathme
            ' 在 InitializeComponent() 调用之后添加任何初始化。

        End Sub
#Region "多语种信息"



        ''' <summary>
        ''' 初始化界面控件文本
        ''' </summary>
        Private Sub MultiLanguageInfo()
        '控件.Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.RelayControl)
        Label7.Text = "V9" & LanguageData.StringList(MultiLanguageDAL.StringEnum.Dimming)
        BtnDimming.Text = "V9" & LanguageData.StringList(MultiLanguageDAL.StringEnum.DimmingTest)
        Label34.Text = "V9" & LanguageData.StringList(MultiLanguageDAL.StringEnum.RelayControl)
        Label36.Text = "V9" & LanguageData.StringList(MultiLanguageDAL.StringEnum.IOOutput)
        Label35.Text = "V9" & LanguageData.StringList(MultiLanguageDAL.StringEnum.IOInput)
        Label40.Text = "V9" & LanguageData.StringList(MultiLanguageDAL.StringEnum.ItinerateTest)
        Label37.Text = "V9" & LanguageData.StringList(MultiLanguageDAL.StringEnum.Music)
        BtnInputTest.Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.TheInputTest)
            Label38.Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.PlayFolder)
            Label39.Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.PlayFileNumber)
            Button21.Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.Play)
            Button23.Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.ItinerateTest)
        End Sub


#End Region

#Region "窗体"

        ''' <summary>
        ''' 窗体加载事件
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        Private Sub FrmTest_C5_Load(sender As Object, e As EventArgs) Handles Me.Load
            MultiLanguageInfo()
            InitFolderItems()
        End Sub


        ''' <summary>
        ''' 显示窗体事件
        ''' 实现接口
        ''' </summary>
        ''' <param name="parentControl"></param>
        Public Sub ShowForm(parentControl As Control) Implements IFrmTest.ShowForm
            FormBorderStyle = FormBorderStyle.None      '无边框
            TopLevel = False
            Dock = DockStyle.Fill       '填满大小
            Parent = parentControl      '父容器

            Show()
        End Sub


        ''' <summary>
        ''' 发送函数
        ''' </summary>
        ''' <param name="sendPacket"></param>
        Public Sub SendData(sendPacket() As Byte)
            FCsConfig.SendTestData(sendPacket)
            FCsConfig.AppendTipText($"TX：{ByteToString(sendPacket)}{vbCrLf}", Color.Green)
        End Sub



#End Region

#Region "C12测试"

        ''' <summary>
        ''' 获取继电器序号
        ''' </summary>
        Private relayNumber(4) As Byte


        ''' <summary>
        ''' 发送组包
        ''' </summary>
        ''' <param name="cmd"></param>
        ''' <param name="dataBuff"></param>
        ''' <returns></returns>
        Public Function FillPacket(cmd As Byte, dataBuff() As Byte) As Byte()
            If _connectStatus = True Then
                cmd = &HD3      '网络测试Cmd
                dataBuff = FCsConfig.FillSendData(cmd, dataBuff)     '网络数据
            Else
                cmd = &H7   '串口测试Cmd
                dataBuff = FillModelsSerialPortTest(cmd, dataBuff)      '串口数据
            End If

            Return dataBuff
        End Function


        ''' <summary>
        ''' 1-13路继电器
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        Private Sub BtnRelay13_Click(sender As Object, e As EventArgs) Handles BtnRelay9.Click, BtnRelay8.Click, BtnRelay7.Click, BtnRelay6.Click, BtnRelay5.Click, BtnRelay4.Click, BtnRelay3.Click, BtnRelay2.Click, BtnRelay13.Click, BtnRelay12.Click, BtnRelay11.Click, BtnRelay10.Click, BtnRelay1.Click
            Dim cmd As Byte
            Dim btn As Button = sender
            Dim index As Integer = sender.tag
            Dim flg As Boolean = Not GetRelayStatus(index)
            Dim param() As Byte = GetRelayNumber(index, flg)

            Dim testState As Byte = &H2
            Dim devType As Byte = &HF1
            Dim devAddr As Byte = &H0
            Dim devCmd As Byte = &H21

            '组包
            Dim data() As Byte = FillTestDatabuff(testState, devType, devAddr, devCmd, param)
            Dim sendDatas() As Byte = FillPacket(cmd, data)
            Console.WriteLine($"C12继电器测试：{ByteToString(sendDatas)}")

            '发送
            SendData(sendDatas)

            If flg Then
                btn.BackColor = Color.Green
            Else
                btn.BackColor = Color.Transparent
            End If
        End Sub


        ''' <summary>
        ''' 获取继电器状态
        ''' </summary>
        ''' <param name="index"></param>
        ''' <returns></returns>
        Private Function GetRelayStatus(index As Integer) As Boolean
            Dim bt As Byte = relayNumber(index \ 4) >> ((index Mod 4) * 2) And 3

            If bt = 1 Then Return True
            Return False
        End Function


        ''' <summary>
        ''' 获取继电器序号
        ''' </summary>
        ''' <param name="number"></param>
        ''' <returns></returns>
        Private Function GetRelayNumber(number As Integer, start As Boolean) As Byte()
            If start Then   '置位01
                relayNumber(number \ 4) = (relayNumber(number \ 4) And (Not (3 << ((number Mod 4) * 2)))) Or (1 << ((number Mod 4) * 2))
            Else
                relayNumber(number \ 4) = (relayNumber(number \ 4) And (Not (3 << ((number Mod 4) * 2)))) Or (2 << ((number Mod 4) * 2))
            End If

            Return relayNumber
        End Function


        ''' <summary>
        ''' 1-5路输出
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        Private Sub BtnOutput1_Click(sender As Object, e As EventArgs) Handles BtnOutput5.Click, BtnOutput4.Click, BtnOutput3.Click, BtnOutput2.Click, BtnOutput1.Click
            Dim cmd As Byte
            Dim btn As Button = sender
            Dim index As Integer = sender.tag
            Dim flg As Boolean = Not GetC12DOStatus(index)
            Dim param() As Byte = GetC12DONumber(index, flg)

            '组包
            Dim testState As Byte = &H2     '测试状态
            Dim devType As Byte = &HF1      '设备类型
            Dim devAddr As Byte = &H0       '设备地址默认为0
            Dim devCmd As Byte = &H23       '测试命令字
            Dim data() As Byte = FillTestDatabuff(testState, devType, devAddr, devCmd, param)
            Dim sendDatas() As Byte = FillPacket(cmd, data)
            Console.WriteLine($"C12输出测试：{ByteToString(sendDatas)}")

            '发送
            SendData(sendDatas)

            If flg Then
                btn.BackColor = Color.Green
            Else
                btn.BackColor = Color.Transparent
            End If
        End Sub


        ''' <summary>
        ''' 获取C12测试输出序号
        ''' </summary>
        Private C12DONumber(1) As Byte


        ''' <summary>
        ''' 获取继电器状态
        ''' </summary>
        ''' <param name="index"></param>
        ''' <returns></returns>
        Private Function GetC12DOStatus(index As Integer) As Boolean
            Dim bt As Byte = C12DONumber(index \ 4) >> ((index Mod 4) * 2) And 3
            If bt = 1 Then Return True
            Return False
        End Function


        ''' <summary>
        ''' 获取输入序号
        ''' </summary>
        ''' <param name="number"></param>
        ''' <returns></returns>
        Private Function GetC12DONumber(number As Integer, start As Boolean) As Byte()
            If start Then   '置位01
                C12DONumber(number \ 4) = (C12DONumber(number \ 4) And (Not (3 << ((number Mod 4) * 2)))) Or (1 << ((number Mod 4) * 2))
            Else            '置位10
                C12DONumber(number \ 4) = (C12DONumber(number \ 4) And (Not (3 << ((number Mod 4) * 2)))) Or (2 << ((number Mod 4) * 2))
            End If

            Return C12DONumber
        End Function


        ''' <summary>
        ''' C12输入测试
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        Private Sub BtnInputTest_Click(sender As Object, e As EventArgs) Handles BtnInputTest.Click
            Dim cmd As Byte
            Dim testState As Byte = &H1     '测试状态
            Dim devType As Byte = &HF1      '设备类型
            Dim devAddr As Byte = &H0       '设备地址默认为0
            Dim devCmd As Byte = &H3       '测试时间——3分钟
            Dim data() As Byte = FillTestDatabuff(testState, devType, devAddr, devCmd)

            '组包
            Dim sendDatas() As Byte = FillPacket(cmd, data)
            Console.WriteLine($"C12输入测试：{ByteToString(sendDatas)}")

            '发送
            SendData(sendDatas)
        End Sub


        ''' <summary>
        ''' C12音乐测试
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
            Dim cmd As Byte
            '组包
            Dim testState As Byte = &H2     '测试状态
            Dim devType As Byte = &H15      '设备类型
            Dim devAddr As Byte = &H1       '设备地址默认为0
            Dim devCmd As Byte = &H22       '测试命令字
            Dim param() As Byte = C5MusicTest()
            Dim data() As Byte = FillTestDatabuff(testState, devType, devAddr, devCmd, param)
            Dim sendDatas() As Byte = FillPacket(cmd, data)
            Console.WriteLine($"音频测试：{ByteToString(sendDatas)}")

            '发送
            SendData(sendDatas)
        End Sub


        ''' <summary>
        ''' C5测试音频播放文件下
        ''' </summary>
        Private _PlayFolder() As String = {$"{LanguageData.StringList(MultiLanguageDAL.StringEnum.MusicFolder)}",
        $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.SoundPromptFolder)}",
        $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.SleepingFolder)}",
        $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.DoorbellFolder)}",
        $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.WelcomeMessageFolder)}",
        $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.SleepAidFolder1Meditate)}",
        $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.SleepAidFolder2SeaWave)}",
        $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.SleepAidFolder3Forest)}"}


        ''' <summary>
        ''' 初始化文件夹可选项
        ''' </summary>
        Private Sub InitFolderItems()
            ComboBox10.Items.Clear()
            ComboBox10.Items.AddRange(_PlayFolder)
            If ComboBox10.Items.Count > 4 Then ComboBox10.SelectedIndex = 4

        End Sub


        ''' <summary>
        ''' C5音频测试
        ''' </summary>
        ''' <returns></returns>
        Private Function C5MusicTest()
            Dim playFolder As Byte = GetPlayFolder(ComboBox10.Text)
            Dim playFile As Byte = $"&H{Hex(NumericUpDown1.Value)}"

            Dim databuff As New List(Of Byte)
            databuff.Add(&H7)           '播放音乐状态
            databuff.Add(playFolder)    '播放音乐文件夹
            databuff.Add(playFile)      '播放音乐文件

            Return databuff.ToArray
        End Function


        ''' <summary>
        ''' 获取播放文件夹
        ''' </summary>
        ''' <param name="text"></param>
        ''' <returns></returns>
        Private Function GetPlayFolder(text As String) As Byte
            Dim palyFolder As Byte
            Select Case text
                Case $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.MusicFolder)}"
                    palyFolder = &H0
                Case $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.SoundPromptFolder)}"
                    palyFolder = &H1
                Case $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.SleepingFolder)}"
                    palyFolder = &H2
                Case $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.DoorbellFolder)}"
                    palyFolder = &H3
                Case $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.WelcomeMessageFolder)}"
                    palyFolder = &H4
                Case $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.SleepAidFolder1Meditate)}"
                    palyFolder = &H5
                Case $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.SleepAidFolder2SeaWave)}"
                    palyFolder = &H6
                Case $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.SleepAidFolder3Forest)}"
                    palyFolder = &H7
            End Select

            Return palyFolder
        End Function


        ''' <summary>
        ''' 巡回测试
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
            Label48.ForeColor = Color.Black
            Label48.Text = $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.Test)}..."
            Dim cmd As Byte
            '组包
            Dim data(0) As Byte
            data(0) = &H3
            Dim sendDatas() As Byte = FillPacket(cmd, data)
            Console.WriteLine($"C12巡回测试：{ByteToString(sendDatas)}")

            '发送
            SendData(sendDatas)
        End Sub


    ''' <summary>
    ''' C12调光
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub BtnDimming_Click(sender As Object, e As EventArgs) Handles BtnDimming.Click
        Dim frmtestc12diming As New FrmTest_C12_Dimming(FCsConfig, "V9调光")
        frmtestc12diming.ShowDialog()
    End Sub

    Public Sub ShowForm1(parentControl As Control, ftext As String) Implements IFrmTest.ShowForm1
        Throw New NotImplementedException()
    End Sub





#End Region



End Class