382 lines
12 KiB
VB.net
382 lines
12 KiB
VB.net
|
Imports System.Text
|
|||
|
|
Imports UTS_Core.UTSModule
|
|||
|
|
Imports UTS_Core.UTSModule.Station
|
|||
|
|
Imports UTS_Core.UTSModule.Test
|
|||
|
|
|
|||
|
|
Public Class FrmMain
|
|||
|
|
Implements IProcessStation
|
|||
|
|
Implements IProductionLine
|
|||
|
|
|
|||
|
|
Private _utsApp As UtsAppForm
|
|||
|
|
|
|||
|
|
Private _txtList As New List(Of TextBox)
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 条码总数
|
|||
|
|
''' </summary>
|
|||
|
|
Private _barCodeCount As Integer
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 测试总数
|
|||
|
|
''' </summary>
|
|||
|
|
Private _testCount As Integer = 0
|
|||
|
|
''' <summary>
|
|||
|
|
''' 测试成功总数
|
|||
|
|
''' </summary>
|
|||
|
|
Private _testFailCount As Integer = 0
|
|||
|
|
''' <summary>
|
|||
|
|
''' 测试失败总数
|
|||
|
|
''' </summary>
|
|||
|
|
Private _testPassCount As Integer = 0
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Sub ProductionLineChanged() Implements IProductionLine.ProductionLineChanged
|
|||
|
|
TssLblProductionLine.Text = CboProductionLines.Text
|
|||
|
|
|
|||
|
|
My.Settings.ProductionLine = CboProductionLines.Text
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub StationChanged() Implements IProcessStation.StationChanged
|
|||
|
|
My.Settings.Project = _utsApp.ProcessStation.ParentProject.Name
|
|||
|
|
My.Settings.ProcessStation = _utsApp.ProcessStation.Name
|
|||
|
|
|
|||
|
|
UpdateStation(_utsApp.ProcessStation.ParentProject.Name, _utsApp.ProcessStation.Name)
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub UpdateStation(projectName As String, stationName As String)
|
|||
|
|
If String.IsNullOrWhiteSpace(projectName) OrElse
|
|||
|
|
String.IsNullOrWhiteSpace(stationName) Then
|
|||
|
|
TssLblStaion.Text = $"Invalid Station"
|
|||
|
|
Else
|
|||
|
|
TssLblStaion.Text = $"{projectName} - {stationName}"
|
|||
|
|
lab_ModelName.Text = $"{projectName} - {stationName}"
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|||
|
|
'自动保存设置
|
|||
|
|
My.Application.SaveMySettingsOnExit = True
|
|||
|
|
|
|||
|
|
'初始化UTS窗体信息,失败则关闭窗体
|
|||
|
|
If InitializeUtsApp() = False Then Return
|
|||
|
|
|
|||
|
|
'初始化界面信息
|
|||
|
|
InitializeForm()
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Function InitializeUtsApp() As Boolean
|
|||
|
|
_utsApp = UtsAppForm.CreateSingleton()
|
|||
|
|
|
|||
|
|
Try
|
|||
|
|
If _utsApp.IsInitialized = False Then
|
|||
|
|
_utsApp.AddStatisticsObserver(Me)
|
|||
|
|
_utsApp.Initialize(ProcessStation.StationTypeEnum.Assem)
|
|||
|
|
_utsApp.LoadStation(My.Settings.Project, My.Settings.ProcessStation)
|
|||
|
|
End If
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MsgBox($"Initialize UtsForm Error:{ex.Message}")
|
|||
|
|
Close()
|
|||
|
|
Return False
|
|||
|
|
End Try
|
|||
|
|
|
|||
|
|
Return True
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Private Sub InitializeForm()
|
|||
|
|
'初始化产线信息
|
|||
|
|
CboProductionLines.Items.Clear()
|
|||
|
|
CboProductionLines.Items.AddRange(_utsApp.ProductionLines.GetLineNames())
|
|||
|
|
CboProductionLines.SelectedIndex = CboProductionLines.Items.IndexOf(My.Settings.ProductionLine)
|
|||
|
|
|
|||
|
|
_txtList.Clear()
|
|||
|
|
_txtList.Add(TxtFirstRecord)
|
|||
|
|
_txtList.Add(TxtSecondRecord)
|
|||
|
|
_txtList.Add(TxtThirdRecord)
|
|||
|
|
_txtList.Add(TxtFourthRecord)
|
|||
|
|
_txtList.Add(TxtFifthRecord)
|
|||
|
|
|
|||
|
|
RtxLog.Clear()
|
|||
|
|
|
|||
|
|
_barCodeCount = My.Settings.BarCount
|
|||
|
|
If _barCodeCount < 1 Then _barCodeCount = 1
|
|||
|
|
If _barCodeCount > 4 Then _barCodeCount = 4
|
|||
|
|
Select Case _barCodeCount
|
|||
|
|
Case 1
|
|||
|
|
RadSingle.Checked = True
|
|||
|
|
Case 2
|
|||
|
|
RadTwo.Checked = True
|
|||
|
|
Case 3
|
|||
|
|
RadThree.Checked = True
|
|||
|
|
Case 4
|
|||
|
|
RadFour.Checked = True
|
|||
|
|
End Select
|
|||
|
|
|
|||
|
|
Text = $"{Application.ProductName} {Application.ProductVersion} User:{_utsApp.Account.UserName}"
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub CboProductionLines_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProductionLines.SelectedIndexChanged
|
|||
|
|
ProductionLineChanged()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub BtnOpenProject_Click(sender As Object, e As EventArgs) Handles BtnOpenProject.Click
|
|||
|
|
Try
|
|||
|
|
_utsApp.ChangeStation()
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MsgBox($"ChangeStation Error:{ex.Message}")
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub Tb_FirstRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtFirstRecord.KeyDown
|
|||
|
|
If e.KeyCode = Keys.Enter Then
|
|||
|
|
|
|||
|
|
e.SuppressKeyPress = True
|
|||
|
|
e.Handled = True
|
|||
|
|
|
|||
|
|
TxtSecondRecord.Focus()
|
|||
|
|
TxtSecondRecord.SelectAll()
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Tb_SecondRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtSecondRecord.KeyDown
|
|||
|
|
If e.KeyCode <> Keys.Enter Then Return
|
|||
|
|
|
|||
|
|
e.SuppressKeyPress = True
|
|||
|
|
e.Handled = True
|
|||
|
|
|
|||
|
|
If _barCodeCount > 1 Then
|
|||
|
|
TxtThirdRecord.Focus()
|
|||
|
|
TxtThirdRecord.SelectAll()
|
|||
|
|
Else
|
|||
|
|
'此处为单个条码对应的执行逻辑
|
|||
|
|
SaveTestResult()
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub TxtThirdRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtThirdRecord.KeyDown
|
|||
|
|
If e.KeyCode <> Keys.Enter Then Return
|
|||
|
|
|
|||
|
|
e.SuppressKeyPress = True
|
|||
|
|
e.Handled = True
|
|||
|
|
|
|||
|
|
If _barCodeCount > 2 Then
|
|||
|
|
TxtFourthRecord.Focus()
|
|||
|
|
TxtFourthRecord.SelectAll()
|
|||
|
|
Else
|
|||
|
|
SaveTestResult()
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub TxtFourthRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtFourthRecord.KeyDown
|
|||
|
|
If e.KeyCode <> Keys.Enter Then Return
|
|||
|
|
|
|||
|
|
e.SuppressKeyPress = True
|
|||
|
|
e.Handled = True
|
|||
|
|
|
|||
|
|
If _barCodeCount > 3 Then
|
|||
|
|
TxtFifthRecord.Focus()
|
|||
|
|
TxtFifthRecord.SelectAll()
|
|||
|
|
Else
|
|||
|
|
SaveTestResult()
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub TxtFifthRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtFifthRecord.KeyDown
|
|||
|
|
If e.KeyCode <> Keys.Enter Then Return
|
|||
|
|
|
|||
|
|
e.SuppressKeyPress = True
|
|||
|
|
e.Handled = True
|
|||
|
|
|
|||
|
|
If _barCodeCount > 4 Then
|
|||
|
|
MsgBox("条码达到上限,请重新选择条码数")
|
|||
|
|
Else
|
|||
|
|
SaveTestResult()
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub BtnStartProgramming_Click(sender As Object, e As EventArgs) Handles BtnStartProgramming.Click
|
|||
|
|
SaveTestResult()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub SaveTestResult()
|
|||
|
|
If _utsApp.ProcessStation Is Nothing Then
|
|||
|
|
MsgBox($"请选择项目与测试站后再尝试录入！")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If String.IsNullOrWhiteSpace(CboProductionLines.Text) Then
|
|||
|
|
MsgBox($"请选择生产线后再尝试录入！")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If String.IsNullOrWhiteSpace(TxtFirstRecord.Text) Then
|
|||
|
|
MsgBox($"请输入成品序号！")
|
|||
|
|
TxtFirstRecord.Focus()
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Dim snMain As String = TxtFirstRecord.Text
|
|||
|
|
Dim sb As New StringBuilder
|
|||
|
|
Dim snLst As New List(Of String)
|
|||
|
|
snLst.Add(TxtFirstRecord.Text)
|
|||
|
|
|
|||
|
|
For i As Integer = 1 To _barCodeCount
|
|||
|
|
If String.IsNullOrWhiteSpace(_txtList(i).Text) Then
|
|||
|
|
MsgBox($"请输入第 [{i}] 个其他序号！")
|
|||
|
|
_txtList(i).Focus()
|
|||
|
|
Return
|
|||
|
|
Else
|
|||
|
|
If snLst.Contains(_txtList(i).Text) Then
|
|||
|
|
MsgBox($"第 [{i}] 个序号 [{_txtList(i).Text}] 与已有序号重复,请重新输入！")
|
|||
|
|
_txtList(i).SelectAll()
|
|||
|
|
_txtList(i).Focus()
|
|||
|
|
Return
|
|||
|
|
Else
|
|||
|
|
snLst.Add(_txtList(i).Text)
|
|||
|
|
sb.Append($"{_txtList(i).Text},")
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
Dim assemblyString As String = sb.ToString()
|
|||
|
|
|
|||
|
|
If assemblyString.Length >= 128 Then
|
|||
|
|
MsgBox($"整机序号超过128个字符,无法录入,请联系管理员！")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
assemblyString = assemblyString.Replace("，"c, ",")
|
|||
|
|
If assemblyString.EndsWith(","c) OrElse assemblyString.EndsWith("，"c) Then
|
|||
|
|
assemblyString = assemblyString.Substring(0, assemblyString.Length - 1)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Dim saveDb As Boolean
|
|||
|
|
Try
|
|||
|
|
FillTestResult(snMain, assemblyString)
|
|||
|
|
_utsApp.CommitTestResult(uniqueRecord:=True)
|
|||
|
|
|
|||
|
|
DbConnect.DbConnector.SaveOtherSn(snLst, _utsApp.ProcessStation, _utsApp.TestResult)
|
|||
|
|
|
|||
|
|
saveDb = True
|
|||
|
|
Catch ex As Exception
|
|||
|
|
MsgBox($"测试结果录入失败：{ex.Message}")
|
|||
|
|
saveDb = False
|
|||
|
|
End Try
|
|||
|
|
|
|||
|
|
Static inputCount As Integer = 0
|
|||
|
|
inputCount += 1 : If inputCount > 9999 Then inputCount = 0
|
|||
|
|
RtxLog.SelectionStart = 0
|
|||
|
|
RtxLog.SelectionLength = RtxLog.TextLength
|
|||
|
|
RtxLog.SelectionColor = Color.Gray
|
|||
|
|
|
|||
|
|
If saveDb Then
|
|||
|
|
lab_Result.ForeColor = Color.Green
|
|||
|
|
lab_Result.Text = $"{snMain}-Pass"
|
|||
|
|
|
|||
|
|
RtxLog.SelectionStart = RtxLog.TextLength
|
|||
|
|
RtxLog.SelectionColor = Color.Green
|
|||
|
|
AppendRecord($"{inputCount:D4}.BarcodeSn:{snMain},AssemblySn:{assemblyString},录入成功！")
|
|||
|
|
_testPassCount += 1
|
|||
|
|
Else
|
|||
|
|
lab_Result.ForeColor = Color.Red
|
|||
|
|
lab_Result.Text = $"{snMain}-Fail"
|
|||
|
|
|
|||
|
|
RtxLog.SelectionStart = RtxLog.TextLength
|
|||
|
|
RtxLog.SelectionColor = Color.Red
|
|||
|
|
AppendRecord($"{inputCount:D4}.BarcodeSn:{snMain},AssemblySn:{assemblyString},录入失败！")
|
|||
|
|
_testFailCount += 1
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
_testCount += 1
|
|||
|
|
|
|||
|
|
TssLblPassCount.Text = "Pass:" & _testPassCount.ToString
|
|||
|
|
TssLblFailCount.Text = "Fail:" & _testFailCount.ToString
|
|||
|
|
TsLblCheckSum.Text = "Sum:" & _testCount.ToString
|
|||
|
|
TssLblYield.Text = "Yield:" & (_testPassCount / _testCount * 100).ToString("F2") & "%"
|
|||
|
|
|
|||
|
|
TxtFirstRecord.Focus()
|
|||
|
|
TxtFirstRecord.SelectAll()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub AppendRecord(logString As String)
|
|||
|
|
If RtxLog.InvokeRequired Then '判断是否需要开委托
|
|||
|
|
RtxLog.Invoke(New Action(Of String)(AddressOf AppendRecord), New Object() {logString})
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
With RtxLog
|
|||
|
|
If .Lines.Length > 256 Then '超过上限则移除最初行内容
|
|||
|
|
.ReadOnly = False
|
|||
|
|
.SelectionStart = 0
|
|||
|
|
.SelectionLength = .GetFirstCharIndexFromLine(1)
|
|||
|
|
.SelectedText = String.Empty
|
|||
|
|
.ReadOnly = True
|
|||
|
|
.SelectionStart = .TextLength
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
.AppendText($"{Now:yyyy:MM:dd HH:mm:ss} - {logString}{vbNewLine}")
|
|||
|
|
|
|||
|
|
.ScrollToCaret()
|
|||
|
|
End With
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 填充测试记录内容，每个应用程序这个部分有所差异
|
|||
|
|
''' </summary>
|
|||
|
|
Public Sub FillTestResult(barcodeString As String, assemblyString As String)
|
|||
|
|
_utsApp.TestResult.ResetTestResult()
|
|||
|
|
|
|||
|
|
'产线索引
|
|||
|
|
Dim lineID As Integer = _utsApp.ProductionLines(CboProductionLines.Text).ID
|
|||
|
|
_utsApp.TestResult.ProductionLineID = lineID
|
|||
|
|
|
|||
|
|
|
|||
|
|
'测试开始时间
|
|||
|
|
_utsApp.TestResult.StartTime = Now
|
|||
|
|
_utsApp.TestResult.DUT_SN = barcodeString
|
|||
|
|
_utsApp.TestResult.TestResult = TestResult.TestResultEnum.Pass
|
|||
|
|
|
|||
|
|
'自定义字段
|
|||
|
|
_utsApp.TestResult.AddCustomRecord("AssemblySn", $"{assemblyString}")
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub RadSingle_CheckedChanged(sender As Object, e As EventArgs) Handles RadTwo.CheckedChanged, RadThree.CheckedChanged, RadSingle.CheckedChanged, RadFour.CheckedChanged
|
|||
|
|
Dim rad As RadioButton = CType(sender, RadioButton)
|
|||
|
|
If rad.Checked Then
|
|||
|
|
_barCodeCount = CInt(rad.Tag)
|
|||
|
|
My.Settings.BarCount = _barCodeCount
|
|||
|
|
|
|||
|
|
Select Case _barCodeCount
|
|||
|
|
Case 1
|
|||
|
|
TxtSecondRecord.Visible = True
|
|||
|
|
TxtThirdRecord.Visible = False
|
|||
|
|
TxtFourthRecord.Visible = False
|
|||
|
|
TxtFifthRecord.Visible = False
|
|||
|
|
Case 2
|
|||
|
|
TxtSecondRecord.Visible = True
|
|||
|
|
TxtThirdRecord.Visible = True
|
|||
|
|
TxtFourthRecord.Visible = False
|
|||
|
|
TxtFifthRecord.Visible = False
|
|||
|
|
Case 3
|
|||
|
|
TxtSecondRecord.Visible = True
|
|||
|
|
TxtThirdRecord.Visible = True
|
|||
|
|
TxtFourthRecord.Visible = True
|
|||
|
|
TxtFifthRecord.Visible = False
|
|||
|
|
Case 4
|
|||
|
|
TxtSecondRecord.Visible = True
|
|||
|
|
TxtThirdRecord.Visible = True
|
|||
|
|
TxtFourthRecord.Visible = True
|
|||
|
|
TxtFifthRecord.Visible = True
|
|||
|
|
End Select
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
End Class
|