600 lines
20 KiB
VB.net
600 lines
20 KiB
VB.net
|
Imports System.IO
|
|||
|
|
Imports System.Threading
|
|||
|
|
|
|||
|
|
Public Class FrmC43Function
|
|||
|
|
Implements IModuleForm
|
|||
|
|
|
|||
|
|
#Region "窗体"
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 窗体加载函数
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="sender"></param>
|
|||
|
|
''' <param name="e"></param>
|
|||
|
|
Private Sub FrmC43Function_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|||
|
|
C43ConfigData() 'C43配置
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 显示窗体接口
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="parentControl"></param>
|
|||
|
|
Public Sub ShowForm(parentControl As Control) Implements IModuleForm.ShowForm
|
|||
|
|
FormBorderStyle = FormBorderStyle.None '无边框
|
|||
|
|
TopLevel = False
|
|||
|
|
Dock = DockStyle.Fill '填满大小
|
|||
|
|
Parent = parentControl '父容器
|
|||
|
|
|
|||
|
|
Show()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 发送函数
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="sendPacket"></param>
|
|||
|
|
Public Sub SendData(sendPacket() As Byte)
|
|||
|
|
FrmRCU.SendData(sendPacket) '方法1
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
#Region "C43功能配置"
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 枚举表格列名信息
|
|||
|
|
''' </summary>
|
|||
|
|
Enum EnListed
|
|||
|
|
SerialNumber '序号
|
|||
|
|
IsSelected '是否选中
|
|||
|
|
ButtonName '按键号
|
|||
|
|
ButtonType '按键类型
|
|||
|
|
DeviceType '设备类型
|
|||
|
|
DeviceNumber '设备编号
|
|||
|
|
CarryWayL '执行方式L
|
|||
|
|
CarryWayH '执行方式H
|
|||
|
|
SceneControlWay '场景执行方式
|
|||
|
|
DelayToPerform '延时执行
|
|||
|
|
Remark '备注
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' C43配置数据
|
|||
|
|
''' </summary>
|
|||
|
|
Private Sub C43ConfigData()
|
|||
|
|
GrdC43cfg.DisplayRowNumber = True
|
|||
|
|
GrdC43cfg.ExtendLastCol = True
|
|||
|
|
GrdC43cfg.Cols = 11
|
|||
|
|
GrdC43cfg.Rows = 2
|
|||
|
|
|
|||
|
|
With GrdC43cfg.Cell(0, EnListed.IsSelected)
|
|||
|
|
.Text = "是否选中"
|
|||
|
|
.BackColor = Color.LightGray
|
|||
|
|
.ForeColor = Color.Blue
|
|||
|
|
.Font = New Font("Arial", 8, FontStyle.Bold)
|
|||
|
|
End With
|
|||
|
|
With GrdC43cfg.Cell(0, EnListed.ButtonName)
|
|||
|
|
.Text = "按键号"
|
|||
|
|
.BackColor = Color.LightGray
|
|||
|
|
.ForeColor = Color.Blue
|
|||
|
|
.Font = New Font("Arial", 8, FontStyle.Bold)
|
|||
|
|
End With
|
|||
|
|
With GrdC43cfg.Cell(0, EnListed.ButtonType)
|
|||
|
|
.Text = "按键类型"
|
|||
|
|
.BackColor = Color.LightGray
|
|||
|
|
.ForeColor = Color.Blue
|
|||
|
|
.Font = New Font("Arial", 8, FontStyle.Bold)
|
|||
|
|
End With
|
|||
|
|
With GrdC43cfg.Cell(0, EnListed.DeviceType)
|
|||
|
|
.Text = "设备类型"
|
|||
|
|
.BackColor = Color.LightGray
|
|||
|
|
.ForeColor = Color.Blue
|
|||
|
|
.Font = New Font("Arial", 8, FontStyle.Bold)
|
|||
|
|
End With
|
|||
|
|
With GrdC43cfg.Cell(0, EnListed.DeviceNumber)
|
|||
|
|
.Text = "设备编号"
|
|||
|
|
.BackColor = Color.LightGray
|
|||
|
|
.ForeColor = Color.Blue
|
|||
|
|
.Font = New Font("Arial", 8, FontStyle.Bold)
|
|||
|
|
End With
|
|||
|
|
With GrdC43cfg.Cell(0, EnListed.CarryWayL)
|
|||
|
|
.Text = "执行方式"
|
|||
|
|
.BackColor = Color.LightGray
|
|||
|
|
.ForeColor = Color.Blue
|
|||
|
|
.Font = New Font("Arial", 8, FontStyle.Bold)
|
|||
|
|
End With
|
|||
|
|
With GrdC43cfg.Cell(0, EnListed.CarryWayH)
|
|||
|
|
.Text = "执行内容"
|
|||
|
|
.BackColor = Color.LightGray
|
|||
|
|
.ForeColor = Color.Blue
|
|||
|
|
.Font = New Font("Arial", 8, FontStyle.Bold)
|
|||
|
|
End With
|
|||
|
|
With GrdC43cfg.Cell(0, EnListed.SceneControlWay)
|
|||
|
|
.Text = "场景控制方式"
|
|||
|
|
.BackColor = Color.LightGray
|
|||
|
|
.ForeColor = Color.Blue
|
|||
|
|
.Font = New Font("Arial", 8, FontStyle.Bold)
|
|||
|
|
End With
|
|||
|
|
With GrdC43cfg.Cell(0, EnListed.DelayToPerform)
|
|||
|
|
.Text = "延时执行"
|
|||
|
|
.BackColor = Color.LightGray
|
|||
|
|
.ForeColor = Color.Blue
|
|||
|
|
.Font = New Font("Arial", 8, FontStyle.Bold)
|
|||
|
|
End With
|
|||
|
|
With GrdC43cfg.Cell(0, EnListed.Remark)
|
|||
|
|
.Text = "备注"
|
|||
|
|
.BackColor = Color.LightGray
|
|||
|
|
.ForeColor = Color.Blue
|
|||
|
|
.Font = New Font("Arial", 8, FontStyle.Bold)
|
|||
|
|
End With
|
|||
|
|
|
|||
|
|
'是否选中
|
|||
|
|
GrdC43cfg.Column(EnListed.IsSelected).CellType = FlexCell.CellTypeEnum.CheckBox
|
|||
|
|
GrdC43cfg.Cell(1, EnListed.IsSelected).Text = $"1"
|
|||
|
|
|
|||
|
|
'按键号
|
|||
|
|
GrdC43cfg.Column(EnListed.ButtonName).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|||
|
|
GrdC43cfg.Column(EnListed.ButtonName).Mask = FlexCell.MaskEnum.Numeric
|
|||
|
|
GrdC43cfg.Column(EnListed.ButtonName).DecimalLength = 0
|
|||
|
|
|
|||
|
|
'按键类型
|
|||
|
|
GrdC43cfg.Column(EnListed.ButtonType).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|||
|
|
GrdC43cfg.Column(EnListed.ButtonType).CellType = FlexCell.CellTypeEnum.ComboBox
|
|||
|
|
With GrdC43cfg.ComboBox(EnListed.ButtonType).Items
|
|||
|
|
.Clear()
|
|||
|
|
.Add("点按") '默认点按
|
|||
|
|
.Add("松开")
|
|||
|
|
.Add("长按")
|
|||
|
|
End With
|
|||
|
|
|
|||
|
|
'设备类型
|
|||
|
|
GrdC43cfg.Column(EnListed.DeviceType).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|||
|
|
GrdC43cfg.Column(EnListed.DeviceType).CellType = FlexCell.CellTypeEnum.ComboBox
|
|||
|
|
With GrdC43cfg.ComboBox(EnListed.DeviceType).Items
|
|||
|
|
.Clear()
|
|||
|
|
.Add("场景")
|
|||
|
|
.Add("本地继电器")
|
|||
|
|
.Add("本地服务信息")
|
|||
|
|
.Add("干节点窗帘")
|
|||
|
|
.Add("空调")
|
|||
|
|
.Add("LED扩展")
|
|||
|
|
.Add("背景音乐")
|
|||
|
|
.Add("监控")
|
|||
|
|
End With
|
|||
|
|
|
|||
|
|
'设备编号
|
|||
|
|
GrdC43cfg.Column(EnListed.DeviceNumber).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|||
|
|
GrdC43cfg.Column(EnListed.DeviceNumber).Mask = FlexCell.MaskEnum.Numeric
|
|||
|
|
GrdC43cfg.Column(EnListed.DeviceNumber).DecimalLength = 0
|
|||
|
|
|
|||
|
|
'执行方式
|
|||
|
|
GrdC43cfg.Column(EnListed.CarryWayL).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|||
|
|
|
|||
|
|
'执行内容
|
|||
|
|
GrdC43cfg.Column(EnListed.CarryWayH).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|||
|
|
|
|||
|
|
'场景控制方式
|
|||
|
|
GrdC43cfg.Column(EnListed.SceneControlWay).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|||
|
|
GrdC43cfg.Column(EnListed.SceneControlWay).CellType = FlexCell.CellTypeEnum.ComboBox
|
|||
|
|
With GrdC43cfg.ComboBox(EnListed.SceneControlWay).Items
|
|||
|
|
.Clear()
|
|||
|
|
.Add("场景单控")
|
|||
|
|
.Add("场景可关闭")
|
|||
|
|
End With
|
|||
|
|
|
|||
|
|
'延时执行
|
|||
|
|
GrdC43cfg.Column(EnListed.DelayToPerform).Alignment = FlexCell.AlignmentEnum.CenterCenter
|
|||
|
|
GrdC43cfg.Column(EnListed.DelayToPerform).Mask = FlexCell.MaskEnum.Numeric
|
|||
|
|
GrdC43cfg.Column(EnListed.DelayToPerform).DecimalLength = 0
|
|||
|
|
|
|||
|
|
'备注
|
|||
|
|
GrdC43cfg.Column(EnListed.Remark).Alignment = FlexCell.AlignmentEnum.LeftCenter
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' C43搜索命令—按地址搜索
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="sender"></param>
|
|||
|
|
''' <param name="e"></param>
|
|||
|
|
Private Sub BtnSearch_Click(sender As Object, e As EventArgs) Handles BtnSearch.Click
|
|||
|
|
_sendTick = 0 '标志位
|
|||
|
|
|
|||
|
|
'获取Set发送内容Data部分
|
|||
|
|
_port485 = $"&H{Hex(NudC43Port.Value)}"
|
|||
|
|
_timeouts = $"&H{Hex(NudC43TimeOut.Value)}"
|
|||
|
|
|
|||
|
|
'组包C43搜索命令
|
|||
|
|
Dim C43Address As Byte = $"&H{Hex(NudAddress.Value)}"
|
|||
|
|
Dim C43Data(4) As Byte
|
|||
|
|
C43Data(0) = C43Address
|
|||
|
|
C43Data(1) = &HA3
|
|||
|
|
C43Data(2) = &H1
|
|||
|
|
C43Data(3) = &H0
|
|||
|
|
C43Data(4) = C43Address + &HA3 + &H1 + &H0 '和校验
|
|||
|
|
|
|||
|
|
'填充数据包
|
|||
|
|
C43Data = FillPacket(C43Data)
|
|||
|
|
|
|||
|
|
'发送数据包
|
|||
|
|
SendData(C43Data)
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' C43发布
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="sender"></param>
|
|||
|
|
''' <param name="e"></param>
|
|||
|
|
Private Sub BtnReleaseUpgrade_Click(sender As Object, e As EventArgs) Handles BtnReleaseUpgrade.Click
|
|||
|
|
_sendTick = 0 '标志位
|
|||
|
|
|
|||
|
|
'获取Set发送内容Data部分
|
|||
|
|
_port485 = $"&H{Hex(NudC43Port.Value)}"
|
|||
|
|
_timeouts = $"&H{Hex(NudC43TimeOut.Value)}"
|
|||
|
|
|
|||
|
|
Dim C43Address As Byte = $"&H{Hex(NudAddress.Value)}" '获取发送数据部分
|
|||
|
|
Dim C43dataList() As Byte = C43cfgDataTakeOut() '表格数据
|
|||
|
|
Dim C43Head() As Byte = C43FirstBlockHeadData() '8个字节的版本号&全局变量
|
|||
|
|
Dim C43crc16() As Byte = CheckSendData(C43Head, C43dataList) 'C43发布命令的CRC16校验
|
|||
|
|
Dim blocks As Byte = GetBlocks(C43dataList) '求数据的块数
|
|||
|
|
|
|||
|
|
'和校验
|
|||
|
|
Dim dataSumI As UInteger = C43Address + &HA6 + &H1 + &H1 + C43crc16(0) + C43crc16(1) + blocks
|
|||
|
|
Dim data7Sum As Byte = dataSumI And &HFF
|
|||
|
|
|
|||
|
|
'组包C43发布命令
|
|||
|
|
Dim C43Data(7) As Byte
|
|||
|
|
C43Data(0) = C43Address
|
|||
|
|
C43Data(1) = &HA6
|
|||
|
|
C43Data(2) = &H1
|
|||
|
|
C43Data(3) = &H1
|
|||
|
|
C43Data(4) = C43crc16(0)
|
|||
|
|
C43Data(5) = C43crc16(1)
|
|||
|
|
C43Data(6) = blocks
|
|||
|
|
C43Data(7) = data7Sum
|
|||
|
|
|
|||
|
|
'填充数据包
|
|||
|
|
C43Data = FillPacket(C43Data)
|
|||
|
|
|
|||
|
|
'发送数据
|
|||
|
|
SendData(C43Data)
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' C43第一包数据包头
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Private Function C43FirstBlockHeadData() As Byte()
|
|||
|
|
Dim C43Head(7) As Byte
|
|||
|
|
C43Head(0) = &H0 '配置版本号
|
|||
|
|
C43Head(1) = &H0 '配置版本号
|
|||
|
|
C43Head(2) = &H0 '配置版本号
|
|||
|
|
C43Head(3) = &H0 '全局变量_背光时间
|
|||
|
|
C43Head(4) = &H0 '备用
|
|||
|
|
C43Head(5) = &H0 '备用
|
|||
|
|
C43Head(6) = &H0 '备用
|
|||
|
|
C43Head(7) = &H0 '备用
|
|||
|
|
Return C43Head
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' C43下发数据
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="sender"></param>
|
|||
|
|
''' <param name="e"></param>
|
|||
|
|
Private Sub BtnIssuesData_Click(sender As Object, e As EventArgs) Handles BtnIssuesData.Click
|
|||
|
|
SendC43DataToRCU()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 下发C43数据到RCU
|
|||
|
|
''' </summary>
|
|||
|
|
Private Sub SendC43DataToRCU()
|
|||
|
|
Dim sendPacket As Byte()
|
|||
|
|
Dim serialAppPacket As Byte()
|
|||
|
|
Dim C43Data As Byte()
|
|||
|
|
Dim blockCount As Integer
|
|||
|
|
|
|||
|
|
_port485 = $"&H{Hex(NudC43Port.Value)}"
|
|||
|
|
_timeouts = $"&H{Hex(NudC43TimeOut.Value)}"
|
|||
|
|
|
|||
|
|
C43Data = C43cfgDataTakeOut() '取表中数据
|
|||
|
|
blockCount = GetBlocks(C43Data) '获取总发送块数
|
|||
|
|
|
|||
|
|
For blockIndex = 0 To blockCount - 1 '循环发送数据块
|
|||
|
|
serialAppPacket = FillC43SendPacket(C43Data, blockIndex， blockCount) '组C43透传数据包
|
|||
|
|
|
|||
|
|
sendPacket = FillPacket(serialAppPacket)
|
|||
|
|
SendData(sendPacket)
|
|||
|
|
|
|||
|
|
Dim Interval As Integer = NudInterval.Value
|
|||
|
|
Thread.Sleep(Interval) '发送间隔
|
|||
|
|
Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 取出C43配置数据
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Private Function C43cfgDataTakeOut() As Byte()
|
|||
|
|
Dim C43DataList As New List(Of Byte)
|
|||
|
|
|
|||
|
|
For row = 1 To GrdC43cfg.Rows - 1
|
|||
|
|
Dim dataOne As Byte
|
|||
|
|
If GrdC43cfg.Cell(row, EnListed.ButtonName).Text = Nothing Then
|
|||
|
|
GrdC43cfg.Cell(row, EnListed.ButtonName).Text = 1
|
|||
|
|
dataOne = &H1
|
|||
|
|
Else
|
|||
|
|
dataOne = $"&H{Hex(GrdC43cfg.Cell(row, EnListed.ButtonName).Text)}"
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Dim dataTwo As Byte
|
|||
|
|
If GrdC43cfg.Cell(row, EnListed.ButtonType).Text = Nothing Then
|
|||
|
|
GrdC43cfg.Cell(row, EnListed.ButtonType).Text = "点按"
|
|||
|
|
dataTwo = &H1
|
|||
|
|
ElseIf GrdC43cfg.Cell(row, EnListed.ButtonType).Text = "点按" Then
|
|||
|
|
dataTwo = &H1
|
|||
|
|
ElseIf GrdC43cfg.Cell(row, EnListed.ButtonType).Text = "松开" Then
|
|||
|
|
dataTwo = &H2
|
|||
|
|
ElseIf GrdC43cfg.Cell(row, EnListed.ButtonType).Text = "长按" Then
|
|||
|
|
dataTwo = &H3
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Dim dataThree As Byte
|
|||
|
|
If GrdC43cfg.Cell(row, EnListed.DeviceType).Text = Nothing Then
|
|||
|
|
GrdC43cfg.Cell(row, EnListed.DeviceType).Text = "场景"
|
|||
|
|
dataThree = &H0
|
|||
|
|
ElseIf GrdC43cfg.Cell(row, EnListed.DeviceType).Text = "场景" Then
|
|||
|
|
dataThree = &H0
|
|||
|
|
ElseIf GrdC43cfg.Cell(row, EnListed.DeviceType).Text = "本地继电器" Then
|
|||
|
|
dataThree = &H1
|
|||
|
|
ElseIf GrdC43cfg.Cell(row, EnListed.DeviceType).Text = "本地服务信息" Then
|
|||
|
|
dataThree = &H4
|
|||
|
|
ElseIf GrdC43cfg.Cell(row, EnListed.DeviceType).Text = "干节点窗帘" Then
|
|||
|
|
dataThree = &H5
|
|||
|
|
ElseIf GrdC43cfg.Cell(row, EnListed.DeviceType).Text = "空调" Then
|
|||
|
|
dataThree = &H7
|
|||
|
|
ElseIf GrdC43cfg.Cell(row, EnListed.DeviceType).Text = "LED扩展" Then
|
|||
|
|
dataThree = &H10
|
|||
|
|
ElseIf GrdC43cfg.Cell(row, EnListed.DeviceType).Text = "背景音乐" Then
|
|||
|
|
dataThree = &H15
|
|||
|
|
ElseIf GrdC43cfg.Cell(row, EnListed.DeviceType).Text = "监控" Then
|
|||
|
|
dataThree = &H24
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Dim dataFour As Byte
|
|||
|
|
If GrdC43cfg.Cell(row, EnListed.DeviceNumber).Text = Nothing Then
|
|||
|
|
GrdC43cfg.Cell(row, EnListed.DeviceNumber).Text = 1
|
|||
|
|
dataFour = &H1
|
|||
|
|
Else
|
|||
|
|
dataFour = $"&H{Hex(GrdC43cfg.Cell(row, EnListed.DeviceNumber).Text)}"
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Dim dataFive As Byte
|
|||
|
|
If GrdC43cfg.Cell(row, EnListed.CarryWayL).Text = Nothing Then
|
|||
|
|
GrdC43cfg.Cell(row, EnListed.CarryWayL).Text = 1
|
|||
|
|
dataFive = &H1
|
|||
|
|
Else
|
|||
|
|
dataFive = $"&H{Hex(GrdC43cfg.Cell(row, EnListed.CarryWayL).Text)}"
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Dim dataSix As Byte
|
|||
|
|
If GrdC43cfg.Cell(row, EnListed.CarryWayH).Text = Nothing Then
|
|||
|
|
GrdC43cfg.Cell(row, EnListed.CarryWayH).Text = 0
|
|||
|
|
dataSix = &H0
|
|||
|
|
Else
|
|||
|
|
dataSix = $"&H{Hex(GrdC43cfg.Cell(row, EnListed.CarryWayH).Text)}"
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Dim dataSeven As Byte
|
|||
|
|
If GrdC43cfg.Cell(row, EnListed.SceneControlWay).Text = Nothing Then
|
|||
|
|
GrdC43cfg.Cell(row, EnListed.SceneControlWay).Text = "场景单控"
|
|||
|
|
dataSeven = &H1
|
|||
|
|
ElseIf GrdC43cfg.Cell(row, EnListed.SceneControlWay).Text = "场景单控" Then
|
|||
|
|
dataSeven = &H1
|
|||
|
|
ElseIf GrdC43cfg.Cell(row, EnListed.SceneControlWay).Text = "场景可关闭" Then
|
|||
|
|
dataSeven = &H2
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Dim dataEight As Byte
|
|||
|
|
If GrdC43cfg.Cell(row, EnListed.DelayToPerform).Text = Nothing Then
|
|||
|
|
GrdC43cfg.Cell(row, EnListed.DelayToPerform).Text = 0
|
|||
|
|
dataEight = &H0
|
|||
|
|
Else
|
|||
|
|
dataEight = $"&H{Hex(GrdC43cfg.Cell(row, EnListed.DelayToPerform).Text)}"
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If GrdC43cfg.Cell(row, EnListed.IsSelected).BooleanValue = True Then
|
|||
|
|
C43DataList.Add(dataOne)
|
|||
|
|
C43DataList.Add(dataTwo)
|
|||
|
|
C43DataList.Add(dataThree)
|
|||
|
|
C43DataList.Add(dataFour)
|
|||
|
|
C43DataList.Add(dataFive)
|
|||
|
|
C43DataList.Add(dataSix)
|
|||
|
|
C43DataList.Add(dataSeven)
|
|||
|
|
C43DataList.Add(dataEight)
|
|||
|
|
Else
|
|||
|
|
Console.WriteLine("此行数据未选中！")
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
Return C43DataList.ToArray
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 填充C43发送数据包
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="C43Data"></param>
|
|||
|
|
''' <param name="blockIndex"></param>
|
|||
|
|
''' <param name="blockCount"></param>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Private Function FillC43SendPacket(C43Data As Byte(), blockIndex As Integer， blockCount As Integer) As Byte()
|
|||
|
|
Dim dataList As New List(Of Byte)
|
|||
|
|
|
|||
|
|
dataList.AddRange(FillC43AddrData(blockIndex)) '地址4个字节
|
|||
|
|
|
|||
|
|
dataList.AddRange(FillC43SendPacketByBlock(C43Data, blockIndex， blockCount)) '按块填充表格数据
|
|||
|
|
|
|||
|
|
dataList.Add(GetSumCheck(dataList.ToArray)) '求块数据和校验
|
|||
|
|
|
|||
|
|
Return dataList.ToArray
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 填充C43地址数据
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="blockIndex"></param>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Private Function FillC43AddrData(blockIndex As Integer) As Byte()
|
|||
|
|
Dim C43Address As Byte = $"&H{Hex(NudAddress.Value)}" '获取发送数据部分
|
|||
|
|
Dim C43Data(3) As Byte
|
|||
|
|
C43Data(0) = C43Address
|
|||
|
|
C43Data(1) = &HA7
|
|||
|
|
C43Data(2) = &H1
|
|||
|
|
C43Data(3) = blockIndex
|
|||
|
|
|
|||
|
|
Return C43Data
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 按块填充C43表格数据
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="C43Data"></param>
|
|||
|
|
''' <param name="blockIndex"></param>
|
|||
|
|
''' <param name="blockCount"></param>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Private Function FillC43SendPacketByBlock(C43Data As Byte(), blockIndex As Integer， blockCount As Integer) As Byte()
|
|||
|
|
Dim blockPacket As New List(Of Byte)
|
|||
|
|
|
|||
|
|
If blockIndex = 0 Then blockPacket.AddRange(C43FirstBlockHeadData) '第0块额外添加8个字节数据
|
|||
|
|
|
|||
|
|
If blockIndex = blockCount - 1 Then
|
|||
|
|
For index = 128 * blockIndex To C43Data.Length - 1
|
|||
|
|
blockPacket.Add(C43Data(index))
|
|||
|
|
Next
|
|||
|
|
Else
|
|||
|
|
For index = 128 * blockIndex To 128 * (blockIndex + 1) - 1
|
|||
|
|
blockPacket.Add(C43Data(index))
|
|||
|
|
Next
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Return blockPacket.ToArray
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' C43表格配置按键
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="sender"></param>
|
|||
|
|
''' <param name="e"></param>
|
|||
|
|
Private Sub TSBtnC43cfgData_Click(sender As Object, e As EventArgs) Handles TsBtnC43cfgData.Click
|
|||
|
|
GrdC43cfg.Rows = 1 '清除表格数据
|
|||
|
|
C43ConfigData()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 增加数据行
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="sender"></param>
|
|||
|
|
''' <param name="e"></param>
|
|||
|
|
Private Sub TSBtnAddRows_Click(sender As Object, e As EventArgs) Handles TsBtnAddRows.Click
|
|||
|
|
GrdC43cfg.AddItem("")
|
|||
|
|
GrdC43cfg.Cell(GrdC43cfg.Rows - 1, EnListed.IsSelected).Text = "1"
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 删除数据行
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="sender"></param>
|
|||
|
|
''' <param name="e"></param>
|
|||
|
|
Private Sub TSBtnDelete_Click(sender As Object, e As EventArgs) Handles TsBtnDelete.Click
|
|||
|
|
GrdC43cfg.Selection.DeleteByRow()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 保存C43数据
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="sender"></param>
|
|||
|
|
''' <param name="e"></param>
|
|||
|
|
Private Sub TSBtnSave_Click(sender As Object, e As EventArgs) Handles TsBtnSave.Click
|
|||
|
|
Dim dirPath As String = Application.StartupPath & "/" & "C43Config"
|
|||
|
|
If Directory.Exists(dirPath) = False Then Directory.CreateDirectory(dirPath)
|
|||
|
|
SaveFileDialog1.InitialDirectory = dirPath
|
|||
|
|
|
|||
|
|
SaveFileConfig()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 保存文件配置
|
|||
|
|
''' </summary>
|
|||
|
|
Private Sub SaveFileConfig()
|
|||
|
|
With SaveFileDialog1
|
|||
|
|
.Filter = "保存为xml|*.xml"
|
|||
|
|
.FileName = "C43"
|
|||
|
|
.DefaultExt = "xml"
|
|||
|
|
.AddExtension = True
|
|||
|
|
End With
|
|||
|
|
|
|||
|
|
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
|
|||
|
|
GrdC43cfg.ExportToXML(SaveFileDialog1.FileName)
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 读取数据
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="sender"></param>
|
|||
|
|
''' <param name="e"></param>
|
|||
|
|
Private Sub TSBtnRead_Click(sender As Object, e As EventArgs) Handles TsBtnRead.Click
|
|||
|
|
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
|
|||
|
|
GrdC43cfg.LoadFromXML(OpenFileDialog1.FileName)
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
'Private Function FillSerialAppPacket(serialAppPacket As Byte()) As Byte()
|
|||
|
|
' '获取Set发送内容Data部分
|
|||
|
|
' Dim serialCmd As Byte = &H3
|
|||
|
|
' Dim port485 As Byte = $"&H{Hex(NudC43Port.Value)}"
|
|||
|
|
' Dim timeOut As Byte = $"&H{Hex(NudC43TimeOut.Value)}"
|
|||
|
|
|
|||
|
|
' Dim dataLen As Integer = serialAppPacket.Length + 3
|
|||
|
|
' Dim data(dataLen - 1) As Byte
|
|||
|
|
' data(0) = serialCmd
|
|||
|
|
' data(1) = port485
|
|||
|
|
' data(2) = timeOut
|
|||
|
|
' Array.Copy(serialAppPacket, 0, data, 3, serialAppPacket.Length)
|
|||
|
|
|
|||
|
|
' '获取发送数据Head部分和CRC16校验值部分
|
|||
|
|
' Dim byteHead As Byte() = SendDataHead(data) '获取DataHaed
|
|||
|
|
' Dim crc16 As Byte() = CheckSendData(byteHead, data) '获取Data检验值
|
|||
|
|
|
|||
|
|
' Return FillSendPacket(byteHead, data, crc16)
|
|||
|
|
'End Function
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Class
|