834 lines
33 KiB
VB.net
834 lines
33 KiB
VB.net
|
Imports System.Text
|
|||
|
|
Imports BLV_Studio.GridModel.DeviceEventModel
|
|||
|
|
Imports FlexCell
|
|||
|
|
|
|||
|
|
Public Class TestForm1
|
|||
|
|
|
|||
|
|
Enum ComboDropDownON
|
|||
|
|
LightingCircuit = 1
|
|||
|
|
LightingCircuit0
|
|||
|
|
LightingCircuit1
|
|||
|
|
LightingCircuit2
|
|||
|
|
KeyDev
|
|||
|
|
max
|
|||
|
|
End Enum
|
|||
|
|
Enum ComboDropDownCol
|
|||
|
|
devFile = 1
|
|||
|
|
Keyval
|
|||
|
|
keyName
|
|||
|
|
music
|
|||
|
|
空改1
|
|||
|
|
空改2
|
|||
|
|
空改3
|
|||
|
|
空改4
|
|||
|
|
max
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
Enum CellDrop
|
|||
|
|
|
|||
|
|
TurnOn = -24116
|
|||
|
|
TurnDrown = -23592
|
|||
|
|
表示先开后关 = -24080
|
|||
|
|
代表先关后开 = -24075
|
|||
|
|
'代表调光上 = -23637
|
|||
|
|
'代表调光下降 = -23635
|
|||
|
|
|
|||
|
|
End Enum
|
|||
|
|
Public configInfo As ConfigInfoStuct
|
|||
|
|
Public basicClass As DeviceObjectClasses
|
|||
|
|
Private Sub TestForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|||
|
|
|
|||
|
|
|
|||
|
|
Dim tmpRcuModelFile As String
|
|||
|
|
Using dlg As New OpenFileDialog
|
|||
|
|
dlg.InitialDirectory = HostDevFNP
|
|||
|
|
dlg.Title = "请选择 RCU 模型文件！"
|
|||
|
|
dlg.Filter = "RCU模型信息(*.xml)|*.xml"
|
|||
|
|
If dlg.ShowDialog <> DialogResult.OK Then
|
|||
|
|
MsgBox("未选择 RCU 模型文件！")
|
|||
|
|
Me.Close()
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
tmpRcuModelFile = dlg.FileName
|
|||
|
|
End Using
|
|||
|
|
initGrid1()
|
|||
|
|
DevModeInserfilag = 0
|
|||
|
|
DeviceModuleDic = New Dictionary(Of String, DeviceModel)
|
|||
|
|
SwitchConfig = New Dictionary(Of String, Dictionary(Of Integer, String))
|
|||
|
|
DeleteDevmodedic = New List(Of DeleteDevmodeclass)
|
|||
|
|
AddHostDeviceModule(tmpRcuModelFile)
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public DevModeInserfilag As Integer = 0
|
|||
|
|
Public Sub initGrid1()
|
|||
|
|
Grid1.NewFile()
|
|||
|
|
Grid1.Cols = ComboDropDownCol.max
|
|||
|
|
Grid1.Rows = 1
|
|||
|
|
Grid1.Column(0).Visible = False
|
|||
|
|
Grid1.Row(0).Visible = False
|
|||
|
|
Grid1.AddItem("")
|
|||
|
|
Grid1.AddItem("")
|
|||
|
|
Grid1.AddItem("")
|
|||
|
|
Grid1.AddItem("")
|
|||
|
|
Grid1.Row(ComboDropDownON.LightingCircuit2).Height = 50
|
|||
|
|
With Grid1.Range(ComboDropDownON.LightingCircuit, 1, ComboDropDownON.LightingCircuit2, 8)
|
|||
|
|
.Merge()
|
|||
|
|
.Alignment = AlignmentEnum.CenterCenter
|
|||
|
|
End With
|
|||
|
|
With Grid1.Cell(ComboDropDownON.LightingCircuit, 1)
|
|||
|
|
.Text = "灯光回路"
|
|||
|
|
.Locked = True
|
|||
|
|
End With
|
|||
|
|
|
|||
|
|
Grid1.AddItem("")
|
|||
|
|
Grid1.Cell(ComboDropDownON.KeyDev, ComboDropDownCol.devFile).Text = "设备地址"
|
|||
|
|
Grid1.Cell(ComboDropDownON.KeyDev, ComboDropDownCol.Keyval).Text = "键值"
|
|||
|
|
Grid1.Cell(ComboDropDownON.KeyDev, ComboDropDownCol.keyName).Text = "按键名称"
|
|||
|
|
Grid1.Cell(ComboDropDownON.KeyDev, ComboDropDownCol.music).Text = "是否需要提示音"
|
|||
|
|
Grid1.Cell(ComboDropDownON.KeyDev, ComboDropDownCol.空改1).Text = "是否需要服务调用"
|
|||
|
|
Grid1.Cell(ComboDropDownON.KeyDev, ComboDropDownCol.空改2).Text = "取电有效"
|
|||
|
|
Grid1.Cell(ComboDropDownON.KeyDev, ComboDropDownCol.空改3).Text = "起夜模式"
|
|||
|
|
Grid1.Cell(ComboDropDownON.KeyDev, ComboDropDownCol.空改4).Text = "总开模式"
|
|||
|
|
Grid1.Row(ComboDropDownON.KeyDev).Locked = True
|
|||
|
|
|
|||
|
|
Grid1.Column(2).Locked = True
|
|||
|
|
Grid1.FrozenRows = ComboDropDownON.max - 1
|
|||
|
|
Grid1.FrozenCols = ComboDropDownCol.max - 1
|
|||
|
|
|
|||
|
|
'Grid1.Column(3).Locked = True
|
|||
|
|
'Grid1.Column(4).Locked = True
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
Public HostDevFNP As String = "C:\BLV_Studio\Data\Model\RCUModel\"
|
|||
|
|
Private Sub Grid1_ComboDropDown(Sender As Object, e As Grid.ComboDropDownEventArgs) Handles Grid1.ComboDropDown
|
|||
|
|
Grid1.ComboBox(0).Items.Clear()
|
|||
|
|
Select Case e.Row
|
|||
|
|
'Case ComboDropDownON.HostDev
|
|||
|
|
' For Each HostDevFN In IO.Directory.GetFiles(HostDevFNP)
|
|||
|
|
' Grid1.ComboBox(0).Items.Add(HostDevFN.Substring(HostDevFNP.Length, HostDevFN.Length - HostDevFNP.Length - 4))
|
|||
|
|
' Next
|
|||
|
|
Case >= ComboDropDownON.max
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Console.WriteLine()
|
|||
|
|
If Grid1.Cell(ComboDropDownON.LightingCircuit0, Grid1.ActiveCell.Col).Text.Equals（"MUSIC"） Then
|
|||
|
|
Dim fromshow As New MusicArrangement
|
|||
|
|
fromshow.basicClass = basicClass
|
|||
|
|
If fromshow.ShowDialog() <> DialogResult.OK Then Return
|
|||
|
|
Grid1.Cell(Grid1.ActiveCell.Row, Grid1.ActiveCell.Col).Text = fromshow.GmusicVal
|
|||
|
|
|
|||
|
|
Else
|
|||
|
|
For Each index In [Enum].GetValues(GetType(CellDrop))
|
|||
|
|
Grid1.ComboBox(0).Items.Add(Chr(index))
|
|||
|
|
Next
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Select
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Grid1_CellChange(Sender As Object, e As Grid.CellChangeEventArgs) Handles Grid1.CellChange
|
|||
|
|
Select Case e.Row
|
|||
|
|
'Case ComboDropDownON.HostDev
|
|||
|
|
' If e.Col > 1 Then
|
|||
|
|
' SwitchConfig.Clear()
|
|||
|
|
' AddHostDeviceModule(HostDevFNP & Grid1.Cell(e.Row, e.Col).Text & ".xml")
|
|||
|
|
' End If
|
|||
|
|
Case ComboDropDownON.LightingCircuit2
|
|||
|
|
If e.Col > 4 And IsRelayflag Then
|
|||
|
|
SetRELAYAnotherName(e.Row, e.Col)
|
|||
|
|
End If
|
|||
|
|
Case > ComboDropDownON.KeyDev
|
|||
|
|
If e.Col = 3 And IsRelayflag Then
|
|||
|
|
SetkeypadAnotherName(e.Row, e.Col)
|
|||
|
|
ElseIf e.Col > 4 And IsRelayflag Then
|
|||
|
|
Dim crow As Integer = -1
|
|||
|
|
|
|||
|
|
Integer.TryParse(Grid1.Cell(e.Row, 2).Text, crow)
|
|||
|
|
|
|||
|
|
|
|||
|
|
Dim keystr As String = Grid1.Cell(e.Row - (crow - 1), 1).Text
|
|||
|
|
keystr = $"{keystr}:{crow.ToString }"
|
|||
|
|
Dim dic As Dictionary(Of Integer， String) = SwitchConfig.Item(keystr)
|
|||
|
|
If dic.ContainsKey(e.Col) And Not String.IsNullOrEmpty(Grid1.Cell(e.Row, e.Col).Text) Then
|
|||
|
|
dic.Item(e.Col) = Grid1.Cell(e.Row, e.Col).Text
|
|||
|
|
Else
|
|||
|
|
dic.Add(e.Col, Grid1.Cell(e.Row, e.Col).Text)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
End Select
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub SetRELAYAnotherName(r As Integer, c As Integer)
|
|||
|
|
Dim place As Integer = c - 4
|
|||
|
|
For Each moduStr In DeviceModuleDic
|
|||
|
|
For Each ModuleFre In moduStr.Value.Nodes
|
|||
|
|
If ModuleFre.Name.Equals("RELAY") Then
|
|||
|
|
If ModuleFre.Nodes.Count < place Then
|
|||
|
|
place = place - ModuleFre.Nodes.Count
|
|||
|
|
Else
|
|||
|
|
ModuleFre.Nodes(place - 1).Name = Grid1.Cell(r, c).Text
|
|||
|
|
Exit Sub
|
|||
|
|
End If
|
|||
|
|
Exit For
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
End Sub
|
|||
|
|
Public Sub SetkeypadAnotherName(r As Integer, c As Integer)
|
|||
|
|
Dim place As Integer = r - ComboDropDownON.KeyDev
|
|||
|
|
For Each moduStr In DeviceModuleDic
|
|||
|
|
For Each ModuleFre In moduStr.Value.Nodes
|
|||
|
|
If ModuleFre.Name.Equals("DI") Then
|
|||
|
|
If ModuleFre.Nodes.Count < place Then
|
|||
|
|
place = place - ModuleFre.Nodes.Count
|
|||
|
|
Else
|
|||
|
|
If IsRelayflag Then
|
|||
|
|
ModuleFre.Nodes(place - 1).Name = Grid1.Cell(r, c).Text
|
|||
|
|
Exit Sub
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
Exit For
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public DeviceModuleDic As Dictionary(Of String， DeviceModel)
|
|||
|
|
Public Sub AddHostDeviceModule(HostDevicefile As String)
|
|||
|
|
Try
|
|||
|
|
Dim model As DeviceModel = LoadModelFromXml(HostDevicefile)
|
|||
|
|
SwitchConfig.Clear()
|
|||
|
|
If DeviceModuleDic.ContainsKey("HostDevice") Then
|
|||
|
|
DeviceModuleDic.Item("HostDevice") = model
|
|||
|
|
Else
|
|||
|
|
DeviceModuleDic.Add("HostDevice", model)
|
|||
|
|
End If
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MsgBox("添加主机失败！")
|
|||
|
|
Return
|
|||
|
|
End Try
|
|||
|
|
ShowRelay()
|
|||
|
|
|
|||
|
|
'For Each inten In model.Nodes
|
|||
|
|
' If inten.Name.Equals("RELAY") Then
|
|||
|
|
' Dim hotel = New TreeNode(inten.Name)
|
|||
|
|
' For Each Cindten In inten.Nodes
|
|||
|
|
' Dim hotelc As New TreeNode(Cindten.Name)
|
|||
|
|
' hotel.Nodes.Add(hotelc)
|
|||
|
|
' Next
|
|||
|
|
' DeviceModuleDic.Nodes.Add(hotel)
|
|||
|
|
' Return
|
|||
|
|
' Else
|
|||
|
|
' Continue For
|
|||
|
|
' End If
|
|||
|
|
'Next
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
Public Function LoadModelFromXml(path As String) As DeviceModel
|
|||
|
|
Return BXmlSerializer.DeserializeFormXml(Of DeviceModel)(path)
|
|||
|
|
End Function
|
|||
|
|
Public DevModel As String = "C:\BLV_Studio\Data\Model\485Model\"
|
|||
|
|
Private Sub ToolStripComboBox1_DropDown(sender As Object, e As EventArgs) Handles ToolStripComboBox1.DropDown
|
|||
|
|
ToolStripComboBox1.Items.Clear()
|
|||
|
|
For Each HostDevFN In IO.Directory.GetFiles(DevModel)
|
|||
|
|
ToolStripComboBox1.Items.Add(HostDevFN.Substring(DevModel.Length, HostDevFN.Length - DevModel.Length - 4))
|
|||
|
|
Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
|||
|
|
Dim model As DeviceModel
|
|||
|
|
Try
|
|||
|
|
model = LoadModelFromXml(DevModel & ToolStripComboBox1.Text & ".xml")
|
|||
|
|
If DeviceModuleDic.ContainsKey("HostDevice") Then
|
|||
|
|
If model.Desc.DevInterface.Equals("RS485Polling") Then
|
|||
|
|
|
|||
|
|
'If DeviceModuleDic.ContainsKey(ToolStripComboBox1.Text) Then
|
|||
|
|
'DeviceModuleDic.Item("HostDevice") = model
|
|||
|
|
Dim number As Integer = ModuleFrequency(ToolStripComboBox1.Text)
|
|||
|
|
'DeviceModuleDic.Add($"{ToolStripComboBox1.Text}_{number}", model)
|
|||
|
|
Dim strindex As String = GetindexNumber(ToolStripComboBox1.Text， number)
|
|||
|
|
DeviceModuleDic = DeviceModuleDicDiinsertion(DeviceModuleDic, DevModeInserfilag, strindex, model)
|
|||
|
|
'Else
|
|||
|
|
' ' DeviceModuleDic.Add(ToolStripComboBox1.Text, model)
|
|||
|
|
' DeviceModuleDic = DeviceModuleDicDiinsertion(DeviceModuleDic, DevModeInserfilag, $"{ToolStripComboBox1.Text}", model)
|
|||
|
|
'End If
|
|||
|
|
DevModeInserfilag = DevModeInserfilag + 1
|
|||
|
|
Else
|
|||
|
|
MsgBox($"添加外设模块失败！")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
Else
|
|||
|
|
MsgBox($"未添加主机！")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MsgBox($"加载设备模型错误，{ex.Message}")
|
|||
|
|
Return
|
|||
|
|
End Try
|
|||
|
|
ShowRelay()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Function GetindexNumber(str As String, index As Integer) As String
|
|||
|
|
Dim result As String
|
|||
|
|
If DeviceModuleDic.ContainsKey($"{str}:{index}") Then
|
|||
|
|
index = index + 1
|
|||
|
|
result = GetindexNumber(str, index)
|
|||
|
|
Else
|
|||
|
|
result = $"{str}:{index}"
|
|||
|
|
End If
|
|||
|
|
Return result
|
|||
|
|
End Function
|
|||
|
|
Public Function ModuleFrequency(hfreq As String) As Integer
|
|||
|
|
Dim result As Integer = 1
|
|||
|
|
Dim str As String = String.Empty
|
|||
|
|
Dim strbuff() As String
|
|||
|
|
Dim index As Integer = -1
|
|||
|
|
For Each moduStr In DeviceModuleDic.Keys
|
|||
|
|
If moduStr.Contains(hfreq) Then
|
|||
|
|
result = result + 1
|
|||
|
|
str = moduStr
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
If str.Length > 0 Then
|
|||
|
|
strbuff = str.Split(":")
|
|||
|
|
If strbuff.Length > 1 Then
|
|||
|
|
Integer.TryParse(strbuff(1), index)
|
|||
|
|
End If
|
|||
|
|
If index > result Then result = index + 1
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Return result
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public IsRelayflag As Boolean
|
|||
|
|
Public Sub ShowRelay()
|
|||
|
|
Dim Startid As Integer = ComboDropDownCol.max
|
|||
|
|
Grid1.Cols = ComboDropDownCol.max
|
|||
|
|
IsRelayflag = False
|
|||
|
|
Dim demoindex As Integer = Startid
|
|||
|
|
|
|||
|
|
Dim g_Dimming As DeviceChildNodeClass
|
|||
|
|
Dim g_RELAY As DeviceChildNodeClass
|
|||
|
|
Dim g_DO As DeviceChildNodeClass
|
|||
|
|
Dim g_MUSIC As DeviceChildNodeClass
|
|||
|
|
|
|||
|
|
For Each moduStr In DeviceModuleDic
|
|||
|
|
g_Dimming = Nothing
|
|||
|
|
g_RELAY = Nothing
|
|||
|
|
g_DO = Nothing
|
|||
|
|
g_MUSIC = Nothing
|
|||
|
|
For Each ModuleFre In moduStr.Value.Nodes
|
|||
|
|
' If ModuleFre.Name.Equals("Dimming") OrElse ModuleFre.Name.Equals("RELAY") OrElse ModuleFre.Name.Equals("DO") Then
|
|||
|
|
|
|||
|
|
'添加继电器列
|
|||
|
|
'Grid1.Cols = demoindex + ModuleFre.Nodes.Count
|
|||
|
|
'Grid1.Cell(ComboDropDownON.LightingCircuit0, demoindex).Text = ModuleFre.Name
|
|||
|
|
'Grid1.Range(ComboDropDownON.LightingCircuit0, demoindex, ComboDropDownON.LightingCircuit0, demoindex + ModuleFre.Nodes.Count - 1).Merge()
|
|||
|
|
'Grid1.Range(ComboDropDownON.LightingCircuit, demoindex, ComboDropDownON.LightingCircuit, demoindex + ModuleFre.Nodes.Count - 1).Locked = False
|
|||
|
|
'Grid1.Range(ComboDropDownON.LightingCircuit, demoindex, ComboDropDownON.LightingCircuit, demoindex + ModuleFre.Nodes.Count - 1).Merge()
|
|||
|
|
'Grid1.Range(ComboDropDownON.LightingCircuit, demoindex, ComboDropDownON.LightingCircuit, demoindex + ModuleFre.Nodes.Count - 1).Locked = True
|
|||
|
|
'If moduStr.Key.Equals("HostDevice") Then
|
|||
|
|
' Grid1.Cell(ComboDropDownON.LightingCircuit, Startid).Text = moduStr.Value.Name
|
|||
|
|
'Else
|
|||
|
|
' Grid1.Cell(ComboDropDownON.LightingCircuit, Startid).Text = moduStr.Key
|
|||
|
|
'End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
'Grid1.Range(ComboDropDownON.LightingCircuit1, demoindex, ComboDropDownON.LightingCircuit1, demoindex + ModuleFre.Nodes.Count - 1).Locked = True
|
|||
|
|
'Grid1.Range(ComboDropDownON.LightingCircuit, Startid, ComboDropDownON.LightingCircuit0, Startid + ModuleFre.Nodes.Count - 1).Alignment = AlignmentEnum.CenterCenter
|
|||
|
|
'For i As Integer = 0 To ModuleFre.Nodes.Count - 1
|
|||
|
|
' Grid1.Cell(ComboDropDownON.LightingCircuit1, demoindex + i).Text = (i + 1).ToString
|
|||
|
|
' Console.WriteLine($"{ModuleFre.Name}_R:{ComboDropDownON.LightingCircuit1.ToString }_C:{Startid + i}_{(i + 1).ToString}")
|
|||
|
|
' Grid1.Cell(ComboDropDownON.LightingCircuit2, demoindex + i).Text = ModuleFre.Nodes(i).Name
|
|||
|
|
'Next
|
|||
|
|
'demoindex = demoindex + ModuleFre.Nodes.Count
|
|||
|
|
' End If
|
|||
|
|
If ModuleFre.Name.Equals("Dimming") Then
|
|||
|
|
g_Dimming = ModuleFre
|
|||
|
|
ElseIf ModuleFre.Name.Equals("RELAY") Then
|
|||
|
|
g_RELAY = ModuleFre
|
|||
|
|
ElseIf ModuleFre.Name.Equals("DO") Then
|
|||
|
|
g_DO = ModuleFre
|
|||
|
|
ElseIf ModuleFre.Name.Equals("MUSIC") Then
|
|||
|
|
g_MUSIC = ModuleFre
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
AddColumnConfig(g_DO, demoindex, Startid, moduStr)
|
|||
|
|
AddColumnConfig(g_RELAY, demoindex, Startid, moduStr)
|
|||
|
|
AddColumnConfig(g_Dimming, demoindex, Startid, moduStr)
|
|||
|
|
AddColumnConfig(g_MUSIC, demoindex, Startid, moduStr)
|
|||
|
|
Startid = demoindex
|
|||
|
|
Next
|
|||
|
|
ShowSwitch()
|
|||
|
|
IsRelayflag = True
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Sub AddColumnConfig(ModuleFre As DeviceChildNodeClass， ByRef demoindex As Integer， Startid As Integer， moduStr As KeyValuePair(Of String, DeviceModel))
|
|||
|
|
'添加继电器列
|
|||
|
|
If IsNothing(ModuleFre) OrElse ModuleFre.Nodes.Count = 0 Then Return
|
|||
|
|
Grid1.Cols = demoindex + ModuleFre.Nodes.Count
|
|||
|
|
Grid1.Cell(ComboDropDownON.LightingCircuit0, demoindex).Text = ModuleFre.Name
|
|||
|
|
Grid1.Range(ComboDropDownON.LightingCircuit0, demoindex, ComboDropDownON.LightingCircuit0, demoindex + ModuleFre.Nodes.Count - 1).Merge()
|
|||
|
|
Grid1.Range(ComboDropDownON.LightingCircuit, Startid, ComboDropDownON.LightingCircuit, demoindex + ModuleFre.Nodes.Count - 1).Locked = False
|
|||
|
|
Grid1.Range(ComboDropDownON.LightingCircuit, Startid, ComboDropDownON.LightingCircuit, demoindex + ModuleFre.Nodes.Count - 1).Merge()
|
|||
|
|
Grid1.Range(ComboDropDownON.LightingCircuit, Startid, ComboDropDownON.LightingCircuit, demoindex + ModuleFre.Nodes.Count - 1).Locked = True
|
|||
|
|
If moduStr.Key.Equals("HostDevice") Then
|
|||
|
|
Grid1.Cell(ComboDropDownON.LightingCircuit, Startid).Text = moduStr.Value.Name
|
|||
|
|
Else
|
|||
|
|
Grid1.Cell(ComboDropDownON.LightingCircuit, Startid).Text = moduStr.Key
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
Grid1.Range(ComboDropDownON.LightingCircuit1, demoindex, ComboDropDownON.LightingCircuit1, demoindex + ModuleFre.Nodes.Count - 1).Locked = True
|
|||
|
|
Grid1.Range(ComboDropDownON.LightingCircuit, Startid, ComboDropDownON.LightingCircuit2, Startid + ModuleFre.Nodes.Count - 1).Alignment = AlignmentEnum.CenterCenter
|
|||
|
|
For i As Integer = 0 To ModuleFre.Nodes.Count - 1
|
|||
|
|
Grid1.Cell(ComboDropDownON.LightingCircuit1, demoindex + i).Text = (i + 1).ToString
|
|||
|
|
Console.WriteLine($"{ModuleFre.Name}_R:{ComboDropDownON.LightingCircuit1.ToString }_C:{Startid + i}_{(i + 1).ToString}")
|
|||
|
|
Grid1.Cell(ComboDropDownON.LightingCircuit2, demoindex + i).Text = ModuleFre.Nodes(i).Name
|
|||
|
|
Grid1.Cell(ComboDropDownON.LightingCircuit2, demoindex + i).Orientation = TextOrientationEnum.Vertical
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
demoindex = demoindex + ModuleFre.Nodes.Count
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public SwitchConfig As Dictionary(Of String, Dictionary(Of Integer, String))
|
|||
|
|
Public Sub ShowSwitch()
|
|||
|
|
IsRelayflag = False
|
|||
|
|
Grid1.AutoRedraw = False
|
|||
|
|
Dim rdilenma As String
|
|||
|
|
For moduStr As Integer = ComboDropDownON.max To Grid1.Rows - 1
|
|||
|
|
Grid1.Row(Grid1.Rows - 1).Delete()
|
|||
|
|
Next
|
|||
|
|
'SwitchConfig.Clear()
|
|||
|
|
Dim rowid As Integer = Grid1.Rows
|
|||
|
|
For Each moduStr In DeviceModuleDic
|
|||
|
|
|
|||
|
|
For Each ModuleFre In moduStr.Value.Nodes
|
|||
|
|
If ModuleFre.Name.Equals("DI") Then
|
|||
|
|
'添加继电器列
|
|||
|
|
|
|||
|
|
For i As Integer = 0 To ModuleFre.Nodes.Count - 1
|
|||
|
|
Grid1.AddItem("")
|
|||
|
|
If i = 0 Then
|
|||
|
|
If moduStr.Key.Equals("HostDevice") Then
|
|||
|
|
Grid1.Cell(rowid, ComboDropDownCol.devFile).Text = moduStr.Value.Name
|
|||
|
|
Else
|
|||
|
|
Grid1.Cell(rowid, ComboDropDownCol.devFile).Text = moduStr.Key
|
|||
|
|
End If
|
|||
|
|
rdilenma = Grid1.Cell(rowid, 1).Text
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If Not SwitchConfig.ContainsKey($"{rdilenma}:{i + 1}") Then
|
|||
|
|
Dim dic As New Dictionary(Of Integer, String)
|
|||
|
|
dic.Add(ComboDropDownCol.music, Chr(CellDrop.TurnOn))
|
|||
|
|
dic.Add(ComboDropDownCol.空改2, Chr(CellDrop.TurnOn))
|
|||
|
|
SwitchConfig.Add($"{rdilenma}:{i + 1}", dic)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Grid1.Cell(rowid + i, ComboDropDownCol.Keyval).Text = (i + 1).ToString
|
|||
|
|
Grid1.Cell(rowid + i, ComboDropDownCol.keyName).Text = ModuleFre.Nodes(i).Name
|
|||
|
|
|
|||
|
|
Grid1.Cell(rowid + i, ComboDropDownCol.music).Text = Chr(CellDrop.TurnOn)
|
|||
|
|
Grid1.Cell(rowid + i, ComboDropDownCol.空改2).Text = Chr(CellDrop.TurnOn)
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
Grid1.Cell(rowid, 1).WrapText = True
|
|||
|
|
Grid1.Range(rowid, 1, Grid1.Rows - 1, ComboDropDownCol.devFile).Merge()
|
|||
|
|
Grid1.Range(rowid, 1, Grid1.Rows - 1, ComboDropDownCol.devFile).Locked = True
|
|||
|
|
rowid = Grid1.Rows
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
Grid1.Range(ComboDropDownON.max, ComboDropDownCol.music, Grid1.Rows - 1, Grid1.Cols - 1).Alignment = AlignmentEnum.CenterCenter
|
|||
|
|
Grid1.Range(ComboDropDownON.max, ComboDropDownCol.music, Grid1.Rows - 1, Grid1.Cols - 1).CellType = CellTypeEnum.ComboBox
|
|||
|
|
|
|||
|
|
SetGrid1RowTxt()
|
|||
|
|
Grid1.AutoRedraw = True
|
|||
|
|
Grid1.Refresh()
|
|||
|
|
IsRelayflag = True
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Sub SetGrid1RowTxt()
|
|||
|
|
Dim rfilename As String
|
|||
|
|
Dim keystr As String
|
|||
|
|
Dim dic As Dictionary(Of Integer， String）
|
|||
|
|
For i As Integer = ComboDropDownON.max To Grid1.Rows - 1
|
|||
|
|
If Grid1.Cell(i, 2).Text.Equals("1") Then
|
|||
|
|
rfilename = Grid1.Cell(i, 1).Text
|
|||
|
|
End If
|
|||
|
|
keystr = $"{rfilename}:{Grid1.Cell(i, 2).Text}"
|
|||
|
|
dic = SwitchConfig.Item(keystr)
|
|||
|
|
For Each node In dic
|
|||
|
|
Grid1.Cell(i, node.Key).Text = node.Value
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
|
|||
|
|
'For Each inten In SwitchConfig
|
|||
|
|
' For Each node In inten.Value
|
|||
|
|
' Grid1.Cell(inten.Key, node.Key).Text = node.Value
|
|||
|
|
' Next
|
|||
|
|
'Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub ToolStripComboBox2_DropDown(sender As Object, e As EventArgs) Handles ToolStripComboBox2.DropDown
|
|||
|
|
ToolStripComboBox2.Items.Clear()
|
|||
|
|
For Each HostDevFN In IO.Directory.GetFiles(DevModel)
|
|||
|
|
ToolStripComboBox2.Items.Add(HostDevFN.Substring(DevModel.Length, HostDevFN.Length - DevModel.Length - 4))
|
|||
|
|
Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
|
|||
|
|
Dim model As DeviceModel
|
|||
|
|
Try
|
|||
|
|
model = LoadModelFromXml(DevModel & ToolStripComboBox2.Text & ".xml")
|
|||
|
|
If DeviceModuleDic.ContainsKey("HostDevice") Then
|
|||
|
|
If model.Desc.DevInterface.Equals("RS485Active") Then
|
|||
|
|
|
|||
|
|
'If DeviceModuleDic.ContainsKey(ToolStripComboBox2.Text) Then
|
|||
|
|
'DeviceModuleDic.Item("HostDevice") = model
|
|||
|
|
Dim number As Integer = ModuleFrequency(ToolStripComboBox2.Text)
|
|||
|
|
Dim strindex As String = GetindexNumber(ToolStripComboBox2.Text， number)
|
|||
|
|
DeviceModuleDic.Add(strindex, model)
|
|||
|
|
|
|||
|
|
Dim dic As New Dictionary(Of String, String）
|
|||
|
|
|
|||
|
|
'Else
|
|||
|
|
' DeviceModuleDic.Add(ToolStripComboBox2.Text, model)
|
|||
|
|
'End If
|
|||
|
|
|
|||
|
|
Else
|
|||
|
|
MsgBox($"添加外设模块失败！")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
Else
|
|||
|
|
MsgBox($"未添加主机！")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MsgBox($"加载设备模型错误，{ex.Message}")
|
|||
|
|
Return
|
|||
|
|
End Try
|
|||
|
|
ShowSwitch()
|
|||
|
|
End Sub
|
|||
|
|
Public Function DeviceModuleDicDiinsertion(dic As Dictionary(Of String， DeviceModel), index As Integer， kstr As String, model As DeviceModel) As Dictionary(Of String， DeviceModel)
|
|||
|
|
Dim result As New Dictionary(Of String， DeviceModel)
|
|||
|
|
For i As Integer = 0 To dic.Count - 1
|
|||
|
|
result.Add(dic.Keys(i), dic.Values(i))
|
|||
|
|
If i = index Then
|
|||
|
|
result.Add(kstr, model)
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
Return result
|
|||
|
|
End Function
|
|||
|
|
Public Function UpdataModuleDicDiinsertion(dic As Dictionary(Of String， DeviceModel)) As Dictionary(Of String， DeviceModel)
|
|||
|
|
Dim result As New Dictionary(Of String， DeviceModel)
|
|||
|
|
For i As Integer = 0 To dic.Count - 1
|
|||
|
|
result.Add(dic.Keys(i), dic.Values(i))
|
|||
|
|
Next
|
|||
|
|
Return result
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Private Function SetKeyValuePair() As KeyValuePair(Of Integer, String)
|
|||
|
|
Dim intKey As Integer = 1
|
|||
|
|
Dim strValue As String = "My value"
|
|||
|
|
Dim kvp As KeyValuePair(Of Integer, String) = New KeyValuePair(Of Integer, String)(intKey, strValue)
|
|||
|
|
Return kvp
|
|||
|
|
End Function
|
|||
|
|
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
|
|||
|
|
TestForm1_Load(Nothing, Nothing)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
|
|||
|
|
If String.IsNullOrEmpty(ShipmentFile) Then
|
|||
|
|
ToolStripButton2_Click_1(Nothing, Nothing)
|
|||
|
|
Else
|
|||
|
|
If IO.File.Exists(ShipmentFile) Then
|
|||
|
|
If MsgBox("已存在同名文件是否覆盖？", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
|
|||
|
|
Grid1.SaveFile($"{ShipmentFile}")
|
|||
|
|
DeleteDevmodedic.Clear()
|
|||
|
|
MsgBox($"保存完成：{ShipmentFile}")
|
|||
|
|
End If
|
|||
|
|
Else
|
|||
|
|
Grid1.SaveFile($"{ShipmentFile}")
|
|||
|
|
DeleteDevmodedic.Clear()
|
|||
|
|
MsgBox($"保存完成：{ShipmentFile}")
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
' IO.Directory.CreateDirectory($"{Application.StartupPath}\Table\")
|
|||
|
|
'Grid1.ExportToCSV($"{Application.StartupPath}\Table\{Date.Now.ToString("yyyyMMddHHmmssfff")}.csv", False, False)
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
Public ShipmentFile As String
|
|||
|
|
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
|
|||
|
|
Using dlg As New OpenFileDialog
|
|||
|
|
dlg.InitialDirectory = Application.StartupPath
|
|||
|
|
dlg.Title = "请选择文件！"
|
|||
|
|
dlg.Filter = "逻辑表(*.flx)|*.flx"
|
|||
|
|
If dlg.ShowDialog <> DialogResult.OK Then Return
|
|||
|
|
DeviceModuleDic.Clear()
|
|||
|
|
ShipmentFile = dlg.FileName
|
|||
|
|
If Not Grid1.OpenFile(ShipmentFile) Then
|
|||
|
|
MsgBox("文件损坏，打开失败！")
|
|||
|
|
Else
|
|||
|
|
UploadDeviceModuleDic()
|
|||
|
|
DeleteDevmodedic.Clear()
|
|||
|
|
End If
|
|||
|
|
End Using
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Sub UploadDeviceModuleDic()
|
|||
|
|
Dim intlabel As Integer = ComboDropDownON.max
|
|||
|
|
Dim col As Integer = 5
|
|||
|
|
Dim HostDevicefile As String
|
|||
|
|
Dim model As DeviceModel
|
|||
|
|
Dim kval As KeyValuePair(Of Integer, Integer)
|
|||
|
|
DeviceModuleDic.Clear()
|
|||
|
|
SwitchConfig.Clear()
|
|||
|
|
DevModeInserfilag = 0
|
|||
|
|
Dim filenaem() As String
|
|||
|
|
While True
|
|||
|
|
If intlabel < Grid1.Rows - 1 Then
|
|||
|
|
filenaem = Grid1.Cell(intlabel, 1).Text.Split(":")
|
|||
|
|
HostDevicefile = DevModel & filenaem(0) & ".xml"
|
|||
|
|
If IO.File.Exists(HostDevicefile) Then
|
|||
|
|
model = LoadModelFromXml(HostDevicefile)
|
|||
|
|
kval = Analysismodel(model， intlabel， col)
|
|||
|
|
DeviceModuleDic.Add(Grid1.Cell(intlabel, 1).Text, model)
|
|||
|
|
|
|||
|
|
Else
|
|||
|
|
'HostDevicefile = $"{HostDevFNP}{Grid1.Cell(intlabel, 1).Text}.xml"
|
|||
|
|
HostDevicefile = HostDevFNP & Grid1.Cell(intlabel, 1).Text.Replace("_", "-") & ".xml"
|
|||
|
|
|
|||
|
|
If IO.File.Exists(HostDevicefile) Then
|
|||
|
|
model = LoadModelFromXml(HostDevicefile)
|
|||
|
|
kval = Analysismodel(model， intlabel， col)
|
|||
|
|
DeviceModuleDic.Add(Grid1.Cell(intlabel, 1).Text, model)
|
|||
|
|
Else
|
|||
|
|
MsgBox($"加载失败！未找到文件{Grid1.Cell(intlabel, 1).Text}.xml")
|
|||
|
|
TestForm1_Load(Nothing, Nothing)
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
Else
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
intlabel = kval.Key
|
|||
|
|
col = kval.Value
|
|||
|
|
End While
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Function Analysismodel(model As DeviceModel， row As Integer, col As Integer) As KeyValuePair(Of Integer, Integer)
|
|||
|
|
Dim filename As String = Grid1.Cell(row, 1).Text
|
|||
|
|
Dim keystr As String
|
|||
|
|
For Each inten In model.Nodes
|
|||
|
|
If inten.Name.Equals("RELAY") Then
|
|||
|
|
For Each node In inten.Nodes
|
|||
|
|
node.Name = Grid1.Cell(ComboDropDownON.LightingCircuit2, col).Text
|
|||
|
|
col = col + 1
|
|||
|
|
Next
|
|||
|
|
End If
|
|||
|
|
If inten.Name.Equals("DI") Then
|
|||
|
|
For Each node In inten.Nodes
|
|||
|
|
node.Name = Grid1.Cell(row, 3).Text
|
|||
|
|
'添加行数据
|
|||
|
|
Dim dic As New Dictionary(Of Integer, String)
|
|||
|
|
|
|||
|
|
For i As Integer = 5 To Grid1.Cols - 1
|
|||
|
|
If Grid1.Cell(row, i).Text.Length > 0 Then
|
|||
|
|
dic.Add(i, Grid1.Cell(row, i).Text)
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
keystr = $"{filename}:{Grid1.Cell(row, 2).Text}"
|
|||
|
|
SwitchConfig.Add(keystr, dic)
|
|||
|
|
|
|||
|
|
row = row + 1
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
Dim ndic As New Dictionary(Of Integer, Integer)
|
|||
|
|
ndic.Add(row, col)
|
|||
|
|
For Each inten In ndic
|
|||
|
|
Return inten
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Private Sub ToolStripButton2_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
|
|||
|
|
Using dlg As New SaveFileDialog
|
|||
|
|
|
|||
|
|
|
|||
|
|
With dlg
|
|||
|
|
.InitialDirectory = Application.StartupPath
|
|||
|
|
.RestoreDirectory = True
|
|||
|
|
.OverwritePrompt = True
|
|||
|
|
.AddExtension = True
|
|||
|
|
.DefaultExt = ".xml"
|
|||
|
|
.Title = "保存文件"
|
|||
|
|
.Filter = $"逻辑文件(*.flx)|*.flx"
|
|||
|
|
End With
|
|||
|
|
If dlg.ShowDialog <> DialogResult.OK Then Return
|
|||
|
|
|
|||
|
|
Grid1.SaveFile($"{ dlg.FileName }")
|
|||
|
|
MsgBox($"文件保存完成：{dlg.FileName}")
|
|||
|
|
End Using
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
Public DeleteDevmodedic As List(Of DeleteDevmodeclass)
|
|||
|
|
Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
|
|||
|
|
Dim Deletenode As DeleteDevmodeclass
|
|||
|
|
Dim crow As Integer = -1
|
|||
|
|
Integer.TryParse(Grid1.Cell(Grid1.ActiveCell.Row, 2).Text, crow)
|
|||
|
|
|
|||
|
|
Dim filestr As String = Grid1.Cell(Grid1.ActiveCell.Row - crow + 1, 1).Text
|
|||
|
|
Dim rownode As String
|
|||
|
|
If DeviceModuleDic.ContainsKey(filestr) Then
|
|||
|
|
|
|||
|
|
Dim Ctrldeletenode As New DeleteDevmodeclass(DeepCopyHelper.DeepCopy(SwitchConfig), DeepCopyHelper.DictionaryCopy(DeviceModuleDic), DevModeInserfilag)
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
DeleteDevmodedic.Add(Ctrldeletenode)
|
|||
|
|
If DeviceModuleDic.Item(filestr).Desc.DevInterface.Equals("RS485Polling") Then
|
|||
|
|
DevModeInserfilag = DevModeInserfilag - 1
|
|||
|
|
End If
|
|||
|
|
For Each node In DeviceModuleDic.Item(filestr).Nodes
|
|||
|
|
If node.Name.Equals("DI") Then
|
|||
|
|
For i As Integer = 0 To node.Nodes.Count - 1
|
|||
|
|
rownode = $"{filestr}:{i + 1}"
|
|||
|
|
If SwitchConfig.ContainsKey(rownode) Then
|
|||
|
|
SwitchConfig.Remove(rownode)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
DeviceModuleDic.Remove(filestr)
|
|||
|
|
|
|||
|
|
DeviceModuleDic = UpdataModuleDicDiinsertion（DeviceModuleDic）
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
ShowRelay()
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) Handles ToolStripButton8.Click
|
|||
|
|
If DeleteDevmodedic.Count > 0 Then
|
|||
|
|
Dim linode As DeleteDevmodeclass = DeleteDevmodedic.Item(DeleteDevmodedic.Count - 1)
|
|||
|
|
SwitchConfig = linode.G_SwitchConfig
|
|||
|
|
DeviceModuleDic = linode.G_DeviceModuleDic
|
|||
|
|
DevModeInserfilag = linode.G_DevModeInserfilag
|
|||
|
|
DeleteDevmodedic.RemoveAt(DeleteDevmodedic.Count - 1)
|
|||
|
|
ShowRelay()
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub ToolStripButton9_Click(sender As Object, e As EventArgs) Handles ToolStripButton9.Click
|
|||
|
|
Dim lst As New List(Of Byte())
|
|||
|
|
|
|||
|
|
Dim newTableCompile As New TableCompile
|
|||
|
|
Dim configInfoLst As New List(Of Byte())
|
|||
|
|
' 编译配置信息
|
|||
|
|
Dim tmpInfo() As Byte = newTableCompile.FillConfigInfo(configInfo, DeviceModuleDic.Item("HostDevice").Name).ToArray
|
|||
|
|
configInfoLst.Add(tmpInfo)
|
|||
|
|
lst.AddRange(configInfoLst.ToArray)
|
|||
|
|
|
|||
|
|
'编译设备存在
|
|||
|
|
Dim deviceExistsDatas As List(Of Byte())
|
|||
|
|
Dim OutDevlist As New List(Of Byte)
|
|||
|
|
deviceExistsDatas = newTableCompile.FillDeviceExistsData(DeviceModuleDic, SwitchConfig)
|
|||
|
|
lst.AddRange(deviceExistsDatas.ToArray)
|
|||
|
|
'获取编译的设备动作
|
|||
|
|
Dim actibuf As List(Of Byte()) = newTableCompile.FillDeviceObject(DeviceModuleDic, SwitchConfig, Grid1)
|
|||
|
|
For Each buf In actibuf
|
|||
|
|
lst.Add(buf)
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
Dim frames As List(Of Byte()) = newTableCompile.FillDataFrames(lst)
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
'编译设备对象动作数据
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Dim filename As String = "C:\Users\Administrator\Desktop\Processform\test.dat"
|
|||
|
|
If IO.File.Exists(filename) Then IO.File.Delete(filename)
|
|||
|
|
Using steam As New IO.FileStream(filename, IO.FileMode.OpenOrCreate)
|
|||
|
|
For Each frame As Byte() In frames
|
|||
|
|
steam.Write(frame, 0, frame.Length)
|
|||
|
|
Console.WriteLine($"Length:{frame.Length:D4} Data:{BitConverter.ToString(frame).Replace("-", " ")}")
|
|||
|
|
Next
|
|||
|
|
steam.Flush()
|
|||
|
|
steam.Close()
|
|||
|
|
End Using
|
|||
|
|
Dim filebuff() As Byte = IO.File.ReadAllBytes(filename)
|
|||
|
|
Dim ismod As Integer = filebuff.Length Mod 4
|
|||
|
|
Dim buff As New List(Of Byte)
|
|||
|
|
buff.AddRange(filebuff)
|
|||
|
|
For isnum As Integer = 1 To （4 - ismod）
|
|||
|
|
buff.Add(0)
|
|||
|
|
Next
|
|||
|
|
IO.File.WriteAllBytes(filename, buff.ToArray)
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Class
|
|||
|
|
Public Class DeleteDevmodeclass
|
|||
|
|
Public G_SwitchConfig As Dictionary(Of String, Dictionary(Of Integer, String))
|
|||
|
|
Public G_DeviceModuleDic As Dictionary(Of String， DeviceModel)
|
|||
|
|
Public G_DevModeInserfilag As Integer
|
|||
|
|
Sub New(SwitchConfig As Dictionary(Of String, Dictionary(Of Integer, String)), DeviceModuleDic As Dictionary(Of String， DeviceModel), DevModeInserfilag As Integer)
|
|||
|
|
G_SwitchConfig = SwitchConfig
|
|||
|
|
G_DeviceModuleDic = DeviceModuleDic
|
|||
|
|
G_DevModeInserfilag = DevModeInserfilag
|
|||
|
|
End Sub
|
|||
|
|
End Class
|