jionmt-sw/prod-ProductFunctionTester
6
0
Fork 0
Code Issues 2 Pull Requests Actions Packages Projects Releases Wiki Activity

1. 마름모 검사 EP, RF 개별 금일 검사 수량으로 적용

Browse Source 
2. RF 검사 PREQ 값 변수 타입 int16 -> double 변경해 오버플로우 해결
This commit is contained in:
hyelinjung 2026-03-30 11:33:49 +09:00
parent e32a0b90d6
commit a1b1852a91
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ProductFunctionTester/Main_Form.vb
View File

@ -229,7 +229,7 @@ Public Class Main_Form
Public Test_HFData() As Double
Public Test_HFInterval() As Single
Public Test_RFVRMS() As Single
Public Test_RFFreq() As Int16
Public Test_RFFreq() As Double
Public Test_RFPWidth() As Single
Public Test_RFNWidth() As Single
Public Test_MCVpp() As Single
@ -2209,20 +2209,19 @@ Public Class Main_Form
End If
For i = 0 To tableName.Length - 1
DBCmd = "SELECT COUNT(PV_SN) FROM " & tableName(i) & " WHERE PV_SN = '" & TestData.Test_Serial & "'" &
" AND DATE(TestDate) = CURDATE()"
Dim DupYn As Int16 = DBQueryScalar(DBCmd)
If formType = formTypeList.prdRFMC Then
DBCmd = "SELECT COUNT(RF_R1Vrms) FROM " & tableName(i) & " WHERE PV_SN = '" & TestData.Test_Serial & "'" & " AND DATE(TestDate) = CURDATE()"
DBCmd = "SELECT IFNULL(RF_R1Vrms,0) FROM " & tableName(i) & " WHERE PV_SN = '" & TestData.Test_Serial & "'" & " AND DATE(TestDate) = CURDATE()"
Dim DupRFMCYn As Int16 = DBQueryScalar(DBCmd)
If DupRFMCYn = 0 Then
DupYn = 0
End If
ElseIf formType = formTypeList.prdEP Then
DBCmd = "SELECT IFNULL(EP_R1Vpp,0) FROM " & tableName(i) & " WHERE PV_SN = '" & TestData.Test_Serial & "'" & " AND DATE(TestDate) = CURDATE()"
Else
DBCmd = "SELECT COUNT(PV_SN) FROM " & tableName(i) & " WHERE PV_SN = '" & TestData.Test_Serial & "'" &
" AND DATE(TestDate) = CURDATE()"
End If
Dim DupYn As Int16 = DBQueryScalar(DBCmd)
If DupYn > 0 Then
If tableName(i) = hfTableNow Then
@ -2850,7 +2849,7 @@ SettingFailLDM:
GoTo forSettingFail
End If
TestData.Test_RFFreq(i) = Convert.ToDouble(ScopeData).ToString("f12") / 1000000
TestData.Test_RFFreq(i) = Convert.ToDouble(ScopeData) / 1000000
If formType = formTypeList.prdVRLDM Then
If (TestData.Test_RFVRMS(i) < CSng(LDMt_VRMSmin(i).Text) Or TestData.Test_RFVRMS(i) > CSng(LDMt_VRMSMax(i).Text)) Or Round(TestData.Test_RFFreq(i), 0) <> i + 1 Then