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_HFData() As Double
Public Test_HFInterval() As Single Public Test_HFInterval() As Single
Public Test_RFVRMS() As Single Public Test_RFVRMS() As Single
Public Test_RFFreq() As Int16 Public Test_RFFreq() As Double
Public Test_RFPWidth() As Single Public Test_RFPWidth() As Single
Public Test_RFNWidth() As Single Public Test_RFNWidth() As Single
Public Test_MCVpp() As Single Public Test_MCVpp() As Single
@ -2209,20 +2209,19 @@ Public Class Main_Form
End If End If
For i = 0 To tableName.Length - 1 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 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) ElseIf formType = formTypeList.prdEP Then
If DupRFMCYn = 0 Then DBCmd = "SELECT IFNULL(EP_R1Vpp,0) FROM " & tableName(i) & " WHERE PV_SN = '" & TestData.Test_Serial & "'" & " AND DATE(TestDate) = CURDATE()"
DupYn = 0 Else
End If DBCmd = "SELECT COUNT(PV_SN) FROM " & tableName(i) & " WHERE PV_SN = '" & TestData.Test_Serial & "'" &
" AND DATE(TestDate) = CURDATE()"
End If End If
Dim DupYn As Int16 = DBQueryScalar(DBCmd)
If DupYn > 0 Then If DupYn > 0 Then
If tableName(i) = hfTableNow Then If tableName(i) = hfTableNow Then
@ -2850,7 +2849,7 @@ SettingFailLDM:
GoTo forSettingFail GoTo forSettingFail
End If 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 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 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