优化当固件版本大于43时开关机提示音和风速提示音的组包方式

BLV_Studio/FrmMain.vb

@@ -4455,7 +4455,8 @@ Public Class FrmMain
     Public _TableInteraction As TableInteraction
 
     Private Sub T_OpenfileXML_Click(sender As Object, e As EventArgs) Handles T_OpenfileXML.Click
-        If IsNothing(_ConfigInfo.Author) Then
+
+        If IsNothing(_ConfigInfo.Author) OrElse IsNothing(TvwMain.SelectedNode) Then
             MsgBox("未选中房型！！！")
             Return
         End If
@@ -4612,7 +4613,21 @@ Public Class FrmMain
                     Try
                         '填充配置信息
                         '_grdModel._ConfigInf
-                        If _TableInteraction.TableCompiletoByte(savePath, True) = True Then
+                        '获取选中房型节点
+                        Dim TrNode As TreeNode = TvwMain.SelectedNode
+                        If TrNode.Level > 1 Then
+                            TrNode = TrNode.Parent
+                        End If
+                        Dim FirmwareVer As String = TrNode.FirstNode.NextNode.NextNode.Text ' TrNode.NextVisibleNode.NextNode.Text
+                        Dim FVer As Integer = 0
+                        If Not String.IsNullOrEmpty(FirmwareVer) Then
+                            Dim Firbuf As String() = FirmwareVer.Split("_")
+                            If Firbuf.Length > 3 Then
+                                FVer = Convert.ToInt32(Firbuf(3))
+                            End If
+                        End If
+
+                        If _TableInteraction.TableCompiletoByte(FVer, savePath, True) = True Then
                             _TableInteraction.Save(savePath)  '保存配置文件
                             If IsShowCompileResult Then MsgBox($"编译完成， 配置版本号：" & _TableInteraction.ConfigInfo.CfgFileVersion)
                             Return True
@@ -4642,6 +4657,7 @@ Public Class FrmMain
 
 
     End Function
+
     Public Function fulijisuanqi()
         Dim ager As Integer = 20000
         Dim addr As Integer = 3000
@@ -4701,6 +4717,10 @@ Public Class FrmMain
 
 
     Private Sub ToolStripButton10_Click(sender As Object, e As EventArgs) Handles ToolStripButton10.Click
+        If IsNothing(TvwMain.SelectedNode) Then
+            MsgBox("请先选择一个项目节点！")
+            Return
+        End If
         Dim tmpMsgReslut As MsgBoxResult '弹出消息框的选定值
         Me.Cursor = System.Windows.Forms.Cursors.WaitCursor '光标变成漏斗状
         Try