初始化提交
仓库转移到Gitea，初始化提交，可能丢失以前的git版本日志
This commit is contained in:
@@ -0,0 +1,391 @@
|
||||
Imports UTS_Core.Database
|
||||
Imports UTS_Core.UTSModule.DbTableModel.Customer
|
||||
Imports UTS_Core.UTSModule.Test
|
||||
Imports UTS_Core.UTSModule.Test.TestResult
|
||||
|
||||
Public Class AttributeTest
|
||||
|
||||
Enum ColNames
|
||||
No
|
||||
Content
|
||||
DataSource
|
||||
SendData
|
||||
PassResult
|
||||
RetryCount
|
||||
RetryInterval
|
||||
ReadInterval
|
||||
OperatingMode
|
||||
Lower
|
||||
Upper
|
||||
TestVal
|
||||
TestResult
|
||||
IsRecord
|
||||
RecordName
|
||||
Max
|
||||
End Enum
|
||||
|
||||
Public Val_mac As String
|
||||
Public Val_version As String
|
||||
Public Val_voltage As String
|
||||
Public Val_tempre As String
|
||||
Public Val_humiture As String
|
||||
Public Val_keyleft As String
|
||||
Public Val_keyright As String
|
||||
Public Val_pir As String
|
||||
|
||||
Public Userkeyval_Key As IO.Ports.SerialPort
|
||||
Public Userkeyval_Rictext As RichTextBox
|
||||
Public cmdcolor As Color
|
||||
Public txtcolor As Color
|
||||
|
||||
Public Userkeyval_ComboBox As ComboBox
|
||||
Public Userkeyval_ProgressBar As ProgressBar
|
||||
Public Userkeyval_Station As Label
|
||||
Public Userkeyval_PASS As Label
|
||||
Public Userkeyval_StepTip As Label
|
||||
Public Userkeyval_Tip As Label
|
||||
Public Userkeyval_check As CheckBox
|
||||
Public Userkeyval_grid As FlexCell.Grid
|
||||
|
||||
Public Userkeyval_TestTable As TestResult
|
||||
|
||||
Sub New（ByRef grid As FlexCell.Grid）
|
||||
Userkeyval_grid = grid
|
||||
UpdateStepTestRecord1()
|
||||
DefaultData()
|
||||
Userkeyval_TestTable = New TestResult
|
||||
End Sub
|
||||
#Region "初始化表格"
|
||||
Public Sub UpdateStepTestRecord1()
|
||||
With Userkeyval_grid
|
||||
.AutoRedraw = False
|
||||
'.AutoSize = True
|
||||
.Cols = ColNames.Max
|
||||
.Rows = 1
|
||||
.ExtendLastCol = True '最后一列自动扩充
|
||||
.DisplayRowNumber = True '首列显示数字
|
||||
|
||||
For col As Integer = 0 To ColNames.Max - 1
|
||||
.Cell(0, col).Text = [Enum].GetName(GetType(ColNames), col) '设置列名
|
||||
.Column(col).CellType = FlexCell.CellTypeEnum.TextBox '设置列型
|
||||
If col = ColNames.Content OrElse col = ColNames.SendData Then
|
||||
.Column(col).Width = 140 '设置列宽
|
||||
Else
|
||||
.Column(col).Width = 70 '设置列宽
|
||||
End If
|
||||
.Column(col).Alignment = FlexCell.AlignmentEnum.RightCenter '设置对齐位置
|
||||
Next
|
||||
.ForeColorComment = Color.Blue
|
||||
|
||||
' .FrozenCols = ColNames.Description '冻结列
|
||||
|
||||
.AutoRedraw = True
|
||||
.Refresh()
|
||||
End With
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "加載表格數據"
|
||||
Public Sub DefaultData()
|
||||
|
||||
Dim SendDatalist As New List(Of List(Of String））
|
||||
UartSendDataList(SendDatalist， "确认设备MAC地址", "设备", "mac", "", "5", "100", "", "len", "", "", "", "", "Y", "DUT_SN")
|
||||
UartSendDataList(SendDatalist， "确认设备固件版本", "设备", "version", "", "5", "100", "", "comparison", "0.1.1.1", "0.1.1.1", "", "", "Y", "FW_Ver")
|
||||
UartSendDataList(SendDatalist， "确认设备电压", "设备", "voltage", "", "5", "100", "", "scope", "1.8", "2.3", "", "", "Y", "Volt")
|
||||
UartSendDataList(SendDatalist， "确认设备温度", "设备", "tempre", "", "5", "100", "", "null", "", "", "", "", "Y", "DUT_Temp")
|
||||
UartSendDataList(SendDatalist， "确认设备湿度", "设备", "humiture", "", "5", "100", "", "null", "", "", "", "", "Y", "DUT_Humid")
|
||||
UartSendDataList(SendDatalist， "确认环境温度", "uts", "tempre", "", "", "", "", "null", "", "", "", "", "Y", "Enov_Temp")
|
||||
UartSendDataList(SendDatalist， "确认环境湿度", "uts", "humiture", "", "", "", "", "null", "", "", "", "", "Y", "Enov_Humdi")
|
||||
UartSendDataList(SendDatalist， "确认温度误差", "设备-uts", "4", "6", "", "", "", "null", "", "", "", "", "Y", "Diff_Temp")
|
||||
UartSendDataList(SendDatalist， "确认湿度误差", "设备-uts", "5", "7", "", "", "", "null", "", "", "", "", "Y", "Diff_Humidi")
|
||||
UartSendDataList(SendDatalist， "确认PIR数值", "设备", "pir", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "提示：请打开PIR窗口", "设备", "tip", "", "", "", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认PIR数值", "设备", "pir", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "提示：请关闭PIR窗口", "设备", "tip", "", "", "", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认PIR数值", "设备", "pir", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认左键键值", "设备", "keyleft", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认右键键值", "设备", "keyright", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "提示：请按下左键", "设备", "tip", "", "", "", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认左键键值", "设备", "keyleft", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认右键键值", "设备", "keyright", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "提示：请按下右键", "设备", "tip", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
|
||||
UartSendDataList(SendDatalist， "确认左键键值", "设备", "keyleft", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认右键键值", "设备", "keyright", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "提示：请松开按键", "设备", "tip", "", "", "", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认左键键值", "设备", "keyleft", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认右键键值", "设备", "keyright", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "读取平均电流", "uts", "run", "", "", "", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "读取峰值电流", "uts", "current", "", "", "", "", "null", "", "", "", "", "", "")
|
||||
Grid5AddRow(SendDatalist)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function GetDeviceData(rowid As Integer, attri As String) As Boolean
|
||||
If attri.ToLower.Equals("mac") Then
|
||||
Return checkoutRusli(Val_mac, rowid)
|
||||
ElseIf attri.ToLower.Equals("version") Then
|
||||
'SetAttriGridt(Userkeyval_grid, rowid, ColNames.TestVal, )
|
||||
Return checkoutRusli(Val_version, rowid)
|
||||
ElseIf attri.ToLower.Equals("voltage") Then
|
||||
Return checkoutRusli(Val_voltage, rowid)
|
||||
ElseIf attri.ToLower.Equals("tempre") Then
|
||||
Return checkoutRusli(Val_tempre, rowid)
|
||||
ElseIf attri.ToLower.Equals("humiture") Then
|
||||
Return checkoutRusli(Val_humiture, rowid)
|
||||
ElseIf attri.ToLower.Equals("pir") Then
|
||||
Return checkoutRusli(Val_pir, rowid)
|
||||
ElseIf attri.ToLower.Equals("keyleft") Then
|
||||
Return checkoutRusli(Val_keyleft, rowid)
|
||||
ElseIf attri.ToLower.Equals("keyright") Then
|
||||
Return checkoutRusli(Val_keyright, rowid)
|
||||
ElseIf attri.ToLower.Equals("tip") Then
|
||||
Settiptext(Userkeyval_Tip, Userkeyval_grid.Cell(rowid, ColNames.Content).Text.Trim)
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
Public Function checkoutRusli(Attri As String, rowid As Integer) As Boolean
|
||||
Dim celltxt As String = Userkeyval_grid.Cell(rowid, ColNames.OperatingMode).Text.Trim
|
||||
SetAttriGridt(Userkeyval_grid, rowid, ColNames.TestVal, Attri)
|
||||
If celltxt.Equals("len") Then
|
||||
If Attri.Length = 6 Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
ElseIf celltxt.Equals("comparison") Then
|
||||
Dim Lower As String = Userkeyval_grid.Cell(rowid, ColNames.Lower).Text.Trim
|
||||
Dim Upper As String = Userkeyval_grid.Cell(rowid, ColNames.Upper).Text.Trim
|
||||
If Attri.Contains(Lower) OrElse Attri.Contains(Upper) Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
ElseIf celltxt.Equals("scope") Then
|
||||
Dim Attriint As Double = 0
|
||||
Dim Lowerint As Double = 0
|
||||
Dim Upperint As Double = 0
|
||||
|
||||
If Not Double.TryParse(Attri, Attriint) OrElse Not Double.TryParse(Attri, Lowerint) OrElse Not Double.TryParse(Attri, Lowerint) Then
|
||||
Return False
|
||||
End If
|
||||
If Attriint > Lowerint OrElse Attriint < Upperint Then
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
ElseIf celltxt.Equals("Null") Then
|
||||
Return True
|
||||
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function UartSendDataList(ByRef SendDatalist As List(Of List(Of String））， ParamArray ptr（） As String) As List(Of String）
|
||||
|
||||
Dim Datalist As New List(Of String）
|
||||
Datalist.AddRange(ptr)
|
||||
SendDatalist.Add(Datalist)
|
||||
|
||||
End Function
|
||||
|
||||
Public Sub Grid5AddRow(SendDatalist As List(Of List(Of String））)
|
||||
If SendDatalist.Count < 1 Then Return
|
||||
|
||||
For rowindex As Integer = 0 To SendDatalist.Count - 1
|
||||
|
||||
Dim Datalist As List(Of String） = SendDatalist.Item(rowindex)
|
||||
|
||||
|
||||
AddRowToTable(Userkeyval_grid, Datalist)
|
||||
Next
|
||||
|
||||
End Sub
|
||||
Public Sub AddRowToTable（tablegrid As FlexCell.Grid, Datalist As List(Of String））
|
||||
tablegrid.AddItem("")
|
||||
For colid As Integer = 1 To ColNames.Max - 1
|
||||
tablegrid.Cell(tablegrid.Rows - 1, colid).Text = Datalist.Item(colid - 1)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "流程动作"
|
||||
|
||||
Delegate Sub IPSettiptext(tablegrid As Label, txt As String)
|
||||
Public Sub Settiptext(tablegrid As Label, txt As String)
|
||||
If tablegrid.InvokeRequired Then
|
||||
tablegrid.Invoke(New IPSettiptext(AddressOf Settiptext), New Object() {tablegrid, txt})
|
||||
Else
|
||||
tablegrid.Text = txt
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Delegate Sub IPSetAttriGridt(tablegrid As FlexCell.Grid, trowel As Integer, tcol As Integer, txt As String)
|
||||
Public Sub SetAttriGridt(tablegrid As FlexCell.Grid, trowel As Integer, tcol As Integer, txt As String)
|
||||
If tablegrid.InvokeRequired Then
|
||||
tablegrid.Invoke(New IPSetAttriGridt(AddressOf SetAttriGridt), New Object() {tablegrid, trowel, tcol, txt})
|
||||
Else
|
||||
tablegrid.Cell(trowel, tcol).Text = txt
|
||||
If trowel = ColNames.TestResult Then
|
||||
Userkeyval_PASS.Text = txt
|
||||
If txt.ToLower.Equals（"pass"） Then
|
||||
Userkeyval_PASS.BackColor = Color.Green
|
||||
ElseIf txt.ToLower.Equals（"false"） Then
|
||||
Userkeyval_PASS.BackColor = Color.Red
|
||||
End If
|
||||
End If
|
||||
|
||||
Userkeyval_ProgressBar.Value =trowel
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub clearGridResult(tablegrid As FlexCell.Grid)
|
||||
For rowid As Integer = 1 To tablegrid.Rows - 1
|
||||
SetAttriGridt(tablegrid, rowid, ColNames.TestResult, "")
|
||||
SetAttriGridt(tablegrid, rowid, ColNames.TestVal, "")
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Public Function ADDTestRecordVal(testattribute As TestTableAttribute) As Dictionary(Of String, String)
|
||||
Dim dic As New Dictionary(Of String, String) From {
|
||||
{$"{TestLogTable.ColNames.UserID}", testattribute.UserID.ToString()},
|
||||
{$"{TestLogTable.ColNames.ServiceID}", testattribute.ServiceID.ToString()},
|
||||
{$"{TestLogTable.ColNames.DUT_SN}", testattribute._dutSn},
|
||||
{$"{TestLogTable.ColNames.AppName}", testattribute.AppName},
|
||||
{$"{TestLogTable.ColNames.TestPlan}", testattribute.TestPlan},
|
||||
{$"{TestLogTable.ColNames.StartTime}", testattribute.StartTime.ToString("yyyy-MM-dd HH:mm:ss")},
|
||||
{$"{TestLogTable.ColNames.UsedTime}", testattribute.TotalSeconds.ToString("F2")},
|
||||
{$"{TestLogTable.ColNames.TestResult}", IIf(testattribute.TestResult = TestResultEnum.Fail, 0, 1).ToString()},
|
||||
{$"{TestLogTable.ColNames.ErrCode}", testattribute.ErrCode},
|
||||
{$"{TestLogTable.ColNames.ProductionLineID}", testattribute.ProductionLineID.ToString()},
|
||||
{$"{TestLogTable.ColNames.OrderID}", testattribute.OrderID.ToString()}
|
||||
}
|
||||
dic.Add($"{TestLogTable.ColNames.FailSteps}", testattribute.rownum.ToString())
|
||||
dic.Add($"{TestLogTable.ColNames.FailMsg}", testattribute.TertResult & testattribute.UpVal & testattribute.loadVal)
|
||||
|
||||
For Each keyValue As KeyValuePair(Of String, String) In testattribute.AddSelf
|
||||
If dic.ContainsKey(keyValue.Key) Then
|
||||
dic(keyValue.Key) = keyValue.Value
|
||||
Else
|
||||
dic.Add(keyValue.Key, keyValue.Value)
|
||||
End If
|
||||
Next
|
||||
Return dic
|
||||
End Function
|
||||
Public Sub UpdateTestLogToRemote(db As DbExecutor, dbName As String, tbName As String, result As TestTableAttribute)
|
||||
Dim field As Dictionary(Of String, String) = ADDTestRecordVal(result)
|
||||
|
||||
'新增不存在的字段
|
||||
CheckTestLogFiledToRemote(db, dbName, tbName, field)
|
||||
|
||||
'添加测试记录
|
||||
Dim cmdText As String = db.CmdHelper.DbInsert(dbName, tbName, field)
|
||||
db.ExecuteNonQuery(cmdText)
|
||||
End Sub
|
||||
#End Region
|
||||
''' <summary>
|
||||
''' 检测测试记录字段名是否存在远端数据库，如果不存在则新增，存在则检测字段长度是否需要加长
|
||||
''' </summary>
|
||||
''' <param name="db">数据库执行器</param>
|
||||
''' <param name="dbName">数据库名</param>
|
||||
''' <param name="tbName">数据表名</param>
|
||||
''' <param name="field">测试记录字段集合</param>
|
||||
Public Shared Sub CheckTestLogFiledToRemote(db As DbExecutor, dbName As String, tbName As String, field As Dictionary(Of String, String))
|
||||
Dim dtCol As DataTable = db.ExecuteDataTable(db.CmdHelper.DbSearchAll(dbName, tbName, "1 = 0"))
|
||||
|
||||
Dim fieldName As List(Of String) = field.Keys.ToList
|
||||
Dim typeString As String
|
||||
Dim length As Integer
|
||||
For Each colName As String In fieldName
|
||||
If String.IsNullOrWhiteSpace(colName) Then Continue For '剔除无效数据库字段名
|
||||
|
||||
If dtCol.Columns.Contains(colName) Then '当前数据表是否已经存在对应列信息
|
||||
Select Case dtCol.Columns(colName).DataType.Name
|
||||
Case "String" '仅处理VarChar类型
|
||||
If field(colName).Length > dtCol.Columns(colName).MaxLength Then
|
||||
length = GetFiledLength(field(colName).Length)
|
||||
If length = -1 Then
|
||||
Throw New Exception($"字段[{colName}] 超过最大长度2048的限制,无法入库!")
|
||||
Else
|
||||
typeString = $"varchar({length})"
|
||||
End If
|
||||
|
||||
'修改列字段长度
|
||||
db.ExecuteNonQuery($"Call `{dbName}`.`AlterTestLogFiled`('{dbName}','{tbName}','{colName}','{length}')")
|
||||
End If
|
||||
Case Else
|
||||
Console.WriteLine(colName & ":" & dtCol.Columns(colName).DataType.Name)
|
||||
End Select
|
||||
Else
|
||||
length = GetFiledLength(field(colName).Length)
|
||||
If length = -1 Then
|
||||
Throw New Exception($"字段[{colName}] 超过最大长度4096的限制,无法入库!")
|
||||
Else
|
||||
typeString = $"varchar({length})"
|
||||
End If
|
||||
|
||||
'插入字段语句
|
||||
db.ExecuteNonQuery($"Call `{dbName}`.`AlterTestLogFiled`('{dbName}','{tbName}','{colName}','{length}')")
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
Private Shared Function GetFiledLength(len As Integer) As Integer
|
||||
Dim result As Integer
|
||||
If len = 0 Then
|
||||
result = 8
|
||||
ElseIf len <= 2048 Then
|
||||
If len Mod 8 = 0 Then
|
||||
result = len
|
||||
Else
|
||||
result = ((len \ 8) + 1) * 8
|
||||
End If
|
||||
Else
|
||||
result = -1
|
||||
End If
|
||||
Return result
|
||||
End Function
|
||||
End Class
|
||||
|
||||
|
||||
Public Class TestTableAttribute
|
||||
Public UserID As String
|
||||
Public ServiceID As String
|
||||
Public _dutSn As String
|
||||
Public AppName As String
|
||||
Public TestPlan As String
|
||||
Public StartTime As Date
|
||||
Public TotalSeconds As Double
|
||||
Public TestResult As TestResultEnum
|
||||
Public ErrCode As String
|
||||
Public ProductionLineID As Integer
|
||||
Public OrderID As Integer
|
||||
|
||||
Public rownum As Integer
|
||||
Public TertResult As String
|
||||
Public UpVal As String
|
||||
Public loadVal As String
|
||||
|
||||
Public AddSelf As Dictionary(Of String, String)
|
||||
|
||||
Public Sub New()
|
||||
AddSelf = New Dictionary(Of String, String)
|
||||
End Sub
|
||||
|
||||
Public Sub AddSelfAttribute（clunm As String, val As String）
|
||||
AddSelf.Add(clunm, val)
|
||||
End Sub
|
||||
Public Sub AddSelfClear（）
|
||||
AddSelf.Clear()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
217
SQLliteReading/AUTS_Package/ZQ/Phobos/T1-PCBA_Test/MainTest.vb
Normal file
217
SQLliteReading/AUTS_Package/ZQ/Phobos/T1-PCBA_Test/MainTest.vb
Normal file
@@ -0,0 +1,217 @@
|
||||
Public Class MainTest
|
||||
|
||||
Enum ColNames
|
||||
No
|
||||
Content
|
||||
DataSource
|
||||
SendData
|
||||
PassResult
|
||||
RetryCount
|
||||
RetryInterval
|
||||
ReadInterval
|
||||
OperatingMode
|
||||
Lower
|
||||
Upper
|
||||
TestVal
|
||||
TestResult
|
||||
IsRecord
|
||||
RecordName
|
||||
Max
|
||||
End Enum
|
||||
|
||||
Public theGrid As FlexCell.Grid
|
||||
|
||||
Public Serial As IO.Ports.SerialPort
|
||||
Public Userkeyval_ComboBox As ComboBox
|
||||
Public Userkeyval_Rictext As RichTextBox
|
||||
Public Label2 As Label
|
||||
|
||||
|
||||
Public split_Curr_1 As String
|
||||
Public split_Curr_2 As String
|
||||
Public split_Curr_3 As String
|
||||
Public split_Curr_4 As String
|
||||
Public split_Curr_Peak_1 As String
|
||||
Public split_Curr_Peak_2 As String
|
||||
Public split_Curr_peak_3 As String
|
||||
Public split_Curr_peak_4 As String
|
||||
Public split_Temp As String
|
||||
Public split_HumidityAs As String
|
||||
|
||||
|
||||
|
||||
|
||||
Sub New(grd As FlexCell.Grid)
|
||||
theGrid = grd
|
||||
UpdateStepTestRecord()
|
||||
DefaultData()
|
||||
End Sub
|
||||
#Region "初始化表格"
|
||||
Public Sub UpdateStepTestRecord()
|
||||
With theGrid
|
||||
.AutoRedraw = False
|
||||
'.AutoSize = True
|
||||
.Cols = ColNames.Max
|
||||
.Rows = 1
|
||||
.ExtendLastCol = True '最后一列自动扩充
|
||||
.DisplayRowNumber = True '首列显示数字
|
||||
|
||||
For col As Integer = 0 To ColNames.Max - 1
|
||||
.Cell(0, col).Text = [Enum].GetName(GetType(ColNames), col) '设置列名
|
||||
.Column(col).CellType = FlexCell.CellTypeEnum.TextBox '设置列型
|
||||
|
||||
.Column(col).Width = 140 '设置列宽
|
||||
|
||||
.Column(col).Alignment = FlexCell.AlignmentEnum.CenterCenter '设置对齐位置
|
||||
Next
|
||||
.ForeColorComment = Color.Blue
|
||||
|
||||
|
||||
.BackColorBkg = Color.DimGray
|
||||
.AutoRedraw = True
|
||||
.Refresh()
|
||||
.Locked = True
|
||||
End With
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
#Region "加載表格數據"
|
||||
Public Sub DefaultData()
|
||||
|
||||
Dim SendDatalist As New List(Of List(Of String））
|
||||
UartSendDataList(SendDatalist， "确认测试板连接", "uts", "*IDN?", "uts-Phobos-rev01", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "设置输出限流", "uts", "SET_PPS_CURR:400", "SET_PPS_CURR:400:TRUE", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "设置输出电压", "uts", "SET_PPS_VOLT:2000", "SET_PPS_VOLT:2000:TRUE"， "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "打开输出电压", "uts", "SET_PPS_OUTP:ON", "SET_PPS_OUTP:ON:TRUE", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "清除峰值电流 - ch1", "uts", "CLR_PPS_CURR_PEAK:1", "CLR_PPS_CURR_PEAK:1:TRUE", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "清除峰值电流 - ch2", "uts", "CLR_PPS_CURR_PEAK:2", "CLR_PPS_CURR_PEAK:2:TRUE", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "清除峰值电流 - ch3", "uts", "CLR_PPS_CURR_PEAK:3", "CLR_PPS_CURR_PEAK:3:TRUE", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "清除峰值电流 - ch4", "uts", "CLR_PPS_CURR_PEAK:4", "CLR_PPS_CURR_PEAK:4:TRUE", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
|
||||
UartSendDataList(SendDatalist， "读取平均电流(轮询直到勾选的属性测试结束)", "uts", "RUN", "10", "max", "100", "300", "split", "", "", "", "", "", "")
|
||||
|
||||
UartSendDataList(SendDatalist， "发送关闭电源命令", "uts", "SET_PPS_OUTP:OFF"， "SET_PPS_OUTP:OFF:TRUE", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
|
||||
Grid5AddRow(SendDatalist)
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function UartSendDataList(ByRef SendDatalist As List(Of List(Of String））， ParamArray ptr（） As String) As List(Of String）
|
||||
|
||||
Dim Datalist As New List(Of String）
|
||||
Datalist.AddRange(ptr)
|
||||
SendDatalist.Add(Datalist)
|
||||
|
||||
End Function
|
||||
|
||||
Public Sub Grid5AddRow(SendDatalist As List(Of List(Of String））)
|
||||
If SendDatalist.Count < 1 Then Return
|
||||
|
||||
For rowindex As Integer = 0 To SendDatalist.Count - 1
|
||||
|
||||
Dim Datalist As List(Of String） = SendDatalist.Item(rowindex)
|
||||
|
||||
|
||||
AddRowToTable(theGrid, Datalist)
|
||||
Next
|
||||
|
||||
End Sub
|
||||
Public Sub AddRowToTable（tablegrid As FlexCell.Grid, Datalist As List(Of String））
|
||||
tablegrid.AddItem("")
|
||||
For colid As Integer = 1 To ColNames.Max - 1
|
||||
tablegrid.Cell(tablegrid.Rows - 1, colid).Text = Datalist.Item(colid - 1)
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "读数据并解析"
|
||||
|
||||
Public Function ParsingRowRead(rowid As Integer, readStr As String) As Boolean
|
||||
If rowid = 0 OrElse Not rowid < theGrid.Rows Then Return False
|
||||
SettheGridt(theGrid, rowid, ColNames.TestVal, readStr)
|
||||
If theGrid.Cell(rowid, ColNames.OperatingMode).Text.ToLower.Contains("comparison") Then
|
||||
If theGrid.Cell(rowid, ColNames.PassResult).Text.Trim.ToLower.Equals(readStr.ToLower) Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
ElseIf theGrid.Cell(rowid, ColNames.OperatingMode).Text.ToLower.Contains("split") Then
|
||||
split_Curr_1 = ""
|
||||
split_Curr_2 = ""
|
||||
split_Curr_3 = ""
|
||||
split_Curr_4 = ""
|
||||
split_Curr_Peak_1 = ""
|
||||
split_Curr_Peak_2 = ""
|
||||
split_Curr_peak_3 = ""
|
||||
split_Curr_peak_4 = ""
|
||||
split_Temp = ""
|
||||
split_HumidityAs = ""
|
||||
Dim splitbuff() As String = readStr.Split(CType(",", Char))
|
||||
If splitbuff.Length = CType(theGrid.Cell(rowid, ColNames.PassResult).Text, Integer) Then
|
||||
split_Curr_1 = splitbuff（0）
|
||||
split_Curr_2 = splitbuff（1）
|
||||
split_Curr_3 = splitbuff（2）
|
||||
split_Curr_4 = splitbuff（3）
|
||||
split_Curr_Peak_1 = splitbuff（4）
|
||||
split_Curr_Peak_2 = splitbuff（5）
|
||||
split_Curr_peak_3 = splitbuff（6）
|
||||
split_Curr_peak_4 = splitbuff（7）
|
||||
split_Temp = splitbuff（8）
|
||||
split_HumidityAs = splitbuff（9）
|
||||
Return True
|
||||
End If
|
||||
|
||||
Return False
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
End Function
|
||||
Delegate Sub IPSetUILabeltext(tablegrid As FlexCell.Grid, trowel As Integer, tcol As Integer, txt As String)
|
||||
Public Sub SettheGridt(tablegrid As FlexCell.Grid, trowel As Integer, tcol As Integer, txt As String)
|
||||
If tablegrid.InvokeRequired Then
|
||||
tablegrid.Invoke(New IPSetUILabeltext(AddressOf SettheGridt), New Object() {tablegrid, trowel, tcol, txt})
|
||||
Else
|
||||
tablegrid.Cell(trowel, tcol).Text = txt
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function GetUtsData(attri As String) As String
|
||||
If attri.ToLower.Equals("tempre") Then
|
||||
Return split_Temp
|
||||
ElseIf attri.ToLower.Equals("humiture") Then
|
||||
Return split_HumidityAs
|
||||
ElseIf attri.ToLower.Equals("run") Then
|
||||
Dim result As String = split_Curr_1 & "," & split_Curr_2 &
|
||||
"," & split_Curr_3 & "," & split_Curr_4
|
||||
|
||||
|
||||
Return result
|
||||
ElseIf attri.ToLower.Equals("current") Then
|
||||
Dim result As String = split_Curr_Peak_1 & "," & split_Curr_Peak_2 &
|
||||
"," & split_Curr_peak_3 & "," & split_Curr_peak_4
|
||||
Return result
|
||||
End If
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
294
SQLliteReading/AUTS_Package/ZQ/Phobos/T1-PCBA_Test/Uart_1089.vb
Normal file
294
SQLliteReading/AUTS_Package/ZQ/Phobos/T1-PCBA_Test/Uart_1089.vb
Normal file
@@ -0,0 +1,294 @@
|
||||
Imports System.Threading
|
||||
Imports UTS_Core.DebugLog
|
||||
|
||||
Public Class Uart_1089
|
||||
|
||||
Public DataKey As String
|
||||
Public Rowid As Integer = 0
|
||||
'发送次数
|
||||
Public SendNumber As Integer = 0
|
||||
'发送时间
|
||||
Public SendDate As Date
|
||||
'发送间隔(ms)
|
||||
Public SendIinterval As Integer = 8000
|
||||
Public WaitIinterval As Integer = 100
|
||||
'发送数据
|
||||
Public SendData As String
|
||||
'发送帧号
|
||||
Public SendFrame As Integer = 0
|
||||
'发送命令
|
||||
Public SendCmd As Integer
|
||||
''' <summary>
|
||||
''' 发送状态,
|
||||
''' </summary>
|
||||
Public CmdStat As Boolean = False
|
||||
''' <summary>
|
||||
''' 接收状态,
|
||||
''' </summary>
|
||||
Public CmdReadStat As Boolean = False
|
||||
''' <summary>
|
||||
''' 接收结果,
|
||||
''' </summary>
|
||||
Public CmdReadResult As Boolean = False
|
||||
|
||||
Public Cycleflag As Boolean = False
|
||||
Public Resendnum As Integer = 3
|
||||
'''' <summary>
|
||||
'''' 预期回复是多条还是一条【默认一条】
|
||||
'''' </summary>
|
||||
'Public ManyState As Boolean = 0
|
||||
|
||||
'''' <summary>
|
||||
'''' 回复数据
|
||||
'''' </summary>
|
||||
'Public ReadDataList As New List(Of Object)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class Uart_1089_Client
|
||||
Private _Uart As IO.Ports.SerialPort
|
||||
Private _RichTextBox1 As RichTextBox
|
||||
|
||||
Private _IsCycleflag As Boolean = False
|
||||
|
||||
Public SendDataList As New List(Of Uart_1089)
|
||||
Private _tooplabel As Label
|
||||
Public IsSendThresdflag As Boolean = True
|
||||
Private _Task As Thread
|
||||
Private _grid As FlexCell.Grid
|
||||
Private _ThreadBuff() As Thread
|
||||
|
||||
'''<summary>测试结束事件</summary>
|
||||
Public Event TestEnd(ispass As Boolean)
|
||||
Sub New（SerialPort1 As IO.Ports.SerialPort, RichTextBox1 As RichTextBox, grd As FlexCell.Grid, tooplabel As Label, ParamArray ThreadBuff() As Thread）
|
||||
_Uart = SerialPort1
|
||||
_RichTextBox1 = RichTextBox1
|
||||
_Task = New Thread(New ThreadStart(AddressOf SnedUartThread))
|
||||
_grid = grd
|
||||
_tooplabel = tooplabel
|
||||
_ThreadBuff = ThreadBuff
|
||||
_Task.Start()
|
||||
End Sub
|
||||
Public Sub TaskClose(isflag As Boolean)
|
||||
If isflag Then
|
||||
_Task.Abort()
|
||||
For threadid As Integer = 0 To _ThreadBuff.Length - 1
|
||||
_ThreadBuff(threadid).Abort()
|
||||
Next
|
||||
Else
|
||||
If _Task.IsAlive Then
|
||||
Else
|
||||
_Task = New Thread(New ThreadStart(AddressOf SnedUartThread))
|
||||
_Task.Start()
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub Colose_Uart()
|
||||
If IsNothing(_Uart) Then Return
|
||||
If _Uart.IsOpen Then
|
||||
_Uart.Close()
|
||||
End If
|
||||
End Sub
|
||||
Public Function Get_Uart() As Boolean
|
||||
If IsNothing(_Uart) Then Return False
|
||||
Return _Uart.IsOpen
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub SnedUartThread()
|
||||
'ApplicationLog.WriteInfoLog($"测试页面生产线变更中。")
|
||||
Dim theClient As Uart_1089
|
||||
While IsSendThresdflag
|
||||
If SendDataList.Count < 1 Then Continue While
|
||||
theClient = SendDataList.Item(0)
|
||||
If theClient.SendNumber = 1 And theClient.Cycleflag Then
|
||||
For threadid As Integer = 0 To _ThreadBuff.Length - 1
|
||||
_ThreadBuff(threadid).Start()
|
||||
Next
|
||||
End If
|
||||
|
||||
If GetThreadStart() Then
|
||||
'_IsCycleflag = False
|
||||
theClient.Cycleflag = False
|
||||
End If
|
||||
If theClient.CmdStat Then
|
||||
If theClient.CmdReadStat Then
|
||||
If theClient.CmdReadResult AndAlso Not theClient.Cycleflag Then
|
||||
'SyncLock SendDataList
|
||||
DetermineResults(_grid, theClient.Rowid, "PASS")
|
||||
|
||||
SendDataList.RemoveAt(0)
|
||||
If theClient.SendData.Equals("SET_PPS_OUTP:OFF") Then
|
||||
RaiseEvent TestEnd(True)
|
||||
End If
|
||||
'End SyncLock
|
||||
Else
|
||||
If theClient.SendNumber < theClient.Resendnum OrElse theClient.Cycleflag Then
|
||||
|
||||
Thread.Sleep(theClient.WaitIinterval)
|
||||
_Uart.Write(theClient.SendData）
|
||||
Console.WriteLine(theClient.SendData)
|
||||
theClient.CmdStat = True
|
||||
theClient.CmdReadStat = False
|
||||
theClient.SendNumber += 2
|
||||
theClient.SendDate = Now
|
||||
If theClient.SendNumber = 100 Then theClient.SendNumber = 1
|
||||
SetCommunicationData_txt("", Color.Black, $"重发({theClient.SendNumber})：" & theClient.SendData, Color.Blue)
|
||||
|
||||
Else
|
||||
|
||||
'SyncLock SendDataList
|
||||
DetermineResults(_grid, theClient.Rowid, "FALSE")
|
||||
|
||||
SendDataList.RemoveAt(0)
|
||||
'End SyncLock
|
||||
If theClient.SendData.Equals("SET_PPS_OUTP:OFF") Then
|
||||
RaiseEvent TestEnd(False)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
Dim Span As Double = theClient.SendIinterval * 10000
|
||||
If (Now.Ticks - theClient.SendDate.Ticks) < Span Then
|
||||
Continue While
|
||||
Else
|
||||
|
||||
If theClient.SendNumber < theClient.Resendnum OrElse theClient.Cycleflag Then
|
||||
|
||||
Thread.Sleep(theClient.WaitIinterval)
|
||||
_Uart.Write(theClient.SendData）
|
||||
theClient.CmdStat = True
|
||||
theClient.CmdReadStat = False
|
||||
theClient.SendNumber += 1
|
||||
theClient.SendDate = Now
|
||||
Console.WriteLine(theClient.SendData)
|
||||
If theClient.SendNumber = 100 Then theClient.SendNumber = 2
|
||||
SetCommunicationData_txt("", Color.Black, $"重发({theClient.SendNumber})：" & theClient.SendData, Color.Blue)
|
||||
Else
|
||||
'SyncLock SendDataList
|
||||
DetermineResults(_grid, theClient.Rowid, "FALSE")
|
||||
SendDataList.RemoveAt(0)
|
||||
If theClient.SendData.Equals("SET_PPS_OUTP:OFF") Then
|
||||
RaiseEvent TestEnd(False)
|
||||
End If
|
||||
'End SyncLock
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Else
|
||||
_Uart.Write(theClient.SendData）
|
||||
theClient.CmdStat = True
|
||||
theClient.SendNumber += 1
|
||||
theClient.SendDate = Now
|
||||
SetCommunicationData_txt("", Color.Black, $"发送({theClient.SendNumber})：" & theClient.SendData, Color.Blue)
|
||||
Console.WriteLine(theClient.SendData)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End While
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function GetThreadStart() As Boolean
|
||||
Dim ruslt As Boolean = True
|
||||
For threadid As Integer = 0 To _ThreadBuff.Length - 1
|
||||
If _ThreadBuff(threadid).IsAlive Then
|
||||
ruslt = False
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Return ruslt
|
||||
End Function
|
||||
|
||||
Delegate Sub delegate_SearchSetMAC_Change(Cmd As String, cmdcolor As Color, txt As String, txtcolor As Color)
|
||||
|
||||
Public Sub SetCommunicationData_txt(Cmd As String, cmdcolor As Color, txt As String, txtcolor As Color)
|
||||
If _RichTextBox1.InvokeRequired Then
|
||||
Dim dev As New delegate_SearchSetMAC_Change(AddressOf SetCommunicationData_txt)
|
||||
_RichTextBox1.Invoke(dev, New Object() {Cmd, cmdcolor, txt, txtcolor})
|
||||
Else
|
||||
If String.IsNullOrEmpty(Cmd) Then
|
||||
|
||||
End If
|
||||
With _RichTextBox1
|
||||
.SuspendLayout()
|
||||
.SelectionColor = Color.Black
|
||||
.AppendText($"{Date.Now.ToString("yyyy-MM-dd HH:mm:ss.fff")} :")
|
||||
.SelectionColor = cmdcolor
|
||||
.AppendText($"{Cmd} ")
|
||||
.SelectionColor = txtcolor
|
||||
.AppendText(txt)
|
||||
.ResumeLayout(False)
|
||||
End With
|
||||
End If
|
||||
End Sub
|
||||
Public Sub UArtSendData(uartdata As Uart_1089)
|
||||
If _Uart.IsOpen Then
|
||||
' _Uart.Write(uartdata.SendData)
|
||||
|
||||
' SyncLock SendDataList
|
||||
SendDataList.Add(uartdata)
|
||||
'End SyncLock
|
||||
Else
|
||||
' MsgBox("串口未打开")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub DetermineResults(tablegrid As FlexCell.Grid, trowel As Integer, result As String)
|
||||
'If trowel = 0 OrElse Not trowel < tablegrid.Rows Then Return False
|
||||
'If tablegrid.Cell(trowel, MainTest.ColNames.DataSource).Text.Trim.Equals("*IDN?") Then
|
||||
' If result.ToUpper.Equals("PASS") Then
|
||||
' 'MTSetUILabeltext(_tooplabel,"测试板未连接！",Color .Black )
|
||||
' End If
|
||||
'End If
|
||||
If tablegrid.Cell(trowel, MainTest.ColNames.RetryCount).Text.Trim.Equals("max") Then
|
||||
SettheGridt(tablegrid, MainTest.ColNames.TestResult, trowel, "PASS")
|
||||
Else
|
||||
SettheGridt(tablegrid, MainTest.ColNames.TestResult, trowel, result)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Delegate Sub IPSetUILabeltext(tablegrid As FlexCell.Grid, tcol As Integer, trowel As Integer, txt As String)
|
||||
Private Sub SettheGridt(tablegrid As FlexCell.Grid, tcol As Integer, trowel As Integer, txt As String)
|
||||
If tablegrid.InvokeRequired Then
|
||||
tablegrid.Invoke(New IPSetUILabeltext(AddressOf SettheGridt), New Object() {tablegrid, tcol, trowel, txt})
|
||||
Else
|
||||
tablegrid.Cell(trowel, tcol).Text = txt
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
'数据转换
|
||||
Public Function StringTobyte(sendstr As String) As Byte()
|
||||
Return System.Text.Encoding.ASCII.GetBytes(sendstr)
|
||||
End Function
|
||||
|
||||
Public Sub SetCycleflagStop()
|
||||
_IsCycleflag = True
|
||||
End Sub
|
||||
Delegate Sub IPMTSetUILabeltext(ByRef ctl As ToolStripStatusLabel, txt As String, txtcolor As Color)
|
||||
Public Sub MTSetUILabeltext(ByRef ctl As ToolStripStatusLabel, txt As String, txtcolor As Color)
|
||||
If FrmMain.InvokeRequired Then
|
||||
FrmMain.Invoke(New IPMTSetUILabeltext(AddressOf MTSetUILabeltext), New Object() {ctl, txt, txtcolor})
|
||||
Else
|
||||
ctl.Text = txt
|
||||
ctl.ForeColor = txtcolor
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
460
SQLliteReading/AUTS_Package/ZQ/Phobos/T1-PCBA_Test/ZQ_Phobos_T1_FrmStationPlan.Designer.vb
generated
Normal file
460
SQLliteReading/AUTS_Package/ZQ/Phobos/T1-PCBA_Test/ZQ_Phobos_T1_FrmStationPlan.Designer.vb
generated
Normal file
@@ -0,0 +1,460 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class ZQ_Phobos_T1_FrmStationPlan
|
||||
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(ZQ_Phobos_T1_FrmStationPlan))
|
||||
Me.MsiCopyNode = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MsiNodePaste = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.MsiUndo = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MsiRedo = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.MsiSaveNodeFile = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MsiLoadNodeFile = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugStart = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.Grid1 = New FlexCell.Grid()
|
||||
Me.CmsPlanGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.MsiCutNode = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsmiDebugEnd = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugStep = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugContinue = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsmiDebugSetup = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugMain = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugPass = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugFail = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugCleanup = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsmiDebugNode = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugNodeBegin = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsBtnOpen = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TsBtnSave = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsBtnLoad = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TsBtnSaveAs = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.StuMain = New System.Windows.Forms.StatusStrip()
|
||||
Me.DlgOpenFile = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.GrdStationPlan = New FlexCell.Grid()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.CmsPlanGrid.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
Me.SplitContainer1.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MsiCopyNode
|
||||
'
|
||||
Me.MsiCopyNode.Enabled = False
|
||||
Me.MsiCopyNode.Name = "MsiCopyNode"
|
||||
Me.MsiCopyNode.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiCopyNode.Text = "复制"
|
||||
'
|
||||
'MsiNodePaste
|
||||
'
|
||||
Me.MsiNodePaste.Enabled = False
|
||||
Me.MsiNodePaste.Name = "MsiNodePaste"
|
||||
Me.MsiNodePaste.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiNodePaste.Text = "粘贴"
|
||||
'
|
||||
'ToolStripSeparator5
|
||||
'
|
||||
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
|
||||
Me.ToolStripSeparator5.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'MsiUndo
|
||||
'
|
||||
Me.MsiUndo.Enabled = False
|
||||
Me.MsiUndo.Name = "MsiUndo"
|
||||
Me.MsiUndo.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiUndo.Text = "撤销"
|
||||
'
|
||||
'MsiRedo
|
||||
'
|
||||
Me.MsiRedo.Enabled = False
|
||||
Me.MsiRedo.Name = "MsiRedo"
|
||||
Me.MsiRedo.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiRedo.Text = "重做"
|
||||
'
|
||||
'ToolStripSeparator6
|
||||
'
|
||||
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
|
||||
Me.ToolStripSeparator6.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'MsiSaveNodeFile
|
||||
'
|
||||
Me.MsiSaveNodeFile.Name = "MsiSaveNodeFile"
|
||||
Me.MsiSaveNodeFile.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiSaveNodeFile.Text = "另存为节点文件"
|
||||
'
|
||||
'MsiLoadNodeFile
|
||||
'
|
||||
Me.MsiLoadNodeFile.Name = "MsiLoadNodeFile"
|
||||
Me.MsiLoadNodeFile.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiLoadNodeFile.Text = "加载节点文件"
|
||||
'
|
||||
'TsmiDebugStart
|
||||
'
|
||||
Me.TsmiDebugStart.Name = "TsmiDebugStart"
|
||||
Me.TsmiDebugStart.ShortcutKeys = System.Windows.Forms.Keys.F1
|
||||
Me.TsmiDebugStart.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugStart.Text = "开始执行"
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.Grid1)
|
||||
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GroupBox1.Font = New System.Drawing.Font("微软雅黑", 9.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(536, 503)
|
||||
Me.GroupBox1.TabIndex = 0
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "副流程:"
|
||||
'
|
||||
'Grid1
|
||||
'
|
||||
Me.Grid1.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||
Me.Grid1.CheckedImage = Nothing
|
||||
Me.Grid1.ContextMenuStrip = Me.CmsPlanGrid
|
||||
Me.Grid1.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||
Me.Grid1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Grid1.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Grid1.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.Grid1.Location = New System.Drawing.Point(3, 21)
|
||||
Me.Grid1.Name = "Grid1"
|
||||
Me.Grid1.Size = New System.Drawing.Size(530, 479)
|
||||
Me.Grid1.TabIndex = 5
|
||||
Me.Grid1.UncheckedImage = Nothing
|
||||
'
|
||||
'CmsPlanGrid
|
||||
'
|
||||
Me.CmsPlanGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MsiCopyNode, Me.MsiCutNode, Me.MsiNodePaste, Me.ToolStripSeparator5, Me.MsiUndo, Me.MsiRedo, Me.ToolStripSeparator6, Me.MsiSaveNodeFile, Me.MsiLoadNodeFile, Me.ToolStripSeparator7, Me.TsmiDebugStart, Me.TsmiDebugEnd, Me.TsmiDebugStep, Me.TsmiDebugContinue, Me.ToolStripSeparator8, Me.TsmiDebugSetup, Me.TsmiDebugMain, Me.TsmiDebugPass, Me.TsmiDebugFail, Me.TsmiDebugCleanup, Me.ToolStripSeparator9, Me.TsmiDebugNode, Me.TsmiDebugNodeBegin})
|
||||
Me.CmsPlanGrid.Name = "CmsMain"
|
||||
Me.CmsPlanGrid.Size = New System.Drawing.Size(193, 430)
|
||||
'
|
||||
'MsiCutNode
|
||||
'
|
||||
Me.MsiCutNode.Enabled = False
|
||||
Me.MsiCutNode.Name = "MsiCutNode"
|
||||
Me.MsiCutNode.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiCutNode.Text = "剪切"
|
||||
'
|
||||
'ToolStripSeparator7
|
||||
'
|
||||
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
|
||||
Me.ToolStripSeparator7.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'TsmiDebugEnd
|
||||
'
|
||||
Me.TsmiDebugEnd.Name = "TsmiDebugEnd"
|
||||
Me.TsmiDebugEnd.ShortcutKeys = System.Windows.Forms.Keys.F2
|
||||
Me.TsmiDebugEnd.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugEnd.Text = "退出执行"
|
||||
'
|
||||
'TsmiDebugStep
|
||||
'
|
||||
Me.TsmiDebugStep.Name = "TsmiDebugStep"
|
||||
Me.TsmiDebugStep.ShortcutKeys = System.Windows.Forms.Keys.F3
|
||||
Me.TsmiDebugStep.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugStep.Text = "单步执行"
|
||||
'
|
||||
'TsmiDebugContinue
|
||||
'
|
||||
Me.TsmiDebugContinue.Name = "TsmiDebugContinue"
|
||||
Me.TsmiDebugContinue.ShortcutKeys = System.Windows.Forms.Keys.F4
|
||||
Me.TsmiDebugContinue.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugContinue.Text = "继续执行"
|
||||
'
|
||||
'ToolStripSeparator8
|
||||
'
|
||||
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
|
||||
Me.ToolStripSeparator8.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'TsmiDebugSetup
|
||||
'
|
||||
Me.TsmiDebugSetup.Name = "TsmiDebugSetup"
|
||||
Me.TsmiDebugSetup.ShortcutKeys = System.Windows.Forms.Keys.F5
|
||||
Me.TsmiDebugSetup.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugSetup.Text = "Setup模块执行"
|
||||
'
|
||||
'TsmiDebugMain
|
||||
'
|
||||
Me.TsmiDebugMain.Name = "TsmiDebugMain"
|
||||
Me.TsmiDebugMain.ShortcutKeys = System.Windows.Forms.Keys.F6
|
||||
Me.TsmiDebugMain.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugMain.Text = "Main模块执行"
|
||||
'
|
||||
'TsmiDebugPass
|
||||
'
|
||||
Me.TsmiDebugPass.Name = "TsmiDebugPass"
|
||||
Me.TsmiDebugPass.ShortcutKeys = System.Windows.Forms.Keys.F7
|
||||
Me.TsmiDebugPass.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugPass.Text = "Pass模块执行"
|
||||
'
|
||||
'TsmiDebugFail
|
||||
'
|
||||
Me.TsmiDebugFail.Name = "TsmiDebugFail"
|
||||
Me.TsmiDebugFail.ShortcutKeys = System.Windows.Forms.Keys.F8
|
||||
Me.TsmiDebugFail.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugFail.Text = "Fail模块执行"
|
||||
'
|
||||
'TsmiDebugCleanup
|
||||
'
|
||||
Me.TsmiDebugCleanup.Name = "TsmiDebugCleanup"
|
||||
Me.TsmiDebugCleanup.ShortcutKeys = System.Windows.Forms.Keys.F9
|
||||
Me.TsmiDebugCleanup.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugCleanup.Text = "Cleanup模块执行"
|
||||
'
|
||||
'ToolStripSeparator9
|
||||
'
|
||||
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
|
||||
Me.ToolStripSeparator9.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'TsmiDebugNode
|
||||
'
|
||||
Me.TsmiDebugNode.Name = "TsmiDebugNode"
|
||||
Me.TsmiDebugNode.ShortcutKeys = System.Windows.Forms.Keys.F10
|
||||
Me.TsmiDebugNode.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugNode.Text = "节点测试"
|
||||
'
|
||||
'TsmiDebugNodeBegin
|
||||
'
|
||||
Me.TsmiDebugNodeBegin.Name = "TsmiDebugNodeBegin"
|
||||
Me.TsmiDebugNodeBegin.ShortcutKeys = System.Windows.Forms.Keys.F11
|
||||
Me.TsmiDebugNodeBegin.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugNodeBegin.Text = "节点开始测试"
|
||||
'
|
||||
'TsBtnOpen
|
||||
'
|
||||
Me.TsBtnOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TsBtnOpen.Image = CType(resources.GetObject("TsBtnOpen.Image"), System.Drawing.Image)
|
||||
Me.TsBtnOpen.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnOpen.Name = "TsBtnOpen"
|
||||
Me.TsBtnOpen.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnOpen.Text = "打开"
|
||||
Me.TsBtnOpen.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
Me.TsBtnOpen.Visible = False
|
||||
'
|
||||
'TsBtnSave
|
||||
'
|
||||
Me.TsBtnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TsBtnSave.Image = CType(resources.GetObject("TsBtnSave.Image"), System.Drawing.Image)
|
||||
Me.TsBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnSave.Name = "TsBtnSave"
|
||||
Me.TsBtnSave.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnSave.Text = "保存"
|
||||
Me.TsBtnSave.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
'
|
||||
'ToolStripSeparator4
|
||||
'
|
||||
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
|
||||
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 36)
|
||||
'
|
||||
'TsBtnLoad
|
||||
'
|
||||
Me.TsBtnLoad.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TsBtnLoad.Image = CType(resources.GetObject("TsBtnLoad.Image"), System.Drawing.Image)
|
||||
Me.TsBtnLoad.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnLoad.Name = "TsBtnLoad"
|
||||
Me.TsBtnLoad.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnLoad.Text = "重载"
|
||||
Me.TsBtnLoad.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
Me.TsBtnLoad.Visible = False
|
||||
'
|
||||
'TsBtnSaveAs
|
||||
'
|
||||
Me.TsBtnSaveAs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TsBtnSaveAs.Image = CType(resources.GetObject("TsBtnSaveAs.Image"), System.Drawing.Image)
|
||||
Me.TsBtnSaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnSaveAs.Name = "TsBtnSaveAs"
|
||||
Me.TsBtnSaveAs.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnSaveAs.Text = "导出"
|
||||
Me.TsBtnSaveAs.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
Me.TsBtnSaveAs.Visible = False
|
||||
'
|
||||
'ToolStripSeparator3
|
||||
'
|
||||
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
|
||||
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 36)
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsBtnOpen, Me.TsBtnSave, Me.ToolStripSeparator4, Me.TsBtnLoad, Me.TsBtnSaveAs, Me.ToolStripSeparator3, Me.ToolStripButton1, Me.ToolStripButton2})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(984, 36)
|
||||
Me.ToolStrip1.TabIndex = 7
|
||||
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(72, 33)
|
||||
Me.ToolStripButton1.Text = "编辑主流程"
|
||||
Me.ToolStripButton1.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
|
||||
'
|
||||
'ToolStripButton2
|
||||
'
|
||||
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
|
||||
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton2.Name = "ToolStripButton2"
|
||||
Me.ToolStripButton2.Size = New System.Drawing.Size(72, 33)
|
||||
Me.ToolStripButton2.Text = "编辑副流程"
|
||||
'
|
||||
'StuMain
|
||||
'
|
||||
Me.StuMain.Location = New System.Drawing.Point(0, 539)
|
||||
Me.StuMain.Name = "StuMain"
|
||||
Me.StuMain.Size = New System.Drawing.Size(984, 22)
|
||||
Me.StuMain.TabIndex = 8
|
||||
Me.StuMain.Text = "StatusStrip1"
|
||||
'
|
||||
'DlgOpenFile
|
||||
'
|
||||
Me.DlgOpenFile.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer1.Location = New System.Drawing.Point(0, 36)
|
||||
Me.SplitContainer1.Name = "SplitContainer1"
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.GroupBox2)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(984, 503)
|
||||
Me.SplitContainer1.SplitterDistance = 444
|
||||
Me.SplitContainer1.TabIndex = 9
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.GrdStationPlan)
|
||||
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GroupBox2.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(444, 503)
|
||||
Me.GroupBox2.TabIndex = 0
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "主流程:"
|
||||
'
|
||||
'GrdStationPlan
|
||||
'
|
||||
Me.GrdStationPlan.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||
Me.GrdStationPlan.CheckedImage = Nothing
|
||||
Me.GrdStationPlan.ContextMenuStrip = Me.CmsPlanGrid
|
||||
Me.GrdStationPlan.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||
Me.GrdStationPlan.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GrdStationPlan.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.GrdStationPlan.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.GrdStationPlan.Location = New System.Drawing.Point(3, 21)
|
||||
Me.GrdStationPlan.Name = "GrdStationPlan"
|
||||
Me.GrdStationPlan.Size = New System.Drawing.Size(438, 479)
|
||||
Me.GrdStationPlan.TabIndex = 4
|
||||
Me.GrdStationPlan.UncheckedImage = Nothing
|
||||
'
|
||||
'ZQ_Phobos_T1_FrmStationPlan
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(984, 561)
|
||||
Me.Controls.Add(Me.SplitContainer1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.StuMain)
|
||||
Me.Name = "ZQ_Phobos_T1_FrmStationPlan"
|
||||
Me.Text = "Form1"
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.CmsPlanGrid.ResumeLayout(False)
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.SplitContainer1.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents MsiCopyNode As ToolStripMenuItem
|
||||
Friend WithEvents MsiNodePaste As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
|
||||
Friend WithEvents MsiUndo As ToolStripMenuItem
|
||||
Friend WithEvents MsiRedo As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
|
||||
Friend WithEvents MsiSaveNodeFile As ToolStripMenuItem
|
||||
Friend WithEvents MsiLoadNodeFile As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugStart As ToolStripMenuItem
|
||||
Friend WithEvents GroupBox1 As GroupBox
|
||||
Friend WithEvents Grid1 As FlexCell.Grid
|
||||
Friend WithEvents CmsPlanGrid As ContextMenuStrip
|
||||
Friend WithEvents MsiCutNode As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator7 As ToolStripSeparator
|
||||
Friend WithEvents TsmiDebugEnd As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugStep As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugContinue As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator8 As ToolStripSeparator
|
||||
Friend WithEvents TsmiDebugSetup As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugMain As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugPass As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugFail As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugCleanup As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator9 As ToolStripSeparator
|
||||
Friend WithEvents TsmiDebugNode As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugNodeBegin As ToolStripMenuItem
|
||||
Friend WithEvents TsBtnOpen As ToolStripButton
|
||||
Friend WithEvents TsBtnSave As ToolStripButton
|
||||
Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
|
||||
Friend WithEvents TsBtnLoad As ToolStripButton
|
||||
Friend WithEvents TsBtnSaveAs As ToolStripButton
|
||||
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
|
||||
Friend WithEvents ToolStrip1 As ToolStrip
|
||||
Friend WithEvents StuMain As StatusStrip
|
||||
Friend WithEvents DlgOpenFile As OpenFileDialog
|
||||
Friend WithEvents SplitContainer1 As SplitContainer
|
||||
Friend WithEvents GroupBox2 As GroupBox
|
||||
Friend WithEvents GrdStationPlan As FlexCell.Grid
|
||||
Friend WithEvents ToolStripButton1 As ToolStripButton
|
||||
Friend WithEvents ToolStripButton2 As ToolStripButton
|
||||
End Class
|
||||
@@ -0,0 +1,215 @@
|
||||
<?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="CmsPlanGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>342, 55</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="TsBtnOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHOSURBVGhD1ZnLSgRBFEMbFN3rUv03H1v160T/wDfot+jo
|
||||
VhNk4FqUk77dqRrnQGAgnZt+TS26hhnsQpfQPbSAvsziTM6+gNhl5QB6hWrFLfQCsdMC70bPk1+KF2F5
|
||||
EnxtagU9dA7N5gGKQ68g2+MNHELXUOy6g2bzDsWhLGrFERS73qDZxIFUa+x99oGCyX1b0OnPz19MHjiR
|
||||
SX370DNUC0waOIN03za0PPlaIA6r+W7SfWfQqkD0ar6bdN8TtCoQvZrvJt33Ca0KRK/mu0n3qYDy3aT7
|
||||
VED5btJ9KqB8N+k+FVC+m3SfCijfTbpPBZTvJt2nAsp3k+5TAeW7SfepgPLdpPtUQPlu0n0qoHw36T4V
|
||||
UL6bdJ8KKN9Nuk8FlO8m3acCyneT7lMB5btJ96mA8t2k+1RA+W7SfSqgfDfpPhVQvpt0nwr8+4+7MUCV
|
||||
lJ/X+Qm8xUXw5G+g2DXq83oMUCXcsyqP6aVRGxxlqITbPNzuKY9rLXbuQJIyWIM7Mj0vIrXJV4b/gneD
|
||||
j5TvZfnHdogzbyF2jLrzS8pBG8fGX0DPdb4Jvdb5ZqxznT+BZrOudf4R4saihd7rPE9+D7LSep3/gPh/
|
||||
O4a4sTiBYfgGl13a4+npcwkAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TsBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHqSURBVGhD7Zm9Tt1AEEYvNDxCArwSXZDSpAwiFQ+HEA2Q
|
||||
dPmpeAl4AaALEnxTXDSate/xeHcvkeIjnerzN97F9rWEVwsLC6PsyFP5Rz7Jl07ey0+yKQfyuxw6YQ//
|
||||
ys+yCbvyhxw6UU+f5RdZzTc5dIJt2ORK2D3vh17ID3KNz8wabLG2aD+vehOP0g/8KD0+M2tpvgk/yIxQ
|
||||
PodjGTcx+5nwQ8wI5XNptgk/wIxQXkOTTfiyGaG8lupN+KIZiflc7Q18JIcYe7AnvbF9yYzEvMY7OcbQ
|
||||
JjYd/4YvmBEbEo+ZKy3INhE7CBXsstvlj8dl3XQLeWIPSRc6k15PutCZ9HrShc6k15MudCa9nnShM+n1
|
||||
pAudSa+HCq1+RqNjP6vxOIQKLV9k0aEXWzwGoULMWxuhvIAKMW9thPICKlCeheZRXkAFyrPQPMoLqEB5
|
||||
FppHeQEVKM9C8ygvoALlWWge5QVUoDwLzaO8gAqUZ6F5lBdQgfIsNI/yAipQnoXmUV5ABcqz0DzKCx6k
|
||||
L/j/TBs+M2vZNM8+tPjM1ob8lr50LvflGp+ZtYzNs3NeSp/9ksiZ9KV/ya8S2ZO3cmjAe3ol7cPjJA7l
|
||||
jRwa9B5eS38bT8J2eyJ/yvjVZhvaA2vntttm8l9+YeH/YrV6BfNWMy9RUhK1AAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="TsBtnLoad.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHOSURBVGhD1ZnLSgRBFEMbFN3rUv03H1v160T/wDfot+jo
|
||||
VhNk4FqUk77dqRrnQGAgnZt+TS26hhnsQpfQPbSAvsziTM6+gNhl5QB6hWrFLfQCsdMC70bPk1+KF2F5
|
||||
EnxtagU9dA7N5gGKQ68g2+MNHELXUOy6g2bzDsWhLGrFERS73qDZxIFUa+x99oGCyX1b0OnPz19MHjiR
|
||||
SX370DNUC0waOIN03za0PPlaIA6r+W7SfWfQqkD0ar6bdN8TtCoQvZrvJt33Ca0KRK/mu0n3qYDy3aT7
|
||||
VED5btJ9KqB8N+k+FVC+m3SfCijfTbpPBZTvJt2nAsp3k+5TAeW7SfepgPLdpPtUQPlu0n0qoHw36T4V
|
||||
UL6bdJ8KKN9Nuk8FlO8m3acCyneT7lMB5btJ96mA8t2k+1RA+W7SfSqgfDfpPhVQvpt0nwr8+4+7MUCV
|
||||
lJ/X+Qm8xUXw5G+g2DXq83oMUCXcsyqP6aVRGxxlqITbPNzuKY9rLXbuQJIyWIM7Mj0vIrXJV4b/gneD
|
||||
j5TvZfnHdogzbyF2jLrzS8pBG8fGX0DPdb4Jvdb5ZqxznT+BZrOudf4R4saihd7rPE9+D7LSep3/gPh/
|
||||
O4a4sTiBYfgGl13a4+npcwkAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TsBtnSaveAs.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADQSURBVEhL5ZYxDgFBGEbnCE4gjuAcCnEER3AER9BpVWqV
|
||||
QqcTlSOIUkVFx/fWSMYsyfx/FCu+5CX7ZWfmTbKT3Q1J+mLnYCmKMhQ3sRKLQg5iL4ryFHSqVpaZ+H3B
|
||||
UQwy2qIWr4A5OaxVi0fATrsJPfFVQR7m/pGA42eBmARc8yrgpMxj38aewhjuEbNg/LgMLUEfVe01jGmu
|
||||
4CpO4hz7JfYUxrgFGzER09jXsacwxi34/WdggZgE7MwCMQk8aYbA8tHPYe5Hgfe35R2spYRwB61XwcSY
|
||||
NxMjAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>230, 55</value>
|
||||
</metadata>
|
||||
<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>
|
||||
<data name="ToolStripButton2.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="StuMain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>469, 55</value>
|
||||
</metadata>
|
||||
<metadata name="DlgOpenFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>570, 55</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,371 @@
|
||||
Imports UTS_Core.DebugLog
|
||||
Imports UTS_Core.UTSModule
|
||||
Imports UTS_Core.UTSModule.Station
|
||||
Imports UTS_Core.UTSModule.Test.StatusMonitor
|
||||
|
||||
Public Class ZQ_Phobos_T1_FrmStationPlan
|
||||
|
||||
|
||||
#Region "框架部分 要放在最前段"
|
||||
Implements IProcessStation
|
||||
|
||||
Private _utsApp As UtsAppForm
|
||||
Private _stationPlan As StationPackagePlan
|
||||
Public Sub Station_Changed() Implements IProcessStation.StationChanged
|
||||
ApplicationLog.WriteInfoLog($"编辑页面站位变更中，PN：{_utsApp.ProcessStation.ParentProject.Name} - SN:{_utsApp.ProcessStation.Name} - TP:{_utsApp.ProcessStation.Packet.Name}!")
|
||||
|
||||
Try
|
||||
_stationPlan = CType(_utsApp.ProcessStation.Packet.StationPlan, StationPackagePlan)
|
||||
Catch ex As Exception
|
||||
MsgBox($"加载项目流程失败,{ex.Message}")
|
||||
End Try
|
||||
|
||||
'InitGrid(_stationPlan)
|
||||
FileToLoadTable(_stationPlan.TemplateFile, _stationPlan.CompanyLogo)
|
||||
ApplicationLog.WriteInfoLog($"编辑页面站位变更完成。")
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub ShowForm(parentControl As Control)
|
||||
FormBorderStyle = FormBorderStyle.None
|
||||
TopLevel = False
|
||||
Dock = DockStyle.Fill
|
||||
Parent = parentControl
|
||||
|
||||
Show()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "界面控件初始化"
|
||||
|
||||
Private Sub ZQ_Phobos_T1_FrmStationPlan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
ApplicationLog.WriteInfoLog($"编辑页面加载中。")
|
||||
|
||||
'初始化UTS窗体信息,失败则关闭窗体
|
||||
If InitializeUtsApp() = False Then Return
|
||||
|
||||
'初始化窗体页面
|
||||
InitializeForm()
|
||||
|
||||
ApplicationLog.WriteInfoLog($"编辑页面加载完成。")
|
||||
|
||||
End Sub
|
||||
Private Function InitializeUtsApp() As Boolean
|
||||
_utsApp = UtsAppForm.CreateSingleton()
|
||||
_utsApp.AddStatisticsObserver(Me)
|
||||
|
||||
Try
|
||||
If _utsApp.IsInitialized = False Then
|
||||
_utsApp.Initialize(ProcessStation.StationTypeEnum.Package) 'Todo:可根据需要限定可选站位
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ApplicationLog.WriteErrorLog($"初始化窗体失败,原因：{ex.Message}!")
|
||||
|
||||
MsgBox($"初始化窗体失败,原因：{ex.Message}")
|
||||
Close()
|
||||
Return False
|
||||
End Try
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub InitializeForm()
|
||||
InitGrid(_stationPlan)
|
||||
End Sub
|
||||
#Region "Package表格"
|
||||
|
||||
|
||||
Public Sub FileToLoadTable(mainfilename As String, deputyfilename As String)
|
||||
|
||||
If IO.File.Exists(mainfilename) Then
|
||||
GrdStationPlan.OpenFile(_stationPlan.TemplateFile)
|
||||
End If
|
||||
|
||||
If IO.File.Exists(deputyfilename) Then
|
||||
Grid1.OpenFile(_stationPlan.TemplateFile)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub InitGrid(Optional stationplan As StationPackagePlan = Nothing)
|
||||
|
||||
|
||||
GrdStationPlan = UpdateStepTestRecord(New FlexCell.Grid)
|
||||
Grid1 = UpdateStepTestRecord(New FlexCell.Grid)
|
||||
|
||||
End Sub
|
||||
#Region "主表初始化装载"
|
||||
Enum ColNames
|
||||
No
|
||||
Content
|
||||
DataSource
|
||||
SendData
|
||||
PassResult
|
||||
RetryCount
|
||||
RetryInterval
|
||||
ReadInterval
|
||||
OperatingMode
|
||||
Lower
|
||||
Upper
|
||||
TestVal
|
||||
TestResult
|
||||
IsRecord
|
||||
RecordName
|
||||
Max
|
||||
End Enum
|
||||
Public Function UpdateStepTestRecord(theGrid As FlexCell.Grid) As FlexCell.Grid
|
||||
With theGrid
|
||||
.AutoRedraw = False
|
||||
'.AutoSize = True
|
||||
.Cols = ColNames.Max
|
||||
.Rows = 1
|
||||
.ExtendLastCol = True '最后一列自动扩充
|
||||
.DisplayRowNumber = True '首列显示数字
|
||||
.DefaultRowHeight = 20
|
||||
.DefaultFont = New Font("微软雅黑", 10)
|
||||
For col As Integer = 0 To ColNames.Max - 1
|
||||
.Cell(0, col).Text = [Enum].GetName(GetType(ColNames), col) '设置列名
|
||||
.Column(col).CellType = FlexCell.CellTypeEnum.TextBox '设置列型
|
||||
|
||||
.Column(col).Width = 140 '设置列宽
|
||||
|
||||
.Column(col).Alignment = FlexCell.AlignmentEnum.CenterCenter '设置对齐位置
|
||||
Next
|
||||
.ForeColorComment = Color.Blue
|
||||
|
||||
|
||||
.BackColorBkg = Color.DimGray
|
||||
.AutoRedraw = True
|
||||
.Refresh()
|
||||
.Locked = True
|
||||
End With
|
||||
|
||||
DefaultData(theGrid)
|
||||
|
||||
Return theGrid
|
||||
|
||||
End Function
|
||||
|
||||
Public Sub DefaultData(ByRef theGrid As FlexCell.Grid)
|
||||
|
||||
Dim SendDatalist As New List(Of List(Of String））
|
||||
UartSendDataList(SendDatalist， "确认测试板连接", "uts", "*IDN?", "uts-Phobos-rev01", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "设置输出限流", "uts", "SET_PPS_CURR:400", "SET_PPS_CURR:400:TRUE", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "设置输出电压", "uts", "SET_PPS_VOLT:2000", "SET_PPS_VOLT:2000:TRUE"， "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "打开输出电压", "uts", "SET_PPS_OUTP:ON", "SET_PPS_OUTP:ON:TRUE", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "清除峰值电流 - ch1", "uts", "CLR_PPS_CURR_PEAK:1", "CLR_PPS_CURR_PEAK:1:TRUE", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "清除峰值电流 - ch2", "uts", "CLR_PPS_CURR_PEAK:2", "CLR_PPS_CURR_PEAK:2:TRUE", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "清除峰值电流 - ch3", "uts", "CLR_PPS_CURR_PEAK:3", "CLR_PPS_CURR_PEAK:3:TRUE", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "清除峰值电流 - ch4", "uts", "CLR_PPS_CURR_PEAK:4", "CLR_PPS_CURR_PEAK:4:TRUE", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
|
||||
UartSendDataList(SendDatalist， "读取平均电流(轮询直到勾选的属性测试结束)", "uts", "RUN", "10", "max", "100", "300", "split", "", "", "", "", "", "")
|
||||
|
||||
UartSendDataList(SendDatalist， "发送关闭电源命令", "uts", "SET_PPS_OUTP:OFF"， "SET_PPS_OUTP:OFF:TRUE", "3", "100", "300", "comparison", "", "", "", "", "", "")
|
||||
|
||||
Grid5AddRow(theGrid, SendDatalist)
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function UartSendDataList(ByRef SendDatalist As List(Of List(Of String））， ParamArray ptr（） As String) As List(Of String）
|
||||
|
||||
Dim Datalist As New List(Of String）
|
||||
Datalist.AddRange(ptr)
|
||||
SendDatalist.Add(Datalist)
|
||||
|
||||
End Function
|
||||
Public Sub Grid5AddRow(ByRef theGrid As FlexCell.Grid, SendDatalist As List(Of List(Of String））)
|
||||
If SendDatalist.Count < 1 Then Return
|
||||
|
||||
For rowindex As Integer = 0 To SendDatalist.Count - 1
|
||||
|
||||
Dim Datalist As List(Of String） = SendDatalist.Item(rowindex)
|
||||
|
||||
|
||||
AddRowToTable(theGrid, Datalist)
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub AddRowToTable（ByRef tablegrid As FlexCell.Grid, Datalist As List(Of String））
|
||||
tablegrid.AddItem("")
|
||||
For colid As Integer = 1 To ColNames.Max - 1
|
||||
tablegrid.Cell(tablegrid.Rows - 1, colid).Text = Datalist.Item(colid - 1)
|
||||
Next
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "副表初始化装载"
|
||||
|
||||
Enum ColNames2
|
||||
No
|
||||
Content
|
||||
DataSource
|
||||
SendData
|
||||
PassResult
|
||||
RetryCount
|
||||
RetryInterval
|
||||
ReadInterval
|
||||
OperatingMode
|
||||
Lower
|
||||
Upper
|
||||
TestVal
|
||||
TestResult
|
||||
IsRecord
|
||||
RecordName
|
||||
Max
|
||||
End Enum
|
||||
Public Function UpdateStepTestRecord1(Userkeyval_grid As FlexCell.Grid) As FlexCell.Grid
|
||||
With Userkeyval_grid
|
||||
.AutoRedraw = False
|
||||
'.AutoSize = True
|
||||
.Cols = ColNames2.Max
|
||||
.Rows = 1
|
||||
.ExtendLastCol = True '最后一列自动扩充
|
||||
.DisplayRowNumber = True '首列显示数字
|
||||
|
||||
For col As Integer = 0 To ColNames2.Max - 1
|
||||
.Cell(0, col).Text = [Enum].GetName(GetType(ColNames2), col) '设置列名
|
||||
.Column(col).CellType = FlexCell.CellTypeEnum.TextBox '设置列型
|
||||
If col = ColNames2.Content OrElse col = ColNames2.SendData Then
|
||||
.Column(col).Width = 140 '设置列宽
|
||||
Else
|
||||
.Column(col).Width = 70 '设置列宽
|
||||
End If
|
||||
.Column(col).Alignment = FlexCell.AlignmentEnum.RightCenter '设置对齐位置
|
||||
Next
|
||||
.ForeColorComment = Color.Blue
|
||||
|
||||
' .FrozenCols = ColNames.Description '冻结列
|
||||
|
||||
.AutoRedraw = True
|
||||
.Refresh()
|
||||
End With
|
||||
DefaultData2(Userkeyval_grid)
|
||||
Return Userkeyval_grid
|
||||
End Function
|
||||
|
||||
Public Sub DefaultData2(ByRef Userkeyval_grid As FlexCell.Grid)
|
||||
|
||||
Dim SendDatalist As New List(Of List(Of String））
|
||||
UartSendDataList(SendDatalist， "确认设备MAC地址", "设备", "mac", "", "5", "100", "", "len", "", "", "", "", "Y", "DUT_SN")
|
||||
UartSendDataList(SendDatalist， "确认设备固件版本", "设备", "version", "", "5", "100", "", "comparison", "0.1.1.1", "0.1.1.1", "", "", "Y", "FW_Ver")
|
||||
UartSendDataList(SendDatalist， "确认设备电压", "设备", "voltage", "", "5", "100", "", "scope", "1.8", "2.3", "", "", "Y", "Volt")
|
||||
UartSendDataList(SendDatalist， "确认设备温度", "设备", "tempre", "", "5", "100", "", "null", "", "", "", "", "Y", "DUT_Temp")
|
||||
UartSendDataList(SendDatalist， "确认设备湿度", "设备", "humiture", "", "5", "100", "", "null", "", "", "", "", "Y", "DUT_Humid")
|
||||
UartSendDataList(SendDatalist， "确认环境温度", "uts", "tempre", "", "", "", "", "null", "", "", "", "", "Y", "Enov_Temp")
|
||||
UartSendDataList(SendDatalist， "确认环境湿度", "uts", "humiture", "", "", "", "", "null", "", "", "", "", "Y", "Enov_Humdi")
|
||||
UartSendDataList(SendDatalist， "确认温度误差", "设备-uts", "4", "6", "", "", "", "null", "", "", "", "", "Y", "Diff_Temp")
|
||||
UartSendDataList(SendDatalist， "确认湿度误差", "设备-uts", "5", "7", "", "", "", "null", "", "", "", "", "Y", "Diff_Humidi")
|
||||
UartSendDataList(SendDatalist， "确认PIR数值", "设备", "pir", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "提示：请打开PIR窗口", "设备", "tip", "", "", "", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认PIR数值", "设备", "pir", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "提示：请关闭PIR窗口", "设备", "tip", "", "", "", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认PIR数值", "设备", "pir", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认左键键值", "设备", "keyleft", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认右键键值", "设备", "keyright", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "提示：请按下左键", "设备", "tip", "", "", "", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认左键键值", "设备", "keyleft", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认右键键值", "设备", "keyright", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "提示：请按下右键", "设备", "tip", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
|
||||
UartSendDataList(SendDatalist， "确认左键键值", "设备", "keyleft", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认右键键值", "设备", "keyright", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "提示：请松开按键", "设备", "tip", "", "", "", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认左键键值", "设备", "keyleft", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "确认右键键值", "设备", "keyright", "", "5", "100", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "读取平均电流", "uts", "run", "", "", "", "", "null", "", "", "", "", "", "")
|
||||
UartSendDataList(SendDatalist， "读取峰值电流", "uts", "current", "", "", "", "", "null", "", "", "", "", "", "")
|
||||
Grid5AddRow2(Userkeyval_grid, SendDatalist)
|
||||
End Sub
|
||||
|
||||
Public Sub Grid5AddRow2(ByRef Userkeyval_grid As FlexCell.Grid, SendDatalist As List(Of List(Of String））)
|
||||
If SendDatalist.Count < 1 Then Return
|
||||
|
||||
For rowindex As Integer = 0 To SendDatalist.Count - 1
|
||||
|
||||
Dim Datalist As List(Of String） = SendDatalist.Item(rowindex)
|
||||
|
||||
|
||||
AddRowToTable2(Userkeyval_grid, Datalist)
|
||||
Next
|
||||
|
||||
End Sub
|
||||
Public Sub AddRowToTable2（tablegrid As FlexCell.Grid, Datalist As List(Of String））
|
||||
tablegrid.AddItem("")
|
||||
For colid As Integer = 1 To ColNames2.Max - 1
|
||||
tablegrid.Cell(tablegrid.Rows - 1, colid).Text = Datalist.Item(colid - 1)
|
||||
Next
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "界面控件事件"
|
||||
Private Sub TsBtnSave_Click(sender As Object, e As EventArgs) Handles TsBtnSave.Click
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程保存中。")
|
||||
UpdateGrid(_stationPlan)
|
||||
|
||||
ExportTreeViewToXml()
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程保存完成。")
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' 将树状视图导出为Xml
|
||||
''' </summary>
|
||||
Private Sub ExportTreeViewToXml()
|
||||
'保存至项目文件
|
||||
Dim revStationPlanPath As String = $"{UtsPath.GetStationPacketTestPlanDirPath(_stationPlan.ParentPacket.Name)}\Main.xml"
|
||||
_stationPlan.SaveFile(revStationPlanPath)
|
||||
|
||||
'备份至临时文件
|
||||
Dim tempPath As String = $"{UtsPath.StationDesignDirPath()}\Main.xml"
|
||||
_stationPlan.SaveFile(tempPath)
|
||||
|
||||
If StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed Then
|
||||
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Saved
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub UpdateGrid(stationplan As StationPackagePlan)
|
||||
Dim revStationPlanPath As String = UtsPath.GetStationPacketTestPlanDirPath(_stationPlan.ParentPacket.Name)
|
||||
_stationPlan.TemplateFile = revStationPlanPath & "\Maintest.flx"
|
||||
_stationPlan.CompanyLogo = revStationPlanPath & "\Deputytest.flx"
|
||||
|
||||
GrdStationPlan.SaveFile(revStationPlanPath & "\Maintest.flx")
|
||||
Grid1.SaveFile(revStationPlanPath & "\Deputytest.flx")
|
||||
GrdStationPlan.SaveFile(UtsPath.StationDesignDirPath() & "\Maintest.flx")
|
||||
Grid1.SaveFile(UtsPath.StationDesignDirPath() & "\Deputytest.flx")
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
||||
GrdStationPlan.Locked = Not GrdStationPlan.Locked
|
||||
If GrdStationPlan.Locked Then
|
||||
ToolStripButton1.Text = "编辑主流程"
|
||||
Else
|
||||
ToolStripButton1.Text = "锁定主流程"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
|
||||
Grid1.Locked = Not Grid1.Locked
|
||||
If Grid1.Locked Then
|
||||
ToolStripButton2.Text = "编辑主流程"
|
||||
Else
|
||||
ToolStripButton2.Text = "锁定主流程"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
1294
SQLliteReading/AUTS_Package/ZQ/Phobos/T1-PCBA_Test/ZQ_Phobos_T1_FrmStationTest.Designer.vb
generated
Normal file
1294
SQLliteReading/AUTS_Package/ZQ/Phobos/T1-PCBA_Test/ZQ_Phobos_T1_FrmStationTest.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,135 @@
|
||||
<?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="SerialPort1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>133, 54</value>
|
||||
</metadata>
|
||||
<metadata name="SerialPort2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>249, 54</value>
|
||||
</metadata>
|
||||
<metadata name="SerialPort3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>365, 54</value>
|
||||
</metadata>
|
||||
<metadata name="SerialPort4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>481, 54</value>
|
||||
</metadata>
|
||||
<metadata name="SerialPort5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>597, 54</value>
|
||||
</metadata>
|
||||
</root>
|
||||
File diff suppressed because it is too large
Load Diff
428
SQLliteReading/AUTS_Package/ZQ/Phobos/T2-FT/ZQ_Mars_P2_FrmStationPlan.Designer.vb
generated
Normal file
428
SQLliteReading/AUTS_Package/ZQ/Phobos/T2-FT/ZQ_Mars_P2_FrmStationPlan.Designer.vb
generated
Normal file
@@ -0,0 +1,428 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class ZQ_Phobos_T2_FrmStationPlan
|
||||
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(ZQ_Phobos_T2_FrmStationPlan))
|
||||
Me.MsiCopyNode = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MsiNodePaste = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.MsiUndo = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MsiRedo = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.MsiSaveNodeFile = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MsiLoadNodeFile = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugStart = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.TsBtnOpen = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TsBtnSave = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsBtnLoad = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TsBtnSaveAs = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.MsiCutNode = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.CmsPlanGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsmiDebugEnd = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugStep = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugContinue = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsmiDebugSetup = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugMain = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugPass = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugFail = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugCleanup = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsmiDebugNode = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugNodeBegin = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.StuMain = New System.Windows.Forms.StatusStrip()
|
||||
Me.DlgOpenFile = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.LblDesc = New System.Windows.Forms.Label()
|
||||
Me.GrdStationPlan = New FlexCell.Grid()
|
||||
Me.ToolStrip1.SuspendLayout
|
||||
Me.CmsPlanGrid.SuspendLayout
|
||||
CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
Me.SplitContainer1.Panel1.SuspendLayout
|
||||
Me.SplitContainer1.Panel2.SuspendLayout
|
||||
Me.SplitContainer1.SuspendLayout
|
||||
Me.GroupBox2.SuspendLayout
|
||||
Me.SuspendLayout
|
||||
'
|
||||
'MsiCopyNode
|
||||
'
|
||||
Me.MsiCopyNode.Enabled = false
|
||||
Me.MsiCopyNode.Name = "MsiCopyNode"
|
||||
Me.MsiCopyNode.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiCopyNode.Text = "复制"
|
||||
'
|
||||
'MsiNodePaste
|
||||
'
|
||||
Me.MsiNodePaste.Enabled = false
|
||||
Me.MsiNodePaste.Name = "MsiNodePaste"
|
||||
Me.MsiNodePaste.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiNodePaste.Text = "粘贴"
|
||||
'
|
||||
'ToolStripSeparator5
|
||||
'
|
||||
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
|
||||
Me.ToolStripSeparator5.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'MsiUndo
|
||||
'
|
||||
Me.MsiUndo.Enabled = false
|
||||
Me.MsiUndo.Name = "MsiUndo"
|
||||
Me.MsiUndo.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiUndo.Text = "撤销"
|
||||
'
|
||||
'MsiRedo
|
||||
'
|
||||
Me.MsiRedo.Enabled = false
|
||||
Me.MsiRedo.Name = "MsiRedo"
|
||||
Me.MsiRedo.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiRedo.Text = "重做"
|
||||
'
|
||||
'ToolStripSeparator6
|
||||
'
|
||||
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
|
||||
Me.ToolStripSeparator6.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'MsiSaveNodeFile
|
||||
'
|
||||
Me.MsiSaveNodeFile.Name = "MsiSaveNodeFile"
|
||||
Me.MsiSaveNodeFile.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiSaveNodeFile.Text = "另存为节点文件"
|
||||
'
|
||||
'MsiLoadNodeFile
|
||||
'
|
||||
Me.MsiLoadNodeFile.Name = "MsiLoadNodeFile"
|
||||
Me.MsiLoadNodeFile.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiLoadNodeFile.Text = "加载节点文件"
|
||||
'
|
||||
'TsmiDebugStart
|
||||
'
|
||||
Me.TsmiDebugStart.Name = "TsmiDebugStart"
|
||||
Me.TsmiDebugStart.ShortcutKeys = System.Windows.Forms.Keys.F1
|
||||
Me.TsmiDebugStart.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugStart.Text = "开始执行"
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GroupBox1.Font = New System.Drawing.Font("微软雅黑", 9.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(536, 561)
|
||||
Me.GroupBox1.TabIndex = 0
|
||||
Me.GroupBox1.TabStop = false
|
||||
Me.GroupBox1.Text = "常规预览"
|
||||
'
|
||||
'TsBtnOpen
|
||||
'
|
||||
Me.TsBtnOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.TsBtnOpen.Image = CType(resources.GetObject("TsBtnOpen.Image"),System.Drawing.Image)
|
||||
Me.TsBtnOpen.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnOpen.Name = "TsBtnOpen"
|
||||
Me.TsBtnOpen.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnOpen.Text = "打开"
|
||||
Me.TsBtnOpen.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
'
|
||||
'TsBtnSave
|
||||
'
|
||||
Me.TsBtnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.TsBtnSave.Image = CType(resources.GetObject("TsBtnSave.Image"),System.Drawing.Image)
|
||||
Me.TsBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnSave.Name = "TsBtnSave"
|
||||
Me.TsBtnSave.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnSave.Text = "保存"
|
||||
Me.TsBtnSave.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
'
|
||||
'ToolStripSeparator4
|
||||
'
|
||||
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
|
||||
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 36)
|
||||
'
|
||||
'TsBtnLoad
|
||||
'
|
||||
Me.TsBtnLoad.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.TsBtnLoad.Image = CType(resources.GetObject("TsBtnLoad.Image"),System.Drawing.Image)
|
||||
Me.TsBtnLoad.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnLoad.Name = "TsBtnLoad"
|
||||
Me.TsBtnLoad.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnLoad.Text = "重载"
|
||||
Me.TsBtnLoad.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
'
|
||||
'TsBtnSaveAs
|
||||
'
|
||||
Me.TsBtnSaveAs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.TsBtnSaveAs.Image = CType(resources.GetObject("TsBtnSaveAs.Image"),System.Drawing.Image)
|
||||
Me.TsBtnSaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnSaveAs.Name = "TsBtnSaveAs"
|
||||
Me.TsBtnSaveAs.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnSaveAs.Text = "导出"
|
||||
Me.TsBtnSaveAs.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
'
|
||||
'ToolStripSeparator3
|
||||
'
|
||||
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
|
||||
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 36)
|
||||
'
|
||||
'MsiCutNode
|
||||
'
|
||||
Me.MsiCutNode.Enabled = false
|
||||
Me.MsiCutNode.Name = "MsiCutNode"
|
||||
Me.MsiCutNode.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiCutNode.Text = "剪切"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsBtnOpen, Me.TsBtnSave, Me.ToolStripSeparator4, Me.TsBtnLoad, Me.TsBtnSaveAs, Me.ToolStripSeparator3})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(984, 36)
|
||||
Me.ToolStrip1.TabIndex = 7
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'CmsPlanGrid
|
||||
'
|
||||
Me.CmsPlanGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MsiCopyNode, Me.MsiCutNode, Me.MsiNodePaste, Me.ToolStripSeparator5, Me.MsiUndo, Me.MsiRedo, Me.ToolStripSeparator6, Me.MsiSaveNodeFile, Me.MsiLoadNodeFile, Me.ToolStripSeparator7, Me.TsmiDebugStart, Me.TsmiDebugEnd, Me.TsmiDebugStep, Me.TsmiDebugContinue, Me.ToolStripSeparator8, Me.TsmiDebugSetup, Me.TsmiDebugMain, Me.TsmiDebugPass, Me.TsmiDebugFail, Me.TsmiDebugCleanup, Me.ToolStripSeparator9, Me.TsmiDebugNode, Me.TsmiDebugNodeBegin})
|
||||
Me.CmsPlanGrid.Name = "CmsMain"
|
||||
Me.CmsPlanGrid.Size = New System.Drawing.Size(193, 430)
|
||||
'
|
||||
'ToolStripSeparator7
|
||||
'
|
||||
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
|
||||
Me.ToolStripSeparator7.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'TsmiDebugEnd
|
||||
'
|
||||
Me.TsmiDebugEnd.Name = "TsmiDebugEnd"
|
||||
Me.TsmiDebugEnd.ShortcutKeys = System.Windows.Forms.Keys.F2
|
||||
Me.TsmiDebugEnd.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugEnd.Text = "退出执行"
|
||||
'
|
||||
'TsmiDebugStep
|
||||
'
|
||||
Me.TsmiDebugStep.Name = "TsmiDebugStep"
|
||||
Me.TsmiDebugStep.ShortcutKeys = System.Windows.Forms.Keys.F3
|
||||
Me.TsmiDebugStep.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugStep.Text = "单步执行"
|
||||
'
|
||||
'TsmiDebugContinue
|
||||
'
|
||||
Me.TsmiDebugContinue.Name = "TsmiDebugContinue"
|
||||
Me.TsmiDebugContinue.ShortcutKeys = System.Windows.Forms.Keys.F4
|
||||
Me.TsmiDebugContinue.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugContinue.Text = "继续执行"
|
||||
'
|
||||
'ToolStripSeparator8
|
||||
'
|
||||
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
|
||||
Me.ToolStripSeparator8.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'TsmiDebugSetup
|
||||
'
|
||||
Me.TsmiDebugSetup.Name = "TsmiDebugSetup"
|
||||
Me.TsmiDebugSetup.ShortcutKeys = System.Windows.Forms.Keys.F5
|
||||
Me.TsmiDebugSetup.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugSetup.Text = "Setup模块执行"
|
||||
'
|
||||
'TsmiDebugMain
|
||||
'
|
||||
Me.TsmiDebugMain.Name = "TsmiDebugMain"
|
||||
Me.TsmiDebugMain.ShortcutKeys = System.Windows.Forms.Keys.F6
|
||||
Me.TsmiDebugMain.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugMain.Text = "Main模块执行"
|
||||
'
|
||||
'TsmiDebugPass
|
||||
'
|
||||
Me.TsmiDebugPass.Name = "TsmiDebugPass"
|
||||
Me.TsmiDebugPass.ShortcutKeys = System.Windows.Forms.Keys.F7
|
||||
Me.TsmiDebugPass.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugPass.Text = "Pass模块执行"
|
||||
'
|
||||
'TsmiDebugFail
|
||||
'
|
||||
Me.TsmiDebugFail.Name = "TsmiDebugFail"
|
||||
Me.TsmiDebugFail.ShortcutKeys = System.Windows.Forms.Keys.F8
|
||||
Me.TsmiDebugFail.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugFail.Text = "Fail模块执行"
|
||||
'
|
||||
'TsmiDebugCleanup
|
||||
'
|
||||
Me.TsmiDebugCleanup.Name = "TsmiDebugCleanup"
|
||||
Me.TsmiDebugCleanup.ShortcutKeys = System.Windows.Forms.Keys.F9
|
||||
Me.TsmiDebugCleanup.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugCleanup.Text = "Cleanup模块执行"
|
||||
'
|
||||
'ToolStripSeparator9
|
||||
'
|
||||
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
|
||||
Me.ToolStripSeparator9.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'TsmiDebugNode
|
||||
'
|
||||
Me.TsmiDebugNode.Name = "TsmiDebugNode"
|
||||
Me.TsmiDebugNode.ShortcutKeys = System.Windows.Forms.Keys.F10
|
||||
Me.TsmiDebugNode.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugNode.Text = "节点测试"
|
||||
'
|
||||
'TsmiDebugNodeBegin
|
||||
'
|
||||
Me.TsmiDebugNodeBegin.Name = "TsmiDebugNodeBegin"
|
||||
Me.TsmiDebugNodeBegin.ShortcutKeys = System.Windows.Forms.Keys.F11
|
||||
Me.TsmiDebugNodeBegin.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugNodeBegin.Text = "节点开始测试"
|
||||
'
|
||||
'StuMain
|
||||
'
|
||||
Me.StuMain.Location = New System.Drawing.Point(0, 539)
|
||||
Me.StuMain.Name = "StuMain"
|
||||
Me.StuMain.Size = New System.Drawing.Size(984, 22)
|
||||
Me.StuMain.TabIndex = 8
|
||||
Me.StuMain.Text = "StatusStrip1"
|
||||
'
|
||||
'DlgOpenFile
|
||||
'
|
||||
Me.DlgOpenFile.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer1.Name = "SplitContainer1"
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.GroupBox2)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(984, 561)
|
||||
Me.SplitContainer1.SplitterDistance = 444
|
||||
Me.SplitContainer1.TabIndex = 9
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.LblDesc)
|
||||
Me.GroupBox2.Controls.Add(Me.GrdStationPlan)
|
||||
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GroupBox2.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(444, 561)
|
||||
Me.GroupBox2.TabIndex = 0
|
||||
Me.GroupBox2.TabStop = false
|
||||
Me.GroupBox2.Text = "流程参数"
|
||||
'
|
||||
'LblDesc
|
||||
'
|
||||
Me.LblDesc.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.LblDesc.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.LblDesc.Location = New System.Drawing.Point(3, 497)
|
||||
Me.LblDesc.Name = "LblDesc"
|
||||
Me.LblDesc.Size = New System.Drawing.Size(438, 61)
|
||||
Me.LblDesc.TabIndex = 6
|
||||
'
|
||||
'GrdStationPlan
|
||||
'
|
||||
Me.GrdStationPlan.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
|
||||
Me.GrdStationPlan.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||
Me.GrdStationPlan.CheckedImage = Nothing
|
||||
Me.GrdStationPlan.ContextMenuStrip = Me.CmsPlanGrid
|
||||
Me.GrdStationPlan.DefaultFont = New System.Drawing.Font("宋体", 9!)
|
||||
Me.GrdStationPlan.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.GrdStationPlan.GridColor = System.Drawing.Color.FromArgb(CType(CType(192,Byte),Integer), CType(CType(192,Byte),Integer), CType(CType(192,Byte),Integer))
|
||||
Me.GrdStationPlan.Location = New System.Drawing.Point(0, 24)
|
||||
Me.GrdStationPlan.Name = "GrdStationPlan"
|
||||
Me.GrdStationPlan.Size = New System.Drawing.Size(441, 470)
|
||||
Me.GrdStationPlan.TabIndex = 4
|
||||
Me.GrdStationPlan.UncheckedImage = Nothing
|
||||
'
|
||||
'ZQ_Mars_P2_FrmStationPlan
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 12!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(984, 561)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.StuMain)
|
||||
Me.Controls.Add(Me.SplitContainer1)
|
||||
Me.Name = "ZQ_Mars_P2_FrmStationPlan"
|
||||
Me.Text = "ZQ_Mars_P2_FrmStationPlan"
|
||||
Me.ToolStrip1.ResumeLayout(false)
|
||||
Me.ToolStrip1.PerformLayout
|
||||
Me.CmsPlanGrid.ResumeLayout(false)
|
||||
Me.SplitContainer1.Panel1.ResumeLayout(false)
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(false)
|
||||
CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.SplitContainer1.ResumeLayout(false)
|
||||
Me.GroupBox2.ResumeLayout(false)
|
||||
Me.ResumeLayout(false)
|
||||
Me.PerformLayout
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents MsiCopyNode As ToolStripMenuItem
|
||||
Friend WithEvents MsiNodePaste As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
|
||||
Friend WithEvents MsiUndo As ToolStripMenuItem
|
||||
Friend WithEvents MsiRedo As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
|
||||
Friend WithEvents MsiSaveNodeFile As ToolStripMenuItem
|
||||
Friend WithEvents MsiLoadNodeFile As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugStart As ToolStripMenuItem
|
||||
Friend WithEvents GroupBox1 As GroupBox
|
||||
Friend WithEvents TsBtnOpen As ToolStripButton
|
||||
Friend WithEvents TsBtnSave As ToolStripButton
|
||||
Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
|
||||
Friend WithEvents TsBtnLoad As ToolStripButton
|
||||
Friend WithEvents TsBtnSaveAs As ToolStripButton
|
||||
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
|
||||
Friend WithEvents MsiCutNode As ToolStripMenuItem
|
||||
Friend WithEvents ToolStrip1 As ToolStrip
|
||||
Friend WithEvents CmsPlanGrid As ContextMenuStrip
|
||||
Friend WithEvents ToolStripSeparator7 As ToolStripSeparator
|
||||
Friend WithEvents TsmiDebugEnd As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugStep As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugContinue As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator8 As ToolStripSeparator
|
||||
Friend WithEvents TsmiDebugSetup As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugMain As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugPass As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugFail As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugCleanup As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator9 As ToolStripSeparator
|
||||
Friend WithEvents TsmiDebugNode As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugNodeBegin As ToolStripMenuItem
|
||||
Friend WithEvents StuMain As StatusStrip
|
||||
Friend WithEvents DlgOpenFile As OpenFileDialog
|
||||
Friend WithEvents SplitContainer1 As SplitContainer
|
||||
Friend WithEvents GroupBox2 As GroupBox
|
||||
Friend WithEvents LblDesc As Label
|
||||
Friend WithEvents GrdStationPlan As FlexCell.Grid
|
||||
End Class
|
||||
327
SQLliteReading/AUTS_Package/ZQ/Phobos/T2-FT/ZQ_Mars_P2_FrmStationTest.Designer.vb
generated
Normal file
327
SQLliteReading/AUTS_Package/ZQ/Phobos/T2-FT/ZQ_Mars_P2_FrmStationTest.Designer.vb
generated
Normal file
@@ -0,0 +1,327 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class ZQ_Phobos_T2_FrmStationTest
|
||||
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()
|
||||
Me.SerialPort1 = New System.IO.Ports.SerialPort(Me.components)
|
||||
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.timer_Rcvd_Timeout = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
Me.tss_CommPort = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.timer_AutoFindCommPort = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.txt_UpNum = New System.Windows.Forms.TextBox()
|
||||
Me.txt_testnum = New System.Windows.Forms.TextBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.txt_LooadNum = New System.Windows.Forms.TextBox()
|
||||
Me.TextBox3 = New System.Windows.Forms.TextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
|
||||
Me.StatusStrip1.SuspendLayout
|
||||
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.SuspendLayout
|
||||
'
|
||||
'SerialPort1
|
||||
'
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Me.Timer1.Enabled = true
|
||||
'
|
||||
'timer_Rcvd_Timeout
|
||||
'
|
||||
Me.timer_Rcvd_Timeout.Enabled = true
|
||||
Me.timer_Rcvd_Timeout.Interval = 1
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tss_CommPort})
|
||||
Me.StatusStrip1.Location = New System.Drawing.Point(0, 549)
|
||||
Me.StatusStrip1.Name = "StatusStrip1"
|
||||
Me.StatusStrip1.Size = New System.Drawing.Size(985, 22)
|
||||
Me.StatusStrip1.TabIndex = 0
|
||||
Me.StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'tss_CommPort
|
||||
'
|
||||
Me.tss_CommPort.AutoSize = false
|
||||
Me.tss_CommPort.Font = New System.Drawing.Font("微软雅黑", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.tss_CommPort.Name = "tss_CommPort"
|
||||
Me.tss_CommPort.Size = New System.Drawing.Size(80, 17)
|
||||
Me.tss_CommPort.Text = "COM1"
|
||||
'
|
||||
'timer_AutoFindCommPort
|
||||
'
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
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.Label6)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.txt_UpNum)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.txt_testnum)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.Label4)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.Label5)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.txt_LooadNum)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.TextBox3)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.Label3)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.TextBox2)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.Label2)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.Label1)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.TextBox1)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(985, 549)
|
||||
Me.SplitContainer1.SplitterDistance = 325
|
||||
Me.SplitContainer1.TabIndex = 1
|
||||
'
|
||||
'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.Label7)
|
||||
'
|
||||
'SplitContainer2.Panel2
|
||||
'
|
||||
Me.SplitContainer2.Panel2.Controls.Add(Me.RichTextBox1)
|
||||
Me.SplitContainer2.Size = New System.Drawing.Size(325, 549)
|
||||
Me.SplitContainer2.SplitterDistance = 260
|
||||
Me.SplitContainer2.TabIndex = 0
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Label7.Font = New System.Drawing.Font("宋体", 39.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline),System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.Label7.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(325, 260)
|
||||
Me.Label7.TabIndex = 29
|
||||
Me.Label7.Text = "0"
|
||||
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = true
|
||||
Me.Label6.Font = New System.Drawing.Font("宋体", 20!)
|
||||
Me.Label6.Location = New System.Drawing.Point(3, 274)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(161, 27)
|
||||
Me.Label6.TabIndex = 28
|
||||
Me.Label6.Text = "请确认称重:"
|
||||
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'txt_UpNum
|
||||
'
|
||||
Me.txt_UpNum.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txt_UpNum.Font = New System.Drawing.Font("宋体", 27!)
|
||||
Me.txt_UpNum.Location = New System.Drawing.Point(414, 324)
|
||||
Me.txt_UpNum.Name = "txt_UpNum"
|
||||
Me.txt_UpNum.ReadOnly = true
|
||||
Me.txt_UpNum.Size = New System.Drawing.Size(110, 49)
|
||||
Me.txt_UpNum.TabIndex = 27
|
||||
Me.txt_UpNum.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'txt_testnum
|
||||
'
|
||||
Me.txt_testnum.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txt_testnum.Font = New System.Drawing.Font("宋体", 27!)
|
||||
Me.txt_testnum.Location = New System.Drawing.Point(256, 324)
|
||||
Me.txt_testnum.Name = "txt_testnum"
|
||||
Me.txt_testnum.Size = New System.Drawing.Size(110, 49)
|
||||
Me.txt_testnum.TabIndex = 26
|
||||
Me.txt_testnum.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = true
|
||||
Me.Label4.Font = New System.Drawing.Font("宋体", 27.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.Label4.Location = New System.Drawing.Point(372, 330)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(36, 37)
|
||||
Me.Label4.TabIndex = 25
|
||||
Me.Label4.Text = ">"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = true
|
||||
Me.Label5.Font = New System.Drawing.Font("宋体", 27.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.Label5.Location = New System.Drawing.Point(214, 330)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(36, 37)
|
||||
Me.Label5.TabIndex = 24
|
||||
Me.Label5.Text = "<"
|
||||
'
|
||||
'txt_LooadNum
|
||||
'
|
||||
Me.txt_LooadNum.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txt_LooadNum.Font = New System.Drawing.Font("宋体", 27!)
|
||||
Me.txt_LooadNum.Location = New System.Drawing.Point(98, 324)
|
||||
Me.txt_LooadNum.Name = "txt_LooadNum"
|
||||
Me.txt_LooadNum.ReadOnly = true
|
||||
Me.txt_LooadNum.Size = New System.Drawing.Size(110, 49)
|
||||
Me.txt_LooadNum.TabIndex = 23
|
||||
Me.txt_LooadNum.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'TextBox3
|
||||
'
|
||||
Me.TextBox3.Font = New System.Drawing.Font("宋体", 28!)
|
||||
Me.TextBox3.Location = New System.Drawing.Point(184, 184)
|
||||
Me.TextBox3.Name = "TextBox3"
|
||||
Me.TextBox3.Size = New System.Drawing.Size(450, 50)
|
||||
Me.TextBox3.TabIndex = 5
|
||||
Me.TextBox3.Text = "CTHM08711382252604947"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = true
|
||||
Me.Label3.Font = New System.Drawing.Font("宋体", 20!)
|
||||
Me.Label3.Location = New System.Drawing.Point(3, 196)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(191, 27)
|
||||
Me.Label3.TabIndex = 4
|
||||
Me.Label3.Text = "请确认DUT_SN:"
|
||||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Font = New System.Drawing.Font("宋体", 28!)
|
||||
Me.TextBox2.Location = New System.Drawing.Point(184, 99)
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(450, 50)
|
||||
Me.TextBox2.TabIndex = 3
|
||||
Me.TextBox2.Text = "CTHM08711382252604947"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = true
|
||||
Me.Label2.Font = New System.Drawing.Font("宋体", 20!)
|
||||
Me.Label2.Location = New System.Drawing.Point(3, 111)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(188, 27)
|
||||
Me.Label2.TabIndex = 2
|
||||
Me.Label2.Text = "请输入彩盒码:"
|
||||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = true
|
||||
Me.Label1.Location = New System.Drawing.Point(3, 54)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(83, 12)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "打印模板路径:"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Label1.Visible = false
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(87, 51)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.ReadOnly = true
|
||||
Me.TextBox1.Size = New System.Drawing.Size(547, 21)
|
||||
Me.TextBox1.TabIndex = 0
|
||||
Me.TextBox1.Visible = false
|
||||
'
|
||||
'RichTextBox1
|
||||
'
|
||||
Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.RichTextBox1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.RichTextBox1.Name = "RichTextBox1"
|
||||
Me.RichTextBox1.Size = New System.Drawing.Size(325, 285)
|
||||
Me.RichTextBox1.TabIndex = 2
|
||||
Me.RichTextBox1.Text = ""
|
||||
'
|
||||
'ZQ_Mars_P2_FrmStationTest
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 12!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(985, 571)
|
||||
Me.Controls.Add(Me.SplitContainer1)
|
||||
Me.Controls.Add(Me.StatusStrip1)
|
||||
Me.Name = "ZQ_Mars_P2_FrmStationTest"
|
||||
Me.Text = "ZQ_Mars_P2_FrmStationTest"
|
||||
Me.StatusStrip1.ResumeLayout(false)
|
||||
Me.StatusStrip1.PerformLayout
|
||||
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.Panel2.ResumeLayout(false)
|
||||
CType(Me.SplitContainer2,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.SplitContainer2.ResumeLayout(false)
|
||||
Me.ResumeLayout(false)
|
||||
Me.PerformLayout
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents SerialPort1 As IO.Ports.SerialPort
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents timer_Rcvd_Timeout As Timer
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents tss_CommPort As ToolStripStatusLabel
|
||||
Friend WithEvents timer_AutoFindCommPort As Timer
|
||||
Friend WithEvents SplitContainer1 As SplitContainer
|
||||
Friend WithEvents SplitContainer2 As SplitContainer
|
||||
Friend WithEvents TextBox3 As TextBox
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents TextBox2 As TextBox
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents TextBox1 As TextBox
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents txt_UpNum As TextBox
|
||||
Friend WithEvents txt_testnum As TextBox
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents txt_LooadNum As TextBox
|
||||
Friend WithEvents RichTextBox1 As RichTextBox
|
||||
End Class
|
||||
37
SQLliteReading/AUTS_Package/ZQ/Phobos/T2-FT/ZQ_Phobos_T2_FrmStationPlan.Designer.vb
generated
Normal file
37
SQLliteReading/AUTS_Package/ZQ/Phobos/T2-FT/ZQ_Phobos_T2_FrmStationPlan.Designer.vb
generated
Normal file
@@ -0,0 +1,37 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class ZQ_Phobos_T2_FrmStationPlan
|
||||
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.SuspendLayout()
|
||||
'
|
||||
'ZQ_Phobos_T2_FT_FrmStationPlan
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(809, 459)
|
||||
Me.Name = "ZQ_Phobos_T2_FT_FrmStationPlan"
|
||||
Me.Text = "ZQ_Phobos_T2_FT_FrmStationPlan"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,120 @@
|
||||
<?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>
|
||||
</root>
|
||||
@@ -0,0 +1,38 @@
|
||||
Imports UTS_Core.DebugLog
|
||||
Imports UTS_Core.UTSModule
|
||||
Imports UTS_Core.UTSModule.Station
|
||||
|
||||
Public Class ZQ_Phobos_T2_FrmStationPlan
|
||||
#Region "框架部分 要放在最前段"
|
||||
Implements IProcessStation
|
||||
|
||||
Private _utsApp As UtsAppForm
|
||||
Private _stationPlan As StationPackagePlan
|
||||
Public Sub Station_Changed() Implements IProcessStation.StationChanged
|
||||
ApplicationLog.WriteInfoLog($"编辑页面站位变更中，PN：{_utsApp.ProcessStation.ParentProject.Name} - SN:{_utsApp.ProcessStation.Name} - TP:{_utsApp.ProcessStation.Packet.Name}!")
|
||||
|
||||
Try
|
||||
_stationPlan = CType(_utsApp.ProcessStation.Packet.StationPlan, StationPackagePlan)
|
||||
Catch ex As Exception
|
||||
MsgBox($"加载项目流程失败,{ex.Message}")
|
||||
End Try
|
||||
|
||||
'InitGrid(_stationPlan)
|
||||
|
||||
ApplicationLog.WriteInfoLog($"编辑页面站位变更完成。")
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub ShowForm(parentControl As Control)
|
||||
FormBorderStyle = FormBorderStyle.None
|
||||
TopLevel = False
|
||||
Dock = DockStyle.Fill
|
||||
Parent = parentControl
|
||||
|
||||
Show()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
78
SQLliteReading/AUTS_Package/ZQ/Phobos/T2-FT/ZQ_Phobos_T2_FrmStationTest.Designer.vb
generated
Normal file
78
SQLliteReading/AUTS_Package/ZQ/Phobos/T2-FT/ZQ_Phobos_T2_FrmStationTest.Designer.vb
generated
Normal file
@@ -0,0 +1,78 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class ZQ_Phobos_T2_FrmStationTest
|
||||
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()
|
||||
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
Me.tss_CommPort = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.timer_Rcvd_Timeout = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.timer_AutoFindCommPort = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.SerialPort1 = New System.IO.Ports.SerialPort(Me.components)
|
||||
Me.SerialPort2 = New System.IO.Ports.SerialPort(Me.components)
|
||||
Me.StatusStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tss_CommPort})
|
||||
Me.StatusStrip1.Location = New System.Drawing.Point(0, 428)
|
||||
Me.StatusStrip1.Name = "StatusStrip1"
|
||||
Me.StatusStrip1.Size = New System.Drawing.Size(800, 22)
|
||||
Me.StatusStrip1.TabIndex = 1
|
||||
Me.StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'tss_CommPort
|
||||
'
|
||||
Me.tss_CommPort.AutoSize = False
|
||||
Me.tss_CommPort.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.tss_CommPort.Name = "tss_CommPort"
|
||||
Me.tss_CommPort.Size = New System.Drawing.Size(80, 17)
|
||||
Me.tss_CommPort.Text = "COM1"
|
||||
'
|
||||
'timer_Rcvd_Timeout
|
||||
'
|
||||
Me.timer_Rcvd_Timeout.Enabled = True
|
||||
Me.timer_Rcvd_Timeout.Interval = 1
|
||||
'
|
||||
'ZQ_Phobos_T2_FT_FrmStartionTest
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(800, 450)
|
||||
Me.Controls.Add(Me.StatusStrip1)
|
||||
Me.Name = "ZQ_Phobos_T2_FT_FrmStartionTest"
|
||||
Me.Text = "ZQ_Phobos_T2_FT"
|
||||
Me.StatusStrip1.ResumeLayout(False)
|
||||
Me.StatusStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents tss_CommPort As ToolStripStatusLabel
|
||||
Friend WithEvents timer_Rcvd_Timeout As Timer
|
||||
Friend WithEvents timer_AutoFindCommPort As Timer
|
||||
Friend WithEvents SerialPort1 As IO.Ports.SerialPort
|
||||
Friend WithEvents SerialPort2 As IO.Ports.SerialPort
|
||||
End Class
|
||||
@@ -0,0 +1,138 @@
|
||||
<?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="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="timer_Rcvd_Timeout.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>150, 19</value>
|
||||
</metadata>
|
||||
<metadata name="timer_AutoFindCommPort.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>321, 19</value>
|
||||
</metadata>
|
||||
<metadata name="SerialPort1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>-558, 58</value>
|
||||
</metadata>
|
||||
<metadata name="SerialPort2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>-442, 58</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>174</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,217 @@
|
||||
Imports System.IO
|
||||
Imports System.IO.Ports
|
||||
Imports UTS_Core.DebugLog
|
||||
Imports UTS_Core.UTSModule
|
||||
Imports UTS_Core.UTSModule.Station
|
||||
|
||||
Public Class ZQ_Phobos_T2_FrmStationTest
|
||||
#Region "框架部分 要放在最前段"
|
||||
Implements IProcessStation
|
||||
|
||||
Private _utsApp As UtsAppForm
|
||||
Private _stationPlan As StationPackagePlan
|
||||
Public Sub Station_Changed() Implements IProcessStation.StationChanged
|
||||
ApplicationLog.WriteInfoLog($"编辑页面站位变更中，PN：{_utsApp.ProcessStation.ParentProject.Name} - SN:{_utsApp.ProcessStation.Name} - TP:{_utsApp.ProcessStation.Packet.Name}!")
|
||||
|
||||
Try
|
||||
_stationPlan = CType(_utsApp.ProcessStation.Packet.StationPlan, StationPackagePlan)
|
||||
Catch ex As Exception
|
||||
MsgBox($"加载项目流程失败,{ex.Message}")
|
||||
End Try
|
||||
|
||||
'InitGrid(_stationPlan)
|
||||
|
||||
ApplicationLog.WriteInfoLog($"编辑页面站位变更完成。")
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub ShowForm(parentControl As Control)
|
||||
FormBorderStyle = FormBorderStyle.None
|
||||
TopLevel = False
|
||||
Dock = DockStyle.Fill
|
||||
Parent = parentControl
|
||||
|
||||
Show()
|
||||
End Sub
|
||||
#End Region
|
||||
#Region "SerialPort"
|
||||
|
||||
''' <summary>
|
||||
''' 电子秤数据结构体
|
||||
''' </summary>
|
||||
Private Structure ScaleData_Strut
|
||||
Dim isStable As ScaleIsStable_Enum '是否稳定
|
||||
Dim weight_g As Double '重量，以 g 为单位
|
||||
Dim weight_unit As ScaleUnit_Enum '重量单位
|
||||
Dim isDataReady As Boolean '数据是否可用
|
||||
Dim updateCnt As ULong '更新计数
|
||||
End Structure
|
||||
|
||||
''' <summary>
|
||||
''' 电子秤读回数据是否稳定枚举
|
||||
''' </summary>
|
||||
Private Enum ScaleIsStable_Enum
|
||||
stable
|
||||
unstable
|
||||
End Enum
|
||||
|
||||
''' <summary>
|
||||
''' 电子秤读回数据单位枚举
|
||||
''' </summary>
|
||||
Private Enum ScaleUnit_Enum
|
||||
g
|
||||
kg
|
||||
End Enum
|
||||
''' <summary>
|
||||
''' 串口打开关闭状态枚举
|
||||
''' </summary>
|
||||
Private Enum OpenClose_Enum
|
||||
Close
|
||||
Open
|
||||
End Enum
|
||||
|
||||
''' <summary>
|
||||
''' 自动重连状态机枚举
|
||||
''' </summary>
|
||||
Private Enum AutoConnectComportStatus_Enum
|
||||
Unknow
|
||||
Connected
|
||||
Disconnected
|
||||
reConnecting
|
||||
End Enum
|
||||
|
||||
Dim g_ScaleData As ScaleData_Strut '电子秤数据
|
||||
Dim g_strRcvd As String = "" '当前串口接收到的数据
|
||||
Dim g_isScal_Connected As Boolean = False '电子秤是连接到主机
|
||||
Dim g_LastRcvdData_TimePoint As DateTime
|
||||
|
||||
Dim g_LastRcvdDataCnt As ULong '保存上一次串口数据接收计数，用于判断是否收到新的串口数据
|
||||
Dim g_NoRcvdData_Cnt As Integer = 0 '未收到串口数据计数，每100mS更新一次
|
||||
Dim g_LstCommPort As List(Of String) = New List(Of String) '用于保存串口列表
|
||||
Dim g_port_pointer_for_AutoConnect As Integer = 0 '在自动连接时，逐个串口尝试连接
|
||||
Dim g_Current_AutoConnectStatus As AutoConnectComportStatus_Enum = AutoConnectComportStatus_Enum.Unknow '当前自动连接状态
|
||||
|
||||
''' <summary>
|
||||
''' 100mS 时钟，用于维护串口连接状态
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
Private Sub timer_AutoFindCommPort_Tick(sender As Object, e As EventArgs) Handles timer_AutoFindCommPort.Tick
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 更新可用串口列表
|
||||
''' </summary>
|
||||
''' <param name="lstPortName">返回串口列表</param>
|
||||
''' <returns>返回寻找可用串口数量</returns>
|
||||
Private Function UpdateCommportList(ByRef lstPortName As List(Of String)) As Integer
|
||||
lstPortName.Clear()
|
||||
Dim portNames As String() = Ports.SerialPort.GetPortNames
|
||||
lstPortName.AddRange（portNames）
|
||||
|
||||
Return lstPortName.Count
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' 打开或关闭串口
|
||||
''' </summary>
|
||||
''' <param name="comportName"> 串口名称</param>
|
||||
''' <param name="openClose">打开或关闭串口</param>
|
||||
''' <returns>操作成功返回true，否则返回false </returns>
|
||||
Private Function OpenClose_CommPort(comportName As String, openClose As OpenClose_Enum) As Boolean
|
||||
'关闭串口
|
||||
If SerialPort1.IsOpen = True Then
|
||||
SerialPort1.Close()
|
||||
End If
|
||||
|
||||
If openClose = OpenClose_Enum.Close Then
|
||||
Return Not SerialPort1.IsOpen
|
||||
Else
|
||||
'打开串口
|
||||
SerialPort1.PortName = comportName
|
||||
SerialPort1.Open()
|
||||
Return SerialPort1.IsOpen
|
||||
End If
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' 串口接收事件
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
|
||||
'收到数据
|
||||
If SerialPort1.ReadBufferSize > 0 Then
|
||||
g_strRcvd += SerialPort1.ReadLine
|
||||
g_LastRcvdData_TimePoint = DateTime.Now
|
||||
End If
|
||||
|
||||
'ST,NT,+ 197.9 g
|
||||
'US,NT,+ 197.4 g
|
||||
'US,NT,+ 197.4 g
|
||||
'收到换行符号或长度大于=18
|
||||
If Microsoft.VisualBasic.Right(g_strRcvd, 2) = vbCrLf OrElse g_strRcvd.Length >= 18 Then
|
||||
'以长度为判断依据
|
||||
If g_strRcvd.Length = 18 Then
|
||||
'判断稳定状态
|
||||
Dim tmpStableStr As String = Microsoft.VisualBasic.Mid(g_strRcvd, 6, 2).Trim
|
||||
If tmpStableStr = "ST" Then
|
||||
'稳定
|
||||
g_ScaleData.isStable = ScaleIsStable_Enum.stable
|
||||
g_ScaleData.isDataReady = False
|
||||
ElseIf tmpStableStr = "US" Then
|
||||
'不稳定
|
||||
g_ScaleData.isStable = ScaleIsStable_Enum.unstable
|
||||
g_ScaleData.isDataReady = False
|
||||
Else
|
||||
'非法数据
|
||||
g_strRcvd = ""
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
'判断单位
|
||||
Dim tmpUnit As String = Microsoft.VisualBasic.Mid(g_strRcvd, 20, 2).Trim
|
||||
If tmpUnit = "g" Then
|
||||
g_ScaleData.weight_unit = ScaleUnit_Enum.g
|
||||
ElseIf tmpUnit = "kg" Then
|
||||
g_ScaleData.weight_unit = ScaleUnit_Enum.kg
|
||||
Else
|
||||
'非法数据
|
||||
g_strRcvd = ""
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
'计算重量
|
||||
Dim tmpWeight As String = Microsoft.VisualBasic.Mid(g_strRcvd, 13, 7).Trim
|
||||
If Double.TryParse(tmpWeight, g_ScaleData.weight_g) Then
|
||||
If g_ScaleData.weight_unit = ScaleUnit_Enum.kg Then g_ScaleData.weight_g = g_ScaleData.weight_g * 1000
|
||||
Else
|
||||
'非法数据
|
||||
g_strRcvd = ""
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
g_ScaleData.updateCnt = CULng(g_ScaleData.updateCnt + 1) '有效计数 +1
|
||||
g_ScaleData.isDataReady = True '数据就绪
|
||||
g_isScal_Connected = True '电子秤已连接
|
||||
End If
|
||||
|
||||
g_strRcvd = ""
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 串口接收超时计数，每1mS中断判断一次，超时大于80mS就将缓冲区数据抛弃
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
Private Sub timer_Rcvd_Timeout_Tick(sender As Object, e As EventArgs) Handles timer_Rcvd_Timeout.Tick
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
End Class
|
||||
Reference in New Issue
Block a user