TD 시리얼번호 체크 오류 수정

1] 시리얼번호가 J3로 시작하는 TD 분류 시 EYE로 분류될수 있도록 수정
2] 생산1(캐패시티 값 확인 및 C/T 주파수입력 공정) 화면 표시되지 않는 문제 수정
3] TD 수입검사 시 측정값이 숫자가 아닌 스트링으로 리턴되는 경우 예외 처리

frmTD_JIG.vb

@@ -10,7 +10,7 @@ Imports System.Runtime.InteropServices.ComTypes
 Imports System.Text
 
 Public Class frmTD_JIG
-    Public Const TESTER_VER As String = "2.4.2"
+    Public Const TESTER_VER As String = "3.0.0"
     Public ShowDetailLog As Boolean = False
     Public RunDemoMode As Boolean = False
     Public EnableSetup As Boolean = False
@@ -2427,7 +2427,7 @@ VisaComError:
                     DelayMs(Val(txbOntime.Text) + 50)
 
                     RetStr = RunMeasure()
-                    If RetStr = "Fail" Then
+                    If IsNumeric(RetStr) = False Or RetStr = "Fail" Then
                         StatusFail = True
                         txbRun.Text = "Scope Error 03" 'cmdDisplay("Trigger failure")
                         txbRun.BackColor = Color.Red
@@ -2489,7 +2489,7 @@ VisaComError:
                     DelayMs(Val(txbOntime.Text) + 50)
 
                     RetStr = RunMeasure()
-                    If RetStr = "Fail" Then
+                    If IsNumeric(RetStr) = False Or RetStr = "Fail" Then
                         StatusFail = True
                         txbRun.Text = "Scope Error 03" 'cmdDisplay("Trigger failure")
                         txbRun.BackColor = Color.Red
@@ -2544,6 +2544,19 @@ MEASURE_END:
                 Else
                     RegMeasure.MeasureValue(0) = 0
 
+                    If Mid(RegMeasure.MeasurePV_SN, 1, 2) = "J3" Then
+                        For Cnt = 1 To RelayCnt.Length - 1
+                            If RegMeasure.MeasureValue(RelayCnt(Cnt)) <= EyeMAX And RegMeasure.MeasureValue(0) = 0 Then RegMeasure.MeasureValue(0) = Cnt
+
+                            If RegMeasure.MeasureValue(0) Then
+                                If RegMeasure.MeasureValue(RegMeasure.MeasureValue(0)) < RegMeasure.MeasureValue(RelayCnt(Cnt)) Then
+                                    If RegMeasure.MeasureValue(RelayCnt(Cnt)) <= EyeMAX Then
+                                        RegMeasure.MeasureValue(0) = RelayCnt(Cnt)
+                                    End If
+                                End If
+                            End If
+                        Next
+                    Else
                         For Cnt = 1 To RelayCnt.Length - 1
                             If RegMeasure.MeasureValue(RelayCnt(Cnt)) <= ProMAX And RegMeasure.MeasureValue(0) = 0 Then RegMeasure.MeasureValue(0) = Cnt
 
@@ -2555,6 +2568,7 @@ MEASURE_END:
                                 End If
                             End If
                         Next
+                    End If
 
                     If RegMeasure.MeasureValue(0) = 0 Then
                         RegMeasure.MeasureOkNg = "NG"