398 lines
14 KiB
VB.net
398 lines
14 KiB
VB.net
|
Imports System.ComponentModel
|
|||
|
|
Imports BLV_Studio.EnumExtend
|
|||
|
|
Imports FlexCell
|
|||
|
|
|
|||
|
|
Public Class ServiceAttribute
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public G_hostNode As DeviceChildNodeClass
|
|||
|
|
|
|||
|
|
Public G_input As String
|
|||
|
|
|
|||
|
|
Private g_dicComboBox1 As Dictionary(Of String, String)
|
|||
|
|
|
|||
|
|
Public G_result As String
|
|||
|
|
Enum STcolname
|
|||
|
|
<Description("Input number")>
|
|||
|
|
行号 = 0
|
|||
|
|
<Description("Device alias")>
|
|||
|
|
延时
|
|||
|
|
<Description("backlight")>
|
|||
|
|
单位
|
|||
|
|
<Description("Open mode")>
|
|||
|
|
打开方式
|
|||
|
|
<Description("Service type")>
|
|||
|
|
服务类型
|
|||
|
|
<Description("Display service")>
|
|||
|
|
显示服务
|
|||
|
|
max
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Dic_1, Dic_2, Dic_3, Dic_4 As List(Of String）
|
|||
|
|
Private Sub ServiceAttribute_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|||
|
|
InitTable()
|
|||
|
|
If IsNothing（G_hostNode） Then
|
|||
|
|
MsgBox("未选择主机，请先选择主机再进行配置！")
|
|||
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
|||
|
|
Me.Close()
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
'服务方式
|
|||
|
|
Dic_1 = New List(Of String)
|
|||
|
|
'执行方式
|
|||
|
|
Dic_2 = New List(Of String)
|
|||
|
|
'时间
|
|||
|
|
Dic_3 = New List(Of String)
|
|||
|
|
'单位
|
|||
|
|
Dic_4 = New List(Of String)
|
|||
|
|
|
|||
|
|
For Each node In G_hostNode.Nodes
|
|||
|
|
Dic_1.Add($"{node.LoopAddr}:{node.Name }")
|
|||
|
|
Next
|
|||
|
|
Dic_2.AddRange({"2:close", "1:open"})
|
|||
|
|
For i = 0 To 255
|
|||
|
|
Dic_3.Add(i)
|
|||
|
|
Next
|
|||
|
|
Dic_4.AddRange({"ms", "s", "m", "H", "Day"})
|
|||
|
|
LoadInputText(G_input)
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
Public Shared Function CheckDataIsOk(datastr As String, hostNode As DeviceChildNodeClass) As Boolean
|
|||
|
|
If String.IsNullOrEmpty(datastr) Then Return True
|
|||
|
|
Dim buff() As String = datastr.Split(vbLf)
|
|||
|
|
Dim isok As Boolean
|
|||
|
|
For Each index In buff
|
|||
|
|
isok = False
|
|||
|
|
|
|||
|
|
Dim buf() As String = index.Split(",")
|
|||
|
|
If buf.Length <> 5 Then Return False
|
|||
|
|
Dim intbuf(3) As Integer
|
|||
|
|
If Not （Integer.TryParse(buf(0), intbuf(0)) And Integer.TryParse(buf(1), intbuf(1)) And Integer.TryParse(buf(2), intbuf(2)) And Integer.TryParse(buf(3), intbuf(3))） Then Return False
|
|||
|
|
If IsNothing(hostNode) Then Return False
|
|||
|
|
For Each node In hostNode.Nodes
|
|||
|
|
If node.LoopAddr.Equals(intbuf(0).ToString) Then
|
|||
|
|
isok = True
|
|||
|
|
If intbuf(1) = 2 OrElse intbuf(1) = 1 Then
|
|||
|
|
If intbuf(2) >= 0 OrElse intbuf(2) <= 255 Then
|
|||
|
|
If intbuf(3) >= 1 OrElse intbuf(3) <= 5 Then
|
|||
|
|
Exit For
|
|||
|
|
End If
|
|||
|
|
Return False
|
|||
|
|
End If
|
|||
|
|
Return False
|
|||
|
|
End If
|
|||
|
|
Return False
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
If isok Then
|
|||
|
|
Continue For
|
|||
|
|
End If
|
|||
|
|
Return False
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
Return True
|
|||
|
|
End Function
|
|||
|
|
Public Shared Function Getservername(datastr As String, hostNode As DeviceChildNodeClass) As String
|
|||
|
|
Dim result As String = String.Empty
|
|||
|
|
For Each node In hostNode.Nodes
|
|||
|
|
If node.LoopAddr.Equals(datastr) Then
|
|||
|
|
Return node.Name
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
Return result
|
|||
|
|
End Function
|
|||
|
|
Private Sub LoadInputText(inputstr As String)
|
|||
|
|
If String.IsNullOrEmpty(inputstr) Then Return
|
|||
|
|
Dim buff() As String = inputstr.Split(vbLf)
|
|||
|
|
Dim C1, C2, C3, C4 As String
|
|||
|
|
|
|||
|
|
For Each index In buff
|
|||
|
|
C1 = String.Empty
|
|||
|
|
C2 = String.Empty
|
|||
|
|
C3 = String.Empty
|
|||
|
|
C4 = String.Empty
|
|||
|
|
Table_Grid1.AddItem("")
|
|||
|
|
|
|||
|
|
|
|||
|
|
Dim buf() As String = index.Split(",")
|
|||
|
|
If buf.Length > 0 Then
|
|||
|
|
For i As Integer = 0 To Dic_1.Count - 1
|
|||
|
|
If Dic_1(i).ToString.Contains(buf（0）) Then
|
|||
|
|
C1 = Dic_1(i)
|
|||
|
|
Table_Grid1.Cell(Table_Grid1.Rows - 1, STcolname.服务类型).Text = C1
|
|||
|
|
Exit For
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
End If
|
|||
|
|
If buf.Length > 1 Then
|
|||
|
|
For i As Integer = 0 To Dic_2.Count - 1
|
|||
|
|
If Dic_2(i).ToString.Contains(buf（1）) Then
|
|||
|
|
C2 = Dic_2(i)
|
|||
|
|
Table_Grid1.Cell(Table_Grid1.Rows - 1, STcolname.打开方式).Text = C2
|
|||
|
|
Exit For
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
End If
|
|||
|
|
If buf.Length > 2 Then
|
|||
|
|
For i As Integer = 0 To Dic_3.Count - 1
|
|||
|
|
If Dic_3(i).ToString.Contains(buf（2）) Then
|
|||
|
|
C3 = Dic_3(i)
|
|||
|
|
Table_Grid1.Cell(Table_Grid1.Rows - 1, STcolname.延时).Text = C3
|
|||
|
|
Exit For
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
End If
|
|||
|
|
If buf.Length > 3 Then
|
|||
|
|
Dim cbuf As String = FGetDelayUnit(buf（3）)
|
|||
|
|
For i As Integer = 0 To Dic_4.Count - 1
|
|||
|
|
If Dic_4(i).ToString.Equals(cbuf) Then
|
|||
|
|
C4 = cbuf
|
|||
|
|
Table_Grid1.Cell(Table_Grid1.Rows - 1, STcolname.单位).Text = C4
|
|||
|
|
Exit For
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If String.IsNullOrEmpty(C1) OrElse String.IsNullOrEmpty(C2) OrElse String.IsNullOrEmpty(C3) OrElse String.IsNullOrEmpty(C4) Then
|
|||
|
|
If String.IsNullOrEmpty(C1) Then
|
|||
|
|
Table_Grid1.Range(Table_Grid1.Rows - 1, STcolname.服务类型, Table_Grid1.Rows - 1, STcolname.服务类型).BackColor = Color.OrangeRed
|
|||
|
|
ElseIf String.IsNullOrEmpty(C2) Then
|
|||
|
|
Table_Grid1.Range(Table_Grid1.Rows - 1, STcolname.打开方式, Table_Grid1.Rows - 1, STcolname.打开方式).BackColor = Color.OrangeRed
|
|||
|
|
ElseIf String.IsNullOrEmpty(C3) Then
|
|||
|
|
Table_Grid1.Range(Table_Grid1.Rows - 1, STcolname.延时, Table_Grid1.Rows - 1, STcolname.延时).BackColor = Color.OrangeRed
|
|||
|
|
ElseIf String.IsNullOrEmpty(C4) Then
|
|||
|
|
Table_Grid1.Range(Table_Grid1.Rows - 1, STcolname.单位, Table_Grid1.Rows - 1, STcolname.单位).BackColor = Color.OrangeRed
|
|||
|
|
End If
|
|||
|
|
Continue For
|
|||
|
|
Else
|
|||
|
|
Table_Grid1.Range(Table_Grid1.Rows - 1, 0, Table_Grid1.Rows - 1, STcolname.服务类型).BackColor = Color.White
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Function showSelectedIndexVal(c1 As String, c2 As String, c3 As String, c4 As String, c5 As String) As String
|
|||
|
|
Dim reslit As String = String.Empty
|
|||
|
|
Dim strbuf1() As String = c1.Split(":")
|
|||
|
|
Dim strbuf2（） As String = c2.Split(":")
|
|||
|
|
Dim t As String = GetDelayUnit(c4)
|
|||
|
|
reslit = $"{strbuf1(0)},{strbuf2(0)},{c3},{t},{c5}"
|
|||
|
|
Return reslit
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|||
|
|
G_result = String.Empty
|
|||
|
|
Dim indexstr As String = String.Empty
|
|||
|
|
Dim C1, C2, C3, C5, C4 As String
|
|||
|
|
For i = 1 To Table_Grid1.Rows - 1
|
|||
|
|
C1 = Table_Grid1.Cell(i, STcolname.服务类型).Text.Trim
|
|||
|
|
C2 = Table_Grid1.Cell(i, STcolname.打开方式).Text.Trim
|
|||
|
|
C3 = Table_Grid1.Cell(i, STcolname.延时).Text.Trim
|
|||
|
|
C4 = Table_Grid1.Cell(i, STcolname.单位).Text.Trim
|
|||
|
|
C5 = Table_Grid1.Cell(i, STcolname.显示服务).Text.Trim
|
|||
|
|
If String.IsNullOrEmpty(C1) OrElse String.IsNullOrEmpty(C2) OrElse String.IsNullOrEmpty(C3) OrElse String.IsNullOrEmpty(C4) Then
|
|||
|
|
MsgBox($"添加服务数据异常,行号:{i}")
|
|||
|
|
If String.IsNullOrEmpty(C1) Then
|
|||
|
|
Table_Grid1.Range(i, STcolname.服务类型, i, STcolname.服务类型).BackColor = Color.OrangeRed
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
If String.IsNullOrEmpty(C2) Then
|
|||
|
|
Table_Grid1.Range(i, STcolname.打开方式, i, STcolname.打开方式).BackColor = Color.OrangeRed
|
|||
|
|
End If
|
|||
|
|
If String.IsNullOrEmpty(C3) Then
|
|||
|
|
Table_Grid1.Range(i, STcolname.延时, i, STcolname.延时).BackColor = Color.OrangeRed
|
|||
|
|
End If
|
|||
|
|
If String.IsNullOrEmpty(C4) Then
|
|||
|
|
Table_Grid1.Range(i, STcolname.单位, i, STcolname.单位).BackColor = Color.OrangeRed
|
|||
|
|
End If
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
indexstr = showSelectedIndexVal(C1, C2, C3, C4, C5)
|
|||
|
|
G_result = $"{G_result}{vbLf }{indexstr}"
|
|||
|
|
Next
|
|||
|
|
G_result = G_result.Trim
|
|||
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
|||
|
|
Me.Close()
|
|||
|
|
Return
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Function GetDelayUnit(str As String) As String
|
|||
|
|
Dim result As Integer
|
|||
|
|
Select Case str
|
|||
|
|
Case "ms"
|
|||
|
|
result = 1
|
|||
|
|
Case "s"
|
|||
|
|
result = 2
|
|||
|
|
Case "m"
|
|||
|
|
result = 3
|
|||
|
|
Case "H"
|
|||
|
|
result = 4
|
|||
|
|
Case "Day"
|
|||
|
|
result = 5
|
|||
|
|
Case Else
|
|||
|
|
result = 1
|
|||
|
|
End Select
|
|||
|
|
|
|||
|
|
Return result.ToString
|
|||
|
|
End Function
|
|||
|
|
Private Function FGetDelayUnit(str As String) As String
|
|||
|
|
Dim result As String = String.Empty
|
|||
|
|
Select Case str
|
|||
|
|
Case "1"
|
|||
|
|
result = "ms"
|
|||
|
|
Case "2"
|
|||
|
|
result = "s"
|
|||
|
|
Case "3"
|
|||
|
|
result = "m"
|
|||
|
|
Case "4"
|
|||
|
|
result = "H"
|
|||
|
|
Case "5"
|
|||
|
|
result = "Day"
|
|||
|
|
Case Else
|
|||
|
|
|
|||
|
|
End Select
|
|||
|
|
|
|||
|
|
Return result.ToString
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|||
|
|
Table_Grid1.AddItem("")
|
|||
|
|
Table_Grid1.Cell(Table_Grid1.Rows - 1, STcolname.延时).Text = "0"
|
|||
|
|
Table_Grid1.Cell(Table_Grid1.Rows - 1, STcolname.单位).Text = "ms"
|
|||
|
|
Table_Grid1.Cell(Table_Grid1.Rows - 1, STcolname.打开方式).Text = "1:Open"
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Table_Grid1_CellChange(Sender As Object, e As Grid.CellChangeEventArgs) Handles Table_Grid1.CellChange
|
|||
|
|
If e.Row > 0 Then
|
|||
|
|
|
|||
|
|
If e.Col = STcolname.延时 Then
|
|||
|
|
If String.IsNullOrEmpty(Table_Grid1.Cell(e.Row, e.Col).Text) Then
|
|||
|
|
Table_Grid1.Cell(e.Row, e.Col).Text = 0
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
For Each node In Dic_3
|
|||
|
|
If node.Equals(Table_Grid1.Cell(e.Row, e.Col).Text) Then
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
Table_Grid1.Cell(e.Row, e.Col).Text = 0
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
If String.IsNullOrEmpty(Table_Grid1.Cell(e.Row, e.Col).Text) Then Return
|
|||
|
|
Table_Grid1.Cell(e.Row, e.Col).BackColor = Color.White
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub InitTable()
|
|||
|
|
Table_Grid1.Rows = 1
|
|||
|
|
Table_Grid1.Cols = STcolname.max
|
|||
|
|
Table_Grid1.ExtendLastCol = True
|
|||
|
|
For i = 0 To STcolname.max - 1
|
|||
|
|
Dim colorValue As STcolname = CType([Enum].Parse(GetType(STcolname), i), STcolname）
|
|||
|
|
Table_Grid1.Cell(0, i).Text = EnumExtender.GetEnumDescription(colorValue) ' [Enum].GetName(GetType(STcolname), i)
|
|||
|
|
Select Case i
|
|||
|
|
Case STcolname.行号
|
|||
|
|
With Table_Grid1.Column(i)
|
|||
|
|
.Width = 50
|
|||
|
|
'.Visible = True
|
|||
|
|
.Locked = True
|
|||
|
|
End With
|
|||
|
|
Case STcolname.延时
|
|||
|
|
With Table_Grid1.Column(i)
|
|||
|
|
.Width = 50
|
|||
|
|
.Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|||
|
|
.CellType = CellTypeEnum.ComboBox
|
|||
|
|
End With
|
|||
|
|
'Table_Grid1.ComboBox(i).Locked = True
|
|||
|
|
Case STcolname.单位
|
|||
|
|
With Table_Grid1.Column(i)
|
|||
|
|
.Width = 50
|
|||
|
|
.Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|||
|
|
.CellType = CellTypeEnum.ComboBox
|
|||
|
|
End With
|
|||
|
|
Table_Grid1.ComboBox(i).Locked = True
|
|||
|
|
Case STcolname.打开方式
|
|||
|
|
With Table_Grid1.Column(i)
|
|||
|
|
.Width = 80
|
|||
|
|
.Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|||
|
|
.CellType = CellTypeEnum.ComboBox
|
|||
|
|
End With
|
|||
|
|
Table_Grid1.ComboBox(i).Locked = True
|
|||
|
|
Case STcolname.服务类型
|
|||
|
|
With Table_Grid1.Column(i)
|
|||
|
|
.Width = 180
|
|||
|
|
.Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|||
|
|
.CellType = CellTypeEnum.ComboBox
|
|||
|
|
End With
|
|||
|
|
Table_Grid1.ComboBox(i).Locked = True
|
|||
|
|
Case STcolname.显示服务
|
|||
|
|
With Table_Grid1.Column(i)
|
|||
|
|
.Width = 30
|
|||
|
|
.Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|||
|
|
.CellType = CellTypeEnum.CheckBox
|
|||
|
|
End With
|
|||
|
|
|
|||
|
|
Case Else
|
|||
|
|
Exit For
|
|||
|
|
End Select
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|||
|
|
If Table_Grid1.ActiveCell.Row > 0 Then
|
|||
|
|
Table_Grid1.Row(Table_Grid1.ActiveCell.Row).Delete()
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Table_Grid1_ComboDropDown(Sender As Object, e As Grid.ComboDropDownEventArgs) Handles Table_Grid1.ComboDropDown
|
|||
|
|
If e.Row > 0 Then
|
|||
|
|
Table_Grid1.ComboBox(e.Col).Items.Clear()
|
|||
|
|
|
|||
|
|
Select Case e.Col
|
|||
|
|
Case STcolname.行号
|
|||
|
|
Return
|
|||
|
|
Case STcolname.延时
|
|||
|
|
Table_Grid1.ComboBox(e.Col).Items.AddRange(Dic_3.ToArray)
|
|||
|
|
Case STcolname.单位
|
|||
|
|
Table_Grid1.ComboBox(e.Col).Items.AddRange(Dic_4.ToArray)
|
|||
|
|
Case STcolname.打开方式
|
|||
|
|
Table_Grid1.ComboBox(e.Col).Items.AddRange(Dic_2.ToArray)
|
|||
|
|
Case STcolname.服务类型
|
|||
|
|
Table_Grid1.ComboBox(e.Col).Items.AddRange(Dic_1.ToArray)
|
|||
|
|
Case Else
|
|||
|
|
|
|||
|
|
End Select
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
End Class
|