Boonlive_RD_Web/Desktop_BLVStudio
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

修正温控提示音组包开关位取值和增加上传设备列表密码输入框

Browse Source
This commit is contained in:
chenzhihao
2026-03-12 14:17:33 +08:00
parent fea9bbfc0d
commit 58ee52f088
2 changed files with 26 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
BLV_Studio/Test/GridTest/TableInteraction.vb
View File

@@ -4268,16 +4268,21 @@ Public Class TableInteraction
If FVer >67 Then
Dim btxtr As string
Dim bctr As Integer=32
Dim bctr As Integer=48
If checkbuf(1).Equals("1") Then
bctr=bctr or (1<<2)
bctr=bctr or (1<<4)
bctr=bctr or (1<<2)
bctr=bctr And Not (1 << 4)
End If
If checkbuf(3).Equals("1") Then
bctr=bctr or (1<<3)
bctr=bctr or (1<<4)
End If
bctr=bctr And Not (1 << 4)
End If
If bctr And (1<<4) Then
bctr=bctr or (1<<2)
bctr=bctr or (1<<3)
Else
End If
btxtr= $"0,2,0,2,1,0,0"
dim btxli As Byte()= GetActionData(DeviceModuleDic, DevName, "Temp", 1, btxtr)
btxli(5) = bctr
@@ -4356,12 +4361,19 @@ Public Class TableInteraction
Dim bctr As Integer=32
If checkbuf(1).Equals("1") Then
bctr=bctr or (1<<2)
bctr=bctr or (1<<4)
bctr=bctr And Not (1 << 4)
End If
If checkbuf(3).Equals("1") Then
bctr=bctr or (1<<3)
bctr=bctr or (1<<4)
End If
bctr=bctr And Not (1 << 4)
End If
If bctr And (1<<4) Then
bctr=bctr or (1<<2)
bctr=bctr or (1<<3)
Else
End If
btxtr= $"0,2,0,2,1,0,0"
dim btxli As Byte()= GetActionData(DeviceModuleDic, DevName, "Temp", 1, btxtr)