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

修复温控提示音的比较数值

Browse Source
This commit is contained in:
chenzhihao
2026-03-10 16:54:19 +08:00
parent f0f0f74e2f
commit c71ae86a57
3 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
BLV_Studio/FrmMain.vb
View File

@@ -4852,15 +4852,13 @@ Public Class FrmMain
If TrNode.Level > 1 Then
TrNode = TrNode.Parent
End If
Dim FirmwareVer As String = TrNode.FirstNode.NextNode.NextNode.Text ' TrNode.NextVisibleNode.NextNode.Text
Dim FirmwareVer As String = TrNode.FirstNode.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
If Firbuf.Length > 1 Then
'将Firbuf(3)十六进制字符串转换为十进制
FVer = Convert.ToInt32(Firbuf(3), 16)
FVer = Convert.ToInt32(Firbuf(0))
End If
End If
UploadDeviceList(FVer)
@@ -4966,12 +4964,13 @@ Public Class FrmMain
If TrNode.Level > 1 Then
TrNode = TrNode.Parent
End If
Dim FirmwareVer As String = TrNode.FirstNode.NextNode.NextNode.Text ' TrNode.NextVisibleNode.NextNode.Text
Dim FirmwareVer As String = TrNode.FirstNode.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), 16)
If Firbuf.Length > 1 Then
'将Firbuf(3)十六进制字符串转换为十进制
FVer = Convert.ToInt32(Firbuf(0))
End If
End If
UploadDeviceList1(FVer)

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

@@ -4303,7 +4303,7 @@ Public Class TableInteraction
Dbuf = dic.Item(GetDescriptionOriginal（AddPeripherals.Temproweven.互锁)).Trim.Split("*")
ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), "Temp", Dbuf(1), "0,1,1,1,1,1,16"))
End If
If FVer >43 Then
If FVer >67 Then
Dim btxtr As string
Dim bctr As Integer=32
@@ -4386,7 +4386,7 @@ Public Class TableInteraction
ncbuf.Add(GetActionData(DeviceModuleDic, Dbuf(0), "Temp", Dbuf(1), "0,1,1,1,1,1,16"))
End If
If FVer >43 Then
If FVer >67 Then
Dim btxtr As string
Dim bctr As Integer=32