初始值
This commit is contained in:
BIN
.vs/NT-CAM_Controller/v16/.suo
Normal file
BIN
.vs/NT-CAM_Controller/v16/.suo
Normal file
Binary file not shown.
6
App.config
Normal file
6
App.config
Normal file
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
|
||||
</startup>
|
||||
</configuration>
|
||||
519
CommunicationProtocol/CommunicationProtocol.vb
Normal file
519
CommunicationProtocol/CommunicationProtocol.vb
Normal file
@@ -0,0 +1,519 @@
|
||||
Imports System.IO.Ports
|
||||
Imports System.Threading
|
||||
Imports NT_CAM_Controller.SendNode
|
||||
|
||||
Public Class CommunicationProtocol
|
||||
'流程列表
|
||||
Public Property FlowList As List(Of (String, SendNode))
|
||||
Public IsFlowList As Boolean
|
||||
'执行流程任务线程
|
||||
Public Property FlowThread As Task
|
||||
Public IsFlowThread As Boolean
|
||||
Public G_RichTextPrint As RichTextPrint
|
||||
Public G_Transmitter As SerialPort
|
||||
Public ControlDic As New Dictionary(Of Integer, Control)
|
||||
|
||||
Sub New(RichTextPrint As RichTextPrint, gTransmitter As SerialPort)
|
||||
|
||||
FlowList = New List(Of (String, SendNode))
|
||||
G_RichTextPrint = RichTextPrint
|
||||
G_Transmitter = gTransmitter
|
||||
'初始化FlowThread
|
||||
IsFlowThread = True
|
||||
FlowThread = New Task(AddressOf FlowThreadRun)
|
||||
FlowThread.Start()
|
||||
IsFlowList = False
|
||||
ControlDic = New Dictionary(Of Integer, Control)
|
||||
End Sub
|
||||
|
||||
'添加控件列表
|
||||
Sub AddControlDic(ControlName As Integer, Control As Control)
|
||||
If IsNothing(ControlDic) Then ControlDic = New Dictionary(Of Integer, Control)
|
||||
If ControlDic.ContainsKey(ControlName) Then
|
||||
ControlDic.Item(ControlName) = Control
|
||||
Else
|
||||
ControlDic.Add(ControlName, Control)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
'关闭
|
||||
Sub Close()
|
||||
If FlowThread Is Nothing OrElse Not FlowThread.IsCompleted Then Return
|
||||
FlowThread.Dispose()
|
||||
End Sub
|
||||
|
||||
'关闭线程
|
||||
Sub CloseThread()
|
||||
If FlowThread Is Nothing OrElse Not FlowThread.IsCompleted Then Return
|
||||
FlowThread.Dispose()
|
||||
End Sub
|
||||
'设置IsFlowThread
|
||||
Sub SetIsFlowThread(mIsFlowThread As Boolean)
|
||||
Me.IsFlowThread = mIsFlowThread
|
||||
End Sub
|
||||
Sub setIsFlowList(mIsFlowList As Boolean)
|
||||
Me.IsFlowList = mIsFlowList
|
||||
End Sub
|
||||
|
||||
Public Function getIsFlowList() As Boolean
|
||||
Return False
|
||||
Return Me.IsFlowList
|
||||
End Function
|
||||
Public Function getIsFlowList1() As Boolean
|
||||
|
||||
Return Me.IsFlowList
|
||||
End Function
|
||||
'执行流程任务
|
||||
Sub FlowThreadRun()
|
||||
'流程节点执行状态
|
||||
Dim isnode As Boolean
|
||||
Dim nli As New List(Of Integer）
|
||||
While IsFlowThread
|
||||
Thread.Sleep(1)
|
||||
If IsNothing(FlowList) OrElse FlowList.Count = 0 Then
|
||||
'延时100ms
|
||||
Thread.Sleep(100)
|
||||
Else
|
||||
If IsFlowList Then
|
||||
nli.Clear()
|
||||
Dim FlowListCount As Integer = FlowList.Count
|
||||
Console.WriteLine("FlowListCount:" & FlowListCount)
|
||||
' For Each node In FlowList
|
||||
For i As Integer = 0 To FlowListCount - 1
|
||||
If Not IsFlowList Then
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Dim node As (String, SendNode) = FlowList(i)
|
||||
|
||||
'判断本包是否超时接收
|
||||
If (node.Item2.SendCount >= node.Item2.MaxResendCount) OrElse node.Item2.RecvStatus = 1 Then
|
||||
nli.Add(i)
|
||||
Continue For
|
||||
End If
|
||||
|
||||
If IsFlowThread = False Then Exit For
|
||||
While node.Item2.RecvStatus = SendNode.RecvStatusEnum.None
|
||||
If Not node.Item2.IsRecvData Then
|
||||
node.Item2.RecvRefresh(Nothing)
|
||||
End If
|
||||
If IsFlowThread = False Then Exit For
|
||||
'判断是什么类型命令
|
||||
If node.Item2.CommandType = 0 Then
|
||||
'系统命令
|
||||
isnode = SystemCommandSelector(node.Item1, node.Item2)
|
||||
If isnode = False Then
|
||||
'MsgBox(node.Item2.TipInfo)
|
||||
G_RichTextPrint.AddQueue(New RichTextNodeConfig(node.Item2.TipInfo, Color.Red), 1)
|
||||
'IsFlowList = False
|
||||
Exit While
|
||||
Else
|
||||
Exit While
|
||||
End If
|
||||
|
||||
Else
|
||||
'自定义命令
|
||||
isnode = CustomCommandSelector(node.Item1, node.Item2)
|
||||
If isnode = False Then
|
||||
nli.Add(i)
|
||||
'MsgBox(node.Item2.TipInfo)
|
||||
'G_RichTextPrint.AddQueue(New RichTextNodeConfig(node.Item2.TipInfo, Color.Red), 1)
|
||||
'IsFlowList = False
|
||||
'Else
|
||||
Exit While
|
||||
Else
|
||||
'Exit While
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End While
|
||||
Next
|
||||
|
||||
|
||||
|
||||
'从大到小删除
|
||||
For Each i In nli.OrderByDescending(Function(x) x)
|
||||
If Not IsFlowList Then
|
||||
Exit For
|
||||
End If
|
||||
FlowList.RemoveAt(i)
|
||||
Next
|
||||
IsFlowList = False
|
||||
Console.WriteLine($"流程节点数量：{FlowList.Count}")
|
||||
End If
|
||||
End If
|
||||
End While
|
||||
End Sub
|
||||
'系统命令选择器
|
||||
Public Function SystemCommandSelector(nodename As String, ByRef mSendNode As SendNode) As Boolean
|
||||
If mSendNode.SendData.Length > 0 Then
|
||||
Select Case mSendNode.SendData(0)
|
||||
Case 1 '系统延时
|
||||
If mSendNode.SendData.Length > 1 Then
|
||||
mSendNode.ResendRefresh()
|
||||
Thread.Sleep(mSendNode.SendData(1))
|
||||
mSendNode.RecvRefresh({mSendNode.SendData(1)})
|
||||
mSendNode.SetTipInfo("执行延时完成！")
|
||||
Return True
|
||||
Else
|
||||
mSendNode.SetTipInfo($"{nodename}参数异常！")
|
||||
Return False
|
||||
End If
|
||||
|
||||
End Select
|
||||
Else
|
||||
|
||||
mSendNode.SetTipInfo("系统命令参数异常！")
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
'自定义命令选择器
|
||||
Public Function CustomCommandSelector(nodename As String, ByRef mSendNode As SendNode) As Boolean
|
||||
Dim sendbuf As Byte()
|
||||
If mSendNode.SendStatus = SendNode.SendStatusEnum.None Then
|
||||
sendbuf = SendPortData1(nodename, mSendNode)
|
||||
If IsNothing(sendbuf) OrElse sendbuf.Length = 0 Then
|
||||
Return False
|
||||
Else
|
||||
Return SendPortData(nodename, mSendNode， sendbuf, G_Transmitter)
|
||||
End If
|
||||
|
||||
Else
|
||||
'判断节点是否需要重新发送
|
||||
If mSendNode.NeedResend() Then
|
||||
|
||||
sendbuf = SendPortData1(nodename, mSendNode)
|
||||
If IsNothing(sendbuf) OrElse sendbuf.Length = 0 Then
|
||||
Return False
|
||||
Else
|
||||
G_RichTextPrint.AddQueue(New RichTextNodeConfig($"第{mSendNode.SendCount}次重发数据", Color.Black), 1)
|
||||
Return SendPortData(nodename, mSendNode， sendbuf, G_Transmitter)
|
||||
End If
|
||||
Else
|
||||
If mSendNode.SendCount < mSendNode.MaxResendCount Then
|
||||
|
||||
ElseIf mSendNode.SendCount = mSendNode.MaxResendCount Then
|
||||
If mSendNode.SendTime.AddMilliseconds(mSendNode.SendTimeout) < Now Then
|
||||
mSendNode.SendCount = mSendNode.SendCount + 1
|
||||
|
||||
Else
|
||||
|
||||
End If
|
||||
Else
|
||||
mSendNode.RecvStatus = RecvStatusEnum.Timeout
|
||||
mSendNode.SendStatus = SendStatusEnum.Timeout
|
||||
' IsRuningTest = False '退出流程
|
||||
'RefreshCaptureText(Color.Red, $"节点:{node.Item1} :发送失败！")
|
||||
|
||||
G_RichTextPrint.AddQueue(New RichTextNodeConfig($"发数据超时！", Color.Red), 1)
|
||||
mSendNode.SetTipInfo($"发数据超时！")
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
'获取发送数据
|
||||
Public Function SendPortData1(nodename As String, Mysenddata As SendNode) As Byte()
|
||||
If IsNothing(Mysenddata) OrElse Mysenddata.SendData.Length = 0 Then Return Nothing
|
||||
Return Mysenddata.SendData
|
||||
End Function
|
||||
'发送数据
|
||||
Public Function SendPortData(nodename As String, ByRef Mysenddata As SendNode, sendBytes As Byte(), mTransmitter As SerialPort) As Boolean
|
||||
If IsNothing(G_Transmitter) OrElse G_Transmitter.IsOpen = False Then
|
||||
G_RichTextPrint.AddQueue(New RichTextNodeConfig("发送器未打开！", Color.Red), 1)
|
||||
Return False
|
||||
End If
|
||||
Try
|
||||
'发送数据
|
||||
Mysenddata.SetSendData(sendBytes, Mysenddata.SendTimeout)
|
||||
G_RichTextPrint.AddQueue(New RichTextNodeConfig("TX:", Color.Blue, New Font("宋体", 8), Mysenddata.SendData), 1)
|
||||
G_Transmitter.Write(Mysenddata.SendData, 0, Mysenddata.SendData.Length)
|
||||
'发送刷新对应数值
|
||||
Mysenddata.ResendRefresh()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
G_RichTextPrint.AddQueue(New RichTextNodeConfig("发送器发送异常！", Color.Red), 1)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
Public Function SendPortData(sendBytes As Byte(), mTransmitter As SerialPort) As Boolean
|
||||
If IsNothing(G_Transmitter) OrElse G_Transmitter.IsOpen = False Then
|
||||
G_RichTextPrint.AddQueue(New RichTextNodeConfig("发送器未打开！", Color.Red), 1)
|
||||
Return False
|
||||
End If
|
||||
Try
|
||||
'发送数据
|
||||
|
||||
G_RichTextPrint.AddQueue(New RichTextNodeConfig("TX:", Color.Blue, New Font("宋体", 8), sendBytes), 1)
|
||||
G_Transmitter.Write(sendBytes, 0, sendBytes.Length)
|
||||
'发送刷新对应数值
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
G_RichTextPrint.AddQueue(New RichTextNodeConfig("发送器发送异常！", Color.Red), 1)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
'添加流程节点
|
||||
Public Function AddFlowNode(nodename As String, Mysenddata As SendNode) As Boolean
|
||||
If FlowList Is Nothing Then Return False
|
||||
FlowList.Add((nodename, Mysenddata))
|
||||
End Function
|
||||
'清空流程节点
|
||||
Public Function ClearFlowNode(Optional isclear As Boolean = False) As Boolean
|
||||
If FlowList Is Nothing Then Return False
|
||||
If isclear Then
|
||||
FlowList.Clear()
|
||||
End If
|
||||
'FlowList.Clear()
|
||||
End Function
|
||||
|
||||
|
||||
'处理接收到的数据
|
||||
Public Function ProcessRecvData(RecvData() As Byte) As Boolean
|
||||
If FlowList Is Nothing Then Return False
|
||||
'判断数据包头是否合法
|
||||
If NT_CAM.IsDataValid(RecvData) Then
|
||||
If RecvData(3) >= &HB0 Then
|
||||
Dim sendbuf = NT_CAM.PackData(RecvData(3), {0})
|
||||
SendPortData(sendbuf, G_Transmitter)
|
||||
ElseIf RecvData(3) >= &H10 AndAlso RecvData(3) < &HA0 Then
|
||||
|
||||
|
||||
|
||||
Select Case RecvData(3)
|
||||
Case &H18
|
||||
Dim sendbuf = NT_CAM.PackData(RecvData(3), {0})
|
||||
SendPortData(sendbuf, G_Transmitter)
|
||||
Dim mControl As Control = ControlDic.Item(&H18)
|
||||
If RecvData(6) = 0 Then
|
||||
SharedFunction.SetFromUI(mControl, "未连接", Color.Black， Color.Red)
|
||||
ElseIf RecvData(6) = 1 Then
|
||||
SharedFunction.SetFromUI(mControl, "已连接", Color.Black， Color.Green)
|
||||
Else
|
||||
SharedFunction.SetFromUI(mControl, "连接异常", Color.Black， Color.Red)
|
||||
End If
|
||||
Return True
|
||||
Case &H19
|
||||
Dim mControl As Control = ControlDic.Item(&H19)
|
||||
Dim sendbuf = NT_CAM.PackData(RecvData(3), {0})
|
||||
SendPortData(sendbuf, G_Transmitter)
|
||||
'获取数据长度
|
||||
Dim len As Integer = RecvData(5) * 256 + RecvData(4)
|
||||
'判断数据长度是否合法 且长度能够取到
|
||||
If len > 0 AndAlso len <= RecvData.Length - 6 Then
|
||||
'获取数据
|
||||
Dim data As Byte() = New Byte(len - 1) {}
|
||||
Array.Copy(RecvData, 6, data, 0, len)
|
||||
'将数组转换为字符串
|
||||
Dim str As String = SharedFunction.ByteToHexString(data)
|
||||
SharedFunction.SetFromUI(mControl, str, Color.Black， Color.White)
|
||||
End If
|
||||
Return True
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
|
||||
Dim node As SendNode
|
||||
Dim nextNode As SendNode
|
||||
For i = 0 To FlowList.Count - 1
|
||||
node = FlowList(i).Item2
|
||||
If node.SendStatus = SendNode.SendStatusEnum.Send Then
|
||||
If node.RecvStatus = SendNode.RecvStatusEnum.None Then
|
||||
If RecvData(3) = node.SendData(3) Then
|
||||
node.RecvRefresh(RecvData)
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
Else
|
||||
Dim node As SendNode
|
||||
Dim nextNode As SendNode
|
||||
For i = 0 To FlowList.Count - 1
|
||||
node = FlowList(i).Item2
|
||||
If node.SendStatus = SendNode.SendStatusEnum.Send Then
|
||||
If node.RecvStatus = SendNode.RecvStatusEnum.None Then
|
||||
If RecvData(3) = node.SendData(3) Then
|
||||
node.RecvRefresh(RecvData)
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class SendNode
|
||||
'命令类型
|
||||
Public Property CommandType As Integer '0:系统命令，1:自定义命令
|
||||
|
||||
'发送时间
|
||||
Public Property SendTime As DateTime
|
||||
'发送数据
|
||||
Public Property SendData As Byte()
|
||||
'重发次数
|
||||
Public Property SendCount As Integer
|
||||
'重发间隔
|
||||
Public Property SendInterval As Integer
|
||||
'超时时间
|
||||
Public Property SendTimeout As Integer
|
||||
'发送状态 0:未发送 1:已发送
|
||||
Public Property SendStatus As Integer
|
||||
'接收状态
|
||||
Public Property RecvStatus As Integer
|
||||
'接收数据
|
||||
Public Property RecvDataLisr As List(Of Byte())
|
||||
|
||||
'提示信息
|
||||
Public Property TipInfo As String
|
||||
|
||||
'最大重 发次数
|
||||
Public Property MaxResendCount As Integer
|
||||
|
||||
'是否接收数据
|
||||
Public Property IsRecvData As Boolean
|
||||
'控件对象
|
||||
Public Property Control As Control
|
||||
|
||||
''' <summary>
|
||||
''' 命令
|
||||
''' </summary>
|
||||
''' <param name="mCommandType"></param>
|
||||
Sub New(mCommandType As Integer, Optional mMaxResendCoun As Integer = 3)
|
||||
CommandType = mCommandType
|
||||
RecvDataLisr = New List(Of Byte())
|
||||
MaxResendCount = mMaxResendCoun
|
||||
IsRecvData = True
|
||||
End Sub
|
||||
|
||||
'设置控件
|
||||
Sub SetControl(mControl As Control)
|
||||
Control = mControl
|
||||
End Sub
|
||||
|
||||
'发送状态枚举值
|
||||
Enum SendStatusEnum
|
||||
'未发送
|
||||
None = 0
|
||||
'已发送
|
||||
Send = 1
|
||||
'发送超时
|
||||
Timeout = 2
|
||||
End Enum
|
||||
|
||||
'接收状态枚举值
|
||||
Enum RecvStatusEnum
|
||||
'未接收
|
||||
None = 0
|
||||
'已接收
|
||||
Recv = 1
|
||||
'接收超时
|
||||
Timeout = 2
|
||||
End Enum
|
||||
|
||||
Sub New(Mysenddata() As Byte)
|
||||
SendData = Mysenddata
|
||||
SendInterval = 0
|
||||
SendTimeout = 1000
|
||||
RecvStatus = 0
|
||||
SendStatus = 0
|
||||
RecvDataLisr = New List(Of Byte())
|
||||
End Sub
|
||||
'设置发送数据
|
||||
Sub SetSendData(Mysenddata() As Byte, Optional gSendTimeout As Integer = 1000)
|
||||
SendData = Mysenddata
|
||||
SendInterval = 0
|
||||
SendTimeout = gSendTimeout
|
||||
RecvStatus = 0
|
||||
SendStatus = 0
|
||||
End Sub
|
||||
|
||||
'接收数据并添加到接收列表
|
||||
Sub AddRecvData(RecvData() As Byte)
|
||||
If RecvDataLisr Is Nothing Then
|
||||
RecvDataLisr = New List(Of Byte())
|
||||
End If
|
||||
RecvDataLisr.Add(RecvData)
|
||||
End Sub
|
||||
'判断需不需要重发 False 不需要重发 True 需要重发
|
||||
Function NeedResend() As Boolean
|
||||
'如果接收状态为已加收， 则不需要重发
|
||||
If SendStatus = 1 AndAlso RecvStatus = 1 Then
|
||||
Return False
|
||||
Else
|
||||
'如果发送状态为已发送，则判断是否超时，如果超时则返回True，否则返回False
|
||||
If SendStatus = 1 Then
|
||||
'判断是否到达最大重发次数
|
||||
If SendCount < MaxResendCount Then
|
||||
|
||||
If SendTime.AddMilliseconds(SendTimeout) < Now Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
'RecvStatus = RecvStatusEnum.Timeout
|
||||
'SendStatus = SendStatusEnum.Timeout
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
'重发刷新对应数值
|
||||
Sub ResendRefresh()
|
||||
SendStatus = 1
|
||||
SendCount += 1
|
||||
SendTime = Now
|
||||
End Sub
|
||||
|
||||
'发送刷新对应数值
|
||||
Sub SendRefresh()
|
||||
SendStatus = 1
|
||||
SendTime = Now
|
||||
SendCount = 0
|
||||
End Sub
|
||||
'接收刷新对应数值
|
||||
Sub RecvRefresh(Mysenddata() As Byte)
|
||||
AddRecvData(Mysenddata)
|
||||
RecvStatus = 1
|
||||
End Sub
|
||||
|
||||
'设置提示信息
|
||||
Sub SetTipInfo(Mysenddata As String)
|
||||
TipInfo = Mysenddata
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
28
CommunicationProtocol/NT_CAM.vb
Normal file
28
CommunicationProtocol/NT_CAM.vb
Normal file
@@ -0,0 +1,28 @@
|
||||
Public Class NT_CAM
|
||||
'包头
|
||||
Public Shared HeadData As Byte() = {&H55, &HAA}
|
||||
'协议版本
|
||||
Public Shared protocolVersion As Byte = &H1
|
||||
|
||||
'数据组包
|
||||
Public Shared Function PackData(cmd As Byte, parbyf As Byte()) As Byte()
|
||||
Dim li As List(Of Byte) = New List(Of Byte)()
|
||||
li.AddRange(HeadData) '2
|
||||
li.Add(protocolVersion) '1
|
||||
li.Add(cmd) '1
|
||||
li.AddRange(SharedFunction.IntToByteLB(parbyf.Length)) '2
|
||||
li.AddRange(parbyf)
|
||||
li.Add(SharedFunction.GetCheckSumMod2(li.ToArray))
|
||||
Return li.ToArray
|
||||
End Function
|
||||
|
||||
'判断数据是否合法
|
||||
Public Shared Function IsDataValid(data As Byte()) As Boolean
|
||||
If data.Length < 7 Then Return False '数据长度小于7
|
||||
If data(0) <> HeadData(0) OrElse data(1) <> HeadData(1) Then Return False '包头不正确
|
||||
If data(data.Length - 1) <> SharedFunction.GetCheckSumMod(data) Then Return False '校验和不正确
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
835
Form1.Designer.vb
generated
Normal file
835
Form1.Designer.vb
generated
Normal file
@@ -0,0 +1,835 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form1
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
|
||||
Me.TextBox8 = New System.Windows.Forms.TextBox()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.TextBox7 = New System.Windows.Forms.TextBox()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.Btn_OpenPort = New System.Windows.Forms.Button()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Cbo_Baud = New System.Windows.Forms.ComboBox()
|
||||
Me.Cbo_Port = New System.Windows.Forms.ComboBox()
|
||||
Me.GroupBox8 = New System.Windows.Forms.GroupBox()
|
||||
Me.Button16 = New System.Windows.Forms.Button()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.TextBox6 = New System.Windows.Forms.TextBox()
|
||||
Me.Button15 = New System.Windows.Forms.Button()
|
||||
Me.TextBox5 = New System.Windows.Forms.TextBox()
|
||||
Me.GroupBox6 = New System.Windows.Forms.GroupBox()
|
||||
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
|
||||
Me.Button11 = New System.Windows.Forms.Button()
|
||||
Me.Button12 = New System.Windows.Forms.Button()
|
||||
Me.GroupBox7 = New System.Windows.Forms.GroupBox()
|
||||
Me.Button14 = New System.Windows.Forms.Button()
|
||||
Me.TextBox4 = New System.Windows.Forms.TextBox()
|
||||
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
|
||||
Me.Button13 = New System.Windows.Forms.Button()
|
||||
Me.TextBox3 = New System.Windows.Forms.TextBox()
|
||||
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
||||
Me.Button10 = New System.Windows.Forms.Button()
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.ComboBox3 = New System.Windows.Forms.ComboBox()
|
||||
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Button8 = New System.Windows.Forms.Button()
|
||||
Me.Button9 = New System.Windows.Forms.Button()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.Button7 = New System.Windows.Forms.Button()
|
||||
Me.Button6 = New System.Windows.Forms.Button()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.TextBox9 = New System.Windows.Forms.TextBox()
|
||||
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.SerialPort1 = New System.IO.Ports.SerialPort(Me.components)
|
||||
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
Me.SplitContainer1.SuspendLayout()
|
||||
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer2.Panel1.SuspendLayout()
|
||||
Me.SplitContainer2.Panel2.SuspendLayout()
|
||||
Me.SplitContainer2.SuspendLayout()
|
||||
Me.GroupBox8.SuspendLayout()
|
||||
Me.GroupBox6.SuspendLayout()
|
||||
Me.GroupBox7.SuspendLayout()
|
||||
Me.GroupBox5.SuspendLayout()
|
||||
Me.GroupBox4.SuspendLayout()
|
||||
Me.GroupBox3.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer1.IsSplitterFixed = True
|
||||
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer1.Name = "SplitContainer1"
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.SplitContainer2)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.RichTextBox1)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip1)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(1195, 788)
|
||||
Me.SplitContainer1.SplitterDistance = 573
|
||||
Me.SplitContainer1.SplitterWidth = 1
|
||||
Me.SplitContainer1.TabIndex = 0
|
||||
'
|
||||
'SplitContainer2
|
||||
'
|
||||
Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer2.Name = "SplitContainer2"
|
||||
Me.SplitContainer2.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer2.Panel1
|
||||
'
|
||||
Me.SplitContainer2.Panel1.Controls.Add(Me.TextBox8)
|
||||
Me.SplitContainer2.Panel1.Controls.Add(Me.Label8)
|
||||
Me.SplitContainer2.Panel1.Controls.Add(Me.TextBox7)
|
||||
Me.SplitContainer2.Panel1.Controls.Add(Me.Label7)
|
||||
Me.SplitContainer2.Panel1.Controls.Add(Me.CheckBox1)
|
||||
Me.SplitContainer2.Panel1.Controls.Add(Me.Btn_OpenPort)
|
||||
Me.SplitContainer2.Panel1.Controls.Add(Me.Label1)
|
||||
Me.SplitContainer2.Panel1.Controls.Add(Me.Label2)
|
||||
Me.SplitContainer2.Panel1.Controls.Add(Me.Cbo_Baud)
|
||||
Me.SplitContainer2.Panel1.Controls.Add(Me.Cbo_Port)
|
||||
'
|
||||
'SplitContainer2.Panel2
|
||||
'
|
||||
Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox8)
|
||||
Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox6)
|
||||
Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox7)
|
||||
Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox5)
|
||||
Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox4)
|
||||
Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox3)
|
||||
Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox2)
|
||||
Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox1)
|
||||
Me.SplitContainer2.Panel2.Font = New System.Drawing.Font("宋体", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.SplitContainer2.Size = New System.Drawing.Size(573, 788)
|
||||
Me.SplitContainer2.SplitterDistance = 104
|
||||
Me.SplitContainer2.TabIndex = 2
|
||||
'
|
||||
'TextBox8
|
||||
'
|
||||
Me.TextBox8.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TextBox8.Location = New System.Drawing.Point(330, 67)
|
||||
Me.TextBox8.MaxLength = 128
|
||||
Me.TextBox8.Name = "TextBox8"
|
||||
Me.TextBox8.Size = New System.Drawing.Size(236, 29)
|
||||
Me.TextBox8.TabIndex = 43
|
||||
Me.TextBox8.Text = "6B 65 65 70"
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Label8.Location = New System.Drawing.Point(213, 72)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(114, 19)
|
||||
Me.Label8.TabIndex = 42
|
||||
Me.Label8.Text = "保活包内容:"
|
||||
'
|
||||
'TextBox7
|
||||
'
|
||||
Me.TextBox7.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TextBox7.Location = New System.Drawing.Point(142, 67)
|
||||
Me.TextBox7.MaxLength = 128
|
||||
Me.TextBox7.Name = "TextBox7"
|
||||
Me.TextBox7.Size = New System.Drawing.Size(68, 29)
|
||||
Me.TextBox7.TabIndex = 41
|
||||
Me.TextBox7.Text = "30"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Label7.Location = New System.Drawing.Point(14, 72)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(125, 19)
|
||||
Me.Label7.TabIndex = 40
|
||||
Me.Label7.Text = "时间间隔(S):"
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(17, 40)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(199, 23)
|
||||
Me.CheckBox1.TabIndex = 39
|
||||
Me.CheckBox1.Text = "是否定期发送保活包"
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Btn_OpenPort
|
||||
'
|
||||
Me.Btn_OpenPort.Font = New System.Drawing.Font("宋体", 21.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Btn_OpenPort.ImeMode = System.Windows.Forms.ImeMode.NoControl
|
||||
Me.Btn_OpenPort.Location = New System.Drawing.Point(419, 5)
|
||||
Me.Btn_OpenPort.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||
Me.Btn_OpenPort.Name = "Btn_OpenPort"
|
||||
Me.Btn_OpenPort.Size = New System.Drawing.Size(148, 54)
|
||||
Me.Btn_OpenPort.TabIndex = 38
|
||||
Me.Btn_OpenPort.Text = "打开"
|
||||
Me.Btn_OpenPort.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Font = New System.Drawing.Font("Consolas", 12.0!)
|
||||
Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
|
||||
Me.Label1.Location = New System.Drawing.Point(6, 1)
|
||||
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(63, 30)
|
||||
Me.Label1.TabIndex = 6
|
||||
Me.Label1.Text = "端口:"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Font = New System.Drawing.Font("Consolas", 12.0!)
|
||||
Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
|
||||
Me.Label2.Location = New System.Drawing.Point(205, 1)
|
||||
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(78, 30)
|
||||
Me.Label2.TabIndex = 8
|
||||
Me.Label2.Text = "波特率:"
|
||||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'Cbo_Baud
|
||||
'
|
||||
Me.Cbo_Baud.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.Cbo_Baud.Font = New System.Drawing.Font("Consolas", 9.75!)
|
||||
Me.Cbo_Baud.FormattingEnabled = True
|
||||
Me.Cbo_Baud.Items.AddRange(New Object() {"1200", "2400", "4800", "9600", "19200", "38400", "57600", "115200", "256000", "512000", "9216000", "1000000"})
|
||||
Me.Cbo_Baud.Location = New System.Drawing.Point(288, 5)
|
||||
Me.Cbo_Baud.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||
Me.Cbo_Baud.Name = "Cbo_Baud"
|
||||
Me.Cbo_Baud.Size = New System.Drawing.Size(126, 23)
|
||||
Me.Cbo_Baud.TabIndex = 9
|
||||
'
|
||||
'Cbo_Port
|
||||
'
|
||||
Me.Cbo_Port.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.Cbo_Port.Font = New System.Drawing.Font("Consolas", 9.75!)
|
||||
Me.Cbo_Port.FormattingEnabled = True
|
||||
Me.Cbo_Port.Location = New System.Drawing.Point(74, 5)
|
||||
Me.Cbo_Port.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||
Me.Cbo_Port.Name = "Cbo_Port"
|
||||
Me.Cbo_Port.Size = New System.Drawing.Size(126, 23)
|
||||
Me.Cbo_Port.TabIndex = 7
|
||||
'
|
||||
'GroupBox8
|
||||
'
|
||||
Me.GroupBox8.Controls.Add(Me.Button16)
|
||||
Me.GroupBox8.Controls.Add(Me.Label4)
|
||||
Me.GroupBox8.Controls.Add(Me.Label3)
|
||||
Me.GroupBox8.Controls.Add(Me.TextBox6)
|
||||
Me.GroupBox8.Controls.Add(Me.Button15)
|
||||
Me.GroupBox8.Controls.Add(Me.TextBox5)
|
||||
Me.GroupBox8.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.GroupBox8.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.GroupBox8.Location = New System.Drawing.Point(0, 367)
|
||||
Me.GroupBox8.Name = "GroupBox8"
|
||||
Me.GroupBox8.Size = New System.Drawing.Size(573, 171)
|
||||
Me.GroupBox8.TabIndex = 10
|
||||
Me.GroupBox8.TabStop = False
|
||||
Me.GroupBox8.Text = "TCP透传"
|
||||
'
|
||||
'Button16
|
||||
'
|
||||
Me.Button16.Font = New System.Drawing.Font("宋体", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button16.Location = New System.Drawing.Point(443, 59)
|
||||
Me.Button16.Name = "Button16"
|
||||
Me.Button16.Size = New System.Drawing.Size(131, 29)
|
||||
Me.Button16.TabIndex = 13
|
||||
Me.Button16.Text = "查询网络状态"
|
||||
Me.Button16.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Label4.Location = New System.Drawing.Point(3, 28)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(98, 140)
|
||||
Me.Label4.TabIndex = 12
|
||||
Me.Label4.Text = "TCP连接状态"
|
||||
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.Font = New System.Drawing.Font("宋体", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Label3.Location = New System.Drawing.Point(103, 60)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(114, 26)
|
||||
Me.Label3.TabIndex = 11
|
||||
Me.Label3.Text = "下行接收:"
|
||||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'TextBox6
|
||||
'
|
||||
Me.TextBox6.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TextBox6.Location = New System.Drawing.Point(103, 89)
|
||||
Me.TextBox6.MaxLength = 256
|
||||
Me.TextBox6.Multiline = True
|
||||
Me.TextBox6.Name = "TextBox6"
|
||||
Me.TextBox6.Size = New System.Drawing.Size(467, 82)
|
||||
Me.TextBox6.TabIndex = 4
|
||||
'
|
||||
'Button15
|
||||
'
|
||||
Me.Button15.Font = New System.Drawing.Font("宋体", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button15.Location = New System.Drawing.Point(473, 28)
|
||||
Me.Button15.Name = "Button15"
|
||||
Me.Button15.Size = New System.Drawing.Size(101, 29)
|
||||
Me.Button15.TabIndex = 3
|
||||
Me.Button15.Text = "上行发送"
|
||||
Me.Button15.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox5
|
||||
'
|
||||
Me.TextBox5.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TextBox5.Location = New System.Drawing.Point(103, 28)
|
||||
Me.TextBox5.MaxLength = 256
|
||||
Me.TextBox5.Name = "TextBox5"
|
||||
Me.TextBox5.Size = New System.Drawing.Size(364, 29)
|
||||
Me.TextBox5.TabIndex = 2
|
||||
'
|
||||
'GroupBox6
|
||||
'
|
||||
Me.GroupBox6.Controls.Add(Me.ComboBox2)
|
||||
Me.GroupBox6.Controls.Add(Me.Button11)
|
||||
Me.GroupBox6.Controls.Add(Me.Button12)
|
||||
Me.GroupBox6.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.GroupBox6.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.GroupBox6.Location = New System.Drawing.Point(0, 568)
|
||||
Me.GroupBox6.Name = "GroupBox6"
|
||||
Me.GroupBox6.Size = New System.Drawing.Size(573, 54)
|
||||
Me.GroupBox6.TabIndex = 9
|
||||
Me.GroupBox6.TabStop = False
|
||||
Me.GroupBox6.Text = "IPC请求回复"
|
||||
Me.GroupBox6.Visible = False
|
||||
'
|
||||
'ComboBox2
|
||||
'
|
||||
Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox2.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.ComboBox2.FormattingEnabled = True
|
||||
Me.ComboBox2.Items.AddRange(New Object() {"B0", "B1", "B2"})
|
||||
Me.ComboBox2.Location = New System.Drawing.Point(17, 25)
|
||||
Me.ComboBox2.Name = "ComboBox2"
|
||||
Me.ComboBox2.Size = New System.Drawing.Size(181, 27)
|
||||
Me.ComboBox2.TabIndex = 12
|
||||
'
|
||||
'Button11
|
||||
'
|
||||
Me.Button11.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button11.Location = New System.Drawing.Point(383, 23)
|
||||
Me.Button11.Name = "Button11"
|
||||
Me.Button11.Size = New System.Drawing.Size(181, 29)
|
||||
Me.Button11.TabIndex = 11
|
||||
Me.Button11.Tag = "0"
|
||||
Me.Button11.Text = "成功"
|
||||
Me.Button11.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button12
|
||||
'
|
||||
Me.Button12.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button12.Location = New System.Drawing.Point(200, 23)
|
||||
Me.Button12.Name = "Button12"
|
||||
Me.Button12.Size = New System.Drawing.Size(181, 29)
|
||||
Me.Button12.TabIndex = 10
|
||||
Me.Button12.Tag = "1"
|
||||
Me.Button12.Text = "失败"
|
||||
Me.Button12.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox7
|
||||
'
|
||||
Me.GroupBox7.Controls.Add(Me.Button14)
|
||||
Me.GroupBox7.Controls.Add(Me.TextBox4)
|
||||
Me.GroupBox7.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.GroupBox7.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.GroupBox7.Location = New System.Drawing.Point(0, 307)
|
||||
Me.GroupBox7.Name = "GroupBox7"
|
||||
Me.GroupBox7.Size = New System.Drawing.Size(573, 60)
|
||||
Me.GroupBox7.TabIndex = 8
|
||||
Me.GroupBox7.TabStop = False
|
||||
Me.GroupBox7.Text = "TCP域名端口上报"
|
||||
'
|
||||
'Button14
|
||||
'
|
||||
Me.Button14.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button14.Location = New System.Drawing.Point(489, 26)
|
||||
Me.Button14.Name = "Button14"
|
||||
Me.Button14.Size = New System.Drawing.Size(75, 29)
|
||||
Me.Button14.TabIndex = 3
|
||||
Me.Button14.Text = "发送"
|
||||
Me.Button14.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox4
|
||||
'
|
||||
Me.TextBox4.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TextBox4.Location = New System.Drawing.Point(17, 26)
|
||||
Me.TextBox4.MaxLength = 256
|
||||
Me.TextBox4.Name = "TextBox4"
|
||||
Me.TextBox4.Size = New System.Drawing.Size(464, 29)
|
||||
Me.TextBox4.TabIndex = 2
|
||||
'
|
||||
'GroupBox5
|
||||
'
|
||||
Me.GroupBox5.Controls.Add(Me.Button13)
|
||||
Me.GroupBox5.Controls.Add(Me.TextBox3)
|
||||
Me.GroupBox5.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.GroupBox5.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.GroupBox5.Location = New System.Drawing.Point(0, 249)
|
||||
Me.GroupBox5.Name = "GroupBox5"
|
||||
Me.GroupBox5.Size = New System.Drawing.Size(573, 58)
|
||||
Me.GroupBox5.TabIndex = 6
|
||||
Me.GroupBox5.TabStop = False
|
||||
Me.GroupBox5.Text = "查询 MCU 名称和 PID"
|
||||
'
|
||||
'Button13
|
||||
'
|
||||
Me.Button13.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button13.Location = New System.Drawing.Point(489, 26)
|
||||
Me.Button13.Name = "Button13"
|
||||
Me.Button13.Size = New System.Drawing.Size(75, 29)
|
||||
Me.Button13.TabIndex = 3
|
||||
Me.Button13.Text = "发送"
|
||||
Me.Button13.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox3
|
||||
'
|
||||
Me.TextBox3.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TextBox3.Location = New System.Drawing.Point(17, 26)
|
||||
Me.TextBox3.MaxLength = 256
|
||||
Me.TextBox3.Name = "TextBox3"
|
||||
Me.TextBox3.Size = New System.Drawing.Size(464, 29)
|
||||
Me.TextBox3.TabIndex = 2
|
||||
'
|
||||
'GroupBox4
|
||||
'
|
||||
Me.GroupBox4.Controls.Add(Me.Button10)
|
||||
Me.GroupBox4.Controls.Add(Me.TextBox2)
|
||||
Me.GroupBox4.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.GroupBox4.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.GroupBox4.Location = New System.Drawing.Point(0, 622)
|
||||
Me.GroupBox4.Name = "GroupBox4"
|
||||
Me.GroupBox4.Size = New System.Drawing.Size(573, 58)
|
||||
Me.GroupBox4.TabIndex = 3
|
||||
Me.GroupBox4.TabStop = False
|
||||
Me.GroupBox4.Text = "查询MCU名称和PID"
|
||||
Me.GroupBox4.Visible = False
|
||||
'
|
||||
'Button10
|
||||
'
|
||||
Me.Button10.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button10.Location = New System.Drawing.Point(489, 26)
|
||||
Me.Button10.Name = "Button10"
|
||||
Me.Button10.Size = New System.Drawing.Size(75, 29)
|
||||
Me.Button10.TabIndex = 3
|
||||
Me.Button10.Text = "发送"
|
||||
Me.Button10.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TextBox2.Location = New System.Drawing.Point(17, 26)
|
||||
Me.TextBox2.MaxLength = 256
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(464, 29)
|
||||
Me.TextBox2.TabIndex = 2
|
||||
'
|
||||
'GroupBox3
|
||||
'
|
||||
Me.GroupBox3.Controls.Add(Me.ComboBox3)
|
||||
Me.GroupBox3.Controls.Add(Me.ComboBox1)
|
||||
Me.GroupBox3.Controls.Add(Me.Label6)
|
||||
Me.GroupBox3.Controls.Add(Me.Label5)
|
||||
Me.GroupBox3.Controls.Add(Me.Button8)
|
||||
Me.GroupBox3.Controls.Add(Me.Button9)
|
||||
Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.GroupBox3.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(0, 186)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(573, 63)
|
||||
Me.GroupBox3.TabIndex = 2
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "播放语音"
|
||||
'
|
||||
'ComboBox3
|
||||
'
|
||||
Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox3.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.ComboBox3.FormattingEnabled = True
|
||||
Me.ComboBox3.Location = New System.Drawing.Point(116, 26)
|
||||
Me.ComboBox3.Name = "ComboBox3"
|
||||
Me.ComboBox3.Size = New System.Drawing.Size(87, 27)
|
||||
Me.ComboBox3.TabIndex = 10
|
||||
'
|
||||
'ComboBox1
|
||||
'
|
||||
Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox1.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.ComboBox1.FormattingEnabled = True
|
||||
Me.ComboBox1.Location = New System.Drawing.Point(313, 26)
|
||||
Me.ComboBox1.Name = "ComboBox1"
|
||||
Me.ComboBox1.Size = New System.Drawing.Size(87, 27)
|
||||
Me.ComboBox1.TabIndex = 0
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(209, 29)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(110, 21)
|
||||
Me.Label6.TabIndex = 12
|
||||
Me.Label6.Text = "音频序号:"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(12, 29)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(110, 21)
|
||||
Me.Label5.TabIndex = 11
|
||||
Me.Label5.Text = "播放次数:"
|
||||
'
|
||||
'Button8
|
||||
'
|
||||
Me.Button8.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button8.Location = New System.Drawing.Point(406, 25)
|
||||
Me.Button8.Name = "Button8"
|
||||
Me.Button8.Size = New System.Drawing.Size(104, 29)
|
||||
Me.Button8.TabIndex = 9
|
||||
Me.Button8.Tag = "1"
|
||||
Me.Button8.Text = "播放语音"
|
||||
Me.Button8.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button9
|
||||
'
|
||||
Me.Button9.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button9.Location = New System.Drawing.Point(516, 25)
|
||||
Me.Button9.Name = "Button9"
|
||||
Me.Button9.Size = New System.Drawing.Size(51, 29)
|
||||
Me.Button9.TabIndex = 8
|
||||
Me.Button9.Tag = "0"
|
||||
Me.Button9.Text = "停止播放"
|
||||
Me.Button9.UseVisualStyleBackColor = True
|
||||
Me.Button9.Visible = False
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.Button7)
|
||||
Me.GroupBox2.Controls.Add(Me.Button6)
|
||||
Me.GroupBox2.Controls.Add(Me.Button4)
|
||||
Me.GroupBox2.Controls.Add(Me.Button5)
|
||||
Me.GroupBox2.Controls.Add(Me.Button3)
|
||||
Me.GroupBox2.Controls.Add(Me.Button2)
|
||||
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.GroupBox2.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(0, 90)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(573, 96)
|
||||
Me.GroupBox2.TabIndex = 1
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "设置报警状态"
|
||||
'
|
||||
'Button7
|
||||
'
|
||||
Me.Button7.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button7.Location = New System.Drawing.Point(383, 62)
|
||||
Me.Button7.Name = "Button7"
|
||||
Me.Button7.Size = New System.Drawing.Size(181, 29)
|
||||
Me.Button7.TabIndex = 7
|
||||
Me.Button7.Tag = "6"
|
||||
Me.Button7.Text = "动火离人事件结束"
|
||||
Me.Button7.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button6
|
||||
'
|
||||
Me.Button6.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button6.Location = New System.Drawing.Point(200, 62)
|
||||
Me.Button6.Name = "Button6"
|
||||
Me.Button6.Size = New System.Drawing.Size(181, 29)
|
||||
Me.Button6.TabIndex = 6
|
||||
Me.Button6.Tag = "5"
|
||||
Me.Button6.Text = "动火离人事件产生"
|
||||
Me.Button6.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button4.Location = New System.Drawing.Point(17, 62)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(181, 29)
|
||||
Me.Button4.TabIndex = 5
|
||||
Me.Button4.Tag = "2"
|
||||
Me.Button4.Text = "燃气泄漏恢复正常"
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button5.Location = New System.Drawing.Point(17, 27)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(181, 29)
|
||||
Me.Button5.TabIndex = 4
|
||||
Me.Button5.Tag = "1"
|
||||
Me.Button5.Text = "燃气泄漏"
|
||||
Me.Button5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button3.Location = New System.Drawing.Point(383, 27)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(181, 29)
|
||||
Me.Button3.TabIndex = 3
|
||||
Me.Button3.Tag = "4"
|
||||
Me.Button3.Text = "人员离开监控范围"
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button2.Location = New System.Drawing.Point(200, 27)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(181, 29)
|
||||
Me.Button2.TabIndex = 2
|
||||
Me.Button2.Tag = "3"
|
||||
Me.Button2.Text = "人员进入监控范围"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.TextBox9)
|
||||
Me.GroupBox1.Controls.Add(Me.CheckBox2)
|
||||
Me.GroupBox1.Controls.Add(Me.Button1)
|
||||
Me.GroupBox1.Controls.Add(Me.TextBox1)
|
||||
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.GroupBox1.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(573, 90)
|
||||
Me.GroupBox1.TabIndex = 0
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "设置 OSD 内容"
|
||||
'
|
||||
'TextBox9
|
||||
'
|
||||
Me.TextBox9.Location = New System.Drawing.Point(234, 21)
|
||||
Me.TextBox9.Name = "TextBox9"
|
||||
Me.TextBox9.Size = New System.Drawing.Size(165, 31)
|
||||
Me.TextBox9.TabIndex = 3
|
||||
Me.TextBox9.Text = "500"
|
||||
'
|
||||
'CheckBox2
|
||||
'
|
||||
Me.CheckBox2.AutoSize = True
|
||||
Me.CheckBox2.Location = New System.Drawing.Point(19, 24)
|
||||
Me.CheckBox2.Name = "CheckBox2"
|
||||
Me.CheckBox2.Size = New System.Drawing.Size(209, 25)
|
||||
Me.CheckBox2.TabIndex = 2
|
||||
Me.CheckBox2.Text = "定时发送间隔(ms)"
|
||||
Me.CheckBox2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Button1.Location = New System.Drawing.Point(489, 55)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(75, 29)
|
||||
Me.Button1.TabIndex = 1
|
||||
Me.Button1.Text = "发送"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TextBox1.Location = New System.Drawing.Point(17, 55)
|
||||
Me.TextBox1.MaxLength = 128
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(464, 29)
|
||||
Me.TextBox1.TabIndex = 0
|
||||
'
|
||||
'RichTextBox1
|
||||
'
|
||||
Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.RichTextBox1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.RichTextBox1.Name = "RichTextBox1"
|
||||
Me.RichTextBox1.Size = New System.Drawing.Size(621, 763)
|
||||
Me.RichTextBox1.TabIndex = 1
|
||||
Me.RichTextBox1.Text = ""
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(621, 25)
|
||||
Me.ToolStrip1.TabIndex = 0
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
|
||||
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(60, 22)
|
||||
Me.ToolStripButton1.Text = "清空数据"
|
||||
'
|
||||
'SerialPort1
|
||||
'
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Me.Timer1.Interval = 1000
|
||||
'
|
||||
'Timer2
|
||||
'
|
||||
Me.Timer2.Interval = 1000
|
||||
'
|
||||
'Form1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1195, 788)
|
||||
Me.Controls.Add(Me.SplitContainer1)
|
||||
Me.Name = "Form1"
|
||||
Me.Text = "Form1"
|
||||
Me.SplitContainer1.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel2.PerformLayout()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
Me.SplitContainer2.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer2.Panel1.PerformLayout()
|
||||
Me.SplitContainer2.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer2.ResumeLayout(False)
|
||||
Me.GroupBox8.ResumeLayout(False)
|
||||
Me.GroupBox8.PerformLayout()
|
||||
Me.GroupBox6.ResumeLayout(False)
|
||||
Me.GroupBox7.ResumeLayout(False)
|
||||
Me.GroupBox7.PerformLayout()
|
||||
Me.GroupBox5.ResumeLayout(False)
|
||||
Me.GroupBox5.PerformLayout()
|
||||
Me.GroupBox4.ResumeLayout(False)
|
||||
Me.GroupBox4.PerformLayout()
|
||||
Me.GroupBox3.ResumeLayout(False)
|
||||
Me.GroupBox3.PerformLayout()
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.GroupBox1.PerformLayout()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents SplitContainer1 As SplitContainer
|
||||
Friend WithEvents SplitContainer2 As SplitContainer
|
||||
Friend WithEvents Btn_OpenPort As Button
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Cbo_Baud As ComboBox
|
||||
Friend WithEvents Cbo_Port As ComboBox
|
||||
Friend WithEvents RichTextBox1 As RichTextBox
|
||||
Friend WithEvents ToolStrip1 As ToolStrip
|
||||
Friend WithEvents SerialPort1 As IO.Ports.SerialPort
|
||||
Friend WithEvents GroupBox4 As GroupBox
|
||||
Friend WithEvents GroupBox3 As GroupBox
|
||||
Friend WithEvents GroupBox2 As GroupBox
|
||||
Friend WithEvents TextBox1 As TextBox
|
||||
Friend WithEvents GroupBox1 As GroupBox
|
||||
Friend WithEvents Button10 As Button
|
||||
Friend WithEvents TextBox2 As TextBox
|
||||
Friend WithEvents Button8 As Button
|
||||
Friend WithEvents Button9 As Button
|
||||
Friend WithEvents ComboBox1 As ComboBox
|
||||
Friend WithEvents Button7 As Button
|
||||
Friend WithEvents Button6 As Button
|
||||
Friend WithEvents Button4 As Button
|
||||
Friend WithEvents Button5 As Button
|
||||
Friend WithEvents Button3 As Button
|
||||
Friend WithEvents Button2 As Button
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents ToolStripButton1 As ToolStripButton
|
||||
Friend WithEvents GroupBox5 As GroupBox
|
||||
Friend WithEvents Button13 As Button
|
||||
Friend WithEvents TextBox3 As TextBox
|
||||
Friend WithEvents GroupBox7 As GroupBox
|
||||
Friend WithEvents Button14 As Button
|
||||
Friend WithEvents TextBox4 As TextBox
|
||||
Friend WithEvents GroupBox8 As GroupBox
|
||||
Friend WithEvents Button15 As Button
|
||||
Friend WithEvents TextBox5 As TextBox
|
||||
Friend WithEvents GroupBox6 As GroupBox
|
||||
Friend WithEvents ComboBox2 As ComboBox
|
||||
Friend WithEvents Button11 As Button
|
||||
Friend WithEvents Button12 As Button
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents TextBox6 As TextBox
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents ComboBox3 As ComboBox
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents TextBox7 As TextBox
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents CheckBox1 As CheckBox
|
||||
Friend WithEvents TextBox8 As TextBox
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents Button16 As Button
|
||||
Friend WithEvents TextBox9 As TextBox
|
||||
Friend WithEvents CheckBox2 As CheckBox
|
||||
Friend WithEvents Timer2 As Timer
|
||||
End Class
|
||||
151
Form1.resx
Normal file
151
Form1.resx
Normal file
@@ -0,0 +1,151 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
|
||||
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
|
||||
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
|
||||
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
|
||||
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
|
||||
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
|
||||
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
|
||||
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
|
||||
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
|
||||
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="SerialPort1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>241, 17</value>
|
||||
</metadata>
|
||||
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>357, 17</value>
|
||||
</metadata>
|
||||
<metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>449, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>59</value>
|
||||
</metadata>
|
||||
</root>
|
||||
590
Form1.vb
Normal file
590
Form1.vb
Normal file
@@ -0,0 +1,590 @@
|
||||
Imports System.IO.Ports
|
||||
Imports System.Text
|
||||
Imports System.Threading
|
||||
Imports SharedFunction
|
||||
Public Class Form1
|
||||
|
||||
#Region "窗体加载"
|
||||
|
||||
'富文本打印变量
|
||||
Public G_RichTextPrint As RichTextPrint
|
||||
Public G_CommunicationProtocol As CommunicationProtocol
|
||||
|
||||
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Text = $"{Application.ProductName}_V{Application.ProductVersion}"
|
||||
G_RichTextPrint = New RichTextPrint(RichTextBox1)
|
||||
G_CommunicationProtocol = New CommunicationProtocol(G_RichTextPrint, SerialPort1)
|
||||
G_CommunicationProtocol.AddControlDic(&H18, Label4)
|
||||
G_CommunicationProtocol.AddControlDic(&H19, TextBox6)
|
||||
|
||||
recvBufferli = New List(Of Byte)()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "串口事务"
|
||||
|
||||
Public isread As Boolean = False '串口关闭标志
|
||||
Public isListen As Boolean = False '串口等待关闭标志
|
||||
Private Sub Btn_OpenPort_Click(sender As Object, e As EventArgs) Handles Btn_OpenPort.Click
|
||||
If Btn_OpenPort.Text = "关闭" Then
|
||||
Btn_OpenPort.Text = "打开"
|
||||
Btn_OpenPort.BackColor = Color.Transparent
|
||||
Cbo_Port.Enabled = True
|
||||
Cbo_Baud.Enabled = True
|
||||
G_CommunicationProtocol.setIsFlowList(False)
|
||||
G_CommunicationProtocol.ClearFlowNode(True)
|
||||
SharedFunction.CloseSerial(SerialPort1, isread, isListen)
|
||||
|
||||
|
||||
|
||||
Else
|
||||
|
||||
Cbo_Port.Enabled = False
|
||||
Cbo_Baud.Enabled = False
|
||||
Btn_OpenPort.Text = "关闭"
|
||||
Btn_OpenPort.BackColor = Color.OrangeRed
|
||||
Dim vmbaud As Integer = 0
|
||||
'判断端口号是否合法
|
||||
If String.IsNullOrEmpty(Cbo_Port.Text) Then
|
||||
MsgBox("请选择端口号！")
|
||||
Btn_OpenPort_Click(Nothing, Nothing)
|
||||
Return
|
||||
End If
|
||||
'判断波特率是否合法
|
||||
If String.IsNullOrEmpty(Cbo_Baud.Text) OrElse Not Integer.TryParse(Cbo_Baud.Text, vmbaud) Then
|
||||
MsgBox("请选择波特率！")
|
||||
Btn_OpenPort_Click(Nothing, Nothing)
|
||||
Return
|
||||
End If
|
||||
|
||||
'打开串口
|
||||
If SharedFunction.OpenSerial(SerialPort1, Cbo_Port.Text, vmbaud) Then
|
||||
Else
|
||||
MsgBox("串口打开失败！")
|
||||
Btn_OpenPort_Click(Nothing, Nothing)
|
||||
Return
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private _recvBuffer(4095) As Byte
|
||||
Public recvBufferli As List(Of Byte)
|
||||
Public recvBufferliindex As Integer = 0
|
||||
Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
|
||||
If isread Then Return
|
||||
|
||||
isListen = True
|
||||
Static bytes As Integer = 0
|
||||
Dim sp As SerialPort = DirectCast(sender, SerialPort)
|
||||
|
||||
Try
|
||||
|
||||
|
||||
Do
|
||||
bytes = sp.BytesToRead
|
||||
If bytes <= 0 Then Exit Sub
|
||||
|
||||
|
||||
Dim buf(bytes - 1) As Byte
|
||||
sp.Read(buf, 0, bytes)
|
||||
recvBufferli.AddRange(buf)
|
||||
|
||||
|
||||
Thread.Sleep(5)
|
||||
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()
|
||||
|
||||
G_RichTextPrint.AddQueue(RichTextBox1, New RichTextNodeConfig($"RX:", Color.Green, New Font("宋体", 8), buf), 1)
|
||||
|
||||
G_CommunicationProtocol.ProcessRecvData(buf)
|
||||
|
||||
|
||||
End If
|
||||
|
||||
isListen = False
|
||||
Catch ex As Exception
|
||||
isListen = False
|
||||
'AppendTipText($"串口接收数据失败,原因:{ex.Message}", Color.Red)
|
||||
G_RichTextPrint.AddQueue(RichTextBox1, New RichTextNodeConfig($"串口接收数据失败,原因:{ex.Message}", Color.Red), 1)
|
||||
'RichTextPrint.OutputLogsToTheControl(m_Control, New RuningLogConfig($"串口接收数据失败,原因:{ex.Message}", Color.Red), 1)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
|
||||
Timer1.Enabled = False
|
||||
If Not IsNothing(G_RichTextPrint) Then
|
||||
G_RichTextPrint.Close()
|
||||
End If
|
||||
If SerialPort1.IsOpen Then
|
||||
SharedFunction.CloseSerial(SerialPort1, isread, isListen)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Cbo_Port_DropDown(sender As Object, e As EventArgs) Handles Cbo_Port.DropDown
|
||||
Cbo_Port.Items.Clear()
|
||||
Cbo_Port.Items.AddRange(SerialPort.GetPortNames())
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
If G_CommunicationProtocol.getIsFlowList Then
|
||||
MsgBox("正在通信中！")
|
||||
Return
|
||||
Else
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
End If
|
||||
Dim li As List(Of Byte) = New List(Of Byte)()
|
||||
Dim OSDstr As String = TextBox1.Text
|
||||
Dim OSDbuf As Byte() = Encoding.ASCII.GetBytes(OSDstr)
|
||||
If IsNothing(OSDbuf) OrElse OSDbuf.Length = 0 Then
|
||||
MsgBox("请输入正确的OSD内容！")
|
||||
Return
|
||||
End If
|
||||
li.Add(OSDbuf.Length)
|
||||
li.AddRange(OSDbuf)
|
||||
|
||||
OSDbuf = NT_CAM.PackData(&HA0, li.ToArray)
|
||||
Dim gSendNode As New SendNode(1)
|
||||
|
||||
gSendNode.SetSendData(OSDbuf)
|
||||
G_CommunicationProtocol.AddFlowNode("设置OSD内容", gSendNode)
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button2.Click
|
||||
|
||||
If G_CommunicationProtocol.getIsFlowList Then
|
||||
MsgBox("正在通信中！")
|
||||
Return
|
||||
Else
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
End If
|
||||
'获取当前按钮
|
||||
Dim btn As Button = DirectCast(sender, Button)
|
||||
'获取当前按钮的+Tag值
|
||||
Dim ntag As Integer = CInt(btn.Tag)
|
||||
Dim OSDbuf As Byte() = {ntag}
|
||||
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
OSDbuf = NT_CAM.PackData(&HA1, OSDbuf)
|
||||
Dim gSendNode As New SendNode(1)
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
gSendNode.SetSendData(OSDbuf)
|
||||
G_CommunicationProtocol.AddFlowNode("设置报警状态", gSendNode)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click, Button8.Click
|
||||
If G_CommunicationProtocol.getIsFlowList Then
|
||||
MsgBox("正在通信中！")
|
||||
Return
|
||||
Else
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
End If
|
||||
|
||||
'获取当前按钮
|
||||
Dim btn As Button = DirectCast(sender, Button)
|
||||
'获取当前按钮的+Tag值
|
||||
Dim ntag As Integer = CInt(btn.Tag)
|
||||
Dim nComb, mComb As Integer
|
||||
'获取下拉框数值
|
||||
If Integer.TryParse(ComboBox1.Text.Trim, nComb) = False Then
|
||||
MsgBox("请输入正确的音乐序号！")
|
||||
Return
|
||||
End If
|
||||
|
||||
If Integer.TryParse(ComboBox3.Text.Trim, mComb) = False Then
|
||||
MsgBox("请输入正确的音乐序号！")
|
||||
Return
|
||||
End If
|
||||
|
||||
|
||||
Dim OSDbuf As Byte() = {mComb, nComb, 0, 1} '{ntag, nComb}
|
||||
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
OSDbuf = NT_CAM.PackData(&H21, OSDbuf)
|
||||
Dim gSendNode As New SendNode(1)
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
gSendNode.SetSendData(OSDbuf)
|
||||
G_CommunicationProtocol.AddFlowNode("播放语音", gSendNode)
|
||||
End Sub
|
||||
|
||||
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
||||
'获取TextBox2文本
|
||||
Dim OSDstr As String = TextBox2.Text
|
||||
'将文本转HEX 数据
|
||||
If G_CommunicationProtocol.getIsFlowList Then
|
||||
MsgBox("正在通信中！")
|
||||
Return
|
||||
Else
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
End If
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
OSDstr = SharedFunction.StringToHexString(OSDstr)
|
||||
If IsNothing(OSDstr) OrElse OSDstr.Length = 0 Then
|
||||
MsgBox("请输入正确的透传数据！")
|
||||
Return
|
||||
End If
|
||||
Dim OSDbuf As Byte() = SharedFunction.HexStringToByte(OSDstr)
|
||||
OSDbuf = NT_CAM.PackData(&H17, OSDbuf)
|
||||
Dim gSendNode As New SendNode(1)
|
||||
gSendNode.SetSendData(OSDbuf)
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
G_CommunicationProtocol.AddFlowNode("透传命令", gSendNode)
|
||||
'Console.WriteLine(OSDstr)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress, TextBox5.KeyPress
|
||||
e.Handled = Not $"0123456789ABCDEFabcdef{vbBack} ".Contains(e.KeyChar) '如果要只允许输入数字，
|
||||
End Sub
|
||||
|
||||
Private Sub SplitContainer2_Panel2_Click(sender As Object, e As EventArgs)
|
||||
Dim btn As Button = DirectCast(sender, Button)
|
||||
If G_CommunicationProtocol.getIsFlowList Then
|
||||
MsgBox("正在通信中！")
|
||||
Return
|
||||
Else
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
End If
|
||||
'获取当前按钮的+Tag值
|
||||
Dim nComb As Byte() = SharedFunction.HexStringToByte(ComboBox1.Text.Trim)
|
||||
If IsNothing(nComb) OrElse nComb.Length = 0 Then
|
||||
MsgBox("请输入正确的命令！")
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim ntag As Integer = CInt(btn.Tag)
|
||||
Dim OSDbuf As Byte() = {ntag}
|
||||
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
OSDbuf = NT_CAM.PackData(nComb(0), OSDbuf)
|
||||
Dim gSendNode As New SendNode(1)
|
||||
gSendNode.SetSendData(OSDbuf)
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
G_CommunicationProtocol.AddFlowNode("IPC请求回复", gSendNode)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
||||
'清空富文本
|
||||
RichTextBox1.Clear()
|
||||
End Sub
|
||||
|
||||
Private Sub ComboBox1_DropDown(sender As Object, e As EventArgs) Handles ComboBox1.DropDown, ComboBox3.DropDown
|
||||
'将sender 转换为ComboBox
|
||||
Dim mcomboBox As ComboBox = DirectCast(sender, ComboBox)
|
||||
|
||||
mcomboBox.Items.Clear()
|
||||
'添加1到255
|
||||
For i As Integer = 1 To 255
|
||||
mcomboBox.Items.Add(i)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
|
||||
Dim OSDstr As String = TextBox3.Text
|
||||
Dim OSDbuf As Byte() = Encoding.ASCII.GetBytes(OSDstr)
|
||||
If IsNothing(OSDbuf) OrElse OSDbuf.Length = 0 Then
|
||||
MsgBox("请输入正确的产品ID！")
|
||||
Return
|
||||
End If
|
||||
If G_CommunicationProtocol.getIsFlowList Then
|
||||
MsgBox("正在通信中！")
|
||||
Return
|
||||
Else
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
End If
|
||||
|
||||
OSDbuf = NT_CAM.PackData(&H9, OSDbuf)
|
||||
Dim gSendNode As New SendNode(1)
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
gSendNode.SetSendData(OSDbuf)
|
||||
G_CommunicationProtocol.AddFlowNode("设置产品ID", gSendNode)
|
||||
End Sub
|
||||
|
||||
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
|
||||
'获取TextBox2文本
|
||||
Dim OSDstr As String = TextBox5.Text
|
||||
'将文本转HEX 数据
|
||||
If G_CommunicationProtocol.getIsFlowList Then
|
||||
MsgBox("正在通信中！")
|
||||
Return
|
||||
Else
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
End If
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
OSDstr = SharedFunction.StringToHexString(OSDstr)
|
||||
If IsNothing(OSDstr) OrElse OSDstr.Length = 0 Then
|
||||
MsgBox("请输入正确的透传数据！")
|
||||
Return
|
||||
End If
|
||||
Dim OSDbuf As Byte() = SharedFunction.HexStringToByte(OSDstr)
|
||||
OSDbuf = NT_CAM.PackData(&H20, OSDbuf)
|
||||
Dim gSendNode As New SendNode(1)
|
||||
gSendNode.SetSendData(OSDbuf)
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
G_CommunicationProtocol.AddFlowNode("透传命令", gSendNode)
|
||||
End Sub
|
||||
|
||||
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
|
||||
Dim OSDstr As String = TextBox4.Text
|
||||
Dim OSDbuf As Byte() = Encoding.ASCII.GetBytes(OSDstr)
|
||||
If IsNothing(OSDbuf) OrElse OSDbuf.Length = 0 Then
|
||||
MsgBox("请输入正确的产品ID！")
|
||||
Return
|
||||
End If
|
||||
If G_CommunicationProtocol.getIsFlowList Then
|
||||
MsgBox("正在通信中！")
|
||||
Return
|
||||
Else
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
End If
|
||||
|
||||
OSDbuf = NT_CAM.PackData(&H17, OSDbuf)
|
||||
Dim gSendNode As New SendNode(1)
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
gSendNode.SetSendData(OSDbuf)
|
||||
G_CommunicationProtocol.AddFlowNode("设置产品ID", gSendNode)
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox7_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox7.KeyPress
|
||||
e.Handled = Not $"0123456789{vbBack} ".Contains(e.KeyChar) '如果要只允许输入数字，
|
||||
End Sub
|
||||
Public SendingInterval As Integer = 0
|
||||
Public SendingInterval1 As Integer = 0
|
||||
Public SendingDate As String = ""
|
||||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
|
||||
If CheckBox1.Checked Then
|
||||
TextBox7.Enabled = False
|
||||
TextBox8.Enabled = False
|
||||
'获取TextBox7 代表的发生间隔
|
||||
SendingInterval = 30
|
||||
|
||||
Integer.TryParse(TextBox7.Text, SendingInterval)
|
||||
SendingDate = TextBox8.Text
|
||||
If SendingInterval < 1 AndAlso String.IsNullOrEmpty(SendingDate) Then
|
||||
MsgBox("请输入正确的发送间隔和发送内容！")
|
||||
CheckBox1.Checked = False
|
||||
Return
|
||||
End If
|
||||
'开启定时任务
|
||||
|
||||
Timer1.Enabled = True
|
||||
|
||||
Else
|
||||
Timer1.Enabled = False
|
||||
TextBox7.Enabled = True
|
||||
TextBox8.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
Public Timer1cnt As Integer = 0
|
||||
Public Timer2cnt As Integer = 0
|
||||
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
||||
If Timer1cnt = SendingInterval Then
|
||||
Timer1cnt = 1
|
||||
|
||||
Dim OSDstr As String = SendingDate
|
||||
'将文本转HEX 数据
|
||||
If G_CommunicationProtocol.getIsFlowList Then
|
||||
MsgBox("正在通信中！")
|
||||
Return
|
||||
Else
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
End If
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
OSDstr = SharedFunction.StringToHexString(OSDstr)
|
||||
If IsNothing(OSDstr) OrElse OSDstr.Length = 0 Then
|
||||
MsgBox("请输入正确的透传数据！")
|
||||
Return
|
||||
End If
|
||||
Dim OSDbuf As Byte() = SharedFunction.HexStringToByte(OSDstr)
|
||||
OSDbuf = NT_CAM.PackData(&H20, OSDbuf)
|
||||
Dim gSendNode As New SendNode(1, 1)
|
||||
gSendNode.SetSendData(OSDbuf)
|
||||
gSendNode.IsRecvData = False
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
G_CommunicationProtocol.AddFlowNode("透传命令", gSendNode)
|
||||
|
||||
Else
|
||||
Timer1cnt += 1
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox8_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox8.KeyPress
|
||||
e.Handled = Not $"0123456789ABCDEFabcdef{vbBack} ".Contains(e.KeyChar) '如果要只允许输入数字，
|
||||
End Sub
|
||||
|
||||
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
|
||||
'获取TextBox2文本 ‘55 AA 01 0B 00 00 0B
|
||||
'Dim OSDstr As String = TextBox5.Text
|
||||
'将文本转HEX 数据
|
||||
If G_CommunicationProtocol.getIsFlowList Then
|
||||
MsgBox("正在通信中！")
|
||||
Return
|
||||
Else
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
End If
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
'OSDstr = SharedFunction.StringToHexString(OSDstr)
|
||||
'If IsNothing(OSDstr) OrElse OSDstr.Length = 0 Then
|
||||
' MsgBox("请输入正确的透传数据！")
|
||||
' Return
|
||||
'End If
|
||||
Dim OSDbuf As Byte() '= SharedFunction.HexStringToByte(OSDstr)
|
||||
OSDbuf = {&H55, &HAA, &H1, &HB, &H0, &H0, &HB}
|
||||
Dim gSendNode As New SendNode(1)
|
||||
gSendNode.SetSendData(OSDbuf)
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
G_CommunicationProtocol.AddFlowNode("透传命令", gSendNode)
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox9_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox9.KeyPress
|
||||
e.Handled = Not $"0123456789ABCDEFabcdef{vbBack} ".Contains(e.KeyChar) '如果要只允许输入数字，
|
||||
End Sub
|
||||
Public OSDbufSN As Integer = 0
|
||||
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
|
||||
|
||||
|
||||
|
||||
|
||||
If CheckBox2.Checked Then
|
||||
|
||||
'判断串口是否打开
|
||||
|
||||
|
||||
|
||||
TextBox9.Enabled = False
|
||||
|
||||
'获取TextBox7 代表的发生间隔
|
||||
SendingInterval1 = 500
|
||||
|
||||
Integer.TryParse(TextBox9.Text, SendingInterval1)
|
||||
'SendingDate = TextBox8.Text
|
||||
If SendingInterval1 < 1 Then
|
||||
MsgBox("请输入正确的发送间隔！")
|
||||
CheckBox2.Checked = False
|
||||
Return
|
||||
End If
|
||||
'开启定时任务
|
||||
OSDbufSN = 1
|
||||
Timer2.Interval = 10
|
||||
SendingInterval1 = SendingInterval1 / 10
|
||||
|
||||
Timer2.Start()
|
||||
|
||||
Else
|
||||
OSDbufSN = 1
|
||||
'Timer2.Enabled = False
|
||||
Timer2.Stop()
|
||||
TextBox9.Enabled = True
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Public cntSendingInterval1 As Integer = 0
|
||||
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
||||
' If Timer2cnt = SendingInterval1 Then
|
||||
' Timer2cnt = 1
|
||||
If cntSendingInterval1 < SendingInterval1 Then
|
||||
cntSendingInterval1 = cntSendingInterval1 + 1
|
||||
Else
|
||||
If G_CommunicationProtocol.getIsFlowList1 Then
|
||||
cntSendingInterval1 = SendingInterval1
|
||||
Return
|
||||
'MsgBox("正在通信中！")
|
||||
Else
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
G_CommunicationProtocol.setIsFlowList(True)
|
||||
End If
|
||||
Dim li As List(Of Byte) = New List(Of Byte)()
|
||||
Dim m_snsn As Integer = GetNewSNTimeDate(OSDbufSN)
|
||||
Dim snbuf As String = GetSnString(m_snsn)
|
||||
Dim OSDstr As String = $"R:{snbuf} B:{snbuf} D:{snbuf} TD:{snbuf} HD:{snbuf} S:{snbuf} HC:{snbuf} HR:{snbuf}"
|
||||
Dim OSDbuf As Byte() = Encoding.ASCII.GetBytes(OSDstr)
|
||||
|
||||
|
||||
|
||||
'If IsNothing(OSDbuf) OrElse OSDbuf.Length = 0 Then
|
||||
' MsgBox("请输入正确的OSD内容！")
|
||||
' Return
|
||||
'End If
|
||||
li.Add(OSDbuf.Length)
|
||||
li.AddRange(OSDbuf)
|
||||
|
||||
OSDbuf = NT_CAM.PackData(&HA0, li.ToArray)
|
||||
|
||||
OSDbuf(6) = 14
|
||||
OSDbuf(21) = 11
|
||||
OSDbuf(33) = 16
|
||||
OSDbuf(OSDbuf.Length - 1) = 0
|
||||
OSDbuf(OSDbuf.Length - 1) = SharedFunction.GetCheckSumMod2(OSDbuf)
|
||||
|
||||
Dim gSendNode As New SendNode(1)
|
||||
|
||||
gSendNode.SetSendData(OSDbuf, 800)
|
||||
G_CommunicationProtocol.ClearFlowNode()
|
||||
'G_CommunicationProtocol.setIsFlowList(True)
|
||||
G_CommunicationProtocol.AddFlowNode("设置OSD内容", gSendNode)
|
||||
Console.WriteLine("发送OSD内容")
|
||||
'Else
|
||||
' Timer2cnt += 1
|
||||
'End If
|
||||
cntSendingInterval1 = 0
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function GetNewSNTimeDate(ByRef sn As Integer) As Integer
|
||||
Dim result As Integer = 1
|
||||
If sn > 9 Then
|
||||
result = 1
|
||||
sn = 1
|
||||
Else
|
||||
sn = sn + 1
|
||||
result = sn
|
||||
End If
|
||||
Return result
|
||||
End Function
|
||||
Public Function GetSnString(sn As Integer) As String
|
||||
'如果sn只有个位数则前面补0
|
||||
Dim snbuf As String
|
||||
'判断sn是否小于10 ,小于则前面补0
|
||||
If sn < 10 Then
|
||||
snbuf = $"0{sn}"
|
||||
Else
|
||||
snbuf = sn.ToString
|
||||
End If
|
||||
Return snbuf
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
38
My Project/Application.Designer.vb
generated
Normal file
38
My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
|
||||
' or if you encounter build errors in this file, go to the Project Designer
|
||||
' (go to Project Properties or double-click the My Project node in
|
||||
' Solution Explorer), and make changes on the Application tab.
|
||||
'
|
||||
Partial Friend Class MyApplication
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Public Sub New()
|
||||
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||
Me.IsSingleInstance = false
|
||||
Me.EnableVisualStyles = true
|
||||
Me.SaveMySettingsOnExit = true
|
||||
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.NT_CAM_Controller.Form1
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
11
My Project/Application.myapp
Normal file
11
My Project/Application.myapp
Normal file
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>true</MySubMain>
|
||||
<MainForm>Form1</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<ApplicationType>0</ApplicationType>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
35
My Project/AssemblyInfo.vb
Normal file
35
My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' 有关程序集的一般信息由以下
|
||||
' 控制。更改这些特性值可修改
|
||||
' 与程序集关联的信息。
|
||||
|
||||
'查看程序集特性的值
|
||||
|
||||
<Assembly: AssemblyTitle("NT-CAM_Controller")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("NT-CAM_Controller")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2025")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'如果此项目向 COM 公开，则下列 GUID 用于 typelib 的 ID
|
||||
<Assembly: Guid("1a2f7c47-2b2d-4a3c-9c9f-95b35d1c187a")>
|
||||
|
||||
' 程序集的版本信息由下列四个值组成:
|
||||
'
|
||||
' 主版本
|
||||
' 次版本
|
||||
' 生成号
|
||||
' 修订号
|
||||
'
|
||||
'可以指定所有这些值，也可以使用“生成号”和“修订号”的默认值
|
||||
'通过使用 "*"，如下所示:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.0.16")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.16")>
|
||||
62
My Project/Resources.Designer.vb
generated
Normal file
62
My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,62 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||
'class via a tool like ResGen or Visual Studio.
|
||||
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||
'with the /str option, or rebuild your VS project.
|
||||
'''<summary>
|
||||
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Returns the cached ResourceManager instance used by this class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("NT_CAM_Controller.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Overrides the current thread's CurrentUICulture property for all
|
||||
''' resource lookups using this strongly typed resource class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
117
My Project/Resources.resx
Normal file
117
My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
73
My Project/Settings.Designer.vb
generated
Normal file
73
My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
|
||||
|
||||
#Region "My.Settings Auto-Save Functionality"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.NT_CAM_Controller.My.MySettings
|
||||
Get
|
||||
Return Global.NT_CAM_Controller.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
7
My Project/Settings.settings
Normal file
7
My Project/Settings.settings
Normal file
@@ -0,0 +1,7 @@
|
||||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||
<Profiles>
|
||||
<Profile Name="(Default)" />
|
||||
</Profiles>
|
||||
<Settings />
|
||||
</SettingsFile>
|
||||
25
NT-CAM_Controller.sln
Normal file
25
NT-CAM_Controller.sln
Normal file
@@ -0,0 +1,25 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
# Visual Studio Version 16
|
||||
VisualStudioVersion = 16.0.32602.291
|
||||
MinimumVisualStudioVersion = 10.0.40219.1
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NT-CAM_Controller", "NT-CAM_Controller.vbproj", "{3D30DB30-5E4F-42E7-B098-0F04B64EDD54}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{3D30DB30-5E4F-42E7-B098-0F04B64EDD54}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{3D30DB30-5E4F-42E7-B098-0F04B64EDD54}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{3D30DB30-5E4F-42E7-B098-0F04B64EDD54}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{3D30DB30-5E4F-42E7-B098-0F04B64EDD54}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
GlobalSection(ExtensibilityGlobals) = postSolution
|
||||
SolutionGuid = {F130D632-CA65-40F5-A17A-B4F6AFE65DFA}
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
129
NT-CAM_Controller.vbproj
Normal file
129
NT-CAM_Controller.vbproj
Normal file
@@ -0,0 +1,129 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProjectGuid>{3D30DB30-5E4F-42E7-B098-0F04B64EDD54}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>NT_CAM_Controller.My.MyApplication</StartupObject>
|
||||
<RootNamespace>NT_CAM_Controller</RootNamespace>
|
||||
<AssemblyName>NT-CAM_Controller</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
|
||||
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
|
||||
<Deterministic>true</Deterministic>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>NT-CAM_Controller.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>NT-CAM_Controller.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
<Reference Include="System.Core" />
|
||||
<Reference Include="System.Xml.Linq" />
|
||||
<Reference Include="System.Data.DataSetExtensions" />
|
||||
<Reference Include="System.Net.Http" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Drawing" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="CommunicationProtocol\CommunicationProtocol.vb" />
|
||||
<Compile Include="CommunicationProtocol\NT_CAM.vb" />
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="RichTextPrint\RichTextPrint.vb" />
|
||||
<Compile Include="SharedFunction\SharedFunction.vb" />
|
||||
<Compile Include="Transmitter\Transmitter.vb" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Form1.resx">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="App.config" />
|
||||
</ItemGroup>
|
||||
<ItemGroup />
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
</Project>
|
||||
175
RichTextPrint/RichTextPrint.vb
Normal file
175
RichTextPrint/RichTextPrint.vb
Normal file
@@ -0,0 +1,175 @@
|
||||
Imports System.Threading
|
||||
|
||||
Public Class RichTextPrint
|
||||
'输出线程
|
||||
Public OutputThread As Thread
|
||||
'输出等级
|
||||
Public Shared level As Integer = 1 '日志级别 0：不输出日志 1：输出日志2：输出基础日志和错误信息
|
||||
|
||||
'接收器
|
||||
Public UpdateUIqueue As Queue(Of (Control, RichTextNodeConfig, lev As Integer))
|
||||
|
||||
'默认输出控件
|
||||
Public G_DefaultControl As Control
|
||||
|
||||
|
||||
Sub New(DefaultControl As Control)
|
||||
G_DefaultControl = DefaultControl
|
||||
'初始化线程
|
||||
OutputThread = New Thread(AddressOf RunUpdateUI)
|
||||
'OutputThread.IsBackground = True
|
||||
OutputThread.Start()
|
||||
UpdateUIqueue = New Queue(Of (Control, RichTextNodeConfig, lev As Integer))
|
||||
End Sub
|
||||
'关闭线程
|
||||
Sub Close()
|
||||
OutputThread.Abort()
|
||||
End Sub
|
||||
|
||||
Public Sub AddQueue(c As Control, rl As RichTextNodeConfig, Optional lev As Integer = 0)
|
||||
If IsNothing(UpdateUIqueue) OrElse IsNothing(c) OrElse IsNothing(rl) Then Return
|
||||
UpdateUIqueue.Enqueue((c, rl, lev))
|
||||
End Sub
|
||||
Public Sub AddQueue(rl As RichTextNodeConfig, Optional lev As Integer = 0)
|
||||
If IsNothing(UpdateUIqueue) OrElse IsNothing(G_DefaultControl) OrElse IsNothing(rl) Then Return
|
||||
UpdateUIqueue.Enqueue((G_DefaultControl, rl, lev))
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub RunUpdateUI()
|
||||
While True
|
||||
|
||||
If IsNothing(UpdateUIqueue) OrElse UpdateUIqueue.Count = 0 Then
|
||||
Thread.Sleep(1)
|
||||
Continue While
|
||||
End If
|
||||
If UpdateUIqueue.Count > 0 Then
|
||||
Dim str As (Control, RichTextNodeConfig, Integer) = UpdateUIqueue.Dequeue()
|
||||
OutputLogsToTheControl(str.Item1, str.Item2, str.Item3)
|
||||
End If
|
||||
Thread.Sleep(1)
|
||||
End While
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Delegate Function Deleg_OutputLogsToTheControl(c As Control， config As RichTextNodeConfig, Controltype As Integer) As Boolean
|
||||
'输出日志到控件
|
||||
''' <summary>
|
||||
''' ''输出日志到控件
|
||||
''' </summary>
|
||||
''' <param name="c">控件 </param>
|
||||
''' <param name="config">日志</param>
|
||||
''' <returns></returns>
|
||||
Public Shared Function OutputLogsToTheControl(c As Control， config As RichTextNodeConfig, Controltype As Integer) As Boolean
|
||||
Try
|
||||
If c.InvokeRequired Then
|
||||
Dim dev As New Deleg_OutputLogsToTheControl(AddressOf OutputLogsToTheControl)
|
||||
c.Invoke(dev, New Object() {c, config, Controltype})
|
||||
Else
|
||||
If Controltype >= level Then
|
||||
Dim nc As RichTextBox = c
|
||||
'获取富文本字符串末端位置
|
||||
Dim index As Integer = nc.TextLength
|
||||
If (Not IsNothing(config.strdata)) AndAlso config.strdata.Length > 0 Then
|
||||
config.logstr = config.logstr & SharedFunction.ByteToHexString(config.strdata)
|
||||
End If
|
||||
|
||||
Dim strtxt = config.logstr & vbCrLf
|
||||
'设置光标位置
|
||||
nc.SelectionStart = index
|
||||
'添加文本
|
||||
nc.AppendText(strtxt)
|
||||
'设置选择区域
|
||||
nc.Select(index, strtxt.Length)
|
||||
'设置选择区域颜色
|
||||
nc.SelectionColor = config.logstrColor
|
||||
'设置选择区域字体
|
||||
nc.SelectionFont = config.logstrFont
|
||||
'取消选中区域
|
||||
nc.DeselectAll()
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
'字符串附加时间戳
|
||||
Public Shared Function AddTimeStamps(str As String) As String
|
||||
Return Now.ToString("yyyy-MM-dd HH:mm:ss:fff") & " " & str
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
Public Class RichTextNodeConfig
|
||||
'日志信息
|
||||
Public logstr As String
|
||||
'日志信息颜色
|
||||
Public logstrColor As Color
|
||||
'日志信息字体
|
||||
Public logstrFont As Font
|
||||
'日志信息字体大小
|
||||
'Public logstrFontSize As Integer
|
||||
''日志信息字体粗细
|
||||
'Public logstrFontBold As Boolean
|
||||
''日志信息字体斜体
|
||||
'Public logstrFontItalic As Boolean
|
||||
''日志信息字体下划线
|
||||
'Public logstrFontUnderline As Boolean
|
||||
''日志信息字体删除线
|
||||
'Public logstrFontStrikeout As Boolean
|
||||
''日志信息字体对齐方式
|
||||
'Public logstrFontAlign As StringAlignment
|
||||
'日志信息字体背景色
|
||||
Public logstrFontBackColor As Color
|
||||
Public strdata As Byte()
|
||||
|
||||
''' <summary>
|
||||
''' 文本、颜色、Font
|
||||
''' </summary>
|
||||
''' <param name="args"></param>
|
||||
Sub New(ParamArray args() As Object)
|
||||
If args.Length > 0 Then
|
||||
logstr = RichTextPrint.AddTimeStamps(args(0).ToString)
|
||||
|
||||
If args.Length > 1 Then
|
||||
|
||||
logstrColor = args(1)
|
||||
If args.Length > 2 Then
|
||||
logstrFont = args(2)
|
||||
Else
|
||||
logstrFont = New Font("宋体", 8)
|
||||
|
||||
End If
|
||||
|
||||
If args.Length > 3 Then
|
||||
strdata = args(3)
|
||||
Else
|
||||
strdata = Nothing
|
||||
End If
|
||||
|
||||
Else
|
||||
logstrColor = Color.Black
|
||||
End If
|
||||
Else
|
||||
logstr = "输空文本"
|
||||
logstrColor = Color.Black
|
||||
logstrFont = New Font("宋体", 12)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
200
SharedFunction/SharedFunction.vb
Normal file
200
SharedFunction/SharedFunction.vb
Normal file
@@ -0,0 +1,200 @@
|
||||
Imports System.IO.Ports
|
||||
|
||||
Public Class SharedFunction
|
||||
#Region "串口操作"
|
||||
'打开串口
|
||||
''' <summary>
|
||||
''' 打开串口
|
||||
''' </summary>
|
||||
''' <param name="m_Serial">串口</param>
|
||||
''' <param name="portName">串口号</param>
|
||||
''' <param name="baudRate">波特率</param>
|
||||
''' <returns></returns>
|
||||
Public Shared Function OpenSerial(m_Serial As SerialPort, portName As String, baudRate As Integer) As Boolean
|
||||
If IsNothing(m_Serial) OrElse m_Serial.IsOpen Then Return False
|
||||
Try
|
||||
m_Serial.PortName = portName
|
||||
m_Serial.BaudRate = baudRate
|
||||
m_Serial.Parity = Parity.Even
|
||||
m_Serial.Open()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
'设置串口波特率
|
||||
''' <summary>
|
||||
''' 设置串口波特率
|
||||
''' </summary>
|
||||
''' <param name="m_Serial"> 串口 </param>
|
||||
''' <param name="baudRate">波特率</param>
|
||||
''' <returns></returns>
|
||||
Public Shared Function SetSerialBaudRate(m_Serial As SerialPort, baudRate As Integer) As Boolean
|
||||
If IsNothing(m_Serial) OrElse Not m_Serial.IsOpen Then Return False
|
||||
m_Serial.BaudRate = baudRate
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' 关闭串口
|
||||
''' </summary>
|
||||
''' <param name="m_Serial">串口</param>
|
||||
''' <param name="isread">串口关闭标志</param>
|
||||
''' <param name="isListen">串口等待关闭标志</param>
|
||||
Public Shared Sub CloseSerial(m_Serial As SerialPort, ByRef isread As Boolean, ByRef isListen As Boolean)
|
||||
If IsNothing(m_Serial) OrElse Not m_Serial.IsOpen Then Return
|
||||
isread = True
|
||||
While isListen
|
||||
Application.DoEvents()
|
||||
Threading.Thread.Sleep(10)
|
||||
End While
|
||||
|
||||
Threading.Thread.Sleep(10)
|
||||
m_Serial.Close()
|
||||
isread = False
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "数据转换"
|
||||
Public Shared Function ByteToHexString(databuff() As Byte) As String
|
||||
Dim strData As String = String.Empty
|
||||
For i = 0 To databuff.Length - 1
|
||||
strData &= $" {Hex(databuff(i)).PadLeft(2, "0"c)}"
|
||||
Next
|
||||
Return strData
|
||||
End Function
|
||||
Public Shared Function StringToHexString(hexstr As String) As String
|
||||
'判断字符串是否为空或 者为空字符串
|
||||
If String.IsNullOrEmpty(hexstr) Then Return Nothing
|
||||
'替换字符中的分隔符号
|
||||
hexstr = hexstr.Trim().Replace(" ", "").Replace("-", "").Replace(",", "").Replace(":", "").Replace(";", "").Replace(".", "")
|
||||
'判断字符串的长度是否为偶数
|
||||
If hexstr.Length Mod 2 <> 0 Then
|
||||
'不为偶数往最后一个字节前面补0
|
||||
hexstr = hexstr.Insert(hexstr.Length - 1, "0")
|
||||
End If
|
||||
'以2为步长，将字符串转换为字节数组 不足2位前面补0
|
||||
Dim databuff() As Byte = Enumerable.Range(0, hexstr.Length).Where(Function(x) x Mod 2 = 0).Select(Function(x) Convert.ToByte(hexstr.Substring(x, 2), 16)).ToArray()
|
||||
Return ByteToHexString(databuff)
|
||||
End Function
|
||||
Public Shared Function HexStringToByte(hexstr As String) As Byte()
|
||||
'判断字符串是否为空或 者为空字符串
|
||||
If String.IsNullOrEmpty(hexstr) Then Return Nothing
|
||||
'替换字符中的分隔符号
|
||||
hexstr = hexstr.Trim().Replace(" ", "").Replace("-", "").Replace(",", "").Replace(":", "").Replace(";", "").Replace(".", "")
|
||||
'判断字符串的长度是否为偶数
|
||||
If hexstr.Length Mod 2 <> 0 Then
|
||||
'不为偶数往最后一个字节前面补0
|
||||
hexstr = hexstr.Insert(hexstr.Length - 1, "0")
|
||||
End If
|
||||
'以2为步长，将字符串转换为字节数组 不足2位前面补0
|
||||
Return Enumerable.Range(0, hexstr.Length).Where(Function(x) x Mod 2 = 0).Select(Function(x) Convert.ToByte(hexstr.Substring(x, 2), 16)).ToArray()
|
||||
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Int转2个字节Byte
|
||||
''' 高字节在前,低字节在后
|
||||
''' </summary>
|
||||
''' <param name="i"></param>
|
||||
''' <returns></returns>
|
||||
Public Shared Function IntToByteHB(ByVal i As Integer) As Byte()
|
||||
Dim btemp() As Byte = {0, 0}
|
||||
Dim b() As Byte = BitConverter.GetBytes(i)
|
||||
btemp(0) = b(0)
|
||||
btemp(1) = b(1)
|
||||
Return btemp
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Int转2个字节Byte
|
||||
''' 高字节在前,低字节在后
|
||||
''' </summary>
|
||||
''' <param name="i"></param>
|
||||
''' <returns></returns>
|
||||
Public Shared Function IntToByteLB(ByVal i As Integer) As Byte()
|
||||
Dim btemp() As Byte = {0, 0}
|
||||
Dim b() As Byte = BitConverter.GetBytes(i)
|
||||
btemp(0) = b(1)
|
||||
btemp(1) = b(0)
|
||||
Return btemp
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
#Region "数据校验"
|
||||
'计算数据和 校验
|
||||
Public Shared Function GetCheckSum(ByVal data As Byte()) As Byte
|
||||
|
||||
Dim sum As Integer = 0
|
||||
For i As Integer = 0 To data.Length - 1
|
||||
sum += data(i)
|
||||
Next
|
||||
Return sum
|
||||
|
||||
End Function
|
||||
Public Shared Function GetCheckSumMod(ByVal data As Byte()) As Byte
|
||||
|
||||
Dim sum As Integer = 0
|
||||
For i As Integer = 0 To data.Length - 2
|
||||
sum += data(i)
|
||||
Next
|
||||
sum = sum And &HFF
|
||||
Return sum
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function GetCheckSumMod2(ByVal data As Byte()) As Byte
|
||||
|
||||
Dim sum As Integer = 0
|
||||
For i As Integer = 0 To data.Length - 1
|
||||
sum += data(i)
|
||||
Next
|
||||
sum = sum And &HFF
|
||||
Return sum
|
||||
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' 和校验取余数
|
||||
''' 求Byte数组的和校验取余数
|
||||
''' </summary>
|
||||
''' <param name="dataPacket">Byte数组</param>
|
||||
''' <returns></returns>
|
||||
Public Function GetSumCheckMod(dataPacket As Byte()) As Byte
|
||||
Dim sum As Integer
|
||||
For idx = 0 To dataPacket.Length - 1
|
||||
sum += dataPacket(idx)
|
||||
sum = sum And &HFF
|
||||
Next
|
||||
Dim sumMod As Byte = &HFF - sum
|
||||
Return sumMod
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "跨线程调用UI"
|
||||
Delegate Sub delSetFromUI(control As Control, mText As String, textcolor As Color, cbolor As Color)
|
||||
Public Shared Sub SetFromUI(ByVal control As Control, mText As String, textcolor As Color, cbolor As Color)
|
||||
If IsNothing（control) Then Return
|
||||
If control.InvokeRequired Then
|
||||
control.Invoke(New delSetFromUI(AddressOf SetFromUI), control, mText, textcolor, cbolor)
|
||||
Else
|
||||
control.Text = mText
|
||||
control.ForeColor = textcolor
|
||||
control.BackColor = cbolor
|
||||
End If
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
29
Transmitter/Transmitter.vb
Normal file
29
Transmitter/Transmitter.vb
Normal file
@@ -0,0 +1,29 @@
|
||||
Imports _485_BurningTool.CommunicationFlow
|
||||
|
||||
Public MustInherit Class Transmitter
|
||||
Public mCommunicationFlow As RichTextPrint
|
||||
|
||||
' 发送数据方法
|
||||
Public MustOverride Sub SendData(data As SendNode)
|
||||
Public MustOverride Sub SendData(data As Byte())
|
||||
'获取发送器接收数据
|
||||
Public MustOverride Function ReceiveData(g_comfig As SendNode) As SendNode
|
||||
'判断发送器实体化没有
|
||||
Public MustOverride Function IsTransmitter() As Boolean
|
||||
'打开发送器
|
||||
Public MustOverride Function OpenTransmitter() As Boolean
|
||||
'关闭发送器
|
||||
Public MustOverride Sub CloseTransmitter()
|
||||
'获取发送器状态 ' True:打开 False:关闭
|
||||
Public MustOverride Function GetTransmitterStatus() As Boolean
|
||||
'设置发送器参数
|
||||
Public MustOverride Function SetTransmitterParameter(ParamArray params() As Object) As Boolean
|
||||
' 清楚发送数据
|
||||
Public MustOverride Sub ClearSendData()
|
||||
|
||||
'创建发送器对象
|
||||
Public MustOverride Function CreateTransmitter() As Transmitter
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
BIN
bin/Debug - 副本/NT-CAM_Controller.exe
Normal file
BIN
bin/Debug - 副本/NT-CAM_Controller.exe
Normal file
Binary file not shown.
6
bin/Debug - 副本/NT-CAM_Controller.exe.config
Normal file
6
bin/Debug - 副本/NT-CAM_Controller.exe.config
Normal file
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
|
||||
</startup>
|
||||
</configuration>
|
||||
BIN
bin/Debug - 副本/NT-CAM_Controller.pdb
Normal file
BIN
bin/Debug - 副本/NT-CAM_Controller.pdb
Normal file
Binary file not shown.
95
bin/Debug - 副本/NT-CAM_Controller.xml
Normal file
95
bin/Debug - 副本/NT-CAM_Controller.xml
Normal file
@@ -0,0 +1,95 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
NT-CAM_Controller
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="T:NT_CAM_Controller.My.Resources.Resources">
|
||||
<summary>
|
||||
A strongly-typed resource class, for looking up localized strings, etc.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:NT_CAM_Controller.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Returns the cached ResourceManager instance used by this class.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:NT_CAM_Controller.My.Resources.Resources.Culture">
|
||||
<summary>
|
||||
Overrides the current thread's CurrentUICulture property for all
|
||||
resource lookups using this strongly typed resource class.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SendNode.#ctor(System.Int32,System.Int32)">
|
||||
<summary>
|
||||
命令
|
||||
</summary>
|
||||
<param name="mCommandType"></param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.RichTextPrint.OutputLogsToTheControl(System.Windows.Forms.Control,NT_CAM_Controller.RichTextNodeConfig,System.Int32)">
|
||||
<summary>
|
||||
''输出日志到控件
|
||||
</summary>
|
||||
<param name="c">控件 </param>
|
||||
<param name="config">日志</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.RichTextNodeConfig.#ctor(System.Object[])">
|
||||
<summary>
|
||||
文本、颜色、Font
|
||||
</summary>
|
||||
<param name="args"></param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.OpenSerial(System.IO.Ports.SerialPort,System.String,System.Int32)">
|
||||
<summary>
|
||||
打开串口
|
||||
</summary>
|
||||
<param name="m_Serial">串口</param>
|
||||
<param name="portName">串口号</param>
|
||||
<param name="baudRate">波特率</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.SetSerialBaudRate(System.IO.Ports.SerialPort,System.Int32)">
|
||||
<summary>
|
||||
设置串口波特率
|
||||
</summary>
|
||||
<param name="m_Serial"> 串口 </param>
|
||||
<param name="baudRate">波特率</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.CloseSerial(System.IO.Ports.SerialPort,System.Boolean@,System.Boolean@)">
|
||||
<summary>
|
||||
关闭串口
|
||||
</summary>
|
||||
<param name="m_Serial">串口</param>
|
||||
<param name="isread">串口关闭标志</param>
|
||||
<param name="isListen">串口等待关闭标志</param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.IntToByteHB(System.Int32)">
|
||||
<summary>
|
||||
Int转2个字节Byte
|
||||
高字节在前,低字节在后
|
||||
</summary>
|
||||
<param name="i"></param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.IntToByteLB(System.Int32)">
|
||||
<summary>
|
||||
Int转2个字节Byte
|
||||
高字节在前,低字节在后
|
||||
</summary>
|
||||
<param name="i"></param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.GetSumCheckMod(System.Byte[])">
|
||||
<summary>
|
||||
和校验取余数
|
||||
求Byte数组的和校验取余数
|
||||
</summary>
|
||||
<param name="dataPacket">Byte数组</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
BIN
bin/Debug/NT-CAM_Controller.exe
Normal file
BIN
bin/Debug/NT-CAM_Controller.exe
Normal file
Binary file not shown.
6
bin/Debug/NT-CAM_Controller.exe.config
Normal file
6
bin/Debug/NT-CAM_Controller.exe.config
Normal file
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
|
||||
</startup>
|
||||
</configuration>
|
||||
BIN
bin/Debug/NT-CAM_Controller.pdb
Normal file
BIN
bin/Debug/NT-CAM_Controller.pdb
Normal file
Binary file not shown.
95
bin/Debug/NT-CAM_Controller.xml
Normal file
95
bin/Debug/NT-CAM_Controller.xml
Normal file
@@ -0,0 +1,95 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
NT-CAM_Controller
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="T:NT_CAM_Controller.My.Resources.Resources">
|
||||
<summary>
|
||||
A strongly-typed resource class, for looking up localized strings, etc.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:NT_CAM_Controller.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Returns the cached ResourceManager instance used by this class.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:NT_CAM_Controller.My.Resources.Resources.Culture">
|
||||
<summary>
|
||||
Overrides the current thread's CurrentUICulture property for all
|
||||
resource lookups using this strongly typed resource class.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SendNode.#ctor(System.Int32,System.Int32)">
|
||||
<summary>
|
||||
命令
|
||||
</summary>
|
||||
<param name="mCommandType"></param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.RichTextPrint.OutputLogsToTheControl(System.Windows.Forms.Control,NT_CAM_Controller.RichTextNodeConfig,System.Int32)">
|
||||
<summary>
|
||||
''输出日志到控件
|
||||
</summary>
|
||||
<param name="c">控件 </param>
|
||||
<param name="config">日志</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.RichTextNodeConfig.#ctor(System.Object[])">
|
||||
<summary>
|
||||
文本、颜色、Font
|
||||
</summary>
|
||||
<param name="args"></param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.OpenSerial(System.IO.Ports.SerialPort,System.String,System.Int32)">
|
||||
<summary>
|
||||
打开串口
|
||||
</summary>
|
||||
<param name="m_Serial">串口</param>
|
||||
<param name="portName">串口号</param>
|
||||
<param name="baudRate">波特率</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.SetSerialBaudRate(System.IO.Ports.SerialPort,System.Int32)">
|
||||
<summary>
|
||||
设置串口波特率
|
||||
</summary>
|
||||
<param name="m_Serial"> 串口 </param>
|
||||
<param name="baudRate">波特率</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.CloseSerial(System.IO.Ports.SerialPort,System.Boolean@,System.Boolean@)">
|
||||
<summary>
|
||||
关闭串口
|
||||
</summary>
|
||||
<param name="m_Serial">串口</param>
|
||||
<param name="isread">串口关闭标志</param>
|
||||
<param name="isListen">串口等待关闭标志</param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.IntToByteHB(System.Int32)">
|
||||
<summary>
|
||||
Int转2个字节Byte
|
||||
高字节在前,低字节在后
|
||||
</summary>
|
||||
<param name="i"></param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.IntToByteLB(System.Int32)">
|
||||
<summary>
|
||||
Int转2个字节Byte
|
||||
高字节在前,低字节在后
|
||||
</summary>
|
||||
<param name="i"></param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.GetSumCheckMod(System.Byte[])">
|
||||
<summary>
|
||||
和校验取余数
|
||||
求Byte数组的和校验取余数
|
||||
</summary>
|
||||
<param name="dataPacket">Byte数组</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
BIN
bin/NT-CAM_Controller_1.0.0.14.rar
Normal file
BIN
bin/NT-CAM_Controller_1.0.0.14.rar
Normal file
Binary file not shown.
BIN
bin/NT-CAM_Controller_1.0.0.14/NT-CAM_Controller.exe
Normal file
BIN
bin/NT-CAM_Controller_1.0.0.14/NT-CAM_Controller.exe
Normal file
Binary file not shown.
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
|
||||
</startup>
|
||||
</configuration>
|
||||
BIN
bin/NT-CAM_Controller_1.0.0.14/NT-CAM_Controller.pdb
Normal file
BIN
bin/NT-CAM_Controller_1.0.0.14/NT-CAM_Controller.pdb
Normal file
Binary file not shown.
95
bin/NT-CAM_Controller_1.0.0.14/NT-CAM_Controller.xml
Normal file
95
bin/NT-CAM_Controller_1.0.0.14/NT-CAM_Controller.xml
Normal file
@@ -0,0 +1,95 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
NT-CAM_Controller
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="T:NT_CAM_Controller.My.Resources.Resources">
|
||||
<summary>
|
||||
A strongly-typed resource class, for looking up localized strings, etc.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:NT_CAM_Controller.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Returns the cached ResourceManager instance used by this class.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:NT_CAM_Controller.My.Resources.Resources.Culture">
|
||||
<summary>
|
||||
Overrides the current thread's CurrentUICulture property for all
|
||||
resource lookups using this strongly typed resource class.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SendNode.#ctor(System.Int32,System.Int32)">
|
||||
<summary>
|
||||
命令
|
||||
</summary>
|
||||
<param name="mCommandType"></param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.RichTextPrint.OutputLogsToTheControl(System.Windows.Forms.Control,NT_CAM_Controller.RichTextNodeConfig,System.Int32)">
|
||||
<summary>
|
||||
''输出日志到控件
|
||||
</summary>
|
||||
<param name="c">控件 </param>
|
||||
<param name="config">日志</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.RichTextNodeConfig.#ctor(System.Object[])">
|
||||
<summary>
|
||||
文本、颜色、Font
|
||||
</summary>
|
||||
<param name="args"></param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.OpenSerial(System.IO.Ports.SerialPort,System.String,System.Int32)">
|
||||
<summary>
|
||||
打开串口
|
||||
</summary>
|
||||
<param name="m_Serial">串口</param>
|
||||
<param name="portName">串口号</param>
|
||||
<param name="baudRate">波特率</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.SetSerialBaudRate(System.IO.Ports.SerialPort,System.Int32)">
|
||||
<summary>
|
||||
设置串口波特率
|
||||
</summary>
|
||||
<param name="m_Serial"> 串口 </param>
|
||||
<param name="baudRate">波特率</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.CloseSerial(System.IO.Ports.SerialPort,System.Boolean@,System.Boolean@)">
|
||||
<summary>
|
||||
关闭串口
|
||||
</summary>
|
||||
<param name="m_Serial">串口</param>
|
||||
<param name="isread">串口关闭标志</param>
|
||||
<param name="isListen">串口等待关闭标志</param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.IntToByteHB(System.Int32)">
|
||||
<summary>
|
||||
Int转2个字节Byte
|
||||
高字节在前,低字节在后
|
||||
</summary>
|
||||
<param name="i"></param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.IntToByteLB(System.Int32)">
|
||||
<summary>
|
||||
Int转2个字节Byte
|
||||
高字节在前,低字节在后
|
||||
</summary>
|
||||
<param name="i"></param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.GetSumCheckMod(System.Byte[])">
|
||||
<summary>
|
||||
和校验取余数
|
||||
求Byte数组的和校验取余数
|
||||
</summary>
|
||||
<param name="dataPacket">Byte数组</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
BIN
bin/NT-CAM_Controller_1.0.0.15.rar
Normal file
BIN
bin/NT-CAM_Controller_1.0.0.15.rar
Normal file
Binary file not shown.
BIN
bin/NT-CAM_Controller_1.0.0.16_偶校验版.rar
Normal file
BIN
bin/NT-CAM_Controller_1.0.0.16_偶校验版.rar
Normal file
Binary file not shown.
BIN
bin/NT-CAM_Controller_1.0.0.16_偶校验版/NT-CAM_Controller.exe
Normal file
BIN
bin/NT-CAM_Controller_1.0.0.16_偶校验版/NT-CAM_Controller.exe
Normal file
Binary file not shown.
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
|
||||
</startup>
|
||||
</configuration>
|
||||
BIN
bin/NT-CAM_Controller_1.0.0.16_偶校验版/NT-CAM_Controller.pdb
Normal file
BIN
bin/NT-CAM_Controller_1.0.0.16_偶校验版/NT-CAM_Controller.pdb
Normal file
Binary file not shown.
95
bin/NT-CAM_Controller_1.0.0.16_偶校验版/NT-CAM_Controller.xml
Normal file
95
bin/NT-CAM_Controller_1.0.0.16_偶校验版/NT-CAM_Controller.xml
Normal file
@@ -0,0 +1,95 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
NT-CAM_Controller
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="T:NT_CAM_Controller.My.Resources.Resources">
|
||||
<summary>
|
||||
A strongly-typed resource class, for looking up localized strings, etc.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:NT_CAM_Controller.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Returns the cached ResourceManager instance used by this class.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:NT_CAM_Controller.My.Resources.Resources.Culture">
|
||||
<summary>
|
||||
Overrides the current thread's CurrentUICulture property for all
|
||||
resource lookups using this strongly typed resource class.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SendNode.#ctor(System.Int32,System.Int32)">
|
||||
<summary>
|
||||
命令
|
||||
</summary>
|
||||
<param name="mCommandType"></param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.RichTextPrint.OutputLogsToTheControl(System.Windows.Forms.Control,NT_CAM_Controller.RichTextNodeConfig,System.Int32)">
|
||||
<summary>
|
||||
''输出日志到控件
|
||||
</summary>
|
||||
<param name="c">控件 </param>
|
||||
<param name="config">日志</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.RichTextNodeConfig.#ctor(System.Object[])">
|
||||
<summary>
|
||||
文本、颜色、Font
|
||||
</summary>
|
||||
<param name="args"></param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.OpenSerial(System.IO.Ports.SerialPort,System.String,System.Int32)">
|
||||
<summary>
|
||||
打开串口
|
||||
</summary>
|
||||
<param name="m_Serial">串口</param>
|
||||
<param name="portName">串口号</param>
|
||||
<param name="baudRate">波特率</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.SetSerialBaudRate(System.IO.Ports.SerialPort,System.Int32)">
|
||||
<summary>
|
||||
设置串口波特率
|
||||
</summary>
|
||||
<param name="m_Serial"> 串口 </param>
|
||||
<param name="baudRate">波特率</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.CloseSerial(System.IO.Ports.SerialPort,System.Boolean@,System.Boolean@)">
|
||||
<summary>
|
||||
关闭串口
|
||||
</summary>
|
||||
<param name="m_Serial">串口</param>
|
||||
<param name="isread">串口关闭标志</param>
|
||||
<param name="isListen">串口等待关闭标志</param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.IntToByteHB(System.Int32)">
|
||||
<summary>
|
||||
Int转2个字节Byte
|
||||
高字节在前,低字节在后
|
||||
</summary>
|
||||
<param name="i"></param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.IntToByteLB(System.Int32)">
|
||||
<summary>
|
||||
Int转2个字节Byte
|
||||
高字节在前,低字节在后
|
||||
</summary>
|
||||
<param name="i"></param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.GetSumCheckMod(System.Byte[])">
|
||||
<summary>
|
||||
和校验取余数
|
||||
求Byte数组的和校验取余数
|
||||
</summary>
|
||||
<param name="dataPacket">Byte数组</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
@@ -0,0 +1,7 @@
|
||||
' <autogenerated/>
|
||||
Option Strict Off
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
<Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.8", FrameworkDisplayName:=".NET Framework 4.8")>
|
||||
BIN
obj/Debug/DesignTimeResolveAssemblyReferences.cache
Normal file
BIN
obj/Debug/DesignTimeResolveAssemblyReferences.cache
Normal file
Binary file not shown.
BIN
obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
Normal file
BIN
obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
Normal file
Binary file not shown.
BIN
obj/Debug/NT-CAM_Controller.exe
Normal file
BIN
obj/Debug/NT-CAM_Controller.exe
Normal file
Binary file not shown.
BIN
obj/Debug/NT-CAM_Controller.pdb
Normal file
BIN
obj/Debug/NT-CAM_Controller.pdb
Normal file
Binary file not shown.
BIN
obj/Debug/NT-CAM_Controller.vbproj.AssemblyReference.cache
Normal file
BIN
obj/Debug/NT-CAM_Controller.vbproj.AssemblyReference.cache
Normal file
Binary file not shown.
@@ -0,0 +1 @@
|
||||
37fafdf6f75687b99c10dcae8fddbb80c938fc39
|
||||
12
obj/Debug/NT-CAM_Controller.vbproj.FileListAbsolute.txt
Normal file
12
obj/Debug/NT-CAM_Controller.vbproj.FileListAbsolute.txt
Normal file
@@ -0,0 +1,12 @@
|
||||
E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT-CAM_Controller.vbproj.AssemblyReference.cache
|
||||
E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT_CAM_Controller.Form1.resources
|
||||
E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT_CAM_Controller.Resources.resources
|
||||
E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT-CAM_Controller.vbproj.GenerateResource.cache
|
||||
E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT-CAM_Controller.vbproj.CoreCompileInputs.cache
|
||||
E:\Sync\NT-CAM_Controller\NT-CAM_Controller\bin\Debug\NT-CAM_Controller.exe.config
|
||||
E:\Sync\NT-CAM_Controller\NT-CAM_Controller\bin\Debug\NT-CAM_Controller.exe
|
||||
E:\Sync\NT-CAM_Controller\NT-CAM_Controller\bin\Debug\NT-CAM_Controller.pdb
|
||||
E:\Sync\NT-CAM_Controller\NT-CAM_Controller\bin\Debug\NT-CAM_Controller.xml
|
||||
E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT-CAM_Controller.exe
|
||||
E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT-CAM_Controller.xml
|
||||
E:\Sync\NT-CAM_Controller\NT-CAM_Controller\obj\Debug\NT-CAM_Controller.pdb
|
||||
BIN
obj/Debug/NT-CAM_Controller.vbproj.GenerateResource.cache
Normal file
BIN
obj/Debug/NT-CAM_Controller.vbproj.GenerateResource.cache
Normal file
Binary file not shown.
95
obj/Debug/NT-CAM_Controller.xml
Normal file
95
obj/Debug/NT-CAM_Controller.xml
Normal file
@@ -0,0 +1,95 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
NT-CAM_Controller
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="T:NT_CAM_Controller.My.Resources.Resources">
|
||||
<summary>
|
||||
A strongly-typed resource class, for looking up localized strings, etc.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:NT_CAM_Controller.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Returns the cached ResourceManager instance used by this class.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:NT_CAM_Controller.My.Resources.Resources.Culture">
|
||||
<summary>
|
||||
Overrides the current thread's CurrentUICulture property for all
|
||||
resource lookups using this strongly typed resource class.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SendNode.#ctor(System.Int32,System.Int32)">
|
||||
<summary>
|
||||
命令
|
||||
</summary>
|
||||
<param name="mCommandType"></param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.RichTextPrint.OutputLogsToTheControl(System.Windows.Forms.Control,NT_CAM_Controller.RichTextNodeConfig,System.Int32)">
|
||||
<summary>
|
||||
''输出日志到控件
|
||||
</summary>
|
||||
<param name="c">控件 </param>
|
||||
<param name="config">日志</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.RichTextNodeConfig.#ctor(System.Object[])">
|
||||
<summary>
|
||||
文本、颜色、Font
|
||||
</summary>
|
||||
<param name="args"></param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.OpenSerial(System.IO.Ports.SerialPort,System.String,System.Int32)">
|
||||
<summary>
|
||||
打开串口
|
||||
</summary>
|
||||
<param name="m_Serial">串口</param>
|
||||
<param name="portName">串口号</param>
|
||||
<param name="baudRate">波特率</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.SetSerialBaudRate(System.IO.Ports.SerialPort,System.Int32)">
|
||||
<summary>
|
||||
设置串口波特率
|
||||
</summary>
|
||||
<param name="m_Serial"> 串口 </param>
|
||||
<param name="baudRate">波特率</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.CloseSerial(System.IO.Ports.SerialPort,System.Boolean@,System.Boolean@)">
|
||||
<summary>
|
||||
关闭串口
|
||||
</summary>
|
||||
<param name="m_Serial">串口</param>
|
||||
<param name="isread">串口关闭标志</param>
|
||||
<param name="isListen">串口等待关闭标志</param>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.IntToByteHB(System.Int32)">
|
||||
<summary>
|
||||
Int转2个字节Byte
|
||||
高字节在前,低字节在后
|
||||
</summary>
|
||||
<param name="i"></param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.IntToByteLB(System.Int32)">
|
||||
<summary>
|
||||
Int转2个字节Byte
|
||||
高字节在前,低字节在后
|
||||
</summary>
|
||||
<param name="i"></param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
<member name="M:NT_CAM_Controller.SharedFunction.GetSumCheckMod(System.Byte[])">
|
||||
<summary>
|
||||
和校验取余数
|
||||
求Byte数组的和校验取余数
|
||||
</summary>
|
||||
<param name="dataPacket">Byte数组</param>
|
||||
<returns></returns>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
BIN
obj/Debug/NT_CAM_Controller.Form1.resources
Normal file
BIN
obj/Debug/NT_CAM_Controller.Form1.resources
Normal file
Binary file not shown.
BIN
obj/Debug/NT_CAM_Controller.Resources.resources
Normal file
BIN
obj/Debug/NT_CAM_Controller.Resources.resources
Normal file
Binary file not shown.
BIN
obj/Debug/TempPE/My Project.Resources.Designer.vb.dll
Normal file
BIN
obj/Debug/TempPE/My Project.Resources.Designer.vb.dll
Normal file
Binary file not shown.
Reference in New Issue
Block a user