From 5bc2a13c7225aa913abe194291a6c2a4a4d2b374 Mon Sep 17 00:00:00 2001 From: kje97 Date: Mon, 7 Jul 2025 11:38:35 +0900 Subject: [PATCH] =?UTF-8?q?fix:=20HIFU=20=ED=85=8C=EC=8A=A4=ED=8A=B8=20Pro?= =?UTF-8?q?cessEnd,=20NgEnd=20=EC=88=9C=EC=84=9C=20=EB=B3=80=EA=B2=BD?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ProductFunctionTester/Main_Form.vb | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) 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)