初始化
This commit is contained in:
381
Transmitter/DevNetworkCommunication.vb
Normal file
381
Transmitter/DevNetworkCommunication.vb
Normal file
@@ -0,0 +1,381 @@
|
||||
Imports System.Net
|
||||
Imports System.Net.Sockets
|
||||
Imports System.Threading
|
||||
|
||||
Public Class DevNetworkCommunication
|
||||
Inherits Transmitter
|
||||
|
||||
Public m_Serial As Socket
|
||||
|
||||
Public m_SerialComfig As UDPComfig
|
||||
Public m_Control As Control
|
||||
|
||||
'接收数据队列
|
||||
Public m_ReceiveQueue As List(Of Cmdconfig) = New List(Of Cmdconfig)
|
||||
'特殊接收处理标志
|
||||
Public m_SpecialReceiveFlag As Integer
|
||||
Public recvBufferli As List(Of Byte)
|
||||
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' 透传数据包头
|
||||
''' </summary>
|
||||
Public _fixedHead As Byte() = {&HAA, &H55}
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' 透传数据固定ID
|
||||
''' </summary>
|
||||
Public _fixeSystemId As Byte() = {&H54, &H33, &H53, &H41}
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' 透传数据房间信息
|
||||
''' </summary>
|
||||
Public _fixeRoomInfo As Byte() = {&HFF, &HFF, &HFF, &HFF}
|
||||
''' <summary>
|
||||
''' UDP通讯接收线程
|
||||
''' </summary>
|
||||
Private _receiveThread As Thread
|
||||
|
||||
Sub New(gControl As Control)
|
||||
|
||||
m_SerialComfig = New UDPComfig
|
||||
m_ReceiveQueue = New List(Of Cmdconfig)
|
||||
m_ReceiveQueue.Clear()
|
||||
m_Control = gControl
|
||||
|
||||
recvBufferli = New List(Of Byte)
|
||||
m_SpecialReceiveFlag = -1
|
||||
CommunicationTypeindex = 2
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub SendData(data As Cmdconfig)
|
||||
data.CmdSendTime = DateTime.Now
|
||||
If IsNothing(m_Serial) OrElse Not m_Serial.IsBound Then
|
||||
RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"发送器未连接!", Color.Red), 1)
|
||||
Return
|
||||
End If
|
||||
|
||||
'清空发送缓存
|
||||
m_Serial.SendTo(data.CmdSendData, m_SerialComfig.TargetEndPoint)
|
||||
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub CloseTransmitter()
|
||||
If Not IsNothing(m_Serial) Then
|
||||
m_Serial.Shutdown(SocketShutdown.Both)
|
||||
m_Serial.Close()
|
||||
m_Serial = Nothing
|
||||
End If
|
||||
If Not IsNothing(_receiveThread) AndAlso _receiveThread.IsAlive Then
|
||||
_receiveThread.Abort()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub ClearSendData()
|
||||
If IsNothing(m_ReceiveQueue) Then Return
|
||||
m_ReceiveQueue.Clear()
|
||||
End Sub
|
||||
Public Overrides Sub ClearReadData()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Overrides Function ReceiveData(g_comfig As Cmdconfig) As Cmdconfig
|
||||
|
||||
End Function
|
||||
''' <summary>
|
||||
''' UDP接收数据
|
||||
''' </summary>
|
||||
Private Sub UdpRecviveData()
|
||||
|
||||
Dim recvLength As Integer
|
||||
Dim recvBuffer(1024) As Byte
|
||||
|
||||
While m_Serial.IsBound
|
||||
Try
|
||||
recvLength = m_Serial.ReceiveFrom(recvBuffer, m_SerialComfig.TargetEndPoint)
|
||||
'_countRXData += recvLength
|
||||
Dim buf As Byte() = New Byte(recvLength - 1) {}
|
||||
Array.Copy(recvBuffer, buf, recvLength)
|
||||
RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"RX:{DataProcessing.ByteToString2(buf)}", Color.Blue), 1)
|
||||
Catch ex As Exception
|
||||
Console.WriteLine($"Udp Recv Error:{ex.Message}")
|
||||
Return
|
||||
End Try
|
||||
ReceivingDataProcessing(recvBuffer, recvLength)
|
||||
End While
|
||||
' If Not IsNothing(m_Transmitter) AndAlso m_Transmitter.IsTransmitter Then m_Transmitter.CloseTransmitter()
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 接收数据处理
|
||||
''' </summary>
|
||||
''' <param name="recvBuffer"></param>
|
||||
''' <param name="recvLength"></param>
|
||||
Private Sub ReceivingDataProcessing(recvBuffer() As Byte, recvLength As Integer)
|
||||
Dim startIndex As Integer '定义一个开始的计数值
|
||||
Dim packetLength As Integer '定义包的长度
|
||||
While startIndex < recvLength '判断计数值是否小于总包长
|
||||
If recvBuffer(startIndex) = _fixedHead(0) AndAlso recvBuffer(startIndex + 1) = _fixedHead(1) Then ' 判断包头是否等于AA55
|
||||
If recvBuffer(startIndex + 4) = _fixeSystemId(0) AndAlso '判断第4,5,6,7位是否等于固定值
|
||||
recvBuffer(startIndex + 5) = _fixeSystemId(1) AndAlso
|
||||
recvBuffer(startIndex + 6) = _fixeSystemId(2) AndAlso
|
||||
recvBuffer(startIndex + 7) = _fixeSystemId(3) Then
|
||||
packetLength = recvBuffer(startIndex + 2) + recvBuffer(startIndex + 3) * 256 '赋值包长
|
||||
If packetLength + startIndex <= recvLength Then '判断包长 + 计数值是否小于等于总包长
|
||||
Dim packetData(packetLength - 1) As Byte '定义一个新数据包数组
|
||||
Array.Copy(recvBuffer, startIndex, packetData, 0, packetLength) '复制数组 +5个重载
|
||||
If CheckCRC16Sucess(packetData, packetData.Length) Then '判断CRC16校验是否通过
|
||||
'显示数据
|
||||
DealData(packetData, packetLength) '分部处理数据（显示文字提示）
|
||||
startIndex += packetData.Length '计数值更新
|
||||
Else
|
||||
RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"CRC16校验失败！", Color.Red), 1)
|
||||
Exit While
|
||||
End If
|
||||
Else
|
||||
RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"数据包长校验失败！", Color.Red), 1)
|
||||
Exit While
|
||||
End If
|
||||
Else
|
||||
RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"数据校验失败！", Color.Red), 1)
|
||||
Exit While
|
||||
End If
|
||||
Else
|
||||
RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"非RCU主机发送的数据！", Color.Red), 1)
|
||||
Exit While
|
||||
End If
|
||||
End While
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 检验CRC16成功
|
||||
''' </summary>
|
||||
''' <param name="dataBuff"></param>
|
||||
''' <param name="length"></param>
|
||||
''' <returns></returns>
|
||||
Private Function CheckCRC16Sucess(dataBuff() As Byte, length As Integer) As Boolean
|
||||
Dim crcBytes() As Byte = GetCRC16CheckSum(dataBuff, length - 2)
|
||||
If crcBytes(0) <> dataBuff(length - 2) OrElse crcBytes(1) <> dataBuff(length - 1) Then Return False
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' 处理数据
|
||||
''' </summary>
|
||||
''' <param name="dataBuff"></param>
|
||||
''' <param name="length"></param>
|
||||
''' <returns></returns>
|
||||
Private Function DealData(dataBuff() As Byte, length As Integer) As Boolean
|
||||
Select Case dataBuff(8)
|
||||
Case &H70
|
||||
'获取队列第5个元素
|
||||
Dim len As Integer = m_ReceiveQueue.Count
|
||||
Dim item As Cmdconfig
|
||||
Dim buf(length - 17 - 1) As Byte
|
||||
Array.Copy(dataBuff, 15, buf, 0, buf.Length)
|
||||
|
||||
For i = 0 To len - 1
|
||||
If (len - 1 - i) < m_ReceiveQueue.Count Then
|
||||
item = m_ReceiveQueue(len - 1 - i)
|
||||
If dataBuff(15) = 2 Then
|
||||
item.OtherProtocol.UDP_TRANSPARENT_MODE_COMMAND_REPLY_STATUS = 1
|
||||
item.OtherProtocol.UDP_TRANSPARENT_MODE_COMMAND_REPLY_RESULT = dataBuff(16)
|
||||
End If
|
||||
If dataBuff(15) = 1 Then
|
||||
item.OtherProtocol.UDP_QUERY_HOST_CURRENT_MODE_COMMAND_REPLY_STATUS = 1
|
||||
item.OtherProtocol.UDP_QUERY_HOST_CURRENT_MODE_COMMAND_REPLY_RESULT = dataBuff(16)
|
||||
End If
|
||||
|
||||
'item.Protocol.ParseReceiveData(item, buf)
|
||||
End If
|
||||
Next
|
||||
Case &H71
|
||||
Dim len As Integer = m_ReceiveQueue.Count
|
||||
Dim item As Cmdconfig
|
||||
Dim buf(length - 17 - 1 - 2) As Byte
|
||||
If 17 + buf.Length < dataBuff.Length Then
|
||||
Array.Copy(dataBuff, 17, buf, 0, buf.Length)
|
||||
For i = 0 To len - 1
|
||||
If (len - 1 - i) < m_ReceiveQueue.Count Then
|
||||
item = m_ReceiveQueue(len - 1 - i)
|
||||
'If dataBuff(15) = 2 Then
|
||||
' item.OtherProtocol.UDP_TRANSPARENT_MODE_COMMAND_REPLY_STATUS = 1
|
||||
' item.OtherProtocol.UDP_TRANSPARENT_MODE_COMMAND_REPLY_RESULT = dataBuff(16)
|
||||
'End If
|
||||
'If dataBuff(15) = 1 Then
|
||||
' item.OtherProtocol.UDP_QUERY_HOST_CURRENT_MODE_COMMAND_REPLY_STATUS = 1
|
||||
' item.OtherProtocol.UDP_QUERY_HOST_CURRENT_MODE_COMMAND_REPLY_RESULT = dataBuff(16)
|
||||
'End If
|
||||
|
||||
item.Protocol.ParseReceiveData2(item, buf)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
End Select
|
||||
Return True
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' 获取CRC16校验和
|
||||
''' </summary>
|
||||
''' <param name="dataBuff">数据</param>
|
||||
''' <param name="length">数据长度</param>
|
||||
''' <returns></returns>
|
||||
Private Function GetCRC16CheckSum(dataBuff() As Byte, length As Integer) As Byte()
|
||||
Dim crc16 As UInteger
|
||||
Dim crcBytes() As Byte
|
||||
|
||||
crc16 = &HFFFF
|
||||
For i = 0 To length - 1
|
||||
crc16 = crc16 And &HFFFF
|
||||
crc16 = crc16 Xor dataBuff(i)
|
||||
For bit = 0 To 7
|
||||
crc16 = IIf((crc16 And 1) = 0, crc16 >> 1, (crc16 >> 1) Xor &HA001)
|
||||
Next
|
||||
Next
|
||||
crc16 = crc16 And &HFFFF
|
||||
crcBytes = BitConverter.GetBytes(UShort.Parse(crc16))
|
||||
Return crcBytes
|
||||
End Function
|
||||
|
||||
Public Overrides Function IsTransmitter() As Boolean
|
||||
If IsNothing(m_Serial) OrElse m_Serial.Connected = False Then Return False
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Overrides Function OpenTransmitter() As Boolean
|
||||
If Not IsNothing(m_Serial) Then
|
||||
m_Serial.Shutdown(SocketShutdown.Both)
|
||||
m_Serial.Close()
|
||||
End If
|
||||
If Not IsNothing(_receiveThread) AndAlso _receiveThread.IsAlive Then
|
||||
_receiveThread.Abort()
|
||||
End If
|
||||
|
||||
m_Serial = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
|
||||
''加保护机制
|
||||
m_Serial.Bind(m_SerialComfig.LocalEndPoint)
|
||||
m_Serial.Connect(m_SerialComfig.TargetEndPoint)
|
||||
_receiveThread = New Thread(New ThreadStart(AddressOf UdpRecviveData))
|
||||
_receiveThread.Start()
|
||||
End Function
|
||||
|
||||
Public Overrides Function GetTransmitterStatus() As Boolean
|
||||
If IsNothing(m_Serial) Then Return False
|
||||
Return True
|
||||
End Function
|
||||
''' <summary>
|
||||
''' 本地ip/本地端口/目标ip/目标端口
|
||||
''' </summary>
|
||||
''' <param name="params"></param>
|
||||
''' <returns></returns>
|
||||
Public Overrides Function SetTransmitterParameter(ParamArray params() As Object) As Boolean
|
||||
If IsNothing(m_SerialComfig) Then Return False
|
||||
Dim ipAddr As IPAddress
|
||||
Dim port As Integer
|
||||
If params.Length > 0 Then
|
||||
'判断是否为ip
|
||||
If IPAddress.TryParse(params(0), ipAddr) Then
|
||||
m_SerialComfig.LocalIP = ipAddr
|
||||
End If
|
||||
If params.Length > 1 Then
|
||||
'判断是否为端口
|
||||
If Integer.TryParse(params(1), port) Then
|
||||
m_SerialComfig.LocalPort = port
|
||||
End If
|
||||
End If
|
||||
If params.Length > 2 Then
|
||||
'判断是否为ip
|
||||
If IPAddress.TryParse(params(2), ipAddr) Then
|
||||
m_SerialComfig.TargetIP = ipAddr
|
||||
End If
|
||||
If params.Length > 3 Then
|
||||
'判断是否为端口
|
||||
If Integer.TryParse(params(3), port) Then
|
||||
m_SerialComfig.TargetPort = port
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'判断本地ip和 端口是否有效
|
||||
If IsNothing(m_SerialComfig.LocalIP) OrElse IsNothing(m_SerialComfig.LocalPort) Then
|
||||
MsgBox("本地ip或端口无效")
|
||||
Else
|
||||
'判断目标ip和 端口是否有效
|
||||
m_SerialComfig.LocalEndPoint = New IPEndPoint(m_SerialComfig.LocalIP, m_SerialComfig.LocalPort)
|
||||
End If
|
||||
'判断目标ip和 端口是否有效
|
||||
If IsNothing(m_SerialComfig.TargetIP) OrElse IsNothing(m_SerialComfig.TargetPort) Then
|
||||
MsgBox("目标ip或端口无效")
|
||||
Else
|
||||
m_SerialComfig.TargetEndPoint = New IPEndPoint(m_SerialComfig.TargetIP, m_SerialComfig.TargetPort)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
'判断是否为端口
|
||||
Private Function IsPort(port As String) As Boolean
|
||||
Return Integer.TryParse(port, port)
|
||||
End Function
|
||||
'判断是否为ip
|
||||
Private Function IsIP(ip As String) As Boolean
|
||||
Dim ipAddr As IPAddress
|
||||
Return IPAddress.TryParse(ip, ipAddr)
|
||||
End Function
|
||||
|
||||
Public Overrides Function SendData(data() As Byte) As Boolean
|
||||
'data.CmdSendTime = DateTime.Now
|
||||
If IsNothing(m_Serial) Then
|
||||
RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"发送器未连接!", Color.Red), 1)
|
||||
Return False
|
||||
End If
|
||||
|
||||
'清空发送缓存
|
||||
m_Serial.SendTo(data, m_SerialComfig.TargetEndPoint)
|
||||
Return True
|
||||
End Function
|
||||
End Class
|
||||
Public Class UDPComfig
|
||||
'本地ip
|
||||
Public LocalIP As IPAddress
|
||||
'本地端口
|
||||
Public LocalPort As Integer
|
||||
'目标ip
|
||||
Public TargetIP As IPAddress
|
||||
'目标端口
|
||||
Public TargetPort As Integer
|
||||
'发送网络端点
|
||||
Public LocalEndPoint As IPEndPoint
|
||||
'接收网络端点
|
||||
Public TargetEndPoint As IPEndPoint
|
||||
|
||||
'获取 串口名称列表
|
||||
Sub New()
|
||||
LocalIP = GetLocalIP.Item(0)
|
||||
|
||||
End Sub
|
||||
|
||||
'获取本地IP列表
|
||||
Public Shared Function GetLocalIP() As List(Of IPAddress)
|
||||
Dim address() As IPAddress
|
||||
Dim destAddress As New List(Of IPAddress)
|
||||
address = Dns.GetHostEntry(Dns.GetHostName()).AddressList
|
||||
For Each pAddress As IPAddress In address
|
||||
If pAddress.AddressFamily = AddressFamily.InterNetwork Then
|
||||
destAddress.Add(pAddress)
|
||||
End If
|
||||
Next
|
||||
Return destAddress
|
||||
End Function
|
||||
|
||||
End Class
|
||||
537
Transmitter/SerialController.vb
Normal file
537
Transmitter/SerialController.vb
Normal file
@@ -0,0 +1,537 @@
|
||||
Imports System.IO.Ports
|
||||
Imports System.Threading
|
||||
Imports _485_BurningTool.BLV_Bootloader
|
||||
|
||||
Public Class SerialController
|
||||
Inherits Transmitter
|
||||
|
||||
Public m_Serial As SerialPort
|
||||
|
||||
Public m_SerialComfig As SerialComfig
|
||||
Public m_Control As Control
|
||||
Private Timer1 As System.Windows.Forms.Timer
|
||||
'接收数据队列
|
||||
Public m_ReceiveQueue As List(Of Cmdconfig) = New List(Of Cmdconfig)
|
||||
'特殊接收处理标志
|
||||
Public m_SpecialReceiveFlag As Integer
|
||||
|
||||
Sub New(gControl As Control)
|
||||
|
||||
CommunicationTypeindex = 1
|
||||
m_SerialComfig = New SerialComfig
|
||||
m_ReceiveQueue = New List(Of Cmdconfig)
|
||||
m_ReceiveQueue.Clear()
|
||||
m_Control = gControl
|
||||
'm_Serial = New SerialPort
|
||||
'CreateSerial(m_SerialComfig)
|
||||
'创建定时器绑定定时器函数
|
||||
'Timer1 = New System.Windows.Forms.Timer
|
||||
'Timer1.Interval = 1000
|
||||
'AddHandler Timer1.Tick, AddressOf TimerTick
|
||||
'Timer1.Start()
|
||||
recvBufferli = New List(Of Byte)
|
||||
m_SpecialReceiveFlag = -1
|
||||
End Sub
|
||||
'定时器函数 定时查看接收队列是否接收超时
|
||||
Public Sub TimerTick()
|
||||
Dim len As Integer = m_ReceiveQueue.Count
|
||||
For i = 0 To len - 1
|
||||
'从尾部倒序查看节点是否超时
|
||||
Dim item As Cmdconfig = m_ReceiveQueue(len - 1 - i)
|
||||
If (Now - item.CmdSendTime).TotalSeconds > item.CmdReceiveTimeout Then
|
||||
m_ReceiveQueue.RemoveAt(len - 1 - i)
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
'创建串口连接
|
||||
Public Function CreateSerial(g_SerialComfig As SerialComfig) As Boolean
|
||||
|
||||
Try
|
||||
If IsNothing(m_Serial) Then
|
||||
m_Serial = New SerialPort(g_SerialComfig.PortName, g_SerialComfig.BaudRate, g_SerialComfig.Parity, g_SerialComfig.DataBits, g_SerialComfig.StopBits)
|
||||
AddHandler m_Serial.DataReceived, AddressOf DataReceivedHandler
|
||||
m_Serial.Open()
|
||||
Return True
|
||||
Else
|
||||
Dim m_SerialIsOpen As Boolean = False
|
||||
If m_Serial.IsOpen Then
|
||||
isread = True
|
||||
While isListen
|
||||
Application.DoEvents()
|
||||
Thread.Sleep(10)
|
||||
End While
|
||||
Thread.Sleep(10)
|
||||
m_Serial.Close()
|
||||
m_SerialIsOpen = True
|
||||
End If
|
||||
m_Serial.PortName = g_SerialComfig.PortName
|
||||
m_Serial.BaudRate = g_SerialComfig.BaudRate
|
||||
m_Serial.Parity = g_SerialComfig.Parity
|
||||
m_Serial.DataBits = g_SerialComfig.DataBits
|
||||
m_Serial.StopBits = g_SerialComfig.StopBits
|
||||
m_Serial.Handshake = g_SerialComfig.Handshake
|
||||
If m_SerialIsOpen Then
|
||||
m_Serial.Open()
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Public Overrides Sub ClearReadData()
|
||||
If IsNothing(m_Serial) Then
|
||||
Return
|
||||
Else
|
||||
If m_Serial.IsOpen Then
|
||||
'清空接收缓存
|
||||
m_Serial.DiscardInBuffer()
|
||||
End If
|
||||
End If
|
||||
If IsNothing(recvBufferli) OrElse recvBufferli.Count = 0 Then
|
||||
Return
|
||||
Else
|
||||
recvBufferli.Clear()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
'设置串口参数
|
||||
|
||||
''' 接收数据偏移量
|
||||
Private _recvOffset, _recvstar As Integer
|
||||
''' <summary>
|
||||
''' 接收数据缓存包
|
||||
''' </summary>
|
||||
Private _recvBuffer(4095) As Byte
|
||||
Public recvBufferli As List(Of Byte)
|
||||
Public recvBufferliindex As Integer = 0
|
||||
'获取 串口数据
|
||||
Private Sub DataReceivedHandler(sender As Object, e As SerialDataReceivedEventArgs)
|
||||
If isread Then Return
|
||||
|
||||
isListen = True
|
||||
Static bytes As Integer = 0
|
||||
Dim sp As SerialPort = DirectCast(sender, SerialPort)
|
||||
|
||||
Try
|
||||
Select Case m_SpecialReceiveFlag
|
||||
Case WorkflowType.SearchEquipment
|
||||
Do
|
||||
bytes = sp.BytesToRead
|
||||
If bytes <= 0 Then
|
||||
isListen = False
|
||||
Exit Sub
|
||||
End If
|
||||
'If bytes + _recvOffset >= 4096 Then
|
||||
|
||||
' 'ShowPortReceData(_recvBuffer)
|
||||
|
||||
' sp.Read(_recvBuffer, _recvOffset, 4096 - _recvOffset)
|
||||
|
||||
' _recvOffset = 0
|
||||
'Else
|
||||
' sp.Read(_recvBuffer, _recvOffset, bytes)
|
||||
' _recvOffset += bytes
|
||||
'End If
|
||||
|
||||
Dim buf(bytes - 1) As Byte
|
||||
sp.Read(buf, 0, bytes)
|
||||
recvBufferli.AddRange(buf)
|
||||
Thread.Sleep(1)
|
||||
Loop While sp.BytesToRead > 0
|
||||
If recvBufferli.Count > 0 Then
|
||||
'RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"RX:{DataProcessing.ByteToString2(recvBufferli.ToArray)}", Color.Black), 1)
|
||||
Dim item As Cmdconfig
|
||||
item = m_ReceiveQueue(0)
|
||||
'判断超时
|
||||
If item.CmdSendTime.AddMilliseconds(item.CmdReceiveTimeout) < Now Then
|
||||
recvBufferli.Clear()
|
||||
recvBufferliindex = 0
|
||||
Console.WriteLine("超时清空-----------------------------")
|
||||
Else
|
||||
'截取搜索回复
|
||||
|
||||
recvBufferliindex = ExtractSearchReply(recvBufferli.ToArray, item)
|
||||
|
||||
End If
|
||||
End If
|
||||
Case Else
|
||||
Do
|
||||
bytes = sp.BytesToRead
|
||||
If bytes <= 0 Then
|
||||
isListen = False
|
||||
Exit Sub
|
||||
End If
|
||||
'If bytes + _recvOffset >= 4096 Then
|
||||
|
||||
' 'ShowPortReceData(_recvBuffer)
|
||||
|
||||
' sp.Read(_recvBuffer, _recvOffset, 4096 - _recvOffset)
|
||||
|
||||
' _recvOffset = 0
|
||||
'Else
|
||||
' sp.Read(_recvBuffer, _recvOffset, bytes)
|
||||
' _recvOffset += bytes
|
||||
'End If
|
||||
|
||||
Dim buf(bytes - 1) As Byte
|
||||
sp.Read(buf, 0, bytes)
|
||||
'清空可读缓存
|
||||
'sp.DiscardInBuffer()
|
||||
|
||||
recvBufferli.AddRange(buf)
|
||||
|
||||
|
||||
Thread.Sleep(7)
|
||||
Loop While sp.BytesToRead > 0
|
||||
|
||||
If recvBufferli.Count > 0 Then
|
||||
|
||||
|
||||
|
||||
Dim buf(recvBufferli.Count - 1) As Byte
|
||||
Array.Copy(recvBufferli.ToArray, 0, buf, 0, buf.Length)
|
||||
recvBufferli.Clear()
|
||||
' Array.Copy(_recvBuffer, _recvstar, buf, 0, buf.Length)
|
||||
'Console.WriteLine(DataProcessing.ByteToString2(buf))
|
||||
'_recvstar = _recvOffset
|
||||
|
||||
'枚举队列
|
||||
'获取队列第5个元素
|
||||
Dim len As Integer = m_ReceiveQueue.Count
|
||||
Dim item As Cmdconfig
|
||||
Dim timep As TimeSpan
|
||||
' RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"RX:{DataProcessing.ByteToString2(buf)}", Color.Blue), 1)
|
||||
mCommunicationFlowAddQueue(m_Control, New RuningLogConfig($"RX:{DataProcessing.ByteToString2(buf)}", Color.Blue), 1) '
|
||||
' RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"RX:{DataProcessing.ByteToString2(buff)}", Color.Blue), 1)
|
||||
'Console.WriteLine($"RX():{len} ")
|
||||
For i = 0 To len - 1
|
||||
' Console.WriteLine($"RX:{len - 1 - i}< {m_ReceiveQueue.Count }")
|
||||
If (len - 1 - i) < m_ReceiveQueue.Count Then
|
||||
item = m_ReceiveQueue(len - 1 - i)
|
||||
|
||||
|
||||
'timep = (Now - item.CmdSendTime)
|
||||
''判断本节点接收时间是否超时
|
||||
'If item.CmdReceiveStatus OrElse timep.TotalSeconds > item.CmdReceiveTimeout Then
|
||||
' Console.WriteLine($"item.CmdReceiveStatus:{item.CmdReceiveStatus}, timep.TotalSeconds > item.CmdReceiveTimeout :{ timep.TotalSeconds}>{item.CmdReceiveTimeout}")
|
||||
' item.setCmdReceiveStatus(True)
|
||||
' Continue For
|
||||
'End If
|
||||
'按照对应协议解析 并设置到本节点中
|
||||
item.Protocol.ParseReceiveData(item, buf)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End Select
|
||||
isListen = False
|
||||
Catch ex As Exception
|
||||
isListen = False
|
||||
'AppendTipText($"串口接收数据失败,原因:{ex.Message}", Color.Red)
|
||||
RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"串口接收数据失败,原因:{ex.Message}", Color.Red), 1)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
Delegate Sub delmCommunicationFlowAddQueue(c As Control, rl As RuningLogConfig, lev As Integer)
|
||||
Public Sub mCommunicationFlowAddQueue(c As Control, rl As RuningLogConfig, Optional lev As Integer = 0)
|
||||
If c.InvokeRequired Then
|
||||
Dim d As New delmCommunicationFlowAddQueue(AddressOf mCommunicationFlowAddQueue)
|
||||
c.Invoke(d, c, rl, lev)
|
||||
Else
|
||||
RuningLog.OutputLogsToTheControl(c, rl, lev)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function ExtractSearchReply(bufarry As Byte(), item As Cmdconfig) As Integer
|
||||
|
||||
If bufarry.Length - recvBufferliindex < 12 Then
|
||||
RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"接收数据长度异常！", Color.Red), 1)
|
||||
Return recvBufferliindex
|
||||
End If
|
||||
Dim len As Integer
|
||||
Dim result As Integer = recvBufferliindex
|
||||
'Dim buff(44) As Bytei+
|
||||
'遍历找到sn\
|
||||
' Console.WriteLine($"ExtractSearchReply:{recvBufferliindex} {vbCrLf}RX:{DataProcessing.ByteToString2(bufarry)}")
|
||||
AddQueue(m_Control, New RuningLogConfig($"RX1:", Color.Blue), 1)
|
||||
For i = recvBufferliindex To bufarry.Length - 1
|
||||
If (bufarry(i) And &HF) = (item.CmdSendData(1) And &HF) Then '
|
||||
If i + 6 < bufarry.Length Then
|
||||
If bufarry(i + 2) = item.CmdSendData(0) AndAlso bufarry(i + 6) = item.CmdSendData(7) Then
|
||||
len = bufarry(i + 3) + bufarry(i + 4) * 256
|
||||
Dim buff(len - 1) As Byte
|
||||
If i > 0 Then
|
||||
|
||||
If i + len - 2 < bufarry.Length Then
|
||||
Try
|
||||
Array.Copy(bufarry, i - 1, buff, 0, len)
|
||||
i = i + len - 2
|
||||
|
||||
item.Protocol.ParseReceiveData(item, buff)
|
||||
result = i + 1
|
||||
AddQueue(m_Control, New RuningLogConfig($"RX2:", Color.Blue), 1) '{DataProcessing.ByteToString2(buff)}
|
||||
' RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"RX:{DataProcessing.ByteToString2(buff)}", Color.Blue), 1)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
Console.WriteLine($"ExtractSearchReply------end:{result}")
|
||||
Return result
|
||||
End Function
|
||||
|
||||
'设置波特率
|
||||
Public Sub AnalyzeData()
|
||||
|
||||
End Sub
|
||||
|
||||
'判断串口是否有数据未接收
|
||||
Public Function IsSerialData() As Boolean
|
||||
' If IsNothing(m_Serial) Then Return False
|
||||
Return m_Serial.BytesToRead > 0
|
||||
End Function
|
||||
|
||||
Public Function SetBaudRate(baudRate As Integer, Optional devnumber As Integer = 1) As Boolean
|
||||
If IsNothing(m_Serial) Then Return False
|
||||
Dim ret As Boolean = m_Serial.IsOpen
|
||||
'Dim buff As Byte() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25}
|
||||
If m_Serial.IsOpen Then
|
||||
'Thread.Sleep(300 * devnumber)
|
||||
isread = True
|
||||
While isListen
|
||||
Application.DoEvents()
|
||||
Thread.Sleep(10)
|
||||
End While
|
||||
Thread.Sleep(10)
|
||||
'm_Serial.Write(buff, 0, buff.Length)
|
||||
m_Serial.Close()
|
||||
|
||||
End If
|
||||
|
||||
m_Serial.BaudRate = baudRate
|
||||
|
||||
If ret Then
|
||||
isread = False
|
||||
m_Serial.Open()
|
||||
'm_Serial.Write(buff, 0, buff.Length)
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
'打开串口
|
||||
Public Function OpenSerial() As Boolean
|
||||
If IsNothing(m_Serial) Then Return False
|
||||
If Not m_Serial.IsOpen Then
|
||||
isread = False
|
||||
m_Serial.Open()
|
||||
End If
|
||||
End Function
|
||||
'关闭串口连接
|
||||
Public Sub CloseSerial()
|
||||
If IsNothing(m_Serial) Then Return
|
||||
If m_Serial.IsOpen Then
|
||||
isread = True
|
||||
While isListen
|
||||
Application.DoEvents()
|
||||
Thread.Sleep(10)
|
||||
End While
|
||||
Thread.Sleep(10)
|
||||
m_Serial.Close()
|
||||
|
||||
End If
|
||||
Timer1.Stop()
|
||||
End Sub
|
||||
'获取串口接收数据
|
||||
Public Overrides Function ReceiveData(g_comfig As Cmdconfig) As Cmdconfig
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
'发送数据
|
||||
Public Overrides Sub SendData(data As Cmdconfig)
|
||||
data.CmdSendTime = DateTime.Now
|
||||
If IsNothing(m_Serial) OrElse Not m_Serial.IsOpen Then
|
||||
RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"发送器未连接!", Color.Red), 1)
|
||||
Return
|
||||
End If
|
||||
'Dim Rl As New RuningLogConfig($"TX:", Color.DarkGreen)
|
||||
'Rl.strdata = data.CmdSendData
|
||||
' RuningLog.OutputLogsToTheControl(m_Control, Rl, 1)
|
||||
'AddQueue(m_Control, New RuningLogConfig($"TX:", Color.DarkGreen), 1)
|
||||
|
||||
'清空发送缓存
|
||||
'm_Serial.DiscardOutBuffer()
|
||||
|
||||
Try
|
||||
m_Serial.Write(data.CmdSendData, 0, data.CmdSendData.Length)
|
||||
'Dim buff As Byte() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25}
|
||||
'm_Serial.Write(buff, 0, buff.Length)
|
||||
Catch ex As Exception
|
||||
Console.WriteLine(ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Overrides Function OpenTransmitter() As Boolean
|
||||
If IsNothing(m_Serial) Then
|
||||
Return CreateSerial(m_SerialComfig)
|
||||
End If
|
||||
If Not m_Serial.IsOpen Then
|
||||
Try
|
||||
isread = False
|
||||
m_Serial.Open()
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
Public isread As Boolean = False
|
||||
Public isListen As Boolean = False
|
||||
Public Overrides Sub CloseTransmitter()
|
||||
If IsNothing(m_Serial) OrElse Not m_Serial.IsOpen Then Return
|
||||
isread = True
|
||||
While isListen
|
||||
Application.DoEvents()
|
||||
Thread.Sleep(10)
|
||||
End While
|
||||
|
||||
Thread.Sleep(10)
|
||||
m_Serial.Close()
|
||||
m_Serial = Nothing
|
||||
End Sub
|
||||
|
||||
Public Overrides Function IsTransmitter() As Boolean
|
||||
If IsNothing(m_Serial) Then
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Overrides Function GetTransmitterStatus() As Boolean
|
||||
If IsNothing(m_Serial) Then Return False
|
||||
Return m_Serial.IsOpen
|
||||
End Function
|
||||
|
||||
'
|
||||
Public Overrides Function SetTransmitterParameter(ParamArray params() As Object) As Boolean
|
||||
If IsNothing(m_SerialComfig) Then Return False
|
||||
'If m_Serial.IsOpen Then m_Serial.Close()
|
||||
If params.Length > 0 Then
|
||||
If TypeOf params(0) Is String Then
|
||||
m_SerialComfig.PortName = params(0)
|
||||
End If
|
||||
End If
|
||||
If params.Length > 1 Then
|
||||
If TypeOf params(1) Is Integer Then
|
||||
m_SerialComfig.BaudRate = params(1)
|
||||
End If
|
||||
End If
|
||||
If params.Length > 2 Then
|
||||
If TypeOf params(2) Is Integer Then
|
||||
m_SerialComfig.DataBits = params(2)
|
||||
End If
|
||||
End If
|
||||
If params.Length > 3 Then
|
||||
If TypeOf params(3) Is Parity Then
|
||||
m_SerialComfig.Parity = params(3)
|
||||
End If
|
||||
End If
|
||||
If params.Length > 4 Then
|
||||
If TypeOf params(4) Is StopBits Then
|
||||
m_SerialComfig.StopBits = params(4)
|
||||
End If
|
||||
End If
|
||||
If params.Length > 5 Then
|
||||
If TypeOf params(5) Is Handshake Then
|
||||
m_SerialComfig.Handshake = params(5)
|
||||
End If
|
||||
End If
|
||||
Return CreateSerial(m_SerialComfig)
|
||||
End Function
|
||||
|
||||
Public Overrides Sub ClearSendData()
|
||||
If IsNothing(m_ReceiveQueue) Then Return
|
||||
m_ReceiveQueue.Clear()
|
||||
End Sub
|
||||
|
||||
Public Overrides Function SendData(data() As Byte) As Boolean
|
||||
'data.CmdSendTime = DateTime.Now
|
||||
If IsNothing(m_Serial) OrElse Not m_Serial.IsOpen Then
|
||||
RuningLog.OutputLogsToTheControl(m_Control, New RuningLogConfig($"发送器未连接!", Color.Red), 1)
|
||||
Return False
|
||||
End If
|
||||
'Dim Rl As New RuningLogConfig($"TX:", Color.DarkGreen)
|
||||
'Rl.strdata = data.CmdSendData
|
||||
' RuningLog.OutputLogsToTheControl(m_Control, Rl, 1)
|
||||
'AddQueue(m_Control, New RuningLogConfig($"TX:", Color.DarkGreen), 1)
|
||||
|
||||
'清空发送缓存
|
||||
'm_Serial.DiscardOutBuffer()
|
||||
|
||||
Try
|
||||
m_Serial.Write(data, 0, data.Length)
|
||||
'Dim buff As Byte() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25}
|
||||
'm_Serial.Write(buff, 0, buff.Length)
|
||||
Catch ex As Exception
|
||||
Console.WriteLine(ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class SerialComfig
|
||||
'串口名称
|
||||
Public PortName As String
|
||||
'波特率
|
||||
Public BaudRate As Integer
|
||||
'数据位
|
||||
Public DataBits As Integer
|
||||
'校验位
|
||||
Public Parity As Parity
|
||||
'停止位
|
||||
Public StopBits As StopBits
|
||||
'流控制
|
||||
Public Handshake As Handshake
|
||||
|
||||
'获取 串口名称列表
|
||||
Sub New()
|
||||
PortName = GetPortNames()(0)
|
||||
BaudRate = GetBaudRates()(0)
|
||||
DataBits = 8
|
||||
Parity = Parity.None
|
||||
StopBits = StopBits.One
|
||||
Handshake = Handshake.None
|
||||
|
||||
End Sub
|
||||
Public Shared Function GetPortNames() As String()
|
||||
Return SerialPort.GetPortNames()
|
||||
End Function
|
||||
'获取波特率列表
|
||||
Public Shared Function GetBaudRates() As Integer()
|
||||
Return New Integer() {300, 600, 1200, 2400, 4800, 9600, 14400, 19200, 38400, 57600, 115200, 128000, 256000, 512000}
|
||||
End Function
|
||||
End Class
|
||||
43
Transmitter/Transmitter.vb
Normal file
43
Transmitter/Transmitter.vb
Normal file
@@ -0,0 +1,43 @@
|
||||
Imports _485_BurningTool.CommunicationFlow
|
||||
|
||||
Public MustInherit Class Transmitter
|
||||
Public mCommunicationFlow As CommunicationProtocol
|
||||
|
||||
' 发送数据方法
|
||||
Public MustOverride Sub SendData(data As Cmdconfig)
|
||||
Public MustOverride Function SendData(data As Byte()) As Boolean
|
||||
'获取发送器接收数据
|
||||
Public MustOverride Function ReceiveData(g_comfig As Cmdconfig) As Cmdconfig
|
||||
'判断发送器实体化没有
|
||||
Public MustOverride Function IsTransmitter() As Boolean
|
||||
'打开发送器
|
||||
Public MustOverride Function OpenTransmitter() As Boolean
|
||||
'关闭发送器
|
||||
Public MustOverride Sub CloseTransmitter()
|
||||
'获取发送器状态
|
||||
Public MustOverride Function GetTransmitterStatus() As Boolean
|
||||
'设置发送器参数
|
||||
Public MustOverride Function SetTransmitterParameter(ParamArray params() As Object) As Boolean
|
||||
' 清楚发送数据
|
||||
Public MustOverride Sub ClearSendData()
|
||||
Public MustOverride Sub ClearReadData()
|
||||
Public CommunicationTypeindex As Integer
|
||||
|
||||
'创建发送器对象
|
||||
Public Shared Function CreateTransmitter(TransmitterType As CommunicationType, gControl As Control) As Transmitter
|
||||
'CommunicationTypeindex = TransmitterType
|
||||
Select Case TransmitterType
|
||||
Case CommunicationType.SerialPort
|
||||
Return New SerialController(gControl)
|
||||
Case CommunicationType.Udp
|
||||
Return New DevNetworkCommunication(gControl)
|
||||
Case Else
|
||||
Return Nothing
|
||||
End Select
|
||||
End Function
|
||||
Public Sub AddQueue(c As Control, rl As RuningLogConfig, Optional lev As Integer = 0)
|
||||
If IsNothing(mCommunicationFlow) OrElse IsNothing(mCommunicationFlow.UpdateUIqueue) OrElse IsNothing(c) OrElse IsNothing(rl) Then Return
|
||||
mCommunicationFlow.UpdateUIqueue.Enqueue((c, rl, lev))
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user