diff --git a/ProductFunctionTester/Main_Form.vb b/ProductFunctionTester/Main_Form.vb index ac5cdc6..0b1d481 100644 --- a/ProductFunctionTester/Main_Form.vb +++ b/ProductFunctionTester/Main_Form.vb @@ -4062,6 +4062,7 @@ startFail: txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf) End Sub + Private Sub AltoFunctionPD() StartTime = MeasureTimeAll(MeasStart) @@ -5058,9 +5059,6 @@ RunSuccess: End If txbWindow.AppendText("=== 합격 데이터 저장 완료 ===" & vbCrLf) -ProcessEnd: - Jig_End() - GoTo NormalEnd NgEnd: txbWindow.AppendText("=== 불합격 데이터 저장 시작 ===" & vbCrLf) If HIFU_PostReg() Then @@ -5081,15 +5079,8 @@ NgEnd: FailMain() Else - txbWindow.AppendText("CSV Data Save : OK" & vbCrLf) - - If TestError = False Then - FailMain() - Else - SuccessMain() - End If - + FailMain() End If Else @@ -5110,7 +5101,7 @@ NgEnd: End If txbWindow.AppendText("=== 불합격 데이터 저장 완료 ===" & vbCrLf) - +ProcessEnd: Jig_End() NormalEnd: txbWindow.AppendText("[" & MeasureTimeAll(MeasEnd) & "ms] Test Play" & vbCrLf)