jionmt-sw/store-TDTestExecutor
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 1 Wiki Activity

Compare commits

merge into: jionmt-sw:test
Branches Tags
jionmt-sw:master
jionmt-sw:dot_test
jionmt-sw:test
jionmt-sw:2.4.2
...
pull from: jionmt-sw:master
Branches Tags
jionmt-sw:master
jionmt-sw:dot_test
jionmt-sw:test
jionmt-sw:2.4.2

2 Commits
test ... master

Author SHA1 Message Date
KwakJooYoung
065f208ecb TD 시리얼번호 체크 오류 수정 2025-12-01 16:54:16 +09:00
KwakJooYoung
f9c13a2ed9 0] 버전 3.0.0 업데이트 
1] 시리얼번호가 J3로 시작하는 TD 분류 시 EYE로 분류될수 있도록 수정
2] 생산1(캐패시티 값 확인 및 C/T 주파수입력 공정) 화면 표시되지 않는 문제 수정
3] TD 수입검사 시 측정값이 숫자가 아닌 스트링으로 리턴되는 경우 예외 처리
 2025-12-01 11:35:37 +09:00
2 changed files with 2611 additions and 2905 deletions
Show Stats Expand all files Collapse all files

5480
frmTD_JIG.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

36
frmTD_JIG.vb
View File

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