预留服务范围改为 25-57

BLV_Studio/BLV_Studio.vbproj

@@ -35,7 +35,7 @@
     <MinimumRequiredVersion>4.0.0.5</MinimumRequiredVersion>
     <CreateWebPageOnPublish>true</CreateWebPageOnPublish>
     <WebPage>index.html</WebPage>
-    <ApplicationRevision>81</ApplicationRevision>
+    <ApplicationRevision>82</ApplicationRevision>
     <ApplicationVersion>4.4.3.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <CreateDesktopShortcut>true</CreateDesktopShortcut>

BLV_Studio/EnergySavingAttribute.vb

@@ -41,23 +41,35 @@ Public Class EnergySavingAttribute
             End If
         Next
         G_DateStr = New Dictionary(Of String, List(Of (String， String)))
-        Dim tnli As List(Of (String， String))
+        If Not String.IsNullOrEmpty(datestr) Then
-        Dim strbuf As String() = datestr.Split(vbLf)
+
-        Dim cstrbutf As String()
+            Dim tnli As List(Of (String， String))
-        For Each item In strbuf
+            Dim strbuf As String() = datestr.Split(vbLf)
-            cstrbutf = item.Trim().Split(",")
+            Dim cstrbutf As String()
-            If G_DateStr.ContainsKey(cstrbutf(2)) Then
+            For Each item In strbuf
-                tnli = G_DateStr(cstrbutf(2))
+                cstrbutf = item.Trim().Split(",")
-                tnli.Add((cstrbutf(3), cstrbutf(4)))
+                If G_DateStr.ContainsKey(cstrbutf(2)) Then
-            Else
+                    tnli = G_DateStr(cstrbutf(2))
-                tnli = New List(Of (String， String))
+                    tnli.Add((cstrbutf(3), cstrbutf(4)))
-                tnli.Add((cstrbutf(3), cstrbutf(4)))
+                Else
-                G_DateStr.Add(cstrbutf(2), tnli)
+                    tnli = New List(Of (String， String))
+                    tnli.Add((cstrbutf(3), cstrbutf(4)))
+                    G_DateStr.Add(cstrbutf(2), tnli)
+
+                End If
+            Next
+            Console.WriteLine(G_DateStr.Count)
+        Else
+            Dim tnli1 As New List(Of (String， String))
+            'tnli1.Add(("60", "全局亮度节能"))
+            Dim tnli2 As New List(Of (String， String))
+            'tnli2.Add(("1", "1"))
+            G_DateStr.Add(2, tnli1)
+            G_DateStr.Add(3, tnli2)
+        End If
+
 
-            End If
-        Next
 
-        Console.WriteLine(G_DateStr.Count)
 
 
         ' 在 InitializeComponent() 调用之后添加任何初始化。
@@ -128,9 +140,11 @@ Public Class EnergySavingAttribute
                     PowerInit.Cell(PowerInit.Rows - 1, 5).Text = G_loopNameAddr.Keys(i)
                     PowerInit.Cell(PowerInit.Rows - 1, 6).Text = "0"
                     If li.Count > 0 Then
+                        '默认勾选ta
+
                         PowerInit.Cell(PowerInit.Rows - 1, 7).Text = li(0).Item1
                     Else
-                        PowerInit.Cell(PowerInit.Rows - 1, 7).Text = "0"
+                        PowerInit.Cell(PowerInit.Rows - 1, 7).Text = "60"
                     End If
                     If Not IsNothing(dic) AndAlso dic.ContainsKey(G_loopNameAddr.Keys(i)) Then
                         ncdic = dic(G_loopNameAddr.Keys(i))
@@ -149,9 +163,10 @@ Public Class EnergySavingAttribute
                     PowerInit.Cell(PowerInit.Rows - 1, 5).Text = G_loopNameAddr.Keys(i)
                     PowerInit.Cell(PowerInit.Rows - 1, 6).Text = "0"
                     If li.Count > 0 Then
+
                         PowerInit.Cell(PowerInit.Rows - 1, 7).Text = li(0).Item1
                     Else
-                        PowerInit.Cell(PowerInit.Rows - 1, 7).Text = "0"
+                        PowerInit.Cell(PowerInit.Rows - 1, 7).Text = "60"
                     End If
                     If Not IsNothing(dic) AndAlso dic.ContainsKey(G_loopNameAddr.Keys(i)) Then
                         ncdic = dic(G_loopNameAddr.Keys(i))
@@ -170,9 +185,10 @@ Public Class EnergySavingAttribute
                     PowerInit.Cell(PowerInit.Rows - 1, 5).Text = G_loopNameAddr.Keys(i)
                     PowerInit.Cell(PowerInit.Rows - 1, 6).Text = "0"
                     If li.Count > 0 Then
+
                         PowerInit.Cell(PowerInit.Rows - 1, 7).Text = li(0).Item1
                     Else
-                        PowerInit.Cell(PowerInit.Rows - 1, 7).Text = "0"
+                        PowerInit.Cell(PowerInit.Rows - 1, 7).Text = "60"
                     End If
                     If Not IsNothing(dic) AndAlso dic.ContainsKey(G_loopNameAddr.Keys(i)) Then
                         ncdic = dic(G_loopNameAddr.Keys(i))
@@ -190,6 +206,7 @@ Public Class EnergySavingAttribute
                     RatioInit.Cell(RatioInit.Rows - 1, 4).Text = G_loopNameAddr.Values(i)
                     RatioInit.Cell(RatioInit.Rows - 1, 5).Text = G_loopNameAddr.Keys(i)
                     If li.Count > 0 Then
+
                         '取回路地址第4到6位转成int类型
                         Dim Ginttype2 As Integer = Integer.Parse(G_loopNameAddr.Keys(i).Substring(3, 3))
                         '使用linq查询li中Item2为Ginttype2的项 取其Item1
@@ -197,7 +214,7 @@ Public Class EnergySavingAttribute
 
                         RatioInit.Cell(RatioInit.Rows - 1, 9).Text = Gstr
                     Else
-                        RatioInit.Cell(RatioInit.Rows - 1, 9).Text = "0"
+                        RatioInit.Cell(RatioInit.Rows - 1, 9).Text = "1"
                     End If
                     If Not IsNothing(dic) AndAlso dic.ContainsKey(G_loopNameAddr.Keys(i)) Then
                         ncdic = dic(G_loopNameAddr.Keys(i))
@@ -537,7 +554,7 @@ Public Class EnergySavingAttribute
         Dim Tli As List(Of Dictionary(Of String, Object)) = GetRatioInitLi()
         If IsNothing(Tli) Then
             'MsgBox("上传失败")
-            Return
+            'Return
         Else
             '将tli 添加到li中
             li.AddRange(Tli)
@@ -689,10 +706,11 @@ Public Class EnergySavingAttribute
                     Return
                 End If
             Else
-                MsgBox($"第{PowerInit.Cell(e.Row, 0).Text} 行 【公路】或节能比例 数据格式不正确，请输入数字！")
+                MsgBox($"第{PowerInit.Cell(e.Row, 0).Text} 行 【功率】或节能比例 数据格式不正确，请输入数字！")
                 Return
             End If
         End If
+
     End Sub
 
     Private Sub PowerInit_ComboDropDown(Sender As Object, e As FlexCell.Grid.ComboDropDownEventArgs) Handles PowerInit.ComboDropDown
@@ -716,10 +734,11 @@ Public Class EnergySavingAttribute
                     MsgBox($"第{RatioInit.Cell(e.Row, 0).Text}行，【空调节能温差】 数据异常,【空调节能温差】数值范围为 1到15！")
                 End If
             Else
-                MsgBox($"第{RatioInit.Cell(e.Row, 0).Text}行，【空调节能温差】 数据异常！")
+                'MsgBox($"第{RatioInit.Cell(e.Row, 0).Text}行，【空调节能温差】 数据异常！")
                 Return
             End If
         End If
+
     End Sub
     Private Sub RatioInit_ComboDropDown(Sender As Object, e As FlexCell.Grid.ComboDropDownEventArgs) Handles RatioInit.ComboDropDown
         If e.Row = 0 Then Return

BLV_Studio/FrmMain.Designer.vb

@@ -1017,7 +1017,7 @@ Partial Class FrmMain
         '
         'toopMax
         '
-        Me.toopMax.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator18, Me.ToolStripButton6, Me.T_OpenfileXML, Me.ToolStripButton10, Me.ToolStripButton7, Me.ToolStripButton8, Me.ToolStripSeparator19, Me.ToolStripButton13, Me.ToolStripButton11, Me.ToolStripButton12, Me.ToolStripSeparator20, Me.ToolStripButton14, Me.ToolStripButton9, Me.ToolStripButton15, Me.ToolStripButton16, Me.ToolStripButton19, Me.ToolStripSeparator22, Me.Tablet_DeleteRow, Me.ToolStripButton3, Me.ToolStripButton5, Me.ToolStripButton18, Me.ToolStripButton21, Me.ToolStripButton22})
+        Me.toopMax.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator18, Me.ToolStripButton6, Me.T_OpenfileXML, Me.ToolStripButton10, Me.ToolStripButton7, Me.ToolStripButton8, Me.ToolStripSeparator19, Me.ToolStripButton13, Me.ToolStripButton11, Me.ToolStripButton12, Me.ToolStripSeparator20, Me.ToolStripButton14, Me.ToolStripButton9, Me.ToolStripButton15, Me.ToolStripButton16, Me.ToolStripButton19, Me.ToolStripSeparator22, Me.Tablet_DeleteRow, Me.ToolStripButton3, Me.ToolStripButton21, Me.ToolStripButton5, Me.ToolStripButton18, Me.ToolStripButton22})
         Me.toopMax.Location = New System.Drawing.Point(0, 0)
         Me.toopMax.Name = "toopMax"
         Me.toopMax.Size = New System.Drawing.Size(993, 40)

BLV_Studio/FrmMain.resx

@@ -179,7 +179,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS
-        PgAAAk1TRnQBSQFMAgEBQgEAAWgBIwFoASMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        PgAAAk1TRnQBSQFMAgEBQgEAAXABIwFwASMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARABAQIAAQEBAAEIBgABRBgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
         AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
         AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
@@ -896,6 +896,22 @@
         sHCwR+gRcoQeITf4i62BVMoGkyc9KYpsf8vUCvyQ6Fod2Ogt4svidAanNTiWSZSif3Az3jsQAuDz+2mQ
         Fo00KxyP4TbAOo9S+eRkbLk5p7Jp1riycVLYx/uAKrw2J4l6kCY2KBK/ZUJ1g1ZwWs3GdL2B0HWD8vKl
         3SH6ADQzhIhPvJ9cAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="ToolStripButton21.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZIhaytBFIX7E95fyE+Ie5VvXeOyLoEnwlDx
+        iCpDRFhXloiyRIQlYikVC1MRiAlMRSHPFKaiEBOYikAqIkZUVFSMqDjvzO7SQvvohUuGyZzvnnv3Hn0O
+        c79BVmrIicKQmcyX0DcGzd/fh1qskRUKioLkOkd2n/E3gzy/REJYgDdPv8bllWZlBf1iYF8t7JuHetYQ
+        RYqosLUbpn20XyH2cQ85zZHuBNQhZ6bItwqCrYjCI75waJcx+qMUwWUj+4isXEPOM4iHCDJkKZlBbCFm
+        FM8UWmVEEO/ZTtD4qxS226phwZ6cZIj4KFrFFOWQhavEoqou0CoiggTiPxlepkPYkxYMi9aAUS2IzwT7
+        Za6YJe9mBmploe8szwr9iYAd9Svxeppgv2vmkVzQwXxTVYzHshqcWmi4Ww3/6uHfALu1cOcSrteGGnSw
+        f7IfgPXfDVtYEmKRlwZm64AyBQjCLIU/OHie3SCC7kZ8o5HQ0fqu2Y8N6VmhYR7se0VDm57VcC7gxzF8
+        EP9i32zHPDikBMhJ3jjgguT8PDZUCoCQtGe67QriCNM/f8BwycI8xDhH1OWcesMakF8buGdf0fPghC3Y
+        g6/vCKnEHHCYSxB2fkuKJY57ogbIKZeG1CAI1dXKIJstoW4JXBikA8Hvn6N/miIeSLRP6ur6RteAEPun
+        PeLTBOKMwyLI0UE4d1ipQ1E8SN+F6bRepv9GmGywFwR256rKUTdYHiKbfyP8HJflEsfst80cjpqN+xJH
+        R/8A7hciM/ATGUcAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -929,22 +945,6 @@
         gZB5ArlLINIIYhOhidcGUlEWxpSlevamzCmv6h2AmgP7Csj1fRtBxQFU6KNZeiagbyRzj7i0XQA146DN
         upVQYYBWI1c++Nz7aO7P5twH6LWpybDwjImoZsxAzbQuNZLpxckGjIl+mYbGsKMTq8gLDGGff6x/3cBt
         dWGMsSfOezIQ200DVQAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="ToolStripButton21.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZIhaytBFIX7E95fyE+Ie5VvXeOyLoEnwlDx
-        iCpDRFhXloiyRIQlYikVC1MRiAlMRSHPFKaiEBOYikAqIkZUVFSMqDjvzO7SQvvohUuGyZzvnnv3Hn0O
-        c79BVmrIicKQmcyX0DcGzd/fh1qskRUKioLkOkd2n/E3gzy/REJYgDdPv8bllWZlBf1iYF8t7JuHetYQ
-        RYqosLUbpn20XyH2cQ85zZHuBNQhZ6bItwqCrYjCI75waJcx+qMUwWUj+4isXEPOM4iHCDJkKZlBbCFm
-        FM8UWmVEEO/ZTtD4qxS226phwZ6cZIj4KFrFFOWQhavEoqou0CoiggTiPxlepkPYkxYMi9aAUS2IzwT7
-        Za6YJe9mBmploe8szwr9iYAd9Svxeppgv2vmkVzQwXxTVYzHshqcWmi4Ww3/6uHfALu1cOcSrteGGnSw
-        f7IfgPXfDVtYEmKRlwZm64AyBQjCLIU/OHie3SCC7kZ8o5HQ0fqu2Y8N6VmhYR7se0VDm57VcC7gxzF8
-        EP9i32zHPDikBMhJ3jjgguT8PDZUCoCQtGe67QriCNM/f8BwycI8xDhH1OWcesMakF8buGdf0fPghC3Y
-        g6/vCKnEHHCYSxB2fkuKJY57ogbIKZeG1CAI1dXKIJstoW4JXBikA8Hvn6N/miIeSLRP6ur6RteAEPun
-        PeLTBOKMwyLI0UE4d1ipQ1E8SN+F6bRepv9GmGywFwR256rKUTdYHiKbfyP8HJflEsfst80cjpqN+xJH
-        R/8A7hciM/ATGUcAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="ToolStripButton22.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

BLV_Studio/FrmMain.vb

@@ -5120,10 +5120,10 @@ Public Class FrmMain
             Return
         End If
         Dim datestr As String = GetenergyConservationDev()
-        If String.IsNullOrEmpty(datestr) Then
+        'If String.IsNullOrEmpty(datestr) Then
-            MsgBox("未配置配置碳达人节能动作！")
+        '    MsgBox("未配置配置碳达人节能动作！")
-            Return
+        '    Return
-        End If
+        'End If
         Dim fromshow As New EnergySavingAttribute(aaa， roomtypeid, hotelid, Account, datestr, TvwMain.SelectedNode.Text)
 
         'fromshow.Author = Account

BLV_Studio/Test/GridTest/ServiceAttribute.vb

@@ -50,7 +50,7 @@ Public Class ServiceAttribute
         For Each node In G_hostNode.Nodes
             fustr = "服务-" & node.LoopAddr
             '2025 12 29 CZH 增加 判断服务是否是 是在25 到48 且名称符合 "服务-服务号"的格式 符合则不 添加
-            If node.LoopAddr >= 25 AndAlso node.LoopAddr <= 48 AndAlso fustr.Equals(node.Name) Then ' 
+            If node.LoopAddr >= 25 AndAlso node.LoopAddr <= 57 AndAlso fustr.Equals(node.Name) Then ' 
                 Continue For
             End If
             Dic_1.Add($"{node.LoopAddr}:{node.Name }")