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-04 16:14:51 +08:00
parent fe04c79327
commit 0bf7fdecf4
1 changed files with 83 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -609,8 +609,8 @@ Public Class TableInteraction
ShowRelay(from1.Resultmodel, from1.ResulDic) ShowRelay(from1.Resultmodel, from1.ResulDic)
Grid_Click(Nothing, Nothing) Grid_Click(Nothing, Nothing)
For Each index In from1.Resultmodel.Nodes For Each index In from1.Resultmodel.Nodes
If index.Interface.Equals("DI") AndAlso (index.DEV_TYPE_DATA.Equals("10") OrElse index.DEV_TYPE_DATA.Equals("24")) Then If index.Interface.Equals("DI") AndAlso (index.DEV_TYPE_DATA.Equals("10") OrElse index.DEV_TYPE_DATA.Equals("24") OrElse index.DEV_TYPE_DATA.Equals("46")) Then
SpecifySetting(from1.Resultmodel.Name, "") SpecifySetting(from1.Resultmodel.Name,index.DEV_TYPE_DATA)
End If End If
Next Next
@@ -2210,45 +2210,100 @@ Public Class TableInteraction
Public Sub SpecifySetting(devname As String, cand As String) Public Sub SpecifySetting(devname As String, cand As String)
Dim srowid As CtabRange = GetRowDevNametabRange(devname, TableColNumber.DeviceName) Dim srowid As CtabRange = GetRowDevNametabRange(devname, TableColNumber.DeviceName)
If IsNothing(srowid) Then Return If IsNothing(srowid) Then Return
For i = srowid.fr To srowid.lr Dim nuindex = 0
'If i = srowid.fr Then Dim tagdic As Dictionary(Of String, String) = New Dictionary(Of String, String)()
tagdic.Add("50 Adjustable Lower limit Settings (0-100)", 10)
tagdic.Add("49 Adjustable Upper limit Settings (0-100)", 90)
tagdic.Add("48 Host dimming percentage (0-100)", 90)
tagdic.Add("32 1-10V Dimming gradient time", 21)
tagdic.Add("33 A9 Constant voltage dimming gradient time", 21)
tagdic.Add("34 A9PB Dimming gradient time", 21)
tagdic.Add("35 C12 Dimming gradient time", 21)
tagdic.Add("36 Dimming gradient time of light strip", 21)
tagdic.Add("C8PLC comes with constant pressure dimming gradient time", 21)
tagdic.Add("C8PLC peripheral constant voltage dimming gradient time", 21)
tagdic.Add("7 Set music volume", 6)
tagdic.Add("8 Set prompt sound volume", 6)
tagdic.Add("9 Set doorbell and welcome message volume", 6)
tagdic.Add("12 Set sleep aid volume", 6)
tagdic.Add("10 Set global volume limit", 6)
'End If For i = srowid.fr To srowid.lr
Select Case _grd.Cell(i, TableColNumber.KeyName).Text
Dim rowindex = i + nuindex
Dim datastr As String = _grd.Cell(rowindex, TableColNumber.KeyName).Text.Trim
If rowindex = 7 Then
_grd.Cell(rowindex, TableColNumber.SceneAttribute).Tag = JsonConvert.SerializeObject(tagdic)
End If
Select Case datastr
Case "Insert card" Case "Insert card"
_grd.Range(i, TableColNumber.KeyName, i, TableColNumber.KeyName).SelectCells() _grd.Cell(rowindex, TableColNumber.ServerAttribute).Text = "1,1,0,1,"
AddSceneLine("Insert card") _grd.Range(rowindex, TableColNumber.KeyName, rowindex, TableColNumber.KeyName).SelectCells()
_grd.Cell(i + 1, TableColNumber.KeyName).Text = "pull out"
'Console.WriteLine(_grd.Cell(i + 1, TableColNumber.SceneAttribute).Text) If cand.Equals("46") Then
If _grd.Cell(i + 1, TableColNumber.SceneAttribute).Text.Contains("1365,1") Then AddSceneLine("Insert card")
_grd.Cell(i + 1, TableColNumber.SceneAttribute).Text = "2730,1,1152921504606846976" AddSceneLine("Insert card")
AddSceneLine("Insert card")
_grd.Cell(rowindex + 1, TableColNumber.KeyName).Text = "KeyLeft"
_grd.Cell(rowindex + 1, TableColNumber.ServerAttribute).Text = "1,1,0,1,"
_grd.Cell(rowindex + 1, TableColNumber.SceneAttribute).Text = "6,1,1152921504606846976"
nuindex = nuindex + 1
_grd.Cell(rowindex + 2, TableColNumber.KeyName).Text = "NoKeyLeft"
_grd.Cell(rowindex + 2, TableColNumber.ServerAttribute).Text = "1,2,1,2,"
_grd.Cell(rowindex + 2, TableColNumber.SceneAttribute).Text = "2,1,1152921504606846976"
nuindex = nuindex + 1
_grd.Cell(rowindex + 3, TableColNumber.KeyName).Text = "pull out"
_grd.Cell(rowindex +3, TableColNumber.ServerAttribute).Text = "1,2,1,2,"
_grd.Cell(rowindex + 3, TableColNumber.SceneAttribute).Text = "3,1,1152921504606846976"
nuindex = nuindex + 1
Else Else
_grd.Cell(i + 1, TableColNumber.SceneAttribute).Text = "2,1,1152921504606846976" AddSceneLine("Insert card")
_grd.Cell(rowindex + 1, TableColNumber.KeyName).Text = "pull out"
_grd.Cell(rowindex + 1, TableColNumber.ServerAttribute).Text = "1,2,1,2,"
'Console.WriteLine(_grd.Cell(i + 1, TableColNumber.SceneAttribute).Text)
If _grd.Cell(rowindex + 1, TableColNumber.SceneAttribute).Text.Contains("1365,1") Then
_grd.Cell(rowindex + 1, TableColNumber.SceneAttribute).Text = "2730,1,1152921504606846976"
Else
_grd.Cell(rowindex + 1, TableColNumber.SceneAttribute).Text = "2,1,1152921504606846976"
End If End If
i = i + 1 nuindex = nuindex + 1
End If
Case "door bell" Case "door bell"
_grd.Cell(i, TableColNumber.SceneAttribute).Text = "1,1,1152921504606847520" _grd.Cell(rowindex, TableColNumber.SceneAttribute).Text = "1,1,1152921504606847520"
Case "SOS pressed" Case "SOS pressed"
_grd.Range(i, TableColNumber.KeyName, i, TableColNumber.KeyName).SelectCells() _grd.Range(rowindex, TableColNumber.KeyName, rowindex, TableColNumber.KeyName).SelectCells()
_grd.Cell(rowindex, TableColNumber.ServerAttribute).Text = "8,1,0,1,"
AddSceneLine("SOS pressed") AddSceneLine("SOS pressed")
_grd.Cell(i + 1, TableColNumber.KeyName).Text = "SOS release" _grd.Cell(rowindex + 1, TableColNumber.ServerAttribute).Text = "8,2,0,1,"
_grd.Cell(i + 1, TableColNumber.SceneAttribute).Text = "2,1,1152921504606846976" _grd.Cell(rowindex + 1, TableColNumber.KeyName).Text = "SOS release"
i = i + 1 _grd.Cell(rowindex + 1, TableColNumber.SceneAttribute).Text = "2,1,1152921504606846976"
nuindex = nuindex + 1
Case "Open door contact" Case "Open door contact"
_grd.Range(i, TableColNumber.KeyName, i, TableColNumber.KeyName).SelectCells() _grd.Range(rowindex, TableColNumber.KeyName, rowindex, TableColNumber.KeyName).SelectCells()
_grd.Cell(rowindex, TableColNumber.ServerAttribute).Text = "13,1,0,1,"
AddSceneLine("Open door contact") AddSceneLine("Open door contact")
_grd.Cell(i + 1, TableColNumber.KeyName).Text = "Close door contact" _grd.Cell(rowindex + 1, TableColNumber.ServerAttribute).Text = "13,2,0,1,"
_grd.Cell(i, TableColNumber.SceneAttribute).Text = "2,1,1152921504606846976" _grd.Cell(rowindex + 1, TableColNumber.KeyName).Text = "Close door contact"
i = i + 1 _grd.Cell(rowindex, TableColNumber.SceneAttribute).Text = "2,1,1152921504606846976"
nuindex = nuindex + 1
Case Else Case Else
If _grd.Cell(i, TableColNumber.KeyName).Text.Contains("Sliding bar") Then If _grd.Cell(rowindex, TableColNumber.KeyName).Text.Contains("Sliding bar") Then
_grd.Range(i, TableColNumber.KeyName, i, TableColNumber.KeyName).SelectCells() _grd.Range(rowindex, TableColNumber.KeyName, rowindex, TableColNumber.KeyName).SelectCells()
AddSceneLine("Right sliding") AddSceneLine("Right sliding")
_grd.Cell(i + 1, TableColNumber.KeyName).Text = "Left sliding" _grd.Cell(rowindex + 1, TableColNumber.KeyName).Text = "Left sliding"
_grd.Cell(i + 1, TableColNumber.SceneAttribute).Text = "1,1,1152921504606847008" _grd.Cell(rowindex + 1, TableColNumber.SceneAttribute).Text = "1,1,1152921504606847008"
i = i + 1 nuindex = nuindex + 1
End If End If
End Select End Select