空调增加自动风勾选框

BLV_Studio/Test/GridTest/TableInteraction.vb

@@ -4573,6 +4573,10 @@ Public Class TableInteraction
                             Dbuf = dic.Item([Enum].GetName(GetType(AddPeripherals.Temproweven), AddPeripherals.Temproweven.风高)).Trim.Split("*")
                             ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnDrown).ToString))
                     End Select
+                     If checkbuf.Length>3 AndAlso checkbuf(4).Equals("1") Then   'czh 260110 在高风速时增加设置为自动风
+                         ncbuf.Add(GetActionData(DeviceModuleDic, DevName, "Temp", 1, "0,2,0,0,0,0,0"))
+                     End If
+                   
                 Case 10 '风速高
                     UShort.TryParse(6152, strEventNum)
                     eventNum = BitConverter.GetBytes(strEventNum)
@@ -4592,6 +4596,9 @@ Public Class TableInteraction
                             Dbuf = dic.Item([Enum].GetName(GetType(AddPeripherals.Temproweven), AddPeripherals.Temproweven.风高)).Trim.Split("*")
                             ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), Dbuf(2), Dbuf(1), Chr(TableColSwitchKeyDate.TurnOn).ToString))
                     End Select
+                      If checkbuf.Length>3 AndAlso checkbuf(4).Equals("1") Then   'czh 260110 在高风速时增加设置为自动风
+                         ncbuf.Add(GetActionData(DeviceModuleDic, DevName, "Temp", 1, "0,2,0,0,0,0,0"))
+                     End If
                 Case 11 '控制
                     UShort.TryParse(30, strEventNum)
                     eventNum = BitConverter.GetBytes(strEventNum)