325 lines
12 KiB
VB.net
325 lines
12 KiB
VB.net
Imports System.ComponentModel
|
||
Imports _485_BurningTool.CommunicationFlow
|
||
Imports _485_BurningTool.RuningLog
|
||
|
||
Public MustInherit Class BLV_Bootloader
|
||
Inherits CommunicationProtocol
|
||
Public m_config As BLV_Bootloaderconfig
|
||
Private SN As Integer
|
||
Public m_flowdic As Dictionary(Of String, List(Of (Integer, Cmdconfig)))
|
||
Enum CmdType
|
||
<Description("等待回复")>
|
||
WaitReply = 0
|
||
<Description("处理回复")>
|
||
ProcessReply = 1
|
||
<Description("搜索命令")>
|
||
SearchCommand = 192 'C0
|
||
<Description("跳转命令")>
|
||
skipCommand = 193
|
||
<Description("设置参数")>
|
||
SetUpParameters = 194
|
||
<Description("写入Flash数据")>
|
||
WriteFlashData = 195
|
||
<Description("读取Flash数据")>
|
||
ReadingFlashData = 196
|
||
<Description("擦除Flash数据")>
|
||
EraseFlashData = 197
|
||
<Description("写入EEPROM数据")>
|
||
WriteEEPROMData = 198
|
||
<Description("读取EEPROM数据")>
|
||
ReadingEEPROMData = 199
|
||
<Description("擦除EEPROM数据")>
|
||
EraseEEPROMData = 200
|
||
<Description("校验命令")>
|
||
CheckCommand = 201
|
||
|
||
End Enum
|
||
|
||
Enum WorkflowType
|
||
none = 0
|
||
<Description("搜索设备")>
|
||
SearchEquipment = 192
|
||
<Description("写入Flash"）>
|
||
FlashWrite = 195
|
||
<Description("写入EEPROM"）>
|
||
EEPROMWrite = 198
|
||
<Description("群写入Flash"）>
|
||
FlashGroupUpgrade
|
||
|
||
<Description("Boot搜索"）>
|
||
BootSearchEquipment
|
||
|
||
<Description("Boot搜索"）>
|
||
ReadingFlashData
|
||
|
||
|
||
End Enum
|
||
'自增SN号
|
||
Public Function GetSN() As Integer
|
||
If SN < 15 Then
|
||
SN += 1
|
||
Else
|
||
SN = 0
|
||
End If
|
||
Console.WriteLine("SN:" & SN)
|
||
Return SN
|
||
End Function
|
||
|
||
|
||
'创建协议类对象
|
||
Public Shared Function CreateProtocol(communicationType As CommunicationType) As Object
|
||
Select Case communicationType
|
||
Case CommunicationType.SerialPort
|
||
Return New SerialPort_BLV_Bootloader()
|
||
Case CommunicationType.Udp
|
||
Return New SerialPort_BLV_Bootloader()
|
||
Case Else
|
||
Return Nothing
|
||
End Select
|
||
End Function
|
||
|
||
|
||
Public MustOverride Function PacketDataSearchCommand(ParamArray args() As String) As Byte()
|
||
|
||
|
||
|
||
Public MustOverride Function PacketDataSkipCommand(ParamArray args() As String) As Byte()
|
||
|
||
|
||
|
||
Public MustOverride Function PacketDataSetUpParameters(ParamArray args() As String) As Byte()
|
||
|
||
|
||
|
||
Public MustOverride Function PacketDataWriteFlashData(ParamArray args() As String) As Byte()
|
||
|
||
|
||
|
||
Public MustOverride Function PacketDataReadingFlashData(ParamArray args() As String) As Byte()
|
||
|
||
|
||
Public MustOverride Function PacketDataEraseFlashData(ParamArray args() As String) As Byte()
|
||
|
||
|
||
|
||
Public MustOverride Function PacketDataWriteEEPROMData(ParamArray args() As String) As Byte()
|
||
|
||
|
||
|
||
Public MustOverride Function PacketDataReadingEEPROMData(ParamArray args() As String) As Byte()
|
||
|
||
|
||
|
||
Public MustOverride Function PacketDataEraseEEPROMData(ParamArray args() As String) As Byte()
|
||
|
||
|
||
|
||
Public MustOverride Function PacketDataCheckCommand(ParamArray args() As String) As Byte()
|
||
Public MustOverride Sub SetUpgradeProgressProgressbar(gTable As DataGridView, addr As String, devtype As String, val As String, bcolor As Color, Optional RText_OutputText As RichTextBox = Nothing)
|
||
Public MustOverride Sub NewSearchEquipmentProcess(Parameterlist As Parameterlist)
|
||
Public MustOverride Sub NewBootSearchEquipmentProcess(Parameterlist As Parameterlist)
|
||
Public MustOverride Sub OrdinaryOccurrenceCommand(Parameterlist As Parameterlist)
|
||
|
||
Public MustOverride Sub WorkflowTypeNone(Parameterlist As Parameterlist, ByRef isRuning As Boolean)
|
||
Public MustOverride Sub NewUpgradeProcess(Parameterlist As Parameterlist)
|
||
Public MustOverride Sub NewFlashGroupUpgrade(Parameterlist As Parameterlist)
|
||
|
||
Public MustOverride Sub NewSearchEquipmentProcess2(Parameterlist As Parameterlist)
|
||
Public MustOverride Sub NewBootSearchEquipmentProcess2(Parameterlist As Parameterlist)
|
||
Public MustOverride Sub NewUpgradeProcess2(Parameterlist As Parameterlist)
|
||
Public MustOverride Sub NewFlashGroupUpgrade2(Parameterlist As Parameterlist)
|
||
'获取固定流程
|
||
Public Function GetImmobilizationWorkflow(g_WorkflowType As WorkflowType) As Boolean
|
||
Dim li As New List(Of (number As Integer, Cmdconfig))
|
||
Dim WorkflowName As String = DataProcessing.GetEnumDescription(g_WorkflowType)
|
||
If Not m_flowdic.ContainsKey(WorkflowName) Then
|
||
Select Case g_WorkflowType
|
||
Case WorkflowType.SearchEquipment
|
||
li.Add((0, New Cmdconfig({CmdType.SearchCommand, GetSN()， 0, 0, 10， 1})))
|
||
Case WorkflowType.FlashWrite， WorkflowType.EEPROMWrite
|
||
li.Add((0, New Cmdconfig({CmdType.SearchCommand, GetSN()， 0, 0, 10， 1})))
|
||
li.Add((1, New Cmdconfig({CmdType.SearchCommand, GetSN()， 0, 0, 10， 1})))
|
||
li.Add((2, New Cmdconfig({CmdType.SearchCommand, GetSN()， 0, 0, 10， 1})))
|
||
li.Add((3, New Cmdconfig({CmdType.SearchCommand, GetSN()， 0, 0, 10， 1})))
|
||
li.Add((4, New Cmdconfig({CmdType.SearchCommand, GetSN()， 0, 0, 10， 1})))
|
||
li.Add((5, New Cmdconfig({CmdType.SearchCommand, GetSN()， 0, 0, 10， 1})))
|
||
li.Add((6, New Cmdconfig({CmdType.SearchCommand, GetSN()， 0, 0, 10， 1})))
|
||
'Case WorkflowType.EEPROMWrite
|
||
' li.Add((0, New Cmdconfig({CmdType.SearchCommand, GetSN()， 0, 0, 10， 1})))
|
||
' li.Add((0, New Cmdconfig({CmdType.SearchCommand, GetSN()， 0, 0, 10， 1})))
|
||
End Select
|
||
End If
|
||
|
||
End Function
|
||
'创建Cmdconfig 节点
|
||
|
||
|
||
|
||
|
||
'升级流程
|
||
Public MustOverride Function UpgradeProcess(g_Cmdconfig As List(Of (number As Integer, Cmdconfig)), ParamArray args() As Object) As String
|
||
|
||
'搜索流程
|
||
''' <summary>
|
||
''' 搜索设备流程
|
||
''' </summary>
|
||
''' <param name="args">超时时间、表格控件、打印控件 </param>
|
||
''' <returns></returns>
|
||
Public MustOverride Function SearchEquipmentProcess(g_Cmdconfig As Cmdconfig, ParamArray args() As Object) As Boolean
|
||
'开始时间
|
||
|
||
'写入Flash流程
|
||
|
||
Public Function FlashWriteProcess(ParamArray args() As String) As Boolean
|
||
|
||
End Function
|
||
'写入EEPROM流程
|
||
Public Function EEPROMWriteProcess(ParamArray args() As String) As Boolean
|
||
|
||
End Function
|
||
|
||
Public Overrides Function Runing(Parameterlist As Parameterlist, ByRef isRuning As Boolean) As Boolean
|
||
Try
|
||
m_Transmitter.mCommunicationFlow = Me
|
||
If Parameterlist.CommunicationTypeIndex = 1 Then
|
||
Select Case Parameterlist.Action
|
||
Case WorkflowType.SearchEquipment
|
||
NewSearchEquipmentProcess(Parameterlist) '搜索设备流程 False
|
||
Case WorkflowType.FlashWrite
|
||
NewUpgradeProcess(Parameterlist) '群组升级流程
|
||
Case WorkflowType.EEPROMWrite
|
||
Case WorkflowType.FlashGroupUpgrade
|
||
'Console.WriteLine(Parameterlist)
|
||
NewFlashGroupUpgrade(Parameterlist) 'flash组升级流程
|
||
Case WorkflowType.BootSearchEquipment
|
||
NewBootSearchEquipmentProcess(Parameterlist) 'boot搜索流程 true
|
||
Case WorkflowType.ReadingFlashData
|
||
OrdinaryOccurrenceCommand(Parameterlist)
|
||
Case WorkflowType.none
|
||
WorkflowTypeNone(Parameterlist, isRuning)
|
||
|
||
End Select
|
||
ElseIf Parameterlist.CommunicationTypeIndex = 2 Then
|
||
Select Case Parameterlist.Action
|
||
Case WorkflowType.SearchEquipment
|
||
NewSearchEquipmentProcess2(Parameterlist)
|
||
Case WorkflowType.FlashWrite
|
||
NewUpgradeProcess2(Parameterlist)
|
||
Case WorkflowType.EEPROMWrite
|
||
Case WorkflowType.FlashGroupUpgrade
|
||
'Console.WriteLine(Parameterlist)
|
||
NewFlashGroupUpgrade2(Parameterlist)
|
||
Case WorkflowType.BootSearchEquipment
|
||
NewBootSearchEquipmentProcess2(Parameterlist)
|
||
Case WorkflowType.none
|
||
WorkflowTypeNone(Parameterlist, isRuning)
|
||
End Select
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
|
||
AddQueue(Parameterlist.RText_OutputText, New RuningLogConfig($"线程运行错误：{ ex.Message }", Color.Red))
|
||
Return False
|
||
'OutputLogsToTheControl(Parameterlist.RText_OutputText, New RuningLogConfig($"线程运行错误：{ ex.Message }", Color.Red), 1)
|
||
End Try
|
||
|
||
|
||
End Function
|
||
|
||
End Class
|
||
|
||
Public Class BLV_Bootloaderconfig
|
||
'搜索设备流程开关
|
||
Public SearchEquipmentProcessSwitch As Boolean = False
|
||
'升级流程开关
|
||
Public UpgradeProcessSwitch As Boolean = False
|
||
|
||
'己方地址
|
||
Public MyAddress As Byte = 0
|
||
''接受者类型
|
||
Public ReceiverType As Byte = 0
|
||
|
||
'设备类型
|
||
Public DeviceType As Byte = 0
|
||
'对方地址
|
||
Public ReceiverAddress As Byte = 0
|
||
'单发开关
|
||
Public SingleSwitch As Boolean = False
|
||
'重发开关
|
||
Public ResendSwitch As Boolean = False
|
||
|
||
'校验和
|
||
Sub New()
|
||
MyAddress = 0
|
||
ReceiverType = 96
|
||
DeviceType = 0
|
||
End Sub
|
||
|
||
''' <summary>
|
||
'''
|
||
''' </summary>
|
||
''' <param name="args"></param>
|
||
''' <returns></returns>
|
||
Public Function SetProtocolParam(ParamArray args() As String) As String
|
||
Dim msgstr As String = ""
|
||
Try
|
||
MyAddress = CByte(args(0))
|
||
Dim nbuf() As String = args(1).Split(",")
|
||
If nbuf.Length < 3 OrElse Not SetReceiverType(nbuf(0), nbuf(1), nbuf(2)， msgstr) Then Return False
|
||
DeviceType = CByte(args(2))
|
||
ReceiverAddress = CByte(args(3))
|
||
|
||
Catch ex As Exception
|
||
msgstr = " set protocol parameters fail "
|
||
End Try
|
||
Return msgstr
|
||
End Function
|
||
'
|
||
|
||
|
||
'设置接受者类型数据
|
||
'addr：1群发，0单发
|
||
'resend：1重发，0不重发
|
||
Public Function SetReceiverType(addr As Boolean, resend As Boolean, SN As Integer, ByRef Optional msgstr As String = "") As Boolean
|
||
Dim nReceiverType As Byte = 0
|
||
If SN > 15 AndAlso SN < 0 Then
|
||
msgstr = "The communication protocol SN of the BLV_Bootloader is incorrect：SN=" & SN
|
||
Return False
|
||
End If
|
||
If addr Then
|
||
nReceiverType = nReceiverType Or (1 << 7)
|
||
End If
|
||
If resend Then
|
||
'SN = ReceiverType
|
||
nReceiverType = nReceiverType Or (1 << 6)
|
||
Else
|
||
ResendSwitch = True
|
||
End If
|
||
nReceiverType = nReceiverType Or SN
|
||
ReceiverType = nReceiverType
|
||
Return True
|
||
End Function
|
||
'设置接受者类型数据
|
||
'addr：1群发，0单发
|
||
'resend：1重发，0不重发
|
||
Public Function SetReceiverType1(addr As Boolean, resend As Boolean, SN As Integer, ByRef Optional msgstr As String = "") As Boolean
|
||
Dim nReceiverType As Byte = 0
|
||
If SN > 15 AndAlso SN < 0 Then
|
||
msgstr = "The communication protocol SN of the BLV_Bootloader is incorrect：SN=" & SN
|
||
Return False
|
||
End If
|
||
If addr Then
|
||
nReceiverType = nReceiverType Or (1 << 7)
|
||
End If
|
||
If resend Then
|
||
SN = ReceiverType '
|
||
nReceiverType = nReceiverType Or (1 << 6)
|
||
Else
|
||
ResendSwitch = True
|
||
End If
|
||
nReceiverType = nReceiverType Or SN
|
||
ReceiverType = nReceiverType
|
||
Return True
|
||
End Function
|
||
End Class
|